Questo topic e' stato chiuso dal moderatore.
05/02/11 12:21
djleo
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim strConn As String
strConn = " Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\db1.mdb"
Dim cn As New OleDb.OleDbConnection(strConn)
Dim sql As String
sql = "SELECT citta FROM tcitta ORDER BY citta"
Dim cmd As New OleDbCommand(sql, cn)
Dim da As New OleDb.OleDbDataAdapter()
da.SelectCommand = cmd
cn.Open()
' copia anche le chiavi
da.MissingSchemaAction = MissingSchemaAction.AddWithKey
ds = New DataSet("tcitta")
ds.Clear()
da.Fill(ds, "tcitta")
Dim dr As DataRow = ds.Tables("tcitta").NewRow
dr("citta") = TextBox1.Text
ds.Tables("tcitta").Rows.Add(dr)
ds.Tables("tcitta").AcceptChanges()
da.Update(ds) ' è qui l'errore
End Sub
non riesco a capire perché mi da quel errore. vi prego aiutatemi
aaa
