>>If want to use Btriece dabases over the interenet
>> and planned to use ADO
>>
>> We access the databases from Visual Foxpro 5.0 / 6.0
>>
>> We have setup a DSN named "TEST2"
>> The ODBC driver is Pervasive ODBC 32
>> The ODBC connection is working fine but the ADO connection gives
>> some problems
>> See Example
>>
>> ************************************************************
>> *** Example
>> *** Setting up Connection
>> connectionstring = "DSN=testt2;uid=;pwd="
>> lConnection = CreateObject("adodb.connection")
>> lConnection.Open(connectionstring)
>>
>> *** If i did it using odbc
>> ** = SQLCONNECT(x,"test2")
>> ** = SQLEXEC(x,"Select * from debitr","Mycursor")
>> ** This is working fine
>>
>> *** Setting up RecordSet
>> RecordSet = CreateObject("adodb.recordset")
>> *** This one is working fine
>> lSql = "Select * from debitr"
>> Recordset.open(lSql,lConnection,1,2)
>> Recordset.movefirst
>> DO WHILE !RecordSet.eof
>> ? RecordSet.fields('debnr').value
>> RecordSet.movenext
>> ENDDO
>> Recordset.Close
>>
>> *** If i did it using odbc
>> ** = SQLCONNECT(x,"test2")
>> ** = SQLEXEC(x,"Select * from debitr","Mycursor")
>> ** This is working fine
>>
>> *** Setting up RecordSet
>> RecordSet = CreateObject("adodb.recordset")
>> *** This one is working fine
>> lSql = "Select MAX(debnr) AS debnr from debitr"
>> *** also tried 2,2 1,3 1,5 etc.
>> Recordset.open(lSql,lConnection,1,2)
>> Recordset.movefirst
>> DO WHILE !RecordSet.eof
>> ? RecordSet.fields('debnr').value
>> RecordSet.movenext
>> ENDDO
>> Recordset.Close
>> RETURN
>>
>> *** If i did it using odbc
>> ** = SQLCONNECT(x,"exact2")
>> ** = SQLEXEC(x,"Select MAX(debnr) as debnr from debitr","Mycursor")
>> ** This is working fine just one record with the higest number
>>
>> ****************************************************************
>>
>> So a standaard SQL stamement is working fine
>> But special SQL statement give some trouble
>> Ho can help me
>>
>> Kind regards
>>
>>
>> Jan Dorresteijn
>> Email jan@dorresteijn.nl
>
>Jan,
>which one is not working fine?
>Pete Kane
Peter,
RecordSet = CreateObject("adodb.recordset")
*** This one is not working fine
lSql = "Select MAX(debnr) AS debnr from debitr"
*** also tried 2,2 1,3 1,5 etc.
Recordset.open(lSql,lConnection,1,2)
This one is not working
But if i use the sqlexec is working fine so the ODBC driver
can handle it
jan,
Précédent
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement