05-06-24, 09:31 PM
هذا الكود غير كامل تاكد من الاكواد
لا يوجد في قاعدة البيانات جدول باسم Sub من اين ستجلب المعلومات
عليك تجربة المثال و تعديل الجدول وانا جاهز للمساعدة
من هنا
كود :
Using dp As New OleDbDataAdapter("SELECT Sub_Customer, Tailor, Laundery FROM Sub WHERE ID = 1", conn)
Dim ds As New DataSet()
dp.Fill(ds)
If ds.Tables(0).Rows.Count <> 0 Then
subscription = ds.Tables(0).Rows(0).Item("Sub_Customer")
Tailor = ds.Tables(0).Rows(0).Item("Tailor")
Laundery = ds.Tables(0).Rows(0).Item("Laundery")
End If
End Usingلا يوجد في قاعدة البيانات جدول باسم Sub من اين ستجلب المعلومات
عليك تجربة المثال و تعديل الجدول وانا جاهز للمساعدة
من هنا
لو كل مسلم رمى دلو ماء لغرقت إسرائيل
