[access2000] Extraer un dato a una variable

[ardex]

HOla a todos.

Quisiera saber si existe algun modo de extraer , utilizando una consulta SQL un dato a una variable directamente.

Algo asi como... "select num_pedido into $variable where nom_cli = 'pedro'

En otro caso, ¿ cómo podria hacerse con un recordset ?

utilizo access 2000
Un saludo.

[asbraha]

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

[Txoco]

Hola!

Hazlo con un recordset como te dice Asbraha, pero no declares las variables como Variant, decláralas con su tipo correspondiente para ganar en rendimiento y prevenir errores (usa Variant única y exclusivamente cuando no puedas declararlas con otro tipo):

Código:

Dim CON As New ADODB.Connection  ' Así, además, te ahorras tener que llamar a CreateObject
Dim RS As ADODB.Recordset

El recordset tiene la propiedad Fields, que es una colección de los campos que devuelve la consulta. En el ejemplo que ha puesto nuestro colega, RS.Fields(0) equivale a los datos del primer campo que devuelva la consulta. Si sabes los nombres de los campos, también puedes invocarlo con RS.Fields("<nombre del campo>").

Puedes obtener información sobre el campo con las propiedades del objeto Field, y las que más te pueden ayudar son (hay más, échales un ojo a ver qué encuentras interesante ):
- Name(para el nombre del campo, o el alias, si especificas uno en la SELECT)
- Value(para ver el valor del campo en la fila actual)
- Type(para ver el tipo de datos con el que se ha declarado esa columna

Si lo que quieres es llamar a los campos más rápidamente, RS!<nombrecampo> es lo mismo que RS.Fields("<nombrecampo>") o RS.Fields("<nombrecampo>").Value.Más aún, si vas a trabajar exclusivamente dentro de Access (no utilizas un programa en VB para acceder a los datos), puedes ahorrarte todas las declaraciones si usas estas dos líneas (en este caso se usa acceso por DAO, no ADO, como sugiere Asbraha):

Código:

Dim RS As Recordset

Set RS = CurrentDb.OpenRecordset("<instrucción SELECT>")

Y ya puedes utilizar el recordset como te indicamos arriba.

[asbraha]

Jejeje eso hasta a mi me alcanza a servir gracias Txoco. Saludos