ma perchè non va a capo?codice:Imports ADOX Imports System.Data.OleDb Public Class Form1 Dim archivio As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + System.Environment.GetFolderPath(System.Environment.SpecialFolder.Desktop) + "/Database3.mdb") 'Crea un nuovo oggetto archivio di t Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim com As New OleDb.OleDbCommand("INSERT INTO Docenti (Nome) VALUES = & TextBox1.Text &", archivio) archivio.Open() 'Apri la connessione con il database com.ExecuteNonQuery() 'Esegui comando SQL archivio.Close() 'Chiudi la connessione con il database

Rispondi quotando