¿Cómo puedo almacenar un campo en una variable?

[Juan Fco.]

Conozco muy poco de Programacion, y un compañero me ha dicho que para cargar el contenido de un campo en una variable tengo que utilizar la instruccion
VARIABLE= RS.FIELDS("NOMBRE_CAMPO")
pero no encuentro informacion sobre ella, y no sé como escribir el código completo, ¿podriais escribir a continuación como quedaría?. Muchas gracias.

[Andres95]

Espero te sirva la siguiente info....

http://support.microsoft.com/default...d=kb;es;550750

[Juan Fco.]

No me he podido aclarar, gracias de todas formas. Espero todavia alguna ayuda mas.

[Machine18]

Bueno tal vez no estes siendo muy claro, pero si estas usando MYSQL puedes echarle un vistazo a esto:

http://www.maelmori.com/?p=435
http://www.weberblog.com/article.php/20040705185206745

espero te sirva!!

[Juan Fco.]

Quiero asignar el contenido del campo EXPEDIENTE en la variable Exp, y hago esto:

Dim rs as ADO.Recordset
Dim Exp as integer
Exp=rs.Fields("EXPEDIENTE")

y no funciona.
Lo que quiero es que añadais el código que falta que pienso yo que tiene que ser sencillo, pero no tengo conocimientso suficientes. Muchas gracais.

[Andres95]

Private Sub ADO_Click()
' Se necesita referencia en el proyecto a Microsoft OLE DB
' ActiveX Data Objects 1.0 Library
'aca solamente se definen las variables
Dim Conexion As Connection 'te hace falta una conexion a la base de datos.
Dim miRs As Recordset ' ya tienes el recorset


Set Conexion = new ADODB.Connection ' se crea el objeto conexion
Set miRs = new ADODB.RecordSet ' se crea el objeto recordset

Conexion.Open "MiDSN" ' aqui requieres de un DSN mismo que se hace en
' el panel de control o bien una cadena de
'conexion, lo mas sencillo es un DSN


'con la sig instruccio llenas tu recordset osea lees de la base de datos y
'lo almacenas en tu variable de visualbasic... en el recordset
'debes realizar una consulta, esta depende de las tablas y los campos que
'tengas en la BD, en este caso selecciona todas las columnas de la tabla
'authors.

miRs.Open "select * from authors", Conexion


'movenext, te sirve para moverte al sig registro, en este caso el primero.
miRs.MoveNext

'esta sentencia es la unica que tienes... pero te faltan las de arriba...
'en este caso se presenta en pantalla pero la puedes asignar a tu variable.
MsgBox miRs.Fields("au_lname")

miRs.Close 'cierras el recordset
Conexion.Close 'cierras la conexion
Set Conexion = Nothing
End Sub

[Juan Fco.]

Muchas gracias Andrés