como manejar bases de as/400 con vb
Publicado por Ricardo Figueroa (22 intervenciones) el 19/03/2003 19:07:43
nesecito, ir a buscar en una tabla del AS mediante VB, yo utilizo el adodc para la coneccion mediante access client.
Dim conection As New adodb.Connection
Dim rs As New adodb.Recordset
Dim prov As String
Dim sqlsentence As String
Prov = "Provider=IBMDA400;" & _
"Password=" & password & ";" & _
"User ID=" & usuario & ";" & _
"Data Source=" & ip & ";" & _
"Transport Product=Client Access;" & _
"SSL = Default"
conection.Open prov
sqlsentence = "SELECT (campo)dlccli FROM (mi libreria)rflib/v1client(tabla) where dlccli = "xxxx" ......"
rs.Open sqlsentence, conection
el error que envia es de que el servidor envio un error sql, y me señala " rs.Open sqlsentence, conection "alguien me podria decirque esta pasando, gracias...
Dim conection As New adodb.Connection
Dim rs As New adodb.Recordset
Dim prov As String
Dim sqlsentence As String
Prov = "Provider=IBMDA400;" & _
"Password=" & password & ";" & _
"User ID=" & usuario & ";" & _
"Data Source=" & ip & ";" & _
"Transport Product=Client Access;" & _
"SSL = Default"
conection.Open prov
sqlsentence = "SELECT (campo)dlccli FROM (mi libreria)rflib/v1client(tabla) where dlccli = "xxxx" ......"
rs.Open sqlsentence, conection
el error que envia es de que el servidor envio un error sql, y me señala " rs.Open sqlsentence, conection "alguien me podria decirque esta pasando, gracias...
Valora esta pregunta


0