Hi специалисты,
I am конечно, котор мы все видели вышеуказанному сообщению и обычно своей довольно ясной куда ошибка приходит от. Но в Кодем под им не будет очевидна к мне, поэтому мне нужно некоторое help.
Here буду Кодим:
если не cn. Cn положения = ConnectionState.Open Then
. Раскройте () strSelect If
конца
тусклое как strUCode
шнура = "" тусклое как шнур = strLName txtUCode.Text
тусклое как шнур = strMI txtLNameREQ.Text
тусклое как шнур = strFName txtMI.Text
тусклое как шнур = txtFNameREQ.Text
тусклое strAdd1 как шнур = txtAddress1REQ.Text
тусклое strAdd2 как шнур = strCity txtAddress2.Text
тусклое как шнур = strST txtCityREQ.Text
тусклое как шнур = strZip txtSTREQ.Text
тусклое как шнур = txtZipREQ.Text
тусклое strPH1 как шнур = txtPhone1REQ.Text
тусклое strPH2 как шнур = strCred тусклое txtPhone2.Text
по мере того как шнур = cbUserType.SelectedItem
затемняют strID как шнур = txtID.Text
затемняют dtExpire как bitInitLogin
DateTime = CDate (txtExpire.Text) тусклое как булевское = strProvType True
тусклое как шнур = _
дисциплины «u " strDisc
тусклое как шнур = sqlDA txtDiscREQ.Text
тусклое по мере того как новое strSelect
SqlClient.SqlDataAdapter (strSelect, cn) = «ВСТАВКА В tblUsersData UserCode, LName, FName, MI, MAddr1, MAddr2, MCity, MST, MZip, WPhone1, WPhone2, Credential, удостоверение личности, выдых, Prov_Type, initial_login,» & ЗНАЧЕНИЙ «(@UserCode, @LName, @FName, @MI, @MAddr1, @MAddr2, @MCity, @MST, @MZip, @WPhone1, @WPhone2, @Credential, @ID, @Expiration, @Prov_Type, @initial_login,
MST» @MCity», strCity)
sqlDA.InsertCommand.Parameters.AddWithValue
sqlDA.InsertCommand.Parameters.AddWithValue
sqlDA.InsertCommand.Parameters.AddWithValue
sqlDA.InsertCommand.Parameters.AddWithValue
sqlDA.InsertCommand.Parameters.AddWithValue
sqlDA.InsertCommand.Parameters.AddWithValue
sqlDA.InsertCommand.Parameters.AddWithValue
sqlDA.InsertCommand.Parameters.AddWithValue @Disc) «(«@UserCode», strUCode ) («@LName», strLName) («@FName», strFName) («@MI», strMI) («@MAddr1», strAdd1) («@MAddr2», strAdd2) (««(, strST)
sqlDA.InsertCommand.Parameters.AddWithValue
sqlDA.InsertCommand.Parameters.AddWithValue
sqlDA.InsertCommand.Parameters.AddWithValue
sqlDA.InsertCommand.Parameters.AddWithValue
sqlDA.InsertCommand.Parameters.AddWithValue
sqlDA.InsertCommand.Parameters.AddWithValue
sqlDA.InsertCommand.Parameters.AddWithValue
sqlDA.InsertCommand.Parameters.AddWithValue/> sqlDA.InsertCommand.Parameters.AddWithValue («@MZip», strZip) («@WPhone1», strPH1) («@WPhone2», strPH2) («strCred @Credential»,) («@ID», strID) («@Expiration», dtExpire) (« @Prov_Type ", strProvType) («@initial_login», bitInitLogin) («@Disc», strDisc)
Try
sqlDA.SelectCommand.CommandText = задвижка
strSelect
sqlDA.SelectCommand.ExecuteNonQuery () заблуждается как SqlClient.SqlException
MessageBox.Show («ошибка произошла в AddUser -» & заблуждается. Cn Try
конца
сообщения).
This конца () в первый раз я использовал AddWithValue в параметрах, поэтому я не 100% на правильном синтаксисе но я верю он правильно. Была бы оценена любая помощь,
Jack
class=
|
