Programación General > Bases de Datos

 buscar un registro con una variable

(1/3) > >>

ferreyravh:
pongo esto pero me da registros 0
Dim con As String
Set base = New Connection
Set rst = New Recordset
Set rst1 = New Recordset
ruta = "C:baseestasit_sdos201005.mdb"

'Abrimos la base de datos
base.CursorLocation = adUseClient
base.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & ruta
con = InputBox("ingrese numero de DNI : ")
rst1.Open "select * from Estasit_Sdos_Ofic where documento like con;", base

'Abrimos el recordset y Ejecutamos la consulta
'rst.Open "SELECT Count(*) as ndoc FROM(select distinct documento from  Estasit_Sdos_Ofic)where documento='con' ;", base

'Mostramos el resultado Maximo y Minimo del campo Gastos
'MsgBox rst.Fields("ndoc")
' Text2.Text = ndoc
 Set DataGrid1.DataSource = rst1
End Sub

m0skit0:
¿Access permite subselects?

ferreyravh:
hola que tal gracias por responder
mira estoy trabajando en visual basic 6.0 con sql
si yo pongo un campo fijo o sea un nro de dni fijo por ejemplo where=' xxxxxxxx' me los cuenta y me lo busca pero cuan trato de remplazar el 'xxxxxxxx' con una variable ingresada desde un inputbox me da regisatros igual cero probe el where y el like y ninguno funciona
desde ya gracias

m0skit0:

--- Cita de: "ferreyravh" ---ero cuan trato de remplazar el 'xxxxxxxx' con una variable ingresada desde un inputbox me da regisatros igual cero probe el where y el like y ninguno funciona
--- Fin de la cita ---
Repásate cómo concatenar strings en VB6

LeGatoRojo:
En visual, sólo usa


--- Código: Visual Basic --- strSQL="SELECT * FROM tabla WHERE campo=" & variable  
por cierto variable tiene que ser string  <_<

Navegación

[0] Índice de Mensajes

[#] Página Siguiente