11/06/2002, 01:38
|
| | | Fecha de Ingreso: junio-2002
Mensajes: 4
Antigüedad: 22 años, 9 meses Puntos: 0 | |
| corriganme esta codificacion PORFAVOR
quiero sacar registros de SQL Server por medio de un recorset para compararla con un txtbox y no ejecuta la instruccion porfavor.
Dim cnnconexion As ADODB.Connection
Dim cmdcomando As ADODB.Command
Dim rstnombre As ADODB.Recordset
Private Sub cmdentrar_Click()
Set cmdcomando = New ADODB.Command
Set rstpass = New ADODB.Recordset
Set rstnombre = New ADODB.Recordset
With cmdcomando
.ActiveConnection = cnnconexion
.CommandTimeout = 15
.CommandType = adCmdStoredProc
.CommandText = "select * from passwords where" & "nombre ='" & "txtusuario.Text" & "'"
Set rstnombre.ActiveCommand =cmdcomando.Execute()
End With
If Then
MsgBox (" BIENVENIDO AL SISTEMA")
Else
x = MsgBox("usuario EQUIVOCADO", vbCritical, "MENSAJE")
End If
End Sub
|