ABCdatos

Estoy programando un sistema en VB utilisando un ADO cuando utilizo la instrucción SELECT para accesar caracteres de tipo texto me funciona pero ahora quiero acesar una codigo numerico y no se como escribirlopara buscar la cedula de identidad que es un codigo unico, (el el usuario debe teclear en un textbox) CÓMO LO HAGO en SQL...please...ayuda!!!!
Ejemplo
On Error GoTo Errores:
'SE PROCEDE A VACIAR EN LA VARIABLE STRCNN LA CONEXION DE LA BASE DE DATOS
StrCnn = AdoClientes.ConnectionString
'SE PROCEDE A VACIAR EN LA VARIABLE VARRECBD EL CONTENIDO DEL REGISTRO
Set VarRecBd = New ADODB.Recordset
'SE PROCEDE ASOCIAR EL CAMPO CODIGO CAPTURADO POR PANTALLA EN LA TABLA DONDE SE ENCUENTRA
StrSQL = (SELECT * from Clientes Where Cedula = TxtCedula.Text
'CON LA VARIABLE VARRECBD SE PROCEDE HACER LA APERTURA DE LA TABLA Y LA BASE DE DATOS
With VarRecBd
.Open StrSQL, StrCnn, adOpenDynamic, adLockOptimistic
'SE PREGUNTA SI ES FIN DE ARCHIVO, SI NO SE CONSIGUIO EL CODIGO
If .EOF Then
'SE PROCEDE A AÑADIR UN NUEVO REGISTRO YA QUE LLEGO A FIN DEL ARCHIVO Y EL REGISTRO NO EXISTE
.AddNew
' LO QUE ESTA EN TXTCEDULA.TEXT SE TRASLADA A CADA UNO DE LOS CAMPOS EN .FIELDS("CEDULA").VALUE EN CADA UNO SUCESIVAMENTE
.Fields("Cedula").Value = Val(TxtCedula.Text)
.Fields("Nombre").Value = TxtNombre.Text
.Fields("Apellido").Value = TxtApellido.Text
.Fields("Sexo").Value = TxtSexo.Text
.Fields("Edad").Value = Val(TxtEdad.Text)
.Fields("Tipo_Cuenta").Value = TxtTipo_Cuenta.Text
.Fields("Monto_Apertura").Value = Val(TxtM_Apertura.Text)
.Fields("Fecha_Apertura").Value = CDate(TxtF_Apertura.Text)
.Fields("Saldo").Value = Val(TxtSaldo.Text)
'SE PROCEDE A GUARDAR EL REGISTRO EN LA TABLA
.Update
ojo donde le puse color y es mas grandes

StrSQL = "SELECT * from Clientes Where Cedula = " & TxtCedula.Text

seria asi nada mas, pero no se cual es tu problema o error q' te da, y si me dices con Base De Datos estas trabajando...... te podria dar una mejor ayuda, salu2.........

Zulay Venezuela escribió:Estoy programando un sistema en VB utilisando un ADO cuando utilizo la instrucción SELECT para accesar caracteres de tipo texto me funciona pero ahora quiero acesar una codigo numerico y no se como escribirlopara buscar la cedula de identidad que es un codigo unico, (el el usuario debe teclear en un textbox) CÓMO LO HAGO en SQL...please...ayuda!!!!
Ejemplo
On Error GoTo Errores:
'SE PROCEDE A VACIAR EN LA VARIABLE STRCNN LA CONEXION DE LA BASE DE DATOS
StrCnn = AdoClientes.ConnectionString
'SE PROCEDE A VACIAR EN LA VARIABLE VARRECBD EL CONTENIDO DEL REGISTRO
Set VarRecBd = New ADODB.Recordset
'SE PROCEDE ASOCIAR EL CAMPO CODIGO CAPTURADO POR PANTALLA EN LA TABLA DONDE SE ENCUENTRA
StrSQL = (SELECT * from Clientes Where Cedula = TxtCedula.Text
'CON LA VARIABLE VARRECBD SE PROCEDE HACER LA APERTURA DE LA TABLA Y LA BASE DE DATOS
With VarRecBd
.Open StrSQL, StrCnn, adOpenDynamic, adLockOptimistic
'SE PREGUNTA SI ES FIN DE ARCHIVO, SI NO SE CONSIGUIO EL CODIGO
If .EOF Then
'SE PROCEDE A AÑADIR UN NUEVO REGISTRO YA QUE LLEGO A FIN DEL ARCHIVO Y EL REGISTRO NO EXISTE
.AddNew
' LO QUE ESTA EN TXTCEDULA.TEXT SE TRASLADA A CADA UNO DE LOS CAMPOS EN .FIELDS("CEDULA").VALUE EN CADA UNO SUCESIVAMENTE
.Fields("Cedula").Value = Val(TxtCedula.Text)
.Fields("Nombre").Value = TxtNombre.Text
.Fields("Apellido").Value = TxtApellido.Text
.Fields("Sexo").Value = TxtSexo.Text
.Fields("Edad").Value = Val(TxtEdad.Text)
.Fields("Tipo_Cuenta").Value = TxtTipo_Cuenta.Text
.Fields("Monto_Apertura").Value = Val(TxtM_Apertura.Text)
.Fields("Fecha_Apertura").Value = CDate(TxtF_Apertura.Text)
.Fields("Saldo").Value = Val(TxtSaldo.Text)
'SE PROCEDE A GUARDAR EL REGISTRO EN LA TABLA
.Update
ojo donde le puse color y es mas grandes