Potresti usare un codice del genere:
codice:
Dim Conn As New OleDb.OleDbConnection
Conn.ConnectionString = StringaConnessione
Dim cmd As New OleDb.OleDbCommand
Dim SQLINSERT As String
SQLINSERT = "INSERT INTO tabella (campo1) VALUES('" & codice & "')"
Try
cmd.Connection = Conn
Conn.Open()
cmd.CommandText = SQLINSERT
cmd.ExecuteNonQuery()
Catch
MessageBox.Show("Si è verificato un errore durante il salvataggio dei dati." & vbNewLine & Err.Description, "Errore" & Err.Number, MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1)
FornitoreSalvato = False
Finally
cmd.Connection.Close()
cmd = Nothing
Conn.Close()
Conn = Nothing
End Try
dove stringaconnessione è:
codice:
Public StringaConnessione As String = "Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Registry Path=;Jet OLEDB:Database L" & _
"ocking Mode=1;Data Source=" & percorsoDb & _
";Jet OLEDB:Engine Type=5;Provider=""Microsoft.Jet.OLEDB.4.0"";Jet O" & _
"LEDB:System database=;Jet OLEDB:SFP=False;persist security info=False;Extended P" & _
"roperties=;Mode=Share Deny None;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Creat" & _
"e System Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:C" & _
"ompact Without Replica Repair=False;User ID=Admin;Jet OLEDB:Global Bulk Transact" & _
"ions=1"