amd386
دوشنبه 07 مرداد 1387, 17:11 عصر
باسلام و احترام،
لطفاً در ايراد كد زير به من كمك كنيد، چون در Update مشكل داره.
Private Sub button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
Dim con As New SqlConnection()
con.ConnectionString = "Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Ent;Data Source=172"
Dim sqlcmd As New SqlCommand()
sqlcmd.CommandText = "update dbo.T_Per_Etelaate_Fardi set F_Name='" + txtname.Text + "',F_Family='" + txtfamily.Text + "',f_semat_desc='" + txtsemat.Text + "',m_haz='" + Txtsazman.Text + "',F_Shomareh_Shenasnameh='" + txtshenas.Text + "',F_Code_Meli='" + TxtCODE.Text + "',F_Name_Pedar='" + txtpedar.Text + "',F_Mahal_Eshteghal_Desc='" + Txtsherkat.Text + "',Tell='" + txttel.Text + "',F_vaziat_Desc='" + txtvaz.Text + "',F_shomare_Name1='" + txtnameh.Text + "',F_Daftar1_name='" + txtname1.Text + "',F_Shomare_name='" + txtnameh1.Text + "',F_Shomare_name2='" + txtnameh2.Text + "',F_date_b='" + TextBox42.Text + "',F_date_b1='" + TextBox43.Text + "',F_Daftar2_name='" + txtname2.Text + "',F_Daftar2_family='" + txtfamily3.Text + "',F_Daftar2_shomare='" + txtshenas2.Text + "',f_name2='" + TextBox23.Text + "',F_Daftar1_family='" + txtfamily2.Text + "',F_Daftar1_shomare='" + txtshenas1.Text + "',f_name1='" + TextBox24.Text + "',F_Emza_sazmani='" + Emza_sazemani.ToString() + "',F_Emza_Sapco='" + Emza_sapco.ToString() + "',F_Emza_PKhodro='" + Emza_PKhodro.ToString() + "',F_Emaza_Peiade='" + Emaza_Peiade.ToString() + "',F_Door1='" + Door1.ToString() + "',F_Door2='" + Door2.ToString() + "',F_Door4='" + Door4.ToString() + "',F_Door10='" + Door10.ToString() + "',F_Door12='" + Door12.ToString() + "',F_Door18='" + Door18.ToString() + "',F_Emza_sazmani1='" + Emza_sazmani1.ToString() + "',F_Emza_Sapco1='" + Emza_sapco1.ToString() + "',F_Emza_PKhodro1='" + Emza_PKhodro1.ToString() + "',F_Emaza_Peiade1='" + Emaza_Peiade1.ToString() + "',F_Emza_sazmani2='" + Emza_sazmani2.ToString() + "',F_Emza_Sapco2='" + Emza_sapco2.ToString() + "',F_Emza_PKhodro2='" + Emza_PKhodro2.ToString() + "',F_Emaza_Peiade2='" + Emaza_Peiade2.ToString() + "',F_Black_list='" + Black_List.ToString() + "',F_noBlack_list1='" + NoBlack_List.ToString() + " where F_Shomareh_Cart_Personeli='" + txtPrsNo.Text + "'"
sqlcmd.Connection = con
con.Open()
sqlcmd.ExecuteNonQuery()
con.Close()
End Sub
لطفاً در ايراد كد زير به من كمك كنيد، چون در Update مشكل داره.
Private Sub button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
Dim con As New SqlConnection()
con.ConnectionString = "Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Ent;Data Source=172"
Dim sqlcmd As New SqlCommand()
sqlcmd.CommandText = "update dbo.T_Per_Etelaate_Fardi set F_Name='" + txtname.Text + "',F_Family='" + txtfamily.Text + "',f_semat_desc='" + txtsemat.Text + "',m_haz='" + Txtsazman.Text + "',F_Shomareh_Shenasnameh='" + txtshenas.Text + "',F_Code_Meli='" + TxtCODE.Text + "',F_Name_Pedar='" + txtpedar.Text + "',F_Mahal_Eshteghal_Desc='" + Txtsherkat.Text + "',Tell='" + txttel.Text + "',F_vaziat_Desc='" + txtvaz.Text + "',F_shomare_Name1='" + txtnameh.Text + "',F_Daftar1_name='" + txtname1.Text + "',F_Shomare_name='" + txtnameh1.Text + "',F_Shomare_name2='" + txtnameh2.Text + "',F_date_b='" + TextBox42.Text + "',F_date_b1='" + TextBox43.Text + "',F_Daftar2_name='" + txtname2.Text + "',F_Daftar2_family='" + txtfamily3.Text + "',F_Daftar2_shomare='" + txtshenas2.Text + "',f_name2='" + TextBox23.Text + "',F_Daftar1_family='" + txtfamily2.Text + "',F_Daftar1_shomare='" + txtshenas1.Text + "',f_name1='" + TextBox24.Text + "',F_Emza_sazmani='" + Emza_sazemani.ToString() + "',F_Emza_Sapco='" + Emza_sapco.ToString() + "',F_Emza_PKhodro='" + Emza_PKhodro.ToString() + "',F_Emaza_Peiade='" + Emaza_Peiade.ToString() + "',F_Door1='" + Door1.ToString() + "',F_Door2='" + Door2.ToString() + "',F_Door4='" + Door4.ToString() + "',F_Door10='" + Door10.ToString() + "',F_Door12='" + Door12.ToString() + "',F_Door18='" + Door18.ToString() + "',F_Emza_sazmani1='" + Emza_sazmani1.ToString() + "',F_Emza_Sapco1='" + Emza_sapco1.ToString() + "',F_Emza_PKhodro1='" + Emza_PKhodro1.ToString() + "',F_Emaza_Peiade1='" + Emaza_Peiade1.ToString() + "',F_Emza_sazmani2='" + Emza_sazmani2.ToString() + "',F_Emza_Sapco2='" + Emza_sapco2.ToString() + "',F_Emza_PKhodro2='" + Emza_PKhodro2.ToString() + "',F_Emaza_Peiade2='" + Emaza_Peiade2.ToString() + "',F_Black_list='" + Black_List.ToString() + "',F_noBlack_list1='" + NoBlack_List.ToString() + " where F_Shomareh_Cart_Personeli='" + txtPrsNo.Text + "'"
sqlcmd.Connection = con
con.Open()
sqlcmd.ExecuteNonQuery()
con.Close()
End Sub