[RaggiTech]

كاتب الموضوع : egyption-coder

كود :

OleDbConnection1.Open()

Try
Dim inso As String
TextBox4.Text = ser2


inss = "update photo set phno = + ComboBox1.Text + ,phrank='" + ComboBox2.Text + "',phname='" + ComboBox3.Text + "',phunit='" + TextBox1.Text + "',phsmall='" + ComboBox4.Text + "',phhafe='" + ComboBox5.Text + "',phstand='" + ComboBox6.Text + "',phfamily='" + ComboBox7.Text + "',phshd='" + ComboBox8.Text + "',phnots='" + TextBox2.Text + "'where phno ='" + ComboBox1.Text + "'"
'--------------------------------------------------------------
Dim ck1 As OleDb.OleDbCommand
ck1 = New OleDb.OleDbCommand(inso, OleDbConnection1)
ck1.ExecuteNonQuery()

OleDbConnection1.Close()
'-----------------------------------------------------


'------------------------------------------------
Catch ex As Exception
MsgBox(ex.Message)
OleDbConnection1.Close()
End Try

لاحظ انه عندما تكون القيمه حروف لابد من غلق الأقواس اما عندما تكون رقم او تاريخ
فلابد من جعل القيمه خارج الأقواس