Dim CADENA As String = "Provider=Microsoft.Jet.OLEDB.4.0;password=;user id=admin;Data Source= \NYKON_SHOP_CENTER\BASES\USER.mdb"
Dim conexion As OleDbConnection
conexion = New OleDbConnection(CADENA)
Dim sql As String
Dim SQL2 As String = "SELECT * FROM FACTURA"
Dim CANAL As OleDbDataAdapter
Dim TABLA2 As New DataSet()
CANAL = New OleDbDataAdapter(SQL2, conexion)
Dim orden As OleDbCommand
sql = "insert into FACTURA(PRODUCTO,MARCA,TALLA,CANTIDAD,PRECIO_UNITARIO,PRECIO_TOTAL) values(@PRODUCTO,@MARCA,@TALLA,@CANTIDAD,@PRECIO_UNITARIO,@PRECIO_TOTAL)"
orden = New OleDbCommand(sql, conexion)
orden.Parameters.Add(New OleDbParameter("@PRODUCTO", OleDbType.VarWChar, 20))
orden.Parameters("@PRODUCTO").Value = PRODUCTO.Text
orden.Parameters.Add(New OleDbParameter("@MARCA", OleDbType.VarWChar, 20))
orden.Parameters("@MARCA").Value = MARCA.Text
orden.Parameters.Add(New OleDbParameter("@TALLA", OleDbType.VarWChar, 20))
orden.Parameters("@TALLA").Value = TALLA.Text
orden.Parameters.Add(New OleDbParameter("@CANTIDAD", OleDbType.Currency, 11))
orden.Parameters("@CANTIDAD").Value = CANTIDAD.Text
orden.Parameters.Add(New OleDbParameter("@PRECIO_UNITARIO", OleDbType.Currency, 20))
orden.Parameters("@PRECIO_UNITARIO").Value = PRECIO.Text
orden.Parameters.Add(New OleDbParameter("@PRECIO_TOTAL", OleDbType.Currency, 20))
orden.Parameters("@PRECIO_TOTAL").Value = PRECIO_TOTAL.Text
orden.Connection.Open()
orden.ExecuteNonQuery()
orden.Connection.Close()
CANAL.Fill(TABLA2, "FACTURA")
DG.DataSource = TABLA2
DG.DataMember = "FACTURA"