Private cn As OleDbConnection
Private cmd As OleDbCommand
Private path As String = Application.StartupPath("Ubicacion de la DB")
Private dr As OleDbDataReader
Private Sub ConectaDB()
cn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & path)
End Sub
Public Sub InsertarDatos()
Dim i As Integer
Dim Tabla() As String = {"nombre1", "nombre2"}
'Declaro el Comando
Dim comandoInsert As String = "INSERT INTO MiTabla (Campo1,Campo2,CampoN) VALUES (@Valor1,@Valor2,@ValorN)"
'Agrego todos los parametros que necesito
Dim parametros() As String = {"@Valor1", "@Valor2", "@ValorN"}
'Agrego los valores para cada parámetro
Dim Valores() As String = {"aaa", "bbb", "ccc"}
'Establesco el tipo de dato de cada parámetro
Dim TipoDeDato() As OleDbType = {OleDbType.VarChar, OleDbType.VarChar, OleDbType.VarChar}
ConectaDB()
'Toma el comando
cmd = New OleDbCommand(comandoInsert, cn)
'agrega los parametros
For i = 0 To parametros.Length - 1
cmd.Parameters.Add(New OleDbParameter(parametros(i), TipoDeDato(i))).Value = valores(i)
Next
cn.Open()
'Ejecuto la operacion de inserción
cmd.ExecuteNonQuery()
cn.Close()
End Sub