Salve a tutti,
sono nuovo del forum ma soprattutto alle primissime armi col visual basic.
Premetto che ho già cercato nelle varie discussioni una soluzione che risolvesse il mio problema ma il "collage" di istruzioni che ne è venuto fuori non ha funzionato..
Sto cercando di realizzare una semplice applicazione che possa gestire un database esterno di Access.
Riesco a visualizzarne il contenuto su un datagridview, ma quando provo a creare un nuovo record non succede nulla...
Il database "prova2" contiene una semplice tabella denominata "fede" con i seguenti campi: id, nome, quantità, scarica.
Vi sarei grato se mi indirizzaste su una strada corretta.
Mi scuso in partenza per eventuali strafalcioni di codice...
Grazie in anticipo
Federico

Imports System.Data.OleDb

Public Class Form1

Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.FedeTableAdapter.Fill(Me.Prova2DataSet.fede)
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Using cn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0 ;Data Source=C:\Users\Federico\Desktop\prova2.accdb;Pers ist Security Info=False;")

Try

cn.Open()

Dim cminserisci As New OleDbCommand("INSERT INTO fede (id, nome, quantità, scarica) VALUES(?, ?,?, ?)", cn)

cminserisci.Parameters.Add(New OleDb.OleDbParameter("@id", OleDb.OleDbType.VarWChar))
cminserisci.Parameters.Add(New OleDb.OleDbParameter("@nome", OleDb.OleDbType.VarWChar))
cminserisci.Parameters.Add(New OleDb.OleDbParameter("@quantità", OleDb.OleDbType.VarWChar))
cminserisci.Parameters.Add(New OleDb.OleDbParameter("@scarica", OleDb.OleDbType.VarWChar))

cminserisci.Parameters(0).Value = "1"
cminserisci.Parameters(1).Value = "farina"
cminserisci.Parameters(2).Value = "500"
cminserisci.Parameters(3).Value = True

cminserisci.ExecuteNonQuery()

Catch ex As Exception

End Try

cn.Close()

End Using
End Sub
End Class