Ich habe das Testprogrammn für mehrere ODBC-Verbindungen auf das geänderte SQLInit angepaßt. So funktioniert es mit der aktuellen Betaversion:
cls
declare hdb1&, hdb2&
' 1. und 2. Datenbanken öffnen
hdb1& = @SQLinit("DSN=ZIM")
ifnot hdb1& > 0
messagebox("ZIM-Datenbank nicht gefunden!","Kritischer Fehler!",16)
end
endif
hdb2& = @SQLinit("DSN=dBase")
ifnot hdb1& > 0
messagebox("dBase-Datenbank nicht gefunden!","Kritischer Fehler!",16)
end
endif
' 1. Datenbank lesen
clearlist
set("SQLDBC",hdb1&)
sqlexec "select nachname, dgeburt from personen where dgeburt > {d'1969-09-12'}",1
listbox$("ZIM",2)
' 2. Datenbank lesen
clearlist
set("SQLDBC",hdb2&)
sqlexec "select * from adress",1
listbox$("dBase",2)
' 1. Datenbank erneut lesen
clearlist
set("SQLDBC",hdb1&)
sqlexec "select nachname, dgeburt from personen where dgeburt > {d'1969-09-12'}",1
listbox$("ZIM",2)
' 2. Datenbank erneut lesen
clearlist
set("SQLDBC",hdb2&)
sqlexec "select * from adress",1
listbox$("dBase",2)
' Beide Datenbanken schließen
set("SQLDBC",hdb1&)
sqldone
set("SQLDBC",hdb2&)
sqldone
waitinput
end
Viel Spaß beim Testen!
Gruß
Roland
|