Buenas tardes a tod@s,
Perdonad que os pregunte así esto tan directamente pero es que después de
mirar en varios sitios la mayor parte de la información está dirigida a SQL
Server y yo me manejo con acceso a Access directamente.
La cuestión es que antes te podías cargar tu recordset y trabajar con los
datos de éste sin mucha historia. Sin embago, ahora ando un poco liado con
el DataSet, DataAdapter y las Rows para poder llegar a cada campo.
¿Como puedo moverme en los datos del DataSet para modificar el de un campo
específico de una fila específica?
En fin que si alguien me puede decir como sería la equivalencia de este
código de VB6 a VB 2005 Beta 2 creo que me serviría un poco para entender
como se hace ahora.
Gracias
Luc
Dim db As Database
Dim criterio As String
Dim rs As Recordset
Set db = DBEngine.Workspaces(0).OpenDatabase("c:\gestion\datos.mdb")
Set rs = db.OpenRecordset("SELECT CODCLI FROM CLIENTES")
If Me.[Cliente] > 1 Then
rs.FindNext ("CODCLI = " & Me.Cliente)
Else
rs.MoveLast
rs.MoveFirst
End If
If rs.EOF = False Then
Cliente = rs!Codcli
Else
MsgBox "HA LLEGADO AL FINAL DE LOS CLIENTES", , "FIN CLIENTES"
Cliente.SetFocus
rs.Close
End If
End If
Do Until rs.NoMatch
CONTARE = CONTARE + 1
rs.FindNext criterio
Loop
Leer las respuestas