Visual Basic - novato

Life is soft - evento anual de software empresarial
 
Vista:

novato

Publicado por Jaime (15 intervenciones) el 11/10/2001 15:52:15
hola a todos como estan espero que bien
yo soy nuevo en esto, resulta que estoy realizando un programa de busqueda de datos con la base de datos en acces son nombres mi pregunta es como busco los nombres que yo le pido en vb6. para que me arroje todo lo relacionado con ese nombre y si pueden me dan un ejemplo plis .
gracias amigo por su ayuda l

pd.- la base de datos esta en acces 97
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:novato

Publicado por Marcelo (2 intervenciones) el 11/10/2001 16:21:26
Utiliza una consulta SQL en tu datacontrol, por ejemplo:

Data1.recordssource = \"select [campos a visualizar] from [tabla] where [campo de filtro] =\'\" & [variable con el dato filtro] & \"\'\"
data1.refresh

si lo tienes enlazado a un dbgrid verás el resultado en forma de tabla de access.

SUERTE.....
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:novato

Publicado por Mortade-lo (29 intervenciones) el 11/10/2001 16:47:55
-------------para que lo reflejes en dbgrid----------------

commond1_click ()

dim Busqueda As String
dim resultado As String

resultado = " Select Mp3, Grupo, Disco, Artista From Datos_del_grupo_ Where " & Combo3.Text & " like '" & Text10.Text & "*" & "'"

Load Form3
Form3.Data1.RecordSource = resultado
Form3.Data1.Refresh
Form3.Show 1

en sub

------------------------busqueda en el formulario que utilices----------------

Busqueda = Combo3.Text & " like '" & Text10.Text & "*" & "'"
Data1.Recordset.FindFirst (Busqueda)

If Data1.Recordset.NoMatch Then

MsgBox "No se han encontrado coincidencias", vbExclamation, "¡ Atencion !"

End If
end sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:novato

Publicado por mortade-lo (29 intervenciones) el 11/10/2001 17:05:38

creo que es esto lo que buscas , mover los registro de la base de datos hacia atras y hacia adelante.

Private Sub Commandatras_Click()

Data1.Recordset.MovePrevious
If Data1.Recordset.BOF Then
MsgBox "No hay mas registros activos", vbExclamation, "¡ Atencion !"
End If

End Sub

---------------------------------------------------------------------------------------------------

Private Sub Commandadelante_Click()

Data1.Recordset.MoveNext
If Data1.Recordset.EOF Then
MsgBox "No hay mas registros activos", vbExclamation, "¡ Atencion !"
End If
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:novato

Publicado por mortade-lo (29 intervenciones) el 11/10/2001 17:20:00
perdona esta ultima no era para ti
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar