Conectar a una base de datos access desde visual basic

[fernando28481]

hola yo tambien estoy haciendo una aplicacion con visual pero no logro conectarla con access o mejor no le puedo ingresar informacion a esa tabla el codigo que estoy utilisando es este

Dim obj As cls_contacto = New cls_contacto
Dim numero As Integer
Dim coneccion As New OleDb.OleDbConnection
Dim comando As New OleDb.OleDbCommand
Dim adaptador As New OleDb.OleDbDataAdapter
Dim dataset As New DataSet
Dim DS As New DataSet
Dim tabla1 = New DataTable

Sub setconeccion()
coneccion.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source= C:\contacto.mdb"
coneccion.Open()
comando.CommandText = "select * from tabla1"
comando.Connection = coneccion
adaptador.SelectCommand = comando
adaptador.Fill(DS, "tabla1")
End Sub
y en la coneccion es
comando.CommandText = "insert into tabla1 (nombre,apellido,direccion,telefono,movil,mail,not as) values ('" & obj.getnombre & "','" & obj.getapellido & "','" & obj.getdireccion & "','" & obj.gettelefono & "','" & obj.getmovil & "','" & obj.getmail & "','" & obj.getnotas & "')"
adaptador.Fill(DS, "tabla1")

[David]

Bienvenido al foro.

Muevo tu mensaje a un nuevo tema para que puedan ayudarte mejor.

Movido desde: http://www.forosdelweb.com/f69/conec...-basic-475315/

[franko1809]

Que tal tio usando oledb estoy utilizando este codigo que utiliza parametros y es un poco extenso espero te sirva.
Otra cosa en .net segun leí la conexion a la bd se debea abrir y cerrar despues de obtener los datos o hacer cualquier consulta sql

Código:

'Declaras el namespace en VB.NET 2003
Imports System.Data.OleDb

Inherits System.Windows.Forms.Form
'Declarar las variables debajo de Inherits System.Windows.Forms.Form
Dim oConexion As OleDbConnection
Dim oDataSet As DataSet
Dim oDataAdapter As OleDbDataAdapter

'En form load haces la conexion

' crear conexión
oConexion = New OleDbConnection
oConexion.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; data source=C:\DB01.mdb"

' crear adaptador
oDataAdapter = New OleDbDataAdapter
' crear comandos para inserción, consulta con sus parámetros y asignarlos al adaptador
Dim oCmdInsercion As New OleDbCommand("INSERT INTO cargo (codcargo,nomcargo) VALUES(@codcargo,@nomcargo)", oConexion)
oDataAdapter.InsertCommand = oCmdInsercion
oDataAdapter.InsertCommand.Parameters.Add(New OleDbParameter("@codcargo", SqlDbType.VarChar))
oDataAdapter.InsertCommand.Parameters.Add(New OleDbParameter("@nomcargo", SqlDbType.VarChar))
Dim oCmdConsulta As New OleDbCommand("SELECT * FROM cargo", oConexion)
oDataAdapter.SelectCommand = oCmdConsulta
' crear conjunto de datos
oDataSet = New DataSet


'Para insertar haces esto

Dim iResultado As Integer
' asignar valores a los parámetros para el comando de inserción
oDataAdapter.InsertCommand.Parameters("@codcargo").Value = Me.TextBox1.Text
oDataAdapter.InsertCommand.Parameters("@nomcargo").Value = Me.TextBox2.Text
' abrir conexión
oConexion.Open()
' ejecutar comando de inserción del adaptador
iResultado = oDataAdapter.InsertCommand.ExecuteNonQuery()
' cerrar conexión
oConexion.Close()
MessageBox.Show("Registros añadidos: " & iResultado)