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=|DataDirector y|\Members.mdf;Integrated Security=True;User Instance=True")
myConnection.Open()
sqlCmd = myConnection.CreateCommand
If myConnection IsNot Nothing Then
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
Rispondi quotando
