Premetto che mi sto avvicinando da poco al vb.net.
Girovagando per la rete sono riuscito a fare questo:
Tuttavia riscotro che anche se non immetto dati ottengo sempre il messaggio di inserimento con successo.codice:Imports System.Data.OleDb Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim objconn As OleDbConnection Dim stringaconn As String Dim stringasql As String Dim objcomm As OleDbCommand stringaconn = "Provider=Microsoft.JET.OLEDB.4.0;Data Source=" stringaconn = stringaconn & "C:\Users\Silvia\Desktop\prova.mdb" objconn = New OleDbConnection(stringaconn) objconn.Open() stringasql = "Insert into Tabella1(cognome,nome) values('" stringasql = stringasql & Me.txt_cognome.Text & "'" & "," stringasql = stringasql & "'" & Me.txt_nome.Text & "'" & ")" objcomm = New OleDbCommand(stringasql, objconn) Dim risputente As Integer Try risputente = objcomm.ExecuteNonQuery() If risputente = 1 Then MsgBox("Inserimento effettuato con successo") objconn.Close() Me.txt_cognome.Text = "" Me.txt_nome.Text = "" Me.txt_cognome.Focus() End If Catch es As Exception MsgBox("Errore: il campo cognome e/o nome sono vuoti") objconn.Close() End Try End Sub
Secondo voi dove sbaglio ??
Grazie

Rispondi quotando
