Cześć ekspert,
I am pewny my błąd widzieć the wszystko wiadomość i zazwyczaj swój ładny jasny dokąd the błąd przychodzić od. Ale w the kod pod ono być oczywisty, więc I potrzebować niektóre help.
Here być the kod:
Jeśli nie cn. Stan = ConnectionState.Open Then
cn. Otwarty ()
Końcówka If
Ćmić strSelect Gdy Sznurek = ""
Ćmić strUCode Gdy Sznurek = txtUCode.Text
Ćmić strLName Gdy Sznurek = txtLNameREQ.Text
Ćmić strMI Gdy Sznurek = txtMI.Text
Ćmić strFName Gdy Sznurek = txtFNameREQ.Text
Ćmić strAdd1 Gdy Sznurek = txtAddress1REQ.Text
Ćmić strAdd2 Gdy Sznurek = txtAddress2.Text
Ćmić strCity Gdy Sznurek = txtCityREQ.Text
Ćmić strST Gdy Sznurek = txtSTREQ.Text
Ćmić strZip Gdy Sznurek = txtZipREQ.Text
Ćmić strPH1 Gdy Sznurek = txtPhone1REQ.Text
Ćmić strPH2 Gdy Sznurek = txtPhone2.Text
Ćmić strCred Gdy Zawiązywać = cbUserType.SelectedItem
Ćmić strID Zawiązywać = txtID.Text
Ćmić dtExpire Gdy DateTime = CDate (txtExpire.Text)
Ćmić bitInitLogin Jako Boolowski = True
Ciemnawy strProvType Gdy Sznurek = "U "
Ćmić strDisc Gdy Sznurek = txtDiscREQ.Text
Ćmić sqlDA Gdy Nowy SqlClient.SqlDataAdapter (strSelect, cn)
strSelect = "WSZYWKA W tblUsersData UserCode, LName, FName, MI, MAddr1, MAddr2, MCity, MST, MZip, WPhone1, WPhone2, Credential, ID, Ekspiracja, Prov_Type, initial_login, Dyscyplina" & _
"WARTOŚĆ (@UserCode, @LName, @FName, @MI, @MAddr1, @MAddr2, @MCity, @MST, @MZip, @WPhone1, @WPhone2, @Credential, @ID, @Expiration, @Prov_Type, @initial_login, @Disc) "
sqlDA.InsertCommand.Parameters.AddWithValue ("@UserCode", strUCode)
sqlDA.InsertCommand.Parameters.AddWithValue ("@LName", strLName)
sqlDA.InsertCommand.Parameters.AddWithValue ("@FName", strFName)
sqlDA.InsertCommand.Parameters.AddWithValue ("@MI", strMI)
sqlDA.InsertCommand.Parameters.AddWithValue ("@MAddr1", strAdd1)
sqlDA.InsertCommand.Parameters.AddWithValue ("@MAddr2", strAdd2)
sqlDA.InsertCommand.Parameters.AddWithValue ("@MCity", strCity)
sqlDA.InsertCommand.Parameters.AddWithValue ("@MST", strST)
sqlDA.InsertCommand.Parameters.AddWithValue ("@MZip", strZip)
sqlDA.InsertCommand.Parameters.AddWithValue ("@WPhone1", strPH1)
sqlDA.InsertCommand.Parameters.AddWithValue ("@WPhone2", strPH2)
sqlDA.InsertCommand.Parameters.AddWithValue ("@Credential", strCred)
sqlDA.InsertCommand.Parameters.AddWithValue ("@ID", strID)
sqlDA.InsertCommand.Parameters.AddWithValue ("@Expiration", dtExpire)
sqlDA.InsertCommand.Parameters.AddWithValue ("@Prov_Type " , strProvType)
sqlDA.InsertCommand.Parameters.AddWithValue ("@initial_login", bitInitLogin)
sqlDA.InsertCommand.Parameters.AddWithValue ("@Disc", strDisc)
Try
sqlDA.SelectCommand.CommandText = strSelect
sqlDA.SelectCommand.ExecuteNonQuery ()
Chwyt błądzić Jako SqlClient.SqlException
MessageBox.Show ("Błąd zdarzać się w AddUser -" & błądzić. Wiadomość)
Końcówka Try
cn. Zakończenie ()
This być za pierwszym raz I używać AddWithValue w the Parametr, więc I być 100% na the właściwy składnia ale I wierzyć ono być poprawny. Jakaś pomoc doceniać,
Jack
|
