
10/12/2009, 13:29
|
| | Fecha de Ingreso: marzo-2008
Mensajes: 81
Antigüedad: 16 años, 11 meses Puntos: 0 | |
Respuesta: conectar vb 2005 y access 2003 muchas gracias por tu ayuda pero no es lo k exactamente busco,me esplico.
yo hace unos años curse un curos de visual basic y entonces haciamos la conexiones mediante oledbdatadapter,oledbconnetion y dataset y el codigo:
Dim reg As DataRow
Dim pos, numero As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
OleDbDataAdapter1.Update(DataSet11)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
OleDbDataAdapter1.Fill(DataSet11)
numero = DataSet11.personas.Rows.Count - 1
pos = 0
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If pos < numero Then
pos = pos + 1
reg = DataSet11.personas.Rows(pos)
TextBox1.Text = reg("direccion")
TextBox2.Text = reg("dni")
TextBox3.Text = reg("nombre")
Else
MsgBox("NO HAY MAS REGISTROS")
End If
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
If pos > 0 Then
pos = pos - 1
reg = DataSet11.personas.Rows(pos)
TextBox1.Text = reg("direccion")
TextBox2.Text = reg("dni")
TextBox3.Text = reg("nombre")
Else
MsgBox("NO HAY MAS REGISTROS")
End If
End Sub
es un ejemplo del codigo utilizado
quiero recordar que los oledb... se añadian desde el cuadro de herramientas,y utilizabamos vb 2003 pero con el 2005 no tengo ni idea espero haber aclarado un poko mas la cosa y haber si podemos llegar a la solucion |