+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : الأقسام التعليمية - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=90)
+--- قسم : مكتبة أكواد المنتدى (http://vb4arb.com/vb/forumdisplay.php?fid=111)
+---- قسم : مكتبة أكواد .net (http://vb4arb.com/vb/forumdisplay.php?fid=117)
+---- الموضوع : مثال لجملة update باستخدام متغير يحمل عبارة sql (/showthread.php?tid=6301)
مثال لجملة update باستخدام متغير يحمل عبارة sql - RaggiTech - 17-10-12
كاتب الموضوع : 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لاحظ انه عندما تكون القيمه حروف لابد من غلق الأقواس اما عندما تكون رقم او تاريخ
فلابد من جعل القيمه خارج الأقواس