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

قاعدة البيانات بتظهر عندي - بايظه

(29-12-17, 09:36 PM)zinom كتب : [ -> ]قاعدة البيانات بتظهر عندي - بايظه

---

---

أنت ترهق نفسك بتصميم الداتاجريدفيو بالكود

في الدوت نت عن تحديد الأداة ستجد سهم صغير
منه تستطيع تصميم الأداة مثل الأعمدة للداتاجريد مع تحديد اسم الحقل للعمود دون عناء كتابة كود التصميم

(29-12-17, 11:27 PM)طالب برمجة كتب : [ -> ]أنت ترهق نفسك بتصميم الداتاجريدفيو بالكود

في الدوت نت عن تحديد الأداة ستجد سهم صغير
منه تستطيع تصميم الأداة مثل الأعمدة للداتاجريد مع تحديد اسم الحقل للعمود دون عناء كتابة كود التصميم

(29-12-17, 10:58 PM)عبد العزيز البسكري كتب : [ -> ]

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

# في البداية احب اني اعتزر عن تأخري في الرد علي حضرتك
خارج ارادتي ولله العلم

أرجو المعذرة أخي الغالي .. فعلاً أرهقتك معي لكن الله وحده يعلم أنّي أحاول بعشرات المرات قبل أن أطرح السؤال بالمنتدى
- # الله يوفقك استازنا الفاضل (والله نكون في غاية السعاده - فنحن لنا عظيم الاستفاده من اطروحاتكم الجميله فلا تبخلو علينا بالمزيد )

للأسف لا يتمّ الحفظ بقاعدة البيانات من جهة ()و لا تظهر بيانات السجل الذي تمّ حفظه فوريا على الداتا غريد من جهة ثانية و رسالتيْن من أجل الحفظ .. نوعا ما الأمر مزعج #( والله انما لتوضح الفكره لم اكن اريد ان اغير من بنية الاكواد  - وتركت الاكواد كما بنيتها حضرتك - وكنت علي عجله من امري)

وافر إحتراماتي

---

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

الحمد لله أخي الغالي " zinom " على المساعدة الطيّبة المثمرة

أدعو الله أن يمدّك بتمام الصحّة و العافية و راحة البال و يرزقك من حيث تحتسب و من حيث لا تحتسب

بفضل الله ثم بفضلك و بفضل إرشاداتك إهتديت للحل السليم بهذا الكود من جميلك سيّدي الكريم ..أرجو منك فضلا لا أمرا مراجعته لو سمحت لعلّ به خلل

كود :

     Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
        If MsgBox("هل تريد إضافة سجل جديد ؟ ", MsgBoxStyle.Exclamation + MsgBoxStyle.MsgBoxRight + MsgBoxStyle.OkCancel, "إضافة سجل جديد") = MsgBoxResult.Cancel Then Exit Sub
        Application.DoEvents()
        Dim InfoCommand As New OleDbCommand("SELECT max(ID) From INFOTABLE", con)
        If con.State = ConnectionState.Open Then con.Close()
        con.Open()
        If InfoCommand.ExecuteScalar Is DBNull.Value Then
            Call SetState("Add")
            InfoBookmark = InfoManager.Position
            InfoManager.AddNew()
            TextBox1.Text = 1
        Else
            Call SetState("Add")
            InfoBookmark = InfoManager.Position
            InfoManager.AddNew()
            TextBox1.Text = InfoCommand.ExecuteScalar + 1
        End If
    End Sub      

أكرّر شكري و احترامي و تقديري وامتناني لك أخي الكريم

إحتراماتي و تقييماتي
العفو استازنا الفاضل - عَمِلْتَ الكثير وما عَمِلْنَا إلا القليل
ماشاء الله الكود يعمل علي الوجه المرجو
وإن شاء الله - المثال المرفق يعمل بدون اخطاء كما ترجو حضرتك