dmb wrote:I'm currently using VB6 for my (business) applications and I'm looking for a good alternative. PB looks quite good.
I agree with dmb, DSN-less connections are a much needed feature in PureBasic. Adding this feature would surely attract some current VB users.
I found the following code on PureArea.net written by Rings, bobobo, and Lars. It may be of some help to you.
Code: Select all
; German forum: http://robsite.de/php/pureboard/viewtopic.php?t=1513&highlight=
; Author: bobobo (updated for PB3.92+ by Lars)
; Date: 26. June 2003
; MS-SQL ODBC-DSN on the fly with TCP/IP-connection
; tested with MS-SQL-SERVER on W2K-Server and W2K-WS as Client
;Folgender Code geht für MS-SQL DB's
;Erzeugen einer temporären DSN für vorhandene MS-SQL-Datenbanken.
;Das folgende im Code beachten und anpassen..
;;-FOLGENDE ZEILE ANPASSEN
;Create DSN on the fly for ODBC
;
; An example by Siegfried Rings (CodeGuru)
; extended by bobobo
#ODBC_ADD_DSN = 1 ; Add Data source
#ODBC_ADD_SYS_DSN = 4 ; Add SYSTEM Data source
#ODBC_CONFIG_DSN = 2 ; Configure (edit) Data source
#ODBC_REMOVE_DSN = 3 ; Remove Data source
#ODBC_REMOVE_SYS_DSN = 6 ; Remove SYSTEM Data source
#WINDOW=0
#SHOWINFO=101
crlf.s=Chr(13)+Chr(10)
Procedure.s Showinfo(info.s)
crlf.s=Chr(13)+Chr(10)
SetGadgetText( #SHOWINFO,GetGadgetText(#SHOWINFO)+info+crlf)
While WindowEvent():Wend
EndProcedure
Procedure MakeConnection(Driver.s,strAttributes.s)
Result=OpenLibrary(1,"ODBCCP32.DLL")
If Result
lpszDriver.s=Driver
Showinfo(strAttributes)
MyMemory=AllocateMemory(Len(strAttributes))
CopyMemory(@strAttributes,MyMemory,Len(strAttributes))
For l=1 To Len(strAttributes )
If PeekB(MyMemory +l-1)=Asc(";")
PokeB(MyMemory +l-1,0)
EndIf
Next l
Result = CallFunction(1, "SQLConfigDataSource", 0,#ODBC_ADD_SYS_DSN,lpszDriver.s,MyMemory )
FreeMemory(MyMemory)
CloseLibrary(1)
If Result
ProcedureReturn 1;MessageRequester("Info","DSN Created",0)
EndIf
EndIf
EndProcedure
Procedure DeleteConnection(Driver.s,DSN.s)
Result=OpenLibrary(1,"ODBCCP32.DLL")
If Result
lpszDriver.s=Driver
strAttributes.s = "DSN="+DSN
Result = CallFunction(1, "SQLConfigDataSource", 0,#ODBC_REMOVE_SYS_DSN,lpszDriver.s,strAttributes )
CloseLibrary(1)
If Result
ProcedureReturn 1;MessageRequester("Info","DSN Delete",0)
EndIf
EndIf
EndProcedure
;-FOLGENDE ZEILE ANPASSEN Addresse
ADDRESS$="127.0.0.1,1433" ; Network address,Port of the SQL Server.
Network$="DBMSSOCN" ; VerbindungsArt
;-FOLGENDE ZEILE ANPASSEN StandardDatenbank
DATABASE$="STANDARDDATENBANK" ;Name of the Default database for the connection
;If Database is not specified, the Default database
;defined For the login is used
DESCRIPTION$="MEINE_DATENBANK_BESCHREIBUNG" ;Description
DRIVER$="SQL Server"
QUERYLOG_ON$="no" ;default no : enables long query-runs
QUERYLOGFILE$="c:\ODBCquery.log" ;Full path and name of the file used to log long-running queries.
QUERYLOGTIME$="1" ;Digit character string specifying the threshold (in milliseconds)
;for logging long-running queries. Any query that does not get a
;response in the time specified is written To the long-running
;query log file.
;-FOLGENDE ZEILE ANPASSEN Name oder ip-Nummer des MS-SQL-SERVERS
SERVER$="MEIN-MS-SQL-SERVER" ;Name of a server running SQL Server on the network
STATSLOG_ON$="no" ;Enables driver performance logging
STATSLOGFILE$="c:\ODBCPerformance.log" ;Full pth of Log Driver Performance
;FOR DB-LogOn
;-FOLGENDE ZEILE ANPASSEN (funktional nicht wichtig)
DSN$="MEINE_DB_VERBINDUNG" ; dieser Name taucht im ODBC auf
;-FOLGENDE ZEILE ANPASSEN
UID$="USER_ID" ; UserId
;-FOLGENDE ZEILE ANPASSEN
PWD$="PASSWORT" ;Passwort
ATTRIB$="DSN="+DSN$+";"+crlf
ATTRIB$=ATTRIB$+"DESCRIPTION="+DESCRIPTION$+";"+crlf
ATTRIB$=ATTRIB$+"SERVER="+SERVER$+";"+crlf
ATTRIB$=ATTRIB$+"ADDRESS="+ADDRESS$+";"+crlf
ATTRIB$=ATTRIB$+"NETWORK="+Network$+";"+crlf
ATTRIB$=ATTRIB$+"DATABASE="+DATABASE$+";"+crlf
ATTRIB$=ATTRIB$+"StatsLog_On="+STATSLOG_ON$+";"+crlf
ATTRIB$=ATTRIB$+"StatsLogFile="+STATSLOGFILE$+";"+crlf
ATTRIB$=ATTRIB$+"QueryLog_on="+QUERYLOG_ON$+";"+crlf
ATTRIB$=ATTRIB$+"QueryLogFile="+QUERYLOGFILE$+";"+crlf
ATTRIB$=ATTRIB$+"QueryLogTime="+QUERYLOGTIME$+";"
maxx = GetSystemMetrics_(#SM_CXSCREEN)
maxy = GetSystemMetrics_(#SM_CYSCREEN)
bor = GetSystemMetrics_(#SM_CXSIZEFRAME)
winwidth = 300
If winwidth>maxx
winwidth=maxx
EndIf
winwidth=winwidth-bor*2
winheight = 200
winleft=maxx-winwidth-bor*2 ;ganz rechts
wintop=0
dropped=#False
#WINDOW=0
#SHOWINFO=101
#OKBUT=200
OpenWindow(0, winleft, wintop, winwidth, winheight, #PB_Window_SystemMenu , DRIVER$)
CreateGadgetList(WindowID())
StringGadget(#SHOWINFO,0,0,winwidth,winheight,"",#PB_String_MultiLine)
Showinfo("Anmelden mit folgenden Parametern an "+DRIVER$)
If MakeConnection(DRIVER$,ATTRIB$)
If InitDatabase()
If OpenDatabase(0, DSN$,UID$, PWD$)
Showinfo("ODBC:ok - DB:angemeldet: User:angemeldet - Status:OK")
While WindowEvent():Wend
MessageRequester(DRIVER$,"ODBC:ok - DB:angemeldet: User:angemeldet - Status:OK",0)
If DeleteConnection(DRIVER$,DSN$)
Showinfo("DB ist wieder abgemeldet")
Showinfo("Beenden")
MessageRequester(DRIVER$,"Beenden",0)
End
Else
Showinfo("DB konnte nicht abgemeldet werden")
EndIf
Else
Showinfo("ODBC EINTRAG VORHANDEN?")
Showinfo("MS-SQL-SERVER VORHANDEN?")
Showinfo("USER GÜLTIG?")
Showinfo("PASSWORT GÜLTIG?")
MessageRequester(DRIVER$,"Beenden",0)
End
EndIf
Else
Showinfo("DB kann nicht geöffnet werden")
EndIf
Else
Showinfo("DB ist nicht angemeldet")
MessageRequester(DRIVER$,"DB ist nicht angemeldet",0)
EndIf
Repeat
Event=WaitWindowEvent()
Select Event
Case #PB_Event_CloseWindow ; If the user has pressed on the close button
End
EndSelect
ForEver
; ExecutableFormat=Windows
; FirstLine=1
; EOF
).
