Hola, queria preguntar como puedo generar una consulta de una base de datos, en la cual me de un dato .. (UN SOLO DATO)
Yo tengo una lista de Hoteles, en la base de datos.
Si colocan en el text1.text "Pepito"
quiero que al apretar en el command1 aparesca en el Text2.text, la direccion del hotel Pepito.
Solo me lo suelta en un FlexGrid los datos, si coloco esta cadena
sql = "SELECT Dirección FROM Hoteles WHERE nombre = " & "'" & Text1.Text & "'"
No se como capturar el dato Direccion, para decirle
Text2.text = (?)
Posteo el code completo asi entienden, Muchas gracias
Private Sub Form_Load()
Dim dbname As String
Dim db As Database
Dim qdef As QueryDef
Dim td As TableDef
' Open the database.
dbname = App.Path
If Right$(dbname, 1) <> "\" Then dbname = dbname & "\"
dbname = dbname & "data.mdb"
Set db = OpenDatabase(dbname)
' List the table names.
For Each td In db.TableDefs
' Do not allow the system tables.
If Left$(td.Name, 4) <> "MSys" Then _
List1.AddItem td.Name
Next td
db.Close
' Attach the Data control to the database.
Data1.DatabaseName = dbname
End Sub
Private Sub Command1_Click()
Dim table_name As String
Dim sql As String
table_name = "Hoteles"
sql = "SELECT Dirección FROM Hoteles WHERE nombre = " & "'" & Text1.Text & "'"
Data1.Caption = table_name
Data1.RecordSource = sql
Data1.Refresh
' Make the Data and DBGrid controls visible.
Data1.Visible = True
DBGrid1.Visible = True
End Sub