PROCEDIMIENTO ALMACENDO CON ADO
Publicado por Darwin Quintero (8 intervenciones) el 09/08/2005 22:07:11
Amigos
Saludos
Estoy haciendo esto:
cConnectString = [provider=vfpoledb.1; data source=D:\Sistema\dbc\Datos.dbc]
oConn = CreateObject("ADODB.Connection")
oConn.ConnectionString = cConnectString
oConn.Open
cSQL = [select * from Clientes Where razon Like 'ACU%']
oRS = oConn.Execute (cSQL)
if oRS.EOF
? "No records found."
oRS.Close
oConn.CLose
RELEASE oRS, oConn
RETURN
endif
do while !oRS.EOF
MessageBox(oRS.Fields("Razon").Value)
oRS.MoveNext
enddo
oRS.Close
HASTA AQUI TODO LO HACE BIEN PERO CUANDO LAS SIGUIENTES INSTRUCCIONES:
loCmd = CreateObject('ADODB.Command')
loCmd.ActiveConnection = oConn
loCmd.CommandText = 'Validar'
loCmd.CommandType = 4
loCmd.Execute()
Me genera el siguiente error:
1429 - Codigo de excepcion Ole IDispatch 0 de Microsoft Ole DB Provider for Visual Foxpro: Unrecognized command verb..
Lo que deseo es ejecutar el procedimiento almacenado Validar
Algun comentario sobre el error.
Saludos
Estoy haciendo esto:
cConnectString = [provider=vfpoledb.1; data source=D:\Sistema\dbc\Datos.dbc]
oConn = CreateObject("ADODB.Connection")
oConn.ConnectionString = cConnectString
oConn.Open
cSQL = [select * from Clientes Where razon Like 'ACU%']
oRS = oConn.Execute (cSQL)
if oRS.EOF
? "No records found."
oRS.Close
oConn.CLose
RELEASE oRS, oConn
RETURN
endif
do while !oRS.EOF
MessageBox(oRS.Fields("Razon").Value)
oRS.MoveNext
enddo
oRS.Close
HASTA AQUI TODO LO HACE BIEN PERO CUANDO LAS SIGUIENTES INSTRUCCIONES:
loCmd = CreateObject('ADODB.Command')
loCmd.ActiveConnection = oConn
loCmd.CommandText = 'Validar'
loCmd.CommandType = 4
loCmd.Execute()
Me genera el siguiente error:
1429 - Codigo de excepcion Ole IDispatch 0 de Microsoft Ole DB Provider for Visual Foxpro: Unrecognized command verb..
Lo que deseo es ejecutar el procedimiento almacenado Validar
Algun comentario sobre el error.
Valora esta pregunta


0