Buongiorno,
sto incontrando qualche problema nel seguente codice, la tabella la crea ma quando va per inserire i dati va in errore e compare la msgbox "Errore nell'inserimento dei dati.".
qualcuno mi può aiutare?
grazie in anticipo
If DBaccess.Exists = False Then
'Crea Nuovo DataBase se non esiste
DBconn.Create("Provider=Microsoft.Jet.OLEDB.4.0;" + "Data Source=" + percorso + ";" + "Jet OLEDB:Engine Type=5")
End If
Try
Dim DBquery As New OleDb.OleDbCommand("CREATE TABLE [" & DBtable & "] ([nome] TEXT(15), [cognome] TEXT(10), [indirizzo] TEXT(7), [citta] TEXT(255), [cap] TEXT(255), [telefono] TEXT(255), [provincia] TEXT(2), [datanascita] TEXT(10), [luogonascita] TEXT(5), [nazionalita] TEXT(5), [altezza] TEXT(255), [peso] TEXT(255), [note] TEXT(5))", conn)
conn.Open()
DBquery.ExecuteNonQuery()
conn.Close()
Catch ex As Exception
conn.Close()
MsgBox("Errore nel creare la tabella.")
End Try
Dim DBinserimento As String
DBinserimento = "INSERT INTO [" & DBtable & "]([nome], [cognome], [indirizzo], [citta], [cap], [telefono], [provincia], [datanascita], [luogonascita], [nazionalita], [altezza], [peso], [note]) VALUES ([" & nome & "], [" & cognome & "], [" & indirizzo & "], [" & citta & "], [" & cap & "], [" & telefono & "], [" & prov & "], [" & datanascita & "], [" & luogonascita & "], [" & nazionalita & "], [" & altezza & "], [" & peso & "], [" & note & "])"
Try
Dim DBqueryins As New OleDb.OleDbCommand(DBinserimento, conn)
conn.Open()
DBqueryins.ExecuteNonQuery()
conn.Close()
Catch ex As Exception
conn.Close()
MsgBox("Errore nell'inserimento dei dati.")
End Try