Buscar registros en base de datos access en visual basic 6

[juancho24]

Hola

Alguien me podria dar un ejemplo o codigo de como buscar registros en una tabla de access 2000 con visual basic 6, el registro a buscar sera ingresado en un textbox y al hacer clic en un boton(buscar) me muestre los registros asociados al registro buscado
esto es con coneccion adodb

Gracias por su ayuda


saludos

[UID]

bueno.. pues yo encontre este codigo en un programa que me pasaron..

Private Sub cmdAceptar_Click()
cSQL = ""
'Consulta por claves
If Opt1.Value = True Then
cSQL = cSQL & "select numpro,nompro,telpro from proveedores where numpro=" & Val(Txt1.Text)
rsConsulta.Open (cSQL)
End If

'Consulta por nombre
If Opt2.Value = True Then
cSQL = cSQL & "select numpro,nompro,telpro from proveedores where nompro=" & """" & Txt2.Text & """"
rsConsulta.Open (cSQL)
End If

'Consultar todos los registros
If Opt3.Value = True Then
cSQL = cSQL & "select numpro,nompro,telpro from proveedores"
rsConsulta.Open (cSQL)
End If

If rsConsulta.RecordCount = 0 Then
MsgBox "No hay registros en la base de datos con esa descripcion", vbExclamation, "Proveedores"
rsConsulta.Close
Exit Sub
End If

rsConsulta.MoveFirst
LimpiarGrid

While Not rsConsulta.EOF
GrdProv.AddItem Trim(rsConsulta!numpro) & vbTab & Trim(rsConsulta!nompro) & vbTab & Trim(rsConsulta!telpro)
rsConsulta.MoveNext
Wend
rsConsulta.Close

End Sub

espero te de una idea :D

[juancho24]

Iniciado por UID

bueno.. pues yo encontre este codigo en un programa que me pasaron..


espero te de una idea :D

Hola gracias por respoder
mira copie ese codigo pero me arroja error, "variable no definida"

mira este es mi codigo:

Private Sub cmdBuscar_Click()
cSQL = ""
'Consulta por clave
If txtRutVisitador <> "" Then
cSQL = cSQL & "select RutVisitador, DvVisitador,NombreVisitador,DirParticular,FonoCome rcial,Correo where RutVisitador=" & Val(txtRutVisitador.Text)
rsConsulta.Open (cSQL)
End If


mira te voy a explicar mejor lo que quiero:
buscar datos a partir de una busqueda por rut y que me muestre los resultados de ese rut, es decir que me muestre el rut, y otros datos correspondientes a ese rut en unos texbox

porfavor ayudenme

gracias

saludos

[shadowGT]

bueno mira si estas utilizando un ADODC para conectarte esto te ayudara


Dim buscar As String
buscar = UCase(InputBox("Ingrese el Codigo de Producto.", "Buscar Producto"))
Adodc1.RecordSource = "Select * From Inventario where codigo ='" & buscar & "'"
Adodc1.Refresh

[shaggikpo]

hola yo tengo un problema similar pasa esto yo tengo un programa que me permite editar los valores de una base de datos, pero ahora necesito agregarle una funcion que me permita conultar valores en esa BD cono por ejenplo Nombre de usuario y contraseña todo esto utilizando la estructura cliente servidor pero mi problema es como ago referencia a la base de datos en lared y tambien como consulto valores especificos de esa DB es eci si mi tabla tien 500 usuarios y tiene datos como Nobre de usuario,contraseña fecha de alta, acseso, etc como puedo buscar si existe un usario y si su contreseña es valida.

les agradeseria cualquier tipo de ayuda

[David]

Favor no revivir temas viejos.
Véase: http://www.forosdelweb.com/f40/polit...el-web-101485/
Gracias.

P.S.: Pediré al moderador que te coloque en un nuevo tema.

[amiloza]

yo intente hacerlo hacer asi pero me marco error al ponerle refresh