| 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()
__________________
:-D "Que se libere del cielo confinado; que mi cuerpo sea la espada de hielo negro que nos lleve al abismo; que ningún poder pueda detenernos...Destructora de las almas de los dioses!!!":adios:
:pirata: |