خطأ في تحميل البيانات من SQL

        sql = " select * from employee"
        con.ConnectionString = "packet size=4096;integrated security=SSPI;data source=BAWAZEER;persist security info=False;initial catalog=HR"

            Dim demp As New SqlDataAdapter(sql, con)
            demp.Fill(myds, "employ")

المشكلة هي أنك لم تحدد إسم الجدول بشكل صحيح ، لاحظ إسم الجدول في في جملة sql هو employee وإسم الجدول في في سطر تعبئة تعبئة الداتا سيت هو employ

اخوي عدلت الي قلت عليه ونفس المشكلة مايعرض شي في الفورم من بيانات الجدول

ماادري انت جربتها عندك وعرض لك الفورم بيانات

ارجوا ايفادتي

وشكراااااااا

جاري التحميل والتفحص

السلام عليكم أخي العزيز

يبدو أنك من المنتقلين قريبا من الفيبي 6 الى عالم الدوت نت فأهلا بك

الكود الذي كتبته ليس فيه أخطاء تذكر ولكن هنالك فروق كيبرة بين Recordset وبين DataSet

أنت قد قمت بملئ الداتاسيت في الذاكرة

demp.Fill(myds, "employ")

ولكن هل تظهر البيانات؟ بالطبع لا وذلك لأننا لم نقم بملئ الحقول التي في الشاشة فيجب عليك إضافة الكود التالي:

Dim con As New SqlConnection
        Dim sql As String
        Dim myds As New DataSet

        sql = " select * from employee"
        con.ConnectionString = "packet size=4096;integrated security=SSPI;data source=BAWAZEER;persist security info=False;initial catalog=HR"

            Dim demp As New SqlDataAdapter(sql, con)
        demp.Fill(myds, "employ")
'---------------------------------------------------
'لعرض بيانات أول صف
with myds.table(0).rows(0)  'لا حظ الانديكس لاول صف هو 0
txt_id.text=.item("ID")
txt_name.text=.item("name")
txt_JIOIN_DATE.text=.item("JIOIN_DATE")
'=======
'اضف بقية الحقول هنا
'=======
end with

ماقصرت وجزاك الله خير

جاري الفحص والتأكد

ابوانس الله يجزاك خير ليه ماتنزل المثال

لانه مازبط معي اذا انت جربته وضبط معك

اخوي ابوأنس تمام ضبط معي مشكور

بس اخوي فيه مثال مشابه له تنزله لنا فيه التنقل بين السجلات والاضافة والحذف وغيرها.....

وشكرااااااا

اسف اخي أتمنى ذلك ولكني لا أجد الوقت لأني أدخل الى الانترنت اختلاسا

والموضوع بسيط في الاضافة تستخدم جملة insert والحذف Delete والتحديث Update

المشكلة في التنقل بين السجلات وهي أيضا سهلة لا حظ .rows(0) في المثال

myds.table(0).rows(0)

الصفر في rows(0) تعني السجل الاول وبإضافة 1 إليها نتتقل الى السجل التالي وهكذا

أرجو ان تكون الفكرة قد وصلت