Ver Mensaje Individual
  #2 (permalink)  
Antiguo 12/08/2008, 13:34
asbraha
 
Fecha de Ingreso: mayo-2008
Mensajes: 35
Antigüedad: 18 años, 5 meses
Puntos: 0
Respuesta: [access2000] Extraer un dato a una variable

Pues mira, no se si entendi bien, pero creo podrias manejarlo algo asi:

Código PHP:

Dim CON 
As Variant
Dim SQL 
As String
Dim RS 
As Variant
Dim busca 
As String

Set CON 
= CreateObject("ADODB.Connection")
CON.Open ("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & "C:\BasedeDatos.mdb")

busca = Text1.Text  

SQL 
= "SELECT * FROM Tabla_Pedidos WHERE Campo_Nombre  LIKE  '" & busca & "'"

Set RS = CON.Execute(SQL)


Do While 
Not RS.EOF

txtDato1
.Text = RS("Dato1")
txtDato2.Text = RS("Dato2")
txtDato3.Text = RS("Dato3")

RS.MoveNext

Loop 
Para este ejemplo necesitas tu base con los campos Campo_Nombre, Dato1, Dato2, Dato3, etc, y la busqueda te devolvera todos los registros con el nombre que introduzcas en el Text1.Text por lo que te recomendaria que usaras un id y no un nombre espero te sea de utilidad