03/04/2004, 20:29
|
| | | Fecha de Ingreso: febrero-2004 Ubicación: Resistencia - Argentina
Mensajes: 299
Antigüedad: 20 años, 9 meses Puntos: 0 | |
| tenes que crear un string de conexion, tipo este, antes de hacer la consulta:
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
strcon = "driver={SQL Server};server={ServerXP}; database={preliminar}"
consperf = "SELECT id_perfil FROM usuarios where usuarios.id_usuario like '" & Form3.Text1 & "' and usuarios.password like '" & Form3.Text2 & "'"
With cn
.ConnectionString = strcon
.ConnectionTimeout = 10
.CursorLocation = adUseClient
.Open
End With
With rs
.CursorLocation = adUseClient
.CursorType = adOpenForwardOnly
.Open consperf, cn
v = .GetRows
.Close
end with
copia esto y probalo, usa adodb y anda bien.- |