MS SQL Anbindung
Verfasst: 2. Mai 2016, 18:20
Ich suche ein Beispiel für eine MS SQL Serveranbindung, ODBC.
Fragen, Antworten zu Windev, Webdev und Windev Mobile
https://windevforum.de/
Code: Alles auswählen
H.SQLServerMode=0
SWITCH RADIO_sql
CASE 2 // Zugang zu SQL-Server
bOk=HDescribeConnection("SQLZugrT",NoSpace(EDT_SQLUser),NoSpace(EDT_SQLPW),NoSpace(EDT_SQL),NoSpace(EDT_SQL1),hNativeAccessSQLServer,hORead)
CASE 3 // Zugung zu C/S Manta (kommt mit Windev mit)
bOk=HDescribeConnection("SQLZugrT",NoSpace(EDT_SQLUser),NoSpace(EDT_SQLPW),NoSpace(EDT_SQL),NoSpace(EDT_SQL1),hAccessHFClientServer,hORead)
END
IF bOk THEN
Info("Describe ok")
//HCloseConnection("SQLZugrT")
HClose(ZLAD)
IF HChangeConnection(ZLAD,"SQLZugrT") THEN
Info("Change ok")
IF HReadFirst(ZLAD) THEN
Info("read ok")
END
ELSE
HErrorInfo(hErrADO)
END
HCloseConnection("SQLZugrT")
ELSE
//Info("Describe NOT ok")
Error(HErrorInfo())
END
Code: Alles auswählen
n is int
n=SQLConnect("MyServer",NoSpace(EDT_SQLUser),NoSpace(EDT_SQLPW),NoSpace(EDT_SQL),NoSpace(EDT_SQL1),hOledbSQLServer)
if n<>0 then
Info("OK")
end