Utilizamos Cookies de terceros para generar estadísticas de audiencia y mostrar publicidad personalizada analizando tu navegación. Si sigues navegando estarás aceptando su uso. Más información X
PortadaForo AyudaTutoriales
InicioForosForo Programación

Consulta en visual basic 6.0

winder1479
2009-11-09 01:13 - Respuestas: 0 - Tema nº: 2634514


Windows XP Profesional pentium 3, memoria 256mb.

quiero consultar por nombre o numero y no se como hacerlo, es una consulta sencilla es como una busque directa como consultar un cliente ingresando es nombre. me gustaria q me ayudaran con eso gracias... como ejemplo tengo esto pero no me funciona:
Private Sub Command2_Click()
Dim db As Database
Dim rst As Recordset
Dim Buscar As Variant
Set db = OpenDatabase("C:\Documents and Settings\Administrador\Mis documentos\visual\BIBLIO.MDB")
Set rst = db.OpenRecordset("SELECT * FROM Authors")
Buscar = InputBox("Ingrese el Nro de factura a buscar.", "Buscando Informacion")
If Trim$(Buscar) = "" Or Buscar = 0 Then
If Buscar = cancelar Then
Exit Sub
Else
MsgBox ("No Existen Registros vacioas o Iguales a 0"), vbCritical, ("mensaje de Advertencia")
Exit Sub
End If
Else
With rst
.MoveFirst
While Not rst.EOF
If rst.Fields("Au_ID") = Buscar Then (creo q el problema esta aqui)
Form1.Show
Unload Me
Exit Sub
End If
.MoveNext
Wend
End With
End If
MsgBox ("Este registro No existe")
Form1.Show
End Sub


Página:1

Respuestas relacionadas:

Como se hace una consulta x fecha en visual basic 6Como se hace una consulta x fecha en visual basic 6Foro
Como hacer una pantalla de consulta de visual basic Como hacer una pantalla de consulta de visual basic Foro
Visual basic (de visual studio 2008)Visual basic (de visual studio 2008)Foro
Visual basic 06Visual basic 06Foro
Visual basicVisual basicForo
Visual basic .netVisual basic .netForo
Visual basicVisual basicForo
De rpg a visual basic.netDe rpg a visual basic.netForo
Visual basic.netVisual basic.netForo
Visual basic 6.0Visual basic 6.0Foro
InicioSecciones
^ SubirAviso legal
Política Privacidad
Configurarequipos06 Noviembre 2024