تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ماهي المشكله بلكود
#1
Imports System.Data.OleDb
Imports Toast_Notification
Imports Bunifu.Framework
Public Class Form13

    Dim con As New OleDbConnection("provider=microsoft.ACE.OLEDB.12.0; data source=database.accdb")
    Dim da As New OleDbDataAdapter()
    Dim dt As New DataTable
    Dim table As New DataTable
    Sub load_date()


        Dim cmd As New OleDbCommand("SELECT [رقم الايدي], m, [تاريخ تعين الدرس], [الساعه], [عدد الدروس], [حضور/غياب] FROM table2 WHERE m=@m ", con)

        cmd.Parameters.Add(New OleDbParameter("@m", OleDbType.VarChar)).Value = Label1.Text
        Dim adapter1 As New OleDbDataAdapter(cmd)
        Dim table As New DataTable
        adapter1.Fill(table)

    End Sub
    Sub save_date()
        Dim save As New OleDbCommandBuilder(da)
        save.QuotePrefix = "["
        save.QuoteSuffix = "]"
        da.Update(dt)
        dt.AcceptChanges()
    End Sub
    Private Sub Form13_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        load_date()
        DataGridView1.DataSource = table
    End Sub
End Class

لا يوجد اخطاء ولاكن لا يضهر البيانات في الداتا جريد فيو جربت الكود بلاكسيس وزبط الاكسيس بطلب من اكتب الاسم

هذه صور اخرى


الملفات المرفقة صورة/صور
           
الرد }}}
تم الشكر بواسطة:
#2
مرحباً اخى mostafa12

الخطاء بهذا السطر
كود :
cmd.Parameters.Add(New OleDbParameter("@m", OleDbType.VarChar)).Value = Label1.Text

حيث انك تقوم بتعبئة قيمة m بـ Label1.Text واللى قيمتها فى الصورة هى 11aaa
القيم التى تتواجد بقواعد البيانات 111 فطبيعي يكون الداتا جريد فارغ لكونه
لم يحصل على قيمة بـ 11aaa 

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

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


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
تم الشكر بواسطة: mostafa12 , جميل علي
#3
لا اخي جرت 111

هو الجدول معبى ويوجد فيه 11aaa

lable ياخذ القيمه من الداتا جريد فيو

شوف اخى الكريم بكل سهولة تعال فى الشاشة خاصة الداتا جريد الاولى
واجعل الاستعلام بهذا الشكل

SELECT Max(myid) AS Fid, myname, Max(mydate) AS Fdate, Max(mytime) AS Ftime, Max(mypres) AS Fpres FROM test GROUP BY myname

ناتى الان لعرض الداتا جريد الثانية
كل الامر ستجعل الاستعلام بهذا الشكل
SELECT myid, myname, mydate, mytime, mypres FROM test WHERE myname = "11"

طبعاً استبدل رقم 11 بقيمة الاسم من السطر المحدد ومع مراعاه تغيير المسميات لما هى لديك
وبكده تكون عملت عدم تكرار للدروس فى الداتا جريد الاولى
وفى الداتا جريد الثانية قمت بعرض جميع الدورس للاسم الواحد

تحياتى لك
طبقت ما قلته لي زالاستعلام الاول شغال لاكن الثاني لايضهر البيانات

هذه صور اخرى

وهذه صور اخرى


الملفات المرفقة صورة/صور
       
الرد }}}
تم الشكر بواسطة:
#4
ارفق المشروع الذى لديك
حتى يتم الاطلاع عليه ومراجعته ومعرفة اين تقع المشكلة
وسيتم افادتك بما المشكلة فى المشروع بعد مراجعته

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

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


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
تم الشكر بواسطة:
#5
لا يمكنني تحميله كامل لاتوجد مساحه كافيه هل يمكنني رفع فورم1

ثواني سوف احاول

هاذا هو المشروع

لقد قمت بحذف اشياء كثيره لاستطيع تحميله بلفورم 5 اضغط دبل كليك على الرو ويفتح فورم8 هنا المشكله


الملفات المرفقة
.rar   WindowsApplication1.rar (الحجم : 1.09 م ب / التحميلات : 14)
الرد }}}
تم الشكر بواسطة:
#6
تعال على هذا الكود فى الفوم 8 لديك
كود :
   Sub load_date()


       Dim cmd As New OleDbCommand("SELECT [رقم الايدي], m, [تاريخ تعين الدرس], [الساعه], [عدد الدروس], [حضور/غياب] FROM table2 WHERE m=@m ", con)

       cmd.Parameters.Add(New OleDbParameter("@m", OleDbType.VarChar)).Value = Label1.Text
       Dim adapter1 As New OleDbDataAdapter(cmd)
       Dim table As New DataTable
       adapter1.Fill(table)

   End Sub

استبدله بهذا الكود
كود :
   Function load_date()
       Dim cmd As New OleDbCommand("SELECT [رقم الايدي], m, [تاريخ تعين الدرس], [الساعه], [عدد الدروس], [حضور/غياب] FROM table2 WHERE m=@m ", con)
       cmd.Parameters.Add(New OleDbParameter("@m", OleDbType.VarChar)).Value = Label1.Text
       Dim adapter1 As New OleDbDataAdapter(cmd)
       Dim table As New DataTable
       adapter1.Fill(table)
       Return table
   End Function

تعال ايضاً على هذا الكود فى الفورم 8
كود :
       load_date()
       DataGridView1.DataSource = table

استبدله بهذا الكود
كود :
       DataGridView1.DataSource = load_date()
       DataGridView1.Refresh()

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

النتيجة

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

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


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
تم الشكر بواسطة: baha
#7
شكرا لك اخي
الرد }}}
تم الشكر بواسطة:
#8
الشكر لله والحمد لله
والحمد لله على كل حال

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

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


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
تم الشكر بواسطة: mostafa12


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ماهي طريقة نقل محتويات checkedlistbox الى داتاقريدفيو صالح عبدالله 3 253 06-01-24, 03:20 PM
آخر رد: Kamil
  [VB.NET] ماهي الارقام الصحيحة من نوع Integer فطومة 1 387 03-06-23, 08:48 PM
آخر رد: Taha Okla
  [سؤال] ماهي اشهر مواقع لبيع نظام ERP في العالم ؟ ahmed_king2023 0 366 24-05-23, 10:10 PM
آخر رد: ahmed_king2023
  [VB.NET] ماهي overload LoveVb 4 2,413 06-03-23, 11:16 AM
آخر رد: زياد جلال محمد جلال
  ماهي طريقة انشاء hash invoice بطريقة اوتوماتيكية malsofi 0 348 04-12-22, 11:49 AM
آخر رد: malsofi
  [سؤال] ماهي فائدة ال class scluay 5 9,804 25-11-22, 03:21 PM
آخر رد: مهندس ابوبكر
  لو سمحت الا المشكله هنا حماده ممدوح البحيرى 2 470 17-11-22, 12:31 PM
آخر رد: aliday03
  ماهي معادلة تقسيم شيء ما سعود 16 1,476 26-08-22, 06:31 AM
آخر رد: سعود
  ماهي طريقة عمل download لصورة من قاعدة البيانات sql إلى سطح المكتب ؟ جيولوجي مبتدئ 2 833 19-08-22, 10:53 PM
آخر رد: جيولوجي مبتدئ
  ماهي طريقة تحويل الصور إلى pdf ؟ جيولوجي مبتدئ 6 1,217 30-07-22, 02:24 AM
آخر رد: جيولوجي مبتدئ

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


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