منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم
كيف كتابة اكتر من 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)

وهاكدا
كيف كتابة هدا الاستعلام
وشكرا

وعليكم السلام و رحمة الله و بركاته

مثال

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 

جزاك الله كل خير يارب العالميين

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

ZEEN4ZEEN

Kamil

ZEEN4ZEEN