topic-28383

lafug

Posts: 185

Joined: Thu Nov 17, 2005 12:48 AM

Ayuda con ADO
Posted: Tue Apr 29, 2014 11:37 PM

Estimados,

Estoy queriendo ejecutar un comando SQL en ADO y me da el error:

Error adodb.command/6 DISP_E_UNKNOWNNAME: EXECUTE

muchas gracias de antemano!!

FUNCTION EJECUTA()
LOCAL oConexionAdo := TOLEAUTO():New("adodb.connection")
LOCAL oComando := TOLEAUTO():New("adodb.command")
LOCAL oRecordset
oConexionAdo:Open("Driver={MySQL ODBC 3.51 Driver};Server="+ALLTRIM(cHost)+";Port=3306;Database="+ALLTRIM(cDataBase)+";User="+ALLTRIM(cUser)+"; Password="+ALLTRIM(cPassword)+";Option=3;")
oComando:ActiveConnection(oConexionAdo)
oComando:CommandText := "SELECT * from AFP"
oRecordSet := oComando:Execute() <------- Aqui me da el error
? oRecordSet
return nil

Luis Alfonso Fuentes Guerrero

FWH 11.06 xHarbour 1.2.1 BCC55 WorkShop

digordo

Posts: 13

Joined: Mon Aug 02, 2010 05:15 PM

Re: Ayuda con ADO
Posted: Wed Apr 30, 2014 07:58 PM

lafug, tente desta forma:

Code (fw): Select all Collapse

FUNCTION EJECUTA()
LOCAL oConexionAdo := CreateObject("ADODB.Connection")
LOCAL oRecordSet := CreateObject("ADODB.Recordset")
Local cSQL := "SELECT * from AFP"

oConexionAdo:Open("Driver={MySQL ODBC 3.51 Driver};Server="+ALLTRIM(cHost)+";Port=3306;Database="+ALLTRIM(cDataBase)+";User="+ALLTRIM(cUser)+"; Password="+ALLTRIM(cPassword)+";Option=3;")

oRecordSet:CursorLocation := 3  // adUseClient
oRecordSet:CursorType := 3 // adOpenStatic
oRecordSet:ActiveConnection:= oConexionAdo
oRecordSet:Open(cSQL)

oRecordSet -> Use o record set da forma que desejar

Return

lafug

Posts: 185

Joined: Thu Nov 17, 2005 12:48 AM

Re: Ayuda con ADO
Posted: Mon May 05, 2014 05:06 PM

Obrigado Digordo!!
Sua dica funcionó

Luis Alfonso Fuentes Guerrero

FWH 11.06 xHarbour 1.2.1 BCC55 WorkShop

FiveTech Support Forums

Continue the discussion