FiveTech Software tech support forums

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

Posted: **Wed Apr 30, 2014 7:58 pm**

lafug, tente desta forma:

Code: Select all | Expand


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

Posted: **Mon May 05, 2014 5:06 pm**

Obrigado Digordo!!
Sua dica funcionó

FiveTech Software tech support forums

Ayuda con ADO

Ayuda con ADO

Re: Ayuda con ADO

Re: Ayuda con ADO