Posted: Wed Aug 08, 2007 2:30 pm
InitDatabase()?Fred wrote:Another small change:
Code: Select all
InitDatase() has been renamed to UseODBCDatabase() for more flexibility (to easily implement more database plugins).
http://www.purebasic.com
https://www.purebasic.fr/english/
InitDatabase()?Fred wrote:Another small change:
Code: Select all
InitDatase() has been renamed to UseODBCDatabase() for more flexibility (to easily implement more database plugins).
FindString("InitDatase()", "ba", 0) = 0Fred wrote:What else ?
Anyway, i have my little ideaFred wrote:Top SecretFlype wrote:and, hum, you say plugin ?
interesting... one more word about these plugins ?
BrilliantThe handling of Folding, AutoComplete and ProcedureBrowser has been redesigned for more speed and flexibility.
It should make editing of sourcecodes (especially larger ones) much smoother than before.
Excellent idea.ABBKlaus wrote:Donation is on its way
Release 2.0.1 Tue June 5 2007
- Fixed bugs #1515266, 1515600: The character data handler's calling
of XML_StopParser() was not handled properly; if the parser was
stopped and the handler set to NULL, the parser would segfault.
- Fixed bug #1690883: Expat failed on EBCDIC systems as it assumed
some character constants to be ASCII encoded.
- Minor cleanups of the test harness.
- Fixed xmlwf bug #1513566: "out of memory" error on file size zero.
- Fixed outline.c bug #1543233: missing a final XML_ParserFree() call.
- Fixes and improvements for Windows platform:
bugs #1409451, #1476160, 1548182, 1602769, 1717322.
- Build fixes for various platforms:
HP-UX, Tru64, Solaris 9: patch #1437840, bug #1196180.
All Unix: #1554618 (refreshed config.sub/config.guess).
#1490371, #1613457: support both, DESTDIR and INSTALL_ROOT,
without relying on GNU-Make specific features.
#1647805: Patched configure.in to work better with Intel compiler.
- Fixes to Makefile.in to have make check work correctly:
bugs #1408143, #1535603, #1536684.
- Added Open Watcom support: patch #1523242.
Code: Select all
Procedure.b DBaccess()
Protected nfile_db.l = 0, ret.b, Err.s
;Arir archivo MySQL
nfile_db.l = OpenDatabase(#PB_Any, "db_local", "user", "_xxx_")
If nfile_db.l = 0
Err.s = DatabaseError()
MessageRequester("Información","Error en bbdd: " + Err.s)
ret.b = #False
Else
;Cerrar archivo MySQL
CloseDatabase(nfile_db.l)
ret.b = #True
EndIf
ProcedureReturn ret.b
EndProcedure
UseODBCDatabase()
DBaccess()