Autor Tema: Obtener Primer Registro De Una Tabla (Leído 2013 veces)

phantom24 · « **en:** Martes 14 de Diciembre de 2004, 23:44 »

Hola a tod@s. Soy un novato trabajando con BBDD. Tengo una tabla de la cual a través de una consulta SQL quiero sacar el código numérico del primer registro de la tabla algo como SELECT First(camponumerico) from TABLA y luego asignarlo a una variable. Y es que ahora temporalmente "yo mismo" asigno ese código.

Código: Text

 
CodLoc = 9
frmficha.Show

Donde CodLoc es el código numerico que quiero obtener a través de la consulta y frmficha.Show muestro la ventana con los datos correspondientes a ese código numérico.

Sé que se debe hacer con un RecordSet y tal, pero exactamente no sé como hacerlo.

Gracias por vuestra ayuda.

Un saludo,

fap1603

Hola, yo utilizo lo absoluteposition del recordset y move, por ejemplo:

posision=basedatos.recorset.absoluteposition 'me da la posision del registro activo

basedatos.recorset.move = posision ' muevo a la posision que deseo

otra cosa que puedes hacer es usar el bookmark, pero debes añadirlo a una variable tipo variant, y la asignas depues de un basedatos.refresh. Espero te ayude en algo.

Jeremy

Me había olvidado de decir que para trabajar con la BBDD utilizo ADO 2.5 . Ahora mismo lo tengo así, pero no me funciona:

Código: Text

 
Private Sub mnuficha_Click()
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
Dim primcod As Long
With cn
    .ConnectionString = &#34;Provider=Microsoft.Jet.OLEDB.4.0;Data Source=&#34; & App.Path & &#34;&#092;Base de Datos.mdb;Persist Security Info=False&#34;
    .Open
End With
 
With rs
        .Open &#34;SELECT First(codigol) FROM articulos&#34;, cn, adOpenDynamic, adLockOptimistic
End With
CodLoc = rs.Fields(&#34;codigol&#34;) '---&#62;aquí es dónde asigno el valor resultante de la consulta SQL
frmficha.show
End Sub
 
 
 

Pero como lo anterior no me funciona para continuar con el resto de procesos del programa estoy asignando temporalmente el código "a mano".

Código: Text

 
Private Sub mnuficha_Click()
CodLoc = 9
frmficha.Show
End Sub

Parecer ser algo muy sencillo, pero la verdad es que estoy empezando a trabajar con el tema de vincular Bases de datos.
Gracias por vuestra ayuda.

Un saludo,

SoloCodigo

Autor Tema: Obtener Primer Registro De Una Tabla (Leído 2013 veces)

phantom24

Obtener Primer Registro De Una Tabla

fap1603

Re: Obtener Primer Registro De Una Tabla

Jeremy

Re: Obtener Primer Registro De Una Tabla