منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] عدم ظهور البيانات - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] عدم ظهور البيانات (/showthread.php?tid=41945)

الصفحات: 1 2

عدم ظهور البيانات - نهى علي - 19-07-22

السلام عليكم
السادة اعضاء المنتدى الكرام 
واجهتني مشكلة في عدم ظهور البيانات في الداتا كريد وهذا هو الكود الذي كتبته
علما بانني استخدم فيجوال 2010 وقاعدة البيانات اكسس 2010
ارجو المساعدة في ذلك
كود :
Imports System.Data.OleDb
Public Class Users






   Private Sub UserPasswordCheckBox_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UserPasswordCheckBox.CheckedChanged
       If UserPasswordCheckBox.Checked = True Then
           GroupBox3.Visible = True
       Else
           GroupBox3.Visible = False
       End If
   End Sub







   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       GroupBox3.Visible = False
       Load_Users()

       DataGridView1.DataSource = UsersDT
   End Sub
End Class

كود :
Module Connection_Lod
   Public Con As New OleDbConnection(Application.StartupPath & "\DatA\Super Market.accdb")
   Public UsersDT As New DataTable
   Public UsersDA As New OleDbDataAdapter
   Public MynewIDUsers As Integer
   Public Sub Load_Users()
       UsersDT.Clear()
       UsersDA = New OleDbDataAdapter("SLECT * form Users", Con)
       UsersDA.Fill(UsersDT)

   End Sub














End Module


RE: عدم ظهور البيانات - سعود - 19-07-22

PHP كود :
   Public Con As New OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\DatA\Super Market.accdb") 


RE: عدم ظهور البيانات - نهى علي - 19-07-22

(19-07-22, 12:37 PM)سعود كتب :
PHP كود :
   Public Con As New OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\DatA\Super Market.accdb") 

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

RE: عدم ظهور البيانات - سعود - 19-07-22

(19-07-22, 12:46 PM)نهى علي كتب :
(19-07-22, 12:37 PM)سعود كتب :
PHP كود :
   Public Con As New OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\DatA\Super Market.accdb") 

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

انا سويت مثال على السريع بنفس المعلومات vb2010 and office 2010 و تم بنجاح
بقي التسميات ان كان  فيه في الجدول اسماء جداول او اعمدة محجوزة فقد يكون هو السبب.
الاسماء المحجوزة مثل name user users  وغيرها

RE: عدم ظهور البيانات - نهى علي - 19-07-22

(19-07-22, 12:50 PM)سعود كتب :
(19-07-22, 12:46 PM)نهى علي كتب :
(19-07-22, 12:37 PM)سعود كتب :
PHP كود :
   Public Con As New OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\DatA\Super Market.accdb") 

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

انا سويت مثال على السريع بنفس المعلومات vb2010 and office 2010 و تم بنجاح
بقي التسميات ان كان  فيه في الجدول اسماء جداول او اعمدة محجوزة فقد يكون هو السبب.
الاسماء المحجوزة مثل name user users  وغيرها
سارفق لك الملف حتى تطلع عليه

RE: عدم ظهور البيانات - سعود - 19-07-22

في خطا في كلمة select لقيتها موجودة مكتوب slect

RE: عدم ظهور البيانات - نهى علي - 19-07-22

(19-07-22, 03:48 PM)سعود كتب : في خطا في كلمة select لقيتها موجودة مكتوب slect

لم تظهر النتائج في الداتا بعد تعديل ال select
لقد حيرني البرنامج
هل تستطيع أن تعمل لي مثال بسيط

RE: عدم ظهور البيانات - سعود - 19-07-22

(19-07-22, 09:33 PM)نهى علي كتب :
(19-07-22, 03:48 PM)سعود كتب : في خطا في كلمة select لقيتها موجودة مكتوب slect

لم تظهر النتائج في الداتا بعد تعديل ال select
لقد حيرني البرنامج
هل تستطيع أن تعمل لي مثال بسيط

لم افهم فكرة البرنامج للاسف هل يمكن وصف المطلوب لكي اقوم بالتعديل.

RE: عدم ظهور البيانات - ابراهيم ايبو - 19-07-22

السلام عليكم ورحمة الله وبركاته
اختي الكريمة
كان لديك 3 اخطاء
1 - كلمة Select   والصواب  Select
2 - كلمة Form  والصواب From
3 - يوجد سطر كود زيادة ووجوده خطأ وهو في هذه الميثود
كود :
Private Sub Users_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       '==============================
       'UsersDA.Fill(UsersDT) الغاء هذ السطر
       '================================
       GroupBox3.Visible = False
       Load_Users()

       DataGridView1.DataSource = UsersDT
   End Sub

اما لماذا لم تحمل البيانات فلان الجدول فارغ وقد سجلت فيه سجل واحد للتجربة
كما ان اسم الـ UserPasswordCheckBox ليس مطابق وهو UserPassword
بقي ملاحظة اخيرة  وهي اسم قاعدة البيانات لايفضل ان تكون من اسمين بينهم فراغ  Super Market.accdb ليكن الاسم هكذا Super_Market.accdb

RE: عدم ظهور البيانات - نهى علي - 19-07-22

شكرا لك استاذ ابراهيم لقد تم العمل بنجاح وفقك الله
كما اشكر الاستاذ سعود لمساعدته لي
وفقكم الله جميعا