Hi experter, förmiddag för
I, sure som alla vi har sett det ovannämnda meddelandet och vanligt dess nätt frikänd var felet är kommande från. Men i den nedanföra kodifiera det är inte tydligt till mig, så jag behöver någon help.
Here är kodifiera:
om inte cn. Påstå = cn för ConnectionState.Open Then . Öppen () avslutar If dunkel strSelect som stränger = dunkel strUCode för ""
som stränger = dunkel strLName för txtUCode.Text som stränger = dunkel strMI för txtLNameREQ.Text som stränger = dunkel strFName för txtMI.Text som stränger = txtFNameREQ.Text dunkel strAdd1 som stränger = txtAddress1REQ.Text dunkel strAdd2 som stränger = den dunkla strCityen för txtAddress2.Text som stränger = dunkel strST för txtCityREQ.Text som stränger = dunkel strZip för txtSTREQ.Text som stränger = txtZipREQ.Text dunkel strPH1 som stränger = txtPhone1REQ.Text dunkel strPH2 som stränger = strCred dunkelt för txtPhone2.Text som stränger = dunkel strID för cbUserType.SelectedItem som stränger = dunkel dtExpire för txtID.Text dunkel bitInitLogin som för DateTime = CDate (txtExpire.Text) för som Boolean = True dunkel strProvType som stränger = ”U " dunkel strDisc för som stränger = dunkel sqlDA för txtDiscREQ.Text
, som ny strSelect för för SqlClient.SqlDataAdapter (strSelect, cn) = ”MELLANLÄGGET IN I tblUsersDataen UserCode, LName, FName, MI, MAddr1, MAddr2, MCity, STANDARDTID, MZip, WPhone1, WPhone2, vitsord, LEGITIMATION, förfallodag, Prov_Type, initial_login, disciplin” & _ ”VÄRDERAR (@UserCode, @LName, @FName, @MI, @MAddr1, @MAddr2, @MCityen, @MST, @MZip, @WPhone1, @WPhone2 som är @Credential, @ID, @Expiration, @Prov_Type, @initial_login, MST” för @MCity”, strCityen) för sqlDA.InsertCommand.Parameters.AddWithValue för sqlDA.InsertCommand.Parameters.AddWithValue för sqlDA.InsertCommand.Parameters.AddWithValue (”@MAddr2”, strAdd2) för sqlDA.InsertCommand.Parameters.AddWithValue (”@MAddr1”, strAdd1) för sqlDA.InsertCommand.Parameters.AddWithValue (”@MI”, strMI) för sqlDA.InsertCommand.Parameters.AddWithValue (”@FName”, strFName) för sqlDA.InsertCommand.Parameters.AddWithValue (”@LName”, strLName) ”för
sqlDA.InsertCommand.Parameters.AddWithValue (”@UserCode”, strUCode för @Disc) för ) (””(, strST) sqlDA.InsertCommand.Parameters.AddWithValue (”@Disc” för sqlDA.InsertCommand.Parameters.AddWithValue (”@initial_login”, bitInitLogin) för sqlDA.InsertCommand.Parameters.AddWithValue ( ”för/> sqlDA.InsertCommand.Parameters.AddWithValue (”@MZip”, strZip) för sqlDA.InsertCommand.Parameters.AddWithValue (”@WPhone1”, strPH1) för sqlDA.InsertCommand.Parameters.AddWithValue (”@WPhone2”, strPH2) för sqlDA.InsertCommand.Parameters.AddWithValue (”@Credential”, strCred) för sqlDA.InsertCommand.Parameters.AddWithValue (”@ID”, strID) för sqlDA.InsertCommand.Parameters.AddWithValue (”@Expiration”, dtExpire) för @Prov_Type ", strProvType), strDisc)
Try sqlDA.SelectCommand.CommandText = för strSelect sqlDA.SelectCommand.ExecuteNonQuery () fångar för att fela som SqlClient.SqlException MessageBox.Show (”ett fel uppstod i AddUser -” & felar. för meddelandet) avslutar Try cn. Nära () This är den första tiden som jag har använt AddWithValue i parametrarna, så jag förmiddagen inte 100% på den riktiga syntaxen men jag tror den är korrekta. Någon hjälp skulle uppskattas,
Jack
" klar "
|