Problema con scrittura dati in sql con VB2010

venerdì 27 luglio 2012 - 22.09

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

kleiko Profilo | Newbie

2 messaggi | Data Invio: ven 27 lug 2012 - 22:09

Ciao a tutti ho scritto questo codice per insetire in una tabella sql di nome "Utenti"

Private Sub ButtonOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonOK.Click

If TextBoxNome.Text = ("") Or TextBoxCognome.Text = ("") Or TextBoxUtente.Text = ("") Or TextBoxPassword.Text = ("") Or ComboBoxDirittidiAmministratore.Text = ("") Then
MsgBox("Compilare tutti i campi!!!!")
Else

Dim myConnection As SqlConnection

Dim sqlCmd As SqlCommand

myConnection = New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Members.mdf;Integrated Security=True;User Instance=True")
myConnection.Open()

sqlCmd = myConnection.CreateCommand

If myConnection IsNot Nothing Then

'mySqlCommand = New SqlCommand("Insert into Persona (Username,Password,Nome,Cognome,DataNascita,Telefono) VALUES ('TextBox5.Text' ,'TextBox6.Text','TextBox1.Text','TextBox2.Tex
sqlCmd.CommandText = "Insert into User (Username,Password,Administrator,Nome,Cognome) VALUES (@Username,@Password,@Administrator,@Nome,@Cognome)"

SqlCmd.Parameters.AddWithValue("@Username", TextBoxUtente.Text)
SqlCmd.Parameters.AddWithValue("@Password", TextBoxPassword.Text)
SqlCmd.Parameters.AddWithValue("@Administrator", ComboBoxDirittidiAmministratore.Text)
SqlCmd.Parameters.AddWithValue("@Nome", TextBoxNome.Text)
sqlCmd.Parameters.AddWithValue("@Cognome", TextBoxCognome.Text)

'sqlCmd.ExecuteNonQuery()
myConnection.Close()
Me.Close()
End If
End If
End Sub

Non mi scrive niente in sql
sto impazzando sapete darmi un consiglio
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 !