24 Set 2016 17:13
STATIC PROCEDURE TEST_ADODB()
LOCAL oRs, sConn
IF ( oRs := win_oleCreateObject( "ADODB.Recordset" ) ) != NIL
sConn="Driver={MySQL ODBC 5.3 ANSI Driver};Server=localhost;Port=3306;Database=xxx;User=yyy;Password=zzz;option=3;"
oRs:Open( "SELECT CAMPO1 FROM Testes", ;
sConn, ;
adOpenForwardOnly, ;
adLockReadOnly )
DO WHILE ! oRs:EOF
? oRs:Fields( 0 ):Value
oRs:MoveNext()
ENDDO
/* //testes de escrita
//1. dá erro
oRs:AddNew()
ors:CAMPO1=I
oRs:UpDate()
//2. não reconhece o execute
oRs:Execute( "INSERT INTO Testes (CAMPO1) VALUES ("+ALLSTR(I)+")" )
*/
oRs:Close()
Inkey(0)
ENDIF
RETURN
#include "adordd.ch"
REQUEST ADORDD
STATIC PROCEDURE Test_ADODB()
clear screen
setmode(25,80)
USE xxx VIA "ADORDD" TABLE "Testes" MYSQL FROM "localhost" USER "yyy" PASSWORD "zzz"
dbedit()
USE
clear screen
RETURN
E:/Trab/SoftSal/.hbmk/win/mingw/ALERTAS.o:ALERTAS.c:(.data+0x1688): undefined reference to `_HB_FUN_HB_ADOSETTABLE'
E:/Trab/SoftSal/.hbmk/win/mingw/ALERTAS.o:ALERTAS.c:(.data+0x1698): undefined reference to `_HB_FUN_HB_ADOSETENGINE'
E:/Trab/SoftSal/.hbmk/win/mingw/ALERTAS.o:ALERTAS.c:(.data+0x16a8): undefined reference to `_HB_FUN_HB_ADOSETSERVER'
E:/Trab/SoftSal/.hbmk/win/mingw/ALERTAS.o:ALERTAS.c:(.data+0x16b8): undefined reference to `_HB_FUN_HB_ADOSETUSER'
E:/Trab/SoftSal/.hbmk/win/mingw/ALERTAS.o:ALERTAS.c:(.data+0x16c8): undefined reference to `_HB_FUN_HB_ADOSETPASSWORD'
collect2.exe: error: ld returned 1 exit status
hbmk2 [SoftSAL-ALERTAS]: Error: Running linker. 1
24 Set 2016 21:41
Erro WINOLE/1007 [Microsoft][Gestor de controladores de ODBC] O nome da origem
de dados não foi encontrado e não foi especificado nenhum controlador predefinid
o (0x80004005): Microsoft OLE DB Provider for ODBC Drivers (Erro do DOS Nº -2147
352567)
Chamado de WIN_OLEAUTO:OPEN(0)
Chamado de ADO_OPEN(344)
Chamado de DBUSEAREA(0)
25 Set 2016 09:02