Cari membri del Forum,
sono un neofita e sto cercando di imparare ad aggiungere un record in un DB Access 2003 da un form creato in Visual Studio 2008. Ho preso spunto da un codice presente sul web.
Ho inserito le seguenti righe nel form1:
<asp:TextBox ID="txtCognome" runat="server">Cognome</asp:TextBox>
<asp:TextBox ID="txtNome" runat="server">Nome</asp:TextBox>
<asp:Button ID="Button1" runat="server" Text="Inserisci" />
Ho inserito il seguente codice per gestire l'evento Click del bottone:
Imports System.Data.OleDb
Public Class Form1
Public Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1 .Click
' Access 2003:
Dim stringaconn As String = _
"Provider=Microsoft.JET.OLEDB.4.0;Data Source=c:\test\Prova2.mdb"
Dim objconn As New OleDbConnection(stringaconn)
objconn.Open()
Dim stringasql As String = _
"INSERT INTO Anagrafica(Cognome,Nome) " & _
"VALUES(@cognome, @nome)"
Dim objcomm As New OleDbCommand(stringasql, objconn)
objconn = New OleDbConnection(stringaconn)
objconn.Open()
objcomm = New OleDbCommand(stringasql, objconn)
objcomm.Parameters.Add(New OleDbParameter("@cognome", _
Me.txtCognome .Text))
objcomm.Parameters.Add(New OleDbParameter("@nome", _
Me.txtNome .Text))
Try
Dim righeAggiornate As Integer = objcomm.ExecuteNonQuery
If righeAggiornate = 1 Then MsgBox("Tutto bene")
Catch ex As Exception
MsgBox("Errore")
'MessageBox.Show(ex.Message & _
' Environment.NewLine & ex.StackTrace, "Errore")
Finally
objconn.Close()
Me.txtCognome .Text = ""
Me.TxtNome .Text = ""
Me.txtCognome .Focus()
End Try
End Sub
End Class
In Bold ho inserito cio' che il correttore mi segnala come errori impendendo la compilazione.
Aggiungo che ho la SP1 di Visual Studio 2008 ed il sistema operativo e' Windows XP.
Attendo con fiducia il vostro gentile supporto.
Grazie
Marco
Rispondi quotando
