FiveTech Software tech support forums

... Fe1_,_Fe2_)
Local _oCmd_,_oPar_

_oCmd_:=TOleAuto():New("ADODB.Command")
_oCmd_:ActiveConnection:=_Cnx_
_oCmd_:CommandType:=4
_oCmd_:CommandText:="dbo.PA_get_detalle"
_oCmd_:CommandTimeout:=0

_oPar_:=_oCmd_:CreateParameter("Fecini",3,1,8,_Fe1_)
_oCmd_:Parameters:Append(_oPar ...

... Connect_sql(@_Cnx_,G_sql_u,G_sql_c)

_oCmd_:=TOleAuto():New("ADODB.Command")
_oCmd_:ActiveConnection:=_Cnx_
_oCmd_:CommandType:=4
_oCmd_:CommandText:="CalcSaldo"
_oCmd_:CommandTimeout:=0

_oPar_:=_oCmd_:CreateParameter("Codigo",129,1,8,_Cod_)
_oCmd_:Parameters:Append(_oPar_)
_oPar ...

... cSql,cExi_Det
Local totini,totent,totsal
Local oCmd,oRsCmd
Local nCount:=0
nActual := 0
nTotal := 0


oCmd:=TOleAuto():New("ADODB.Command")
oCmd:CommandText :="select count(*) from exi_suc WHERE sto_ok='"+"1'"
oCmd:CommandType :=adCmdText
oCmd:ActiveConnection:=oConexion
oRsCmd:=oCmd:Execute()
nCount ...

... 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

... FIN ERROR


#define adSchemaColumns 4
#define adCmdUnspecified -1 // Does not specify the command type argument.
#define adCmdText 1 //Evaluates CommandText as a textual definition of a command or stored procedure call.
#define adCmdTable 2 //Evaluates CommandText as a table name whose columns are ...

... CODIGO) }
.....


Function RefrescaStock(codigobusca)
Local nStock:=0
Local oCmd
Local oRsCmd

oCmd:=TOleAuto():New("ADODB.Command")
oCmd:CommandText := "select STOCK from productos where CODIGO ='" + codigoBusca + "' limit 1"
oCmd:CommandType := adCmdText
oCmd:ActiveConnection:=oCn ...

... por sus comentarios que me ayudaron a solucionarlo me faltaba indicarle al objeto que le estaba enviando un texto... quedo asi:

oComando:CommandText:= "DROP TABLE IF EXISTS `MITABLA` "

TRY
oApp := oComando:Execute()
CATCH oErr
MsgInfo("No se puede borrar",oErr:Description )
END TRY


Y ...

your procedure name is yy.`Sp_Job1
why a space and single quote after yy. ?
if the name is yy.Sp_Job1, then try assigning commandtext as "yy.Sp_Job1"
Make sure your login has rights to execute it.

Can you try creating another procedure as dbo.testproc ? then you can use 'testproc' as command text

TRY
oCommand:=CreateObject("ADODB.Command")
oCommand:ActiveConnection:=oCon
oCommand:CommandType:=adCmdStoredProc
oCommand:CommandText:="Sp_Job1"
CATCH
.. Show ,,,
END
May be the command object is not initialized properly

... User ID=Martin;Initial Catalog=APPLOCAL;Data Source=PERLIM_SYS_LCH")
oComando:ActiveConnection(oConexionAdo)
oComando:CommandType:= 4
oComando:CommandText := "sp_Menu"
oRs := TOleAuto():New( "ADODB.Recordset" )
oRs:CursorType := adOpenKeyset
oRs:CursorLocation := adUseClient
oRs:LockType ...

... User ID=Martin;Initial Catalog=APPLOCAL;Data Source=PERLIM_SYS_LCH")
oComando:ActiveConnection(oConexionAdo)
oComando:CommandType:= 4
oComando:CommandText := "sp_Menu"
oRs := TOleAuto():New( "ADODB.Recordset" )
oRs:CursorType := adOpenKeyset
oRs:CursorLocation := adUseClient
oRs:LockType ...

... User ID=Martin;Initial Catalog=APPLOCAL;Data Source=PERLIM_SYS_LCH")
oComando:ActiveConnection(oConexionAdo)
oComando:CommandType:= 4
oComando:CommandText := "sp_Menu"
oRs := TOleAuto():New( "ADODB.Recordset" )
oRs:CursorType := adOpenKeyset
oRs:CursorLocation := adUseClient
oRs:LockType ...

... adUseClient
oRs:LockType := adLockOptimistic
oCmd:= TOleAuto():New( "ADODB.Command" )
oCmd:CommandType := adCmdStoredProc
oCmd:CommandText:= "sp_Menu"
oCmd:Activeconnection:=oConnection
oRs:Open(oCmd:Execute())
MsgAlert(oRs:RecordCount())

y el resultado que me muestra la ultima ...

... adUseClient
oRs:LockType := adLockOptimistic
oCmd:= TOleAuto():New( "ADODB.Command" )
oCmd:CommandType := adCmdStoredProc
oCmd:CommandText:= "sp_Menu"
oCmd:Activeconnection:=oConnection
oRs:Open(oCmd:Execute())
MsgAlert(oRs:RecordCount())

y el resultado que me muestra la ultima ...

... use the Connection object, which returns a recordset with a read-only forward-only cursor. The syntax would be:

Set rsObj = connObj.Execute (CommandText,RecordsEffected,Options)

CommandText is the SQL statement you send to the database, RecordsEffected returns the value of how many record(s ...