Von hallo Experten,
I morgens, sure alle, das wir der oben genannten Mitteilung und normalerweise sein recht gesehen haben freies, wo die Störung kommt. Aber im Code unterhalb er liegt nicht zu mir auf der Hand, also benötige ich irgendein help.
Here bin der Code:
wenn nicht KN. Zustand- = ConnectionState.Open-Then
KN. ()
Ende If
schwaches strSelect als Schnur = ""
schwaches strUCode als Schnur = txtUCode.Text
schwaches strLName als Schnur = txtLNameREQ.Text
schwaches strMI als Schnur = txtMI.Text
schwaches strFName als Schnur = txtFNameREQ.Text
schwaches strAdd1 als Schnur = txtAddress1REQ.Text
schwaches strAdd2 als Schnur = txtAddress2.Text
schwaches strCity als Schnur = txtCityREQ.Text
schwaches strST als Schnur = txtSTREQ.Text
schwaches strZip als Schnur = txtZipREQ.Text
schwaches strPH1 als Schnur = txtPhone1REQ.Text
schwaches strPH2 als Schnur öffnen = txtPhone2.Text
schwaches strCred, wie Schnur = cbUserType.SelectedItem
strID als Schnur = verdunkeln txtID.Text
verdunkeln dtExpire als Datum/Uhrzeit = CDate (txtExpire.Text)
schwaches bitInitLogin als Boolesches = True
schwaches strProvType als Schnur = „u-"
schwaches strDisc als Schnur = txtDiscREQ.Text
schwaches sqlDA während neues SqlClient.SqlDataAdapter (strSelect, KN)
strSelect = „EINSATZ IN tblUsersData UserCode, LName, FName, MI, MAddr1, MAddr2, MCity, MST, MZip, WPhone1, WPhone2, Bescheinigung, Identifikation, Verfall, Prov_Type, initial_login, Disziplin“ u. _
„WERTE (@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) irren sich
Try
sqlDA.SelectCommand.CommandText = strSelect
sqlDA.SelectCommand.ExecuteNonQuery ()
Fang als SqlClient.SqlException
MessageBox.Show („eine Störung trat in AddUser -“ auf u. irrt sich. Mitteilung)
Ende Try
KN. Abschluss ()
This ist, das erste mal ich AddWithValue in den Parametern verwendet habe, also bin ich nicht 100% auf der korrekten Syntax, aber ich glaube, dass sie. korrekt ist. Jede mögliche Hilfe würde,
Jack geschätzt
|
