conectar vb 2005 y access 2003

[oslar]

hola buenas,tras varios dias buscando por el foro/s como conectar vb con acces no soy capaz de hacerlo funcionar.
os espliko en un principio ,como digo solo seria acceder a una base de datos llamada negocio,con una tabla llamada usuarios con los campos usuario e id y añadir el contenido de dos textbox en ambos campos con el clik de un boton.
si m pudierais echar una mano esplikandome paso a paso el proceso de conexion a la bd os lo agradeceria mucho.

un saludo

[David]

Hola, oslar.

Traslado el tema a una sección que encaja mejor con tu pregunta.
Tema trasladado desde la sección de Visual Basic clásico.

Saludos.

[oslar]

Iniciado por david

hola, oslar.

Traslado el tema a una sección que encaja mejor con tu pregunta.
Tema trasladado desde la sección de visual basic clásico.

Saludos.

ok

[eperedo]

Hola, te dejo este código, puedes ejecutarlo en el Load de un formulario que tenga 2 cajas de texto (TextBox1 y TextBox2 para el ejemplo):

Código vb.net:

Private Sub mostrarDatos()
        Try
            Using cn As New OleDbConnection("Provider=Microsoft.Jet.OleDb.4.0;Data Source=C:\Neptuno.mdb")
                'Consulta SQL Con un parámetro
                Using cmd As New OleDbCommand("Select NombreProducto, PrecioUnidad From Productos Where IdProducto=@codigo", cn)
                    'Configuramos el parámetro @codigo
                    cmd.Parameters.Add("@codigo", OleDbType.Integer, 4).Value = 1
                    cn.Open() 'Abrimos la conexion
                    Using dr As OleDbDataReader = cmd.ExecuteReader() 'Ejecutamos la consulta
                        'Comprobamos si hay registros
                        If dr.Read() Then
                            'Pasamos los datos a los controles según el nombre de la columna
                            Me.TextBox1.Text = Convert.ToString(dr("NombreProducto"))
                            Me.TextBox2.Text = Convert.ToString(dr("PrecioUnidad"))
                        End If
                    End Using
                End Using
            End Using
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub
 

Básicamente tendrás que reemplazar la ruta de la base de datos que para el ejemplo use C:\Neptuno.mdb y la consulta SQL ("Select NombreProducto, PrecioUnidad From Productos Where IdProducto=@codigo"), lo demás todo es igual.

Espero te sirva, cualquier duda me avisas

[oslar]

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

[eperedo]

Bueno eso debiste especificar al inicio....
El código que usabas en la versión 2003(vb7) te servirá en la 2005 (vb8). Tu buscas trabajar con Dataset tipados. La verdad a mi no me gusta trabajar así, por lo que no puede ayudarte mucho con eso. Te dejo este link del guille que puede ayudarte.

http://www.elguille.info/NET/ADONET/...cess.htm#nuevo

Espero te sirva.

[oslar]

Iniciado por eperedo

Bueno eso debiste especificar al inicio....
El código que usabas en la versión 2003(vb7) te servirá en la 2005 (vb8). Tu buscas trabajar con Dataset tipados. La verdad a mi no me gusta trabajar así, por lo que no puede ayudarte mucho con eso. Te dejo este link del guille que puede ayudarte.

http://www.elguille.info/NET/ADONET/...cess.htm#nuevo

Espero te sirva.

ok muchas gracias

[oslar]

tra seguir el manual del guille e intentar ejecutar el codigo me da error en este codigo:
' Crear un nuevo objeto del tipo DataAdapter
da = New OleDbDataAdapter(sSel, sCnn)
' Crear los comandos de insertar, actualizar y eliminar
Dim cb As New OleDbCommandBuilder(da)

m pone k el tipo oledbdataadapter y oledbcommandbuilder no estan definidos?
cual es el error donde y ocmo se definirian
un saludo

[eperedo]

Hiciste un import al namespace: System.Data.OleDb?

Código vb.net:

Imports System.Data.OleDb
Public Class TuClase
'
'demás código
'
End Class
 

[oslar]

sigoo sin conectar haber en k fallo..
codigo:

Código vb:

Public Class IDENTIFICACION
    Dim dt As New DataTable
    Dim fila As Integer = 0
Private Sub IDENTIFICACION_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0" & " Data Source=C:\negocio\negocio.mdb"
 
        ' La cadena de selección
        Dim sql As String = "SELECT * FROM usuarios"
 
        ' Crear un nuevo objeto del tipo DataAdapter
        Dim da As New OleDb.OleDbDataAdapter(sql, sCnn)
        da.Fill(dt) 'el fallo da en esta fila
        da.Dispose()
        actualizar()
        ' Crear los comandos de insertar, actualizar y eliminar
        ' Dim cb As New OleDbCommandBuilder(da)
    End Sub
Private Sub actualizar()
        TextBox1.Text = CStr(dt.Rows(fila)("usuario"))
        TextBox2.Text = CStr(dt.Rows(fila)("contraseña"))
    End Sub
End Class
 

el error:
El proveedor 'Microsoft.Jet.OLEDB.4.0 Data Source=C:\negocio\negocio.mdb' no está registrado en el equipo local.

[eperedo]

Te falta el punto y coma luego de poner el proveedor:

Código vb.net:

Dim sCnn As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & " Data Source=C:\negocio\negocio.mdb"
 

Saludos.

[marbin274]

bueno men...espero que esto te sea ayuda...lo hice yo mismo....XD

http://www.taringa.net/posts/downloads/4272118/Conexion-A-Una-Base-De-Datos-Con-Visual-Basic.html