Problema con scrittura dati in sql con VB2010

venerdì 27 luglio 2012 - 22.09

kleiko Profilo | Newbie

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
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-2017
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5