Je me suis inspiré du code ci-dessous (www.purearea.net) pour la connexion et la déconnexion à une base de donnée Microsoft SQL Server. La création du lien ODBC fonctionne parfaitement mais la suppression du lien ne se fait pas. Dans la procédure "Deleleconnection" le résultat retourné est toujours égal à 0. J'ai fait diverses recherches sans résultat. Merci d'avance pour votre aide. Pour information je travaille avec PB V4.00
Code : Tout sélectionner
; 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