Recursos Naturales

Bueno, para aprender esto se necesita un poco de tiempo, pero bueno voy a intentar explicartelo mas o menos acá, cualquier duda que tengas no dudes en preguntar.

primero lo que debes hacer es conseguir tu string de conexión. Para ello crea un archivo de texto en cualquier lado y cambiale la extencion por ".udl". Vas a ver que se cambia el icono. Le haces doble clic y se te abre una ventana.Vas a la pestaña Proveedor y eliges Microsoft jet 4.0 OLE DB provider. Preciona siguiente y pone la ruta donde guardaste tu base de datos de Access, lo otro lo dejas como estas a menos que le hayas puesto una contraseña a la BD. En este último caso cambia los parametros según corresponda. Apreta aceptar.
Ahora abrilo como el bloc de notas y copia la línea que dice algo como:Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Public\Documents\DB\BaseDeDatos.md b;Persist Security Info=False


Ahora vamos a tu proyecto de vb. crea un formulario y ponele el textBox y un botón. Luego anda al código y escribí lo siguiente:

Public Class Form1
Dim stringConexion As String ="aca la linea de código que copiaste del archivo udl"

Private Sub insertarEnTabla()
Dim conexion As NewData.OleDb.OleDbConnection
Dim cmd As New Data.OleDb.OleDbCommand
Dim data As New DataTable
Dim consulta As String

conexion.ConnectionString = stringConexion
conexion.Open()

consulta = "insert into nombreTabla values ('" & texBox.text.trim & "')" 'esta es la sentencia que insertara el texto de tu texBox dentro de la tabla qeu hayas creado en access
cmd.CommandType = CommandType.Textcmd.CommandText = consulta
cmd.Connection = conexion
cmd.ExecuteNonQuery()
conexion.Close()


End Sub

Private Sub btnBuscar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBuscar.Click 'esto es el evento click del boton, lo generas simplemente haciendo doble clic en el mismo dentro del formulario
insertarEnTabla

End Sub

End Class

Espero que te haya servidosaludos





Saludos, te recomiendo que puedas conseguirte el libro Mastering Microsoft Visual Basic 2010, es bastante explícito y tiene muy buenos ejemplos.

A continuación te pongo un pequeño ejemplo de como puedes conectarte a una base de datos de Access para obtener información.

Ok, como punto inicial descarga la siguiente base de datoshttp://www.vb6.us/files/VBPrograms/NWINDVBP.zip y extrae su contenido (NWINDVBP.mdb) en C:\

En VB.Net importa OleDb, la cual tiene lo necesario para conectarte a una base de datos de Access.
[pic]
Código vb:
Ver originalCopiar
1. Imports System.Data.OleDb


Ahora crea un nuevo botón y añade el siguiente código
[pic]
Código vb:
Ver originalCopiar
1. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button1.Click
2.
3. Dim cn As OleDbConnection
4. Dim cmd As OleDbCommand
5. Dim reader As OleDbDataReader
6.
7. cn = New OleDbConnection()
8. cn.ConnectionString =
9. ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\NWINDVBP.mdb;User Id=admin;Password=;")
10.
11. Try
12.cn.Open()
13. Debug.Print("Conexión Abierta")
14.
15. cmd = New OleDbCommand()
16. cmd.Connection = cn
17. cmd.CommandText = "SELECT CustomerID, CompanyName, ContactName FROM Customers"
18.
19. reader = cmd.ExecuteReader()
20. While reader.Read
21. Debug.Print(reader("CustomerID").ToString() & "" & reader("CompanyName") & " " & reader("ContactName"))
22. End While
23.
24. Catch ex As Exception
25. Debug.Print("Error al realizar la conexión: " & ex.Message)
26. End Try
27.
28.
29.
30. If cn.State = ConnectionState.Open Then cn.Close()
31. End Sub



Al ejecutar el código, deberías de obtener el siguiente...