warum funktioniert das nicht (ADS mit dbfntx)?
Code: Alles auswählen
#include "Common.ch"
#include "adsdbe.ch"
cConnect := "DBE=ADSDBE;SERVER=\\192.168.202.22:6262\ADSDATEN"
oSession := DacSession():New( cConnect )
// Check for connection success
IF .NOT. oSession:isConnected()
Alert("Fehler: " + oSession:GetLastMessage() + ";Fehlernr.: " + var2char(oSession:GetLastError()) + ";Keine Verbindung zum Server", {"Quit"} )
QUIT
ENDIF
IF .NOT. oSession:executeQuery("select * from artikel",, .T.) // geht leider nicht...
Alert("select fehlgeschlagen")
ELSE
? "DBF:", alias()
? "lastrec:", lastrec()
ENDIF
PROCEDURE dbesys
IF(!DbeLoad("ADSDBE"))
alert( "Database-Engine ADSDBE nicht geladen" , {"OK"} )
QUIT
ENDIF
DbeSetDefault( "ADSDBE" )
RETURN
Artikel-Tabelle gibt es, Zugriff über die ADSDBE per dbuseArea() funktioniert einwandfrei.