Deseo hacer una consulta en una base de datos que cree en access pero no se como realizarla
Cordial saludo deseo hacer una consulta en una base de datos que cree en access pero no se como realizarla.
Deseo realizar una consulta de un campo suministrando por ejemplo los tres primeros dígitos que yo desea y que me aparezcan las coincidencias
Deseo realizar una consulta de un campo suministrando por ejemplo los tres primeros dígitos que yo desea y que me aparezcan las coincidencias
1 Respuesta
Respuesta de netvaio
1
Bueno esta seria tu programación en un botón de buscar... con las letras que pongas... 1.2.3 o 4 te funciona...
Set con = CreateObject("ADODB.Connection")
con.Open ("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & "C:\Bd\base.mdb")
buscar_art = txtbusca.Text
SQL = "SELECT * FROM datos_detalle WHERE nombre_art LIKE '" & "%" & buscar_art & "%" & "'"
Set datos = con.Execute(SQL)
If datos.EOF = False Then
datos.MoveFirst
y = 1
Do While Not datos.EOF
fg_aa.Rows = y + 1
fg_aa.Row = y
fg_aa.Col = 0
fg_aa.Text = datos("id_folio")
fg_aa.Col = 1
fg_aa.Text = datos("nombre_art")
fg_aa.Col = 2
fg_aa.Text = datos("prestamo")
fg_aa.Col = 3
fg_aa.Text = datos("avaluo")
y = y + 1
datos.MoveNext
Loop
Else
MsgBox "No existen resultados para la busqueda que ud solicito", vbCritical, "No existen registros"
End If
Saludos... Esta es con una conexión SQL de VB a ACCESS ... nada más cambiala a tus necesidades!
Set con = CreateObject("ADODB.Connection")
con.Open ("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & "C:\Bd\base.mdb")
buscar_art = txtbusca.Text
SQL = "SELECT * FROM datos_detalle WHERE nombre_art LIKE '" & "%" & buscar_art & "%" & "'"
Set datos = con.Execute(SQL)
If datos.EOF = False Then
datos.MoveFirst
y = 1
Do While Not datos.EOF
fg_aa.Rows = y + 1
fg_aa.Row = y
fg_aa.Col = 0
fg_aa.Text = datos("id_folio")
fg_aa.Col = 1
fg_aa.Text = datos("nombre_art")
fg_aa.Col = 2
fg_aa.Text = datos("prestamo")
fg_aa.Col = 3
fg_aa.Text = datos("avaluo")
y = y + 1
datos.MoveNext
Loop
Else
MsgBox "No existen resultados para la busqueda que ud solicito", vbCritical, "No existen registros"
End If
Saludos... Esta es con una conexión SQL de VB a ACCESS ... nada más cambiala a tus necesidades!
