تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
أين الخطأ في كود بحث بواسطة كمبولست اندكس وعرض النتائج في 3 تكست؟
#1
السلام عليكم وحياكم الله وبارك فيكم
إخوتي الكرام أصحاب الفضل علي 
هذا الكود كتبته بهدف البحث عن بيانات اسم موجود في كمبو بوكس
وعرض بيانات الاسم في 3 تكست

كود :
       Try
           'Call conecDB() مازال الاتصال مفتوحاً من من فورم لود
           'SQL = "SELECT * FROM Tab_Users Where G_ID =" & (Cmb_All_Users.SelectedIndex"

           Dim Cindx As Integer
           Cindx = Val(Cmb_All_Users.SelectedIndex) + 1

           SQL = "Select * from Tab_Users where G_ID= '" & Cindx & "'"
           MsgBox(Cmb_All_Users.SelectedIndex)
           ad = New SqlDataAdapter(SQL, Conn)

           'ds.Clear()
           ad.Fill(ds)

           'ممكن استخدام هذا الكود
           'ad.Fill(ds, "Tab_Branches")
           'Cmb_Srch_Branch_Name.DataSource = ds.Tables("Tab_Branches")
           'ممكن استخدام هذا الكود

           Txt_User_Name.Text = ds.Tables(0).Columns(1)
           Txt_Pwd.Text = "G_ID"
           'Cmb_User_Kind.Text = User_Kind

           ad.Dispose()
           closeDB()
       Catch ex As Exception
           MsgBox(ex.Message)
           End
       End Try





برجاء انا مش عارف أحط البيانات الناتجة في تكست
الرد }}}}
تم الشكر بواسطة:
#2
اخي جرب هذا الكود واعطيني النتيجة واذا اتحب ارفع مثال لنقوم بالتعديل
PHP كود :
Try
 
  SQL "Select * from Tab_Users where G_ID= " Val(Cmb_All_Users.SelectedValue
 
  MsgBox(Cmb_All_Users.SelectedValue)
 
  ad = New SqlDataAdapter(SQLConn)
 
  ad.Fill(ds)
 
  
   
'ممكن استخدام هذا الكود
   Txt_User_Name.Text = ds.Rows(0).item(1)
   Txt_Pwd.Text = "G_ID"
   ad.Dispose()
   closeDB()
Catch ex As Exception
   MsgBox(ex.Message)
   End
End Try 
الرد }}}}
تم الشكر بواسطة: awidan76


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ما الخطأ فى هذا الكود ؟ what's error in my code ? twitter acount creator الماجيك مسعد 14 187 منذ 1 ساعه مضت
آخر رد: LoveVb
  نقل واسترجاع ملفات بواسطة الفيجوال بيسك عبدالرحمن المكاوي 25 529 05-12-16, 08:30 PM
آخر رد: عبدالرحمن المكاوي
  [SQL] ماهو سبب هذا الخطأ بعد تثبيت SQL thevirus 2 76 30-11-16, 08:34 PM
آخر رد: ابو ليلى
  [كود] الحذف من قاعدة البيانات بواسطة كلمة سر المبرمج العبقري 5 127 23-11-16, 05:21 PM
آخر رد: hglogtd
  [VB.NET] حساب عدد النتائج sphinx 4 405 14-11-16, 08:46 AM
آخر رد: Genius Live
  كيفية تغير رسائل الخطأ؟ noway 3 82 11-11-16, 05:37 PM
آخر رد: ممدوح
  نقل قيمة من تكست بوكس الي تكست بوكس فى نموذج اخر السيد الجوهري 4 113 05-11-16, 07:39 PM
آخر رد: shwehdi4pc
  تكست بوكس اذا بها جمل اظهر رسالة هاوي1995 8 134 24-10-16, 04:46 PM
آخر رد: هاوي1995
  [VB.NET] مشكلة فى Dim g As Graphics رسم نص وصور من اداة ريتش تكست بوكس الماجيك مسعد 24 606 24-10-16, 08:06 AM
آخر رد: الماجيك مسعد
Lightbulb ما هو الكود البرمجي لزر الطباعة بواسطة Crystal Reports Arabia 6 194 20-10-16, 01:52 AM
آخر رد: جوري

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم