Non Capisco l'errore!

giovedì 25 ottobre 2007 - 13.55

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

Giada Profilo | Newbie

16 messaggi | Data Invio: gio 25 ott 2007 - 13:55

Salve a tutti!
Ho fatto due form di inserimento in un DB:
UNA FUNZIONA MENTRE L'ALTRA NO!
Vi allego il codice qui di seguito!

CODICE OK:

Imports System.Data
Imports System.Data.OleDb

Public Class Impostazione_Prescrizioni

Private Sub btnOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOk.Click
Dim objConnection As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Giada\Desktop\prescrizioni.mdb;User Id=admin;Password=;")
Dim objCommand As OleDbCommand = New OleDbCommand()
objCommand.Connection = objConnection
objCommand.CommandText = "INSERT INTO Prescrizione " & "(Paziente, Codice_AIC, Descrizione_Farmaco, Dosaggio, Tempo_Di_Assunzione, Medico) " & "VALUES(@Paziente, @Codice_AIC, @Descrizione_Farmaco, @Dosaggio, @Tempo_Di_Assunzione, @Medico)"
objCommand.Parameters.AddWithValue("@Paziente", txtPaziente.Text)
objCommand.Parameters.AddWithValue("@Codice_AIC", txtCodiceAIC.Text)
objCommand.Parameters.AddWithValue("@Descrizione_Farmaco", txtFarmaco.Text)
objCommand.Parameters.AddWithValue("@Dosaggio", txtDosaggio.Text)
objCommand.Parameters.AddWithValue("@Tempo_Di_Assunzione", txtFrequenza.Text)
objCommand.Parameters.AddWithValue("@Medico", txtMedico.Text)
objConnection.Open()
objCommand.ExecuteNonQuery()
objConnection.Close()
End Sub
End Class

CODICE NOK:

Imports System.Data
Imports System.Data.OleDb

Public Class Impostazione_Medico

Private Sub btnOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOk.Click
Dim objConnection As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Giada\Desktop\prescrizioni.mdb;User Id=admin;Password=;")
Dim objCommand As OleDbCommand = New OleDbCommand
objCommand.Connection = objConnection
objCommand.CommandText = "INSERT INTO Medico" & "(Codice_Medico, Password, Codice_E_Nome, Via, Citta)" & "VALUES(@Codice_Medico, @Cognome_E_Nome, @Via, @Citta)"
objCommand.Parameters.AddWithValue("@Codice_Medico", txtCodiceMedico.Text)
objCommand.Parameters.AddWithValue("@Password", txtPassword.Text)
objCommand.Parameters.AddWithValue("@Codice_E_Nome", txtCognomeENome.Text)
objCommand.Parameters.AddWithValue("@Via", txtVia.Text)
objCommand.Parameters.AddWithValue("@Citta", txtCitta.Text)
objConnection.Open()
objCommand.ExecuteNonQuery() <--- L'ERRORE VIENE SEGNALATO QUI(*)
objConnection.Close()

End Sub
End Class

(*) Si apre una finestra e riporto cosa ci è scritto:
"OleDbExxception was unhandled
Errore di sintassi nell'istruzione INSERT INTO

Trouble Shootings tips:
Get general help for this exception"

GRAZIE A TUTTI!

alx_81 Profilo | Guru

8.814 messaggi | Data Invio: gio 25 ott 2007 - 14:04

>Salve a tutti!
Ciao!
>CODICE NOK:
>
>Imports System.Data
>Imports System.Data.OleDb
>
>Public Class Impostazione_Medico
>
>
>Private Sub btnOk_Click(ByVal sender As System.Object, ByVal
>e As System.EventArgs) Handles btnOk.Click
>Dim objConnection As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data
>Source=C:\Documents and Settings\Giada\Desktop\prescrizioni.mdb;User
>Id=admin;Password=;")
> Dim objCommand As OleDbCommand = New OleDbCommand
> objCommand.Connection = objConnection
>objCommand.CommandText = "INSERT INTO Medico" & "(Codice_Medico,
>Password, Codice_E_Nome, Via, Citta)" & "VALUES(@Codice_Medico,
>@Cognome_E_Nome, @Via, @Citta)"
>objCommand.Parameters.AddWithValue("@Codice_Medico", txtCodiceMedico.Text)
>objCommand.Parameters.AddWithValue("@Password", txtPassword.Text)
>objCommand.Parameters.AddWithValue("@Codice_E_Nome", txtCognomeENome.Text)
>objCommand.Parameters.AddWithValue("@Via", txtVia.Text)
>objCommand.Parameters.AddWithValue("@Citta", txtCitta.Text)
> objConnection.Open()
>objCommand.ExecuteNonQuery() <--- L'ERRORE VIENE SEGNALATO
>QUI(*)
> objConnection.Close()
>
> End Sub
>End Class
>
>(*) Si apre una finestra e riporto cosa ci è scritto:
>"OleDbExxception was unhandled
>Errore di sintassi nell'istruzione INSERT INTO
>
>Trouble Shootings tips:
>Get general help for this exception"
l'unica cosa che mi viene in mente così su due piedi, è il campo Password.. potrebbe essere un problema di parole chiavi?
Prova a mettere le parentesi quadre sul nome del campo della tabella..

INSERT INTO Medico (Codice_Medico, [Password], .....)

>
>GRAZIE A TUTTI!
di nulla!

Alx81 =)

http://blogs.dotnethell.it/suxstellino

amelix Profilo | Expert

694 messaggi | Data Invio: gio 25 ott 2007 - 14:11

>CODICE NOK:
>objCommand.CommandText = "INSERT INTO Medico" & "(Codice_Medico,
>Password, Codice_E_Nome, Via, Citta)" & "VALUES(@Codice_Medico,
>@Cognome_E_Nome, @Via, @Citta)"
>objCommand.Parameters.AddWithValue("@Codice_Medico", txtCodiceMedico.Text)
>objCommand.Parameters.AddWithValue("@Password", txtPassword.Text)
>objCommand.Parameters.AddWithValue("@Codice_E_Nome", txtCognomeENome.Text)
>objCommand.Parameters.AddWithValue("@Via", txtVia.Text)
>objCommand.Parameters.AddWithValue("@Citta", txtCitta.Text)

Come post sotto e non vedo @Password nei values...
Andrea - http://www.MelisWeb.eu/

Giada Profilo | Newbie

16 messaggi | Data Invio: gio 25 ott 2007 - 14:43

E' stato un problema di "copia e incolla"... nei Values c'è anche @Password!
Provo a cambiare nome al campo, poi vi dico!
Grazie!

Giada Profilo | Newbie

16 messaggi | Data Invio: gio 25 ott 2007 - 14:55

ERA QUELLO! GRAZIE

Torna su

Stanze Forum

Elenco Threads

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 !