Duda sobre manejo de tablas de Access en Visual Basic
Hola, tengo un problema, tengo que haces un programa en visual que sirva para el control de stock de un kiosko y necesito que el programa tome por medio de un textbox o un inputbox una palabra o parte de la palabra por ejemplo "gase" o "gaseosa" y que el programa realice una consulta SQL a la tabla con un Like "gase*" como así también si fuese necesario Like "gaseosa". Mi problema es que no tengo mucha experiencia y no se si hay alguna instrucción que me permita hacer POR consultas con valores tomados desde un TEXTBOX desde ya muchísimas gracias y espero me puedas responder a la brevedad ya que estoy muy apretado con los tiempos :(
Saludos cordiales, Cristian Perez, Argentina
Saludos cordiales, Cristian Perez, Argentina
Respuesta de Roberto Alvarado
1
Debes reemplazar en la instrucción SQL lo que va entre comillas sencillas por el contenido del textbox:
query = "SELECT * FROM Tabla WHERE Nombre LIKE '%" & me.Textbox1.tex & "' ")
Y luego esa variable query que deb estr definida como un String la envías a que se ejecute y te devuelva el recordset con los datos que te arroje la consulta.
query = "SELECT * FROM Tabla WHERE Nombre LIKE '%" & me.Textbox1.tex & "' ")
Y luego esa variable query que deb estr definida como un String la envías a que se ejecute y te devuelva el recordset con los datos que te arroje la consulta.
Intente hacerlo como me dijiste pero no me funciono :S este es el código me ayudaría mucho si me ayudarías a solucionar mi problema ya que ya no se más que hacer :(
Private Sub cmd1_Click()
Dim SQLTmp As String
Dim MySnap As Recordset
SQLTmp = "select * from TLogin WHERE Usuario Like '*" & Me.txt1.Text & "'"
Set MySnap = MiBase.OpenRecordset(SQLTmp)
Err = 0
MySnap.MoveFirst
If Err Then
Err = 0
'no hay datos, avisar
MsgBox "No hay datos que coincidan con la búsqueda especificada," & vbCrLf & "(o no está bien realizada)", 64, "Listados"
Exit Sub
End If
'Añadir el resultado a un List
List1.Clear
MySnap.MoveFirst
Do Until MySnap.EOF
'Procesar los datos...
'
List1.AddItem MySnap("Usuario") & " " & MySnap("Contraseña")
'...y demás datos
MySnap.MoveNext
Loop
MySnap.Close
End Sub
Este es el código que conseguí para hacer una consulta de SQL en Visual y después del LIKE lo adopte según me dijiste, pero no logre resultado alguno por favor me gustaría que me dijeras que cambios debería realizarle para que cumpla su objetivo, Desde ya muchas gracias...
Saludos Cristian Perez
Private Sub cmd1_Click()
Dim SQLTmp As String
Dim MySnap As Recordset
SQLTmp = "select * from TLogin WHERE Usuario Like '*" & Me.txt1.Text & "'"
Set MySnap = MiBase.OpenRecordset(SQLTmp)
Err = 0
MySnap.MoveFirst
If Err Then
Err = 0
'no hay datos, avisar
MsgBox "No hay datos que coincidan con la búsqueda especificada," & vbCrLf & "(o no está bien realizada)", 64, "Listados"
Exit Sub
End If
'Añadir el resultado a un List
List1.Clear
MySnap.MoveFirst
Do Until MySnap.EOF
'Procesar los datos...
'
List1.AddItem MySnap("Usuario") & " " & MySnap("Contraseña")
'...y demás datos
MySnap.MoveNext
Loop
MySnap.Close
End Sub
Este es el código que conseguí para hacer una consulta de SQL en Visual y después del LIKE lo adopte según me dijiste, pero no logre resultado alguno por favor me gustaría que me dijeras que cambios debería realizarle para que cumpla su objetivo, Desde ya muchas gracias...
Saludos Cristian Perez
Para utilizar LIKE debes utilizar el carácter % no el asterisco como tiene en tu código
Gracias por tu dedicación, aunque no logre enlazar el textbox dentro de la consulta SQL el '*' lo quiero usar porque busco fragmentos de palabras dentro de una oración el % sirve para solo un carácter según tengo entendido, pero bueno tendré que seguir buscando como conseguirlo, gracias nuevamente
