Ayuda conexion mysql
Publicado por paco (14 intervenciones) el 14/09/2005 19:51:55
Saludos, tengo una conexion con odbc para conectar clipper con una base en mysql. se conecta bien pero ahora quiero mostrar los registros, alguien puede ayudarme, les muestro el codigo donde me muestra el numero de registros. gracias por su ayuda
function main
local oCon
oCon:=toleauto():new("adodb.connection")
oCon:OPEN("DRIVER={MySQL ODBC 3.51 DRIVER};SERVER=10.35.176.146;DATABASE=coordinacion2;UID=root")
//;PWD=rachmaninov")
oSql:=toleauto():new("adodb.command")
oSql:ActiveConnection(oCon)
* oSql:CommandText:="Select * from catalogo"
oSql:CommandText:="Select * from catalogo where DESCRIPCIO like '%COMETIDA%'"
oDatos:=oSql:Execute()
set colo to w+/b
cls
@0,0 say "Registros "+STR(oDatos:RecordCount())
@1,0 say "Campos "+STR(oDatos:Fields:Count())
?oDatos:Fields:Count()
inkey(0)
Odatos:MoveFirst()
retu
function main
local oCon
oCon:=toleauto():new("adodb.connection")
oCon:OPEN("DRIVER={MySQL ODBC 3.51 DRIVER};SERVER=10.35.176.146;DATABASE=coordinacion2;UID=root")
//;PWD=rachmaninov")
oSql:=toleauto():new("adodb.command")
oSql:ActiveConnection(oCon)
* oSql:CommandText:="Select * from catalogo"
oSql:CommandText:="Select * from catalogo where DESCRIPCIO like '%COMETIDA%'"
oDatos:=oSql:Execute()
set colo to w+/b
cls
@0,0 say "Registros "+STR(oDatos:RecordCount())
@1,0 say "Campos "+STR(oDatos:Fields:Count())
?oDatos:Fields:Count()
inkey(0)
Odatos:MoveFirst()
retu
Valora esta pregunta


0