SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: phantom24 en Martes 14 de Diciembre de 2004, 23:44

Título: Obtener Primer Registro De Una Tabla
Publicado por: 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
  1.  
  2. CodLoc = 9
  3. frmficha.Show
  4.  
  5.  

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,
 :lol:
Título: Re: Obtener Primer Registro De Una Tabla
Publicado por: fap1603 en Miércoles 15 de Diciembre de 2004, 02:16
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.
Título: Re: Obtener Primer Registro De Una Tabla
Publicado por: Jeremy en Miércoles 15 de Diciembre de 2004, 17:26
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
  1.  
  2. Private Sub mnuficha_Click()
  3. Set cn = New ADODB.Connection
  4. Set rs = New ADODB.Recordset
  5. Dim primcod As Long
  6. With cn
  7.     .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Base de Datos.mdb;Persist Security Info=False"
  8.     .Open
  9. End With
  10.  
  11. With rs
  12.         .Open "SELECT First(codigol) FROM articulos", cn, adOpenDynamic, adLockOptimistic
  13. End With
  14. CodLoc = rs.Fields("codigol") '--->aquí es dónde asigno el valor resultante de la consulta SQL
  15. frmficha.show
  16. End Sub
  17.  
  18.  
  19.  

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
  1.  
  2. Private Sub mnuficha_Click()
  3. CodLoc = 9
  4. frmficha.Show
  5. End Sub
  6.  
  7.  
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,  :hola: