+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] عدة استعلامات (/showthread.php?tid=50908)
عدة استعلامات - ZEEN4ZEEN - 08-01-25
السلام عليكم
كيف كتابة اكتر من 10 استعلامات فى جملة IF
وتنفيد الاستعلام حسب الرقم المكتوب فى التكسة بكس
Dim sql As String
IF TextBox1.Text = 100 Then
"SQL = "SELECT * FROM BT WHERE carno IN (6350,6924)
ElseIf TextBox1.Text = 200 Then
"SQL = "SELECT * FROM BT WHERE carno IN (5550,655)
ElseIf TextBox1.Text = 300 Then
"SQL = "SELECT * FROM BT WHERE carno IN (3330,614)
وهاكدا
كيف كتابة هدا الاستعلام
وشكرا
RE: عدة استعلامات - Kamil - 08-01-25
وعليكم السلام و رحمة الله و بركاته
مثال
PHP كود :
Dim sql As String = ""
Select Case TextBox1.Text
Case "100"
sql = "SELECT * FROM BT WHERE carno IN (6350, 6924)"
Case "200"
sql = "SELECT * FROM BT WHERE carno IN (5550, 655)"
Case "300"
sql = "SELECT * FROM BT WHERE carno IN (3330, 614)"
Case "400"
sql = "SELECT * FROM BT WHERE carno IN (4444, 789)"
Case "500"
sql = "SELECT * FROM BT WHERE carno IN (5555, 888)"
Case "600"
sql = "SELECT * FROM BT WHERE carno IN (6666, 999)"
Case "700"
sql = "SELECT * FROM BT WHERE carno IN (7777, 123)"
Case "800"
sql = "SELECT * FROM BT WHERE carno IN (8888, 456)"
Case "900"
sql = "SELECT * FROM BT WHERE carno IN (9999, 789)"
Case "1000"
sql = "SELECT * FROM BT WHERE carno IN (1000, 321)"
Case Else
MessageBox.Show("الرقم المدخل غير صالح", "خطأ", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End Select
' هنا يمكنك تنفيذ الاستعلام بعد تحديده
If sql <> "" Then
' تنفيذ الاستعلام
' مثال:
' ExecuteSQL(sql)
MessageBox.Show("تم تحديد الاستعلام: " & sql)
End If
RE: عدة استعلامات - ZEEN4ZEEN - 08-01-25
جزاك الله كل خير يارب العالميين