INSERT in database

venerdì 10 febbraio 2006 - 09.30

dispy20 Profilo | Newbie

Private Sub aggiungi()
Dim ds As New DataSet
Dim connection As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C...Persist Security Info=False")
Dim cmd As New OleDbCommand("INSERT INTO tblDomini(nomeDominio, cliente, rinnovo, scadenza, gestoreDominio, gestoreHosting, gestoreMail, numeroMail)VALUES('" & Me.txtNomeDominio.Text & "','" & Me.txtCliente.Text & "','" & Me.txtRinnovo.Text & "','" & Me.txtScadenza.Text & "','" & Me.txtGestoreDominio.Text & "','" & Me.txtGestoreHosting.Text & "','" & Me.txtGestoreMail.Text & "','" & Me.txtNumeroMail.Text & "')", connection)
connection.Open()
cmd.ExecuteNonQuery()
connection.Close()
end sub



quando eseguo questo codice mi si apre una finestra ke mi dice : Eccezione non gestita di tipo "System.Data.OleDb.OleDbException" in system.data.dll


Dove sbaglio? ke devo fare?

Cteniza Profilo | Guru

Prova ad usare i parametri e metti degli spazi tra le parentesi e i token.


totti240282 Profilo | Guru

metti il codice tra un

try
catch

C'è solo un capitano !!!!!!

dispy20 Profilo | Newbie

scusa ma nn so ke vuol dire.. mi puoi fare un esempio sul mio codice x favore? grazie per le risp

Cteniza Profilo | Guru

>metti il codice tra un
>try
>catch
>C'è solo un capitano !!!!!!

In questo modo non risolvi mica il problema, è come nascondere la spazzatura sotto il tappeto :)).


dispy20 Profilo | Newbie

>>metti il codice tra un
>>try
>>catch
>>C'è solo un capitano !!!!!!
>
>In questo modo non risolvi mica il problema, è come nascondere
> la spazzatura sotto il tappeto :)).

expert mi puoi per favore fare un esempio con il mio codice per favore?

Cteniza Profilo | Guru

Devi mettere un parametro per ogni elemento che ti interessa popolare, io ne ho messi alcuni come esempio, il resto mettili tu.
Private Sub InsertData(ByVal pNomeDominio As String, ByVal pCliente As String, ByVal pRinnovo As String, ByVal pScadenza As String)
Dim cnn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\dbprova.mdb;Persist Security Info=False")
Dim cmd As New OleDbCommand("INSERT INTO tblDomini ( nomeDominio, cliente, rinnovo, scadenza, gestoreDominio, gestoreHosting, gestoreMail, numeroMail) VALUES (?, ?, ?, ?, ?, ?, ? ,?)")
Try
Dim prm As OleDbParameter
prm = New OleDbParameter
prm.Direction = ParameterDirection.Input
prm.DbType = DbType.String
prm.Value = pNomeDominio
cmd.Parameters.Add(prm)
prm = New OleDbParameter
prm.Direction = ParameterDirection.Input
prm.DbType = DbType.String
prm.Value = pCliente
cmd.Parameters.Add(prm)
prm = New OleDbParameter
prm.Direction = ParameterDirection.Input
prm.DbType = DbType.String
prm.Value = pRinnovo
cmd.Parameters.Add(prm)
prm = New OleDbParameter
prm.Direction = ParameterDirection.Input
prm.DbType = DbType.String
prm.Value = pScadenza
cmd.Parameters.Add(prm)
cmd.Connection = cnn
cnn.Open()
cmd.ExecuteNonQuery()
Catch ex As Exception
MessageBox.Show(ex.Message & Environment.NewLine & ex.StackTrace)
Finally
If cnn.State = ConnectionState.Open Then cnn.Close()
End Try

End Sub

totti240282 Profilo | Guru

In questo modo non risolvi mica il problema, è come nascondere la spazzatura sotto il tappeto :)).

infatti non era una soluzione ,era solo per vedere se dava qualche errore specifico per capire meglio :).

C'è solo un capitano !!!!!!
Partecipa anche tu! Registrati!
Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !
Copyright © dotNetHell.it 2002-2024
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5