base de datos en access

[ZeRo-k]

Muy buenas,
como se hace con base de datos access:
1.creamos una conexion.
2.despues seleccionamos las tablas a editar
3 y luego las insertamos en las tablas

perdon, pero no logro resolverlo ( muchisimas gracias)

oconexion = New SqlConnection
oconexion.ConnectionString = "Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirector y|\tiempos.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True"
odataadapter = New SqlDataAdapter()
Dim ocmdinsercion As New SqlCommand("INSERT INTO OPERARIOS " & _
"(Nombreoperario,Apellidosoperario,Extension,Telef ono,Localidad,Ciudad,Otrosdatos) VALUES(@Nombreoperario,@Apellidosoperario,@Extensi on,@Telefono,@Localidad,@Ciudad,@Otrosdatos)", oconexion)
odataadapter.InsertCommand = ocmdinsercion
odataadapter.InsertCommand.Parameters.Add(New SqlParameter("@Nombreoperario", SqlDbType.NVarChar))
odataadapter.InsertCommand.Parameters.Add(New SqlParameter("@Apellidosoperario", SqlDbType.NVarChar))
odataadapter.InsertCommand.Parameters.Add(New SqlParameter("@Extension", SqlDbType.NVarChar))
odataadapter.InsertCommand.Parameters.Add(New SqlParameter("@Telefono", SqlDbType.NVarChar))
odataadapter.InsertCommand.Parameters.Add(New SqlParameter("@Localidad", SqlDbType.NVarChar))
odataadapter.InsertCommand.Parameters.Add(New SqlParameter("@Ciudad", SqlDbType.NVarChar))
odataadapter.InsertCommand.Parameters.Add(New SqlParameter("@Otrosdatos", SqlDbType.NVarChar))

[FNX_NET]

Dim ex As Exception
Dim connClientes As New OleDb.OleDbConnection()
Dim strComand As String
Dim MyCommandCli As New OleDb.OleDbCommand()

connClientes.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Me.strRutaCliente & "\COVEFAC.mdb"
Dim myTra1 As OleDb.OleDbTransaction
Try
connClientes.Open()
myTra1 = connClientes.BeginTransaction(IsolationLevel.ReadC ommitted)
MyCommandCli.Connection = connClientes
MyCommandCli.Transaction = myTra1

'Inicio parametros insert
MyCommandCli.CommandText = "INSERT INTO tblClientes (Rut,Razon_Social,Giro,Direccion,DirDespacho,Comun a,Fono,Celular,Fec_Primera_Compra,Nombre_Contacto, Fono_Contacto,Movil_Contacto,Mail,Vendedor,Banco,D ias_Vencimiento,Estado)" & _
" VALUES(@datRut,@datRazCli,@datGiro,@datDireP,@datD ireDesp,@datCom,@datFono,@datCelu,@datFPCompra,@da tContacto,@datFonoCon,@datMovCon,@datMail,@datVend ,@datBanco,@datDiasVenc,@datEstado)"

MyCommandCli.Parameters.Add(New System.Data.OleDb.OleDbParameter("@datRut", System.Data.OleDb.OleDbType.VarWChar))
MyCommandCli.Parameters("@datRut").Value = Me.txtRut.Text

MyCommandCli.Parameters.Add(New System.Data.OleDb.OleDbParameter("@datRazCli", System.Data.OleDb.OleDbType.VarWChar))
MyCommandCli.Parameters("@datRazCli").Value = Me.txtRazonSocial.Text

MyCommandCli.Parameters.Add(New System.Data.OleDb.OleDbParameter("@datGiro", System.Data.OleDb.OleDbType.VarWChar))
MyCommandCli.Parameters("@datGiro").Value = Me.txtGiro.Text

MyCommandCli.Parameters.Add(New System.Data.OleDb.OleDbParameter("@datDireP", System.Data.OleDb.OleDbType.VarWChar))
MyCommandCli.Parameters("@datDireP").Value = Me.txtDireccion.Text

MyCommandCli.Parameters.Add(New System.Data.OleDb.OleDbParameter("@datDireDesp", System.Data.OleDb.OleDbType.VarWChar))
MyCommandCli.Parameters("@datDireDesp").Value = Me.txtDirDesA.Text

MyCommandCli.Parameters.Add(New System.Data.OleDb.OleDbParameter("@datCom", System.Data.OleDb.OleDbType.VarWChar))
MyCommandCli.Parameters("@datCom").Value = Me.cboComunas.Text

MyCommandCli.Parameters.Add(New System.Data.OleDb.OleDbParameter("@datFono", System.Data.OleDb.OleDbType.Integer))
MyCommandCli.Parameters("@datFono").Value = Val(Me.txtFijo.Text)

MyCommandCli.Parameters.Add(New System.Data.OleDb.OleDbParameter("@datCelu", System.Data.OleDb.OleDbType.Integer))
MyCommandCli.Parameters("@datCelu").Value = Val(Me.txtMovil.Text)

MyCommandCli.Parameters.Add(New System.Data.OleDb.OleDbParameter("@datFPCompra", System.Data.OleDb.OleDbType.Date))
MyCommandCli.Parameters("@datFPCompra").Value = Me.dtpPrimCompra.Text

MyCommandCli.Parameters.Add(New System.Data.OleDb.OleDbParameter("@datContacto", System.Data.OleDb.OleDbType.VarWChar))
MyCommandCli.Parameters("@datContacto").Value = Me.txtContacto.Text

MyCommandCli.Parameters.Add(New System.Data.OleDb.OleDbParameter("@datFonoCon", System.Data.OleDb.OleDbType.Integer))
MyCommandCli.Parameters("@datFonoCon").Value = Val(Me.txtFijoContacto.Text)

MyCommandCli.Parameters.Add(New System.Data.OleDb.OleDbParameter("@datMovCon", System.Data.OleDb.OleDbType.Integer))
MyCommandCli.Parameters("@datMovCon").Value = Val(Me.txtMovilContacto.Text)

MyCommandCli.Parameters.Add(New System.Data.OleDb.OleDbParameter("@datMail", System.Data.OleDb.OleDbType.VarWChar))
MyCommandCli.Parameters("@datMail").Value = Me.txtMail.Text

MyCommandCli.Parameters.Add(New System.Data.OleDb.OleDbParameter("@datVend", System.Data.OleDb.OleDbType.VarWChar))
MyCommandCli.Parameters("@datVend").Value = Me.txtVendedor.Text

MyCommandCli.Parameters.Add(New System.Data.OleDb.OleDbParameter("@datBanco", System.Data.OleDb.OleDbType.VarWChar))
MyCommandCli.Parameters("@datBanco").Value = Me.txtBanco.Text

MyCommandCli.Parameters.Add(New System.Data.OleDb.OleDbParameter("@datDiasVenc", System.Data.OleDb.OleDbType.Integer))
MyCommandCli.Parameters("@datDiasVenc").Value = Val(Me.txtDiasVence.Text)

MyCommandCli.Parameters.Add(New System.Data.OleDb.OleDbParameter("@datEstado", System.Data.OleDb.OleDbType.Integer))

If Me.rdbHabilitar.Checked = True Then
MyCommandCli.Parameters("@datEstado").Value = 0
Else
MyCommandCli.Parameters("@datEstado").Value = 1
End If
'fin parametros insert
MyCommandCli.ExecuteNonQuery()
Catch ex
Me.Cursor = Cursors.Default
MsgBox(ex.Message & Chr(10) & strComand, MsgBoxStyle.Critical, ex.Source)
End Try
connClientes.Close()

[Maxi.Net]

Muy buen ejemplo FNX_NET resumido y comentado queda mejor:

Dim ex As Exception 'variable que guardara una exepcion (error)
Dim connClientes As New OleDb.OleDbConnection() 'objeto de ADO.net para conectar con la BD
Dim MyCommandCli As New OleDb.OleDbCommand() 'objeto de ADO.net para ejecutar la consulta SQl

connClientes.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Me.strRutaCliente & "\COVEFAC.mdb" 'defino el proveedor y la bd para la conexion.

Try 'inicio del manejador de errores
connClientes.Open() 'abrimos la conexion a la B.D

'defino los parametros para el comando SQL
MyCommandCli.CommandText = "INSERT INTO tblClientes (Rut,Razon_Social,Giro,Fono)" & _
" VALUES(@datRut,@datRazCli,@datGiro,@datFono)"

'Inicio traspaso de parametros insert

MyCommandCli.Parameters.Add(New System.Data.OleDb.OleDbParameter("@datRut", System.Data.OleDb.OleDbType.VarWChar)) 'nuevo parametro definicendo el tipo: VarWChar para datos de tipo texto

MyCommandCli.Parameters("@datRut").Value = Me.txtRut.Text 'asigno el valor al parametro para, mas adelante, mandarlo a la tabla de la B.D

MyCommandCli.Parameters.Add(New System.Data.OleDb.OleDbParameter("@datRazCli", System.Data.OleDb.OleDbType.VarWChar))
MyCommandCli.Parameters("@datRazCli").Value = Me.txtRazonSocial.Text

MyCommandCli.Parameters.Add(New System.Data.OleDb.OleDbParameter("@datGiro", System.Data.OleDb.OleDbType.VarWChar))
MyCommandCli.Parameters("@datGiro").Value = Me.txtGiro.Text

MyCommandCli.Parameters.Add(New System.Data.OleDb.OleDbParameter("@datFono", System.Data.OleDb.OleDbType.Integer)) 'de tipo Integer para datos numéricos
MyCommandCli.Parameters("@datFono").Value = Val(Me.txtFijo.Text)

'fin traspaso de parametros insert

MyCommandCli.ExecuteNonQuery() 'ejecuto la consulta

Catch ex 'en caso de excepciones
MsgBox(ex.Message, MsgBoxStyle.Critical, ex.Source) 'muestro la excepción contenida en la variable "ex"

End Try 'fin del manejador de errores

if ex is nothing then 'si "ex = nada, es decir, no se produjeron errores"
MsgBox("Registro insertado con éxito", MsgBoxStyle.Information, "SQL INSERT")
end if

connClientes.Close() 'cierro la conexión

espero quede un poco mas claro

Saludos

[Maxi.Net]

Si no queda claro, dilo para tratar de ayudarte