Ayuda por favor. Problemas con conexiones
Publicado por Javier (1 intervención) el 29/05/2007 14:54:15
Hola a todos:
Tengo un problema con una conexión a una base de datos de SQL Server. Programo en Visual Basic 6.0 y me gustaría hacer por código una conexión directa a una BD de SQL Server 2000.
He probado a hacerla de la siguiente forma:
CON.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=BDPrueba;Data Source=192.0.2.105
On Error Resume Next
CON.Open
If CON.Errors.Count <> 0 Then
For veces = 0 To CON.Errors.Count - 1
If CON.Errors(veces).NativeError <> 5703 And CON.Errors(veces).NativeError <> 5701 Then
MsgBox "Resulta imposible efectuar la conexión ADO. Pulse Aceptar para finalizar."
End
End If
Next
CON.Errors.Clear
End If
La conexión se hace bien pero si luego abro un recordset y me muevo por él me da el siguiente error:
El conjunto de filas no admite desplazamiento hacia atrás.
El recordset lo abro de la siguiente forma:
Dim Rresultado As New ADODB.Recordset
On Error Resume Next
Err.Clear
Rresultado.Open ssql, CON, adOpenDynamic, adLockOptimistic
If Err.Number = 0 Then Exit Do
If Rresultado.State = adStateOpen Then Rresultado.Close
Err.Clear
Me podeis ayudar por favor??
Tengo un problema con una conexión a una base de datos de SQL Server. Programo en Visual Basic 6.0 y me gustaría hacer por código una conexión directa a una BD de SQL Server 2000.
He probado a hacerla de la siguiente forma:
CON.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=BDPrueba;Data Source=192.0.2.105
On Error Resume Next
CON.Open
If CON.Errors.Count <> 0 Then
For veces = 0 To CON.Errors.Count - 1
If CON.Errors(veces).NativeError <> 5703 And CON.Errors(veces).NativeError <> 5701 Then
MsgBox "Resulta imposible efectuar la conexión ADO. Pulse Aceptar para finalizar."
End
End If
Next
CON.Errors.Clear
End If
La conexión se hace bien pero si luego abro un recordset y me muevo por él me da el siguiente error:
El conjunto de filas no admite desplazamiento hacia atrás.
El recordset lo abro de la siguiente forma:
Dim Rresultado As New ADODB.Recordset
On Error Resume Next
Err.Clear
Rresultado.Open ssql, CON, adOpenDynamic, adLockOptimistic
If Err.Number = 0 Then Exit Do
If Rresultado.State = adStateOpen Then Rresultado.Close
Err.Clear
Me podeis ayudar por favor??
Valora esta pregunta
0