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

الصفحات : 1 2

السلام عليكم
السادة اعضاء المنتدى الكرام
واجهتني مشكلة في عدم ظهور البيانات في الداتا كريد وهذا هو الكود الذي كتبته
علما بانني استخدم فيجوال 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

PHP كود :

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

(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")

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

(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 وغيرها

(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 وغيرها

سارفق لك الملف حتى تطلع عليه

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

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

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

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

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

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

السلام عليكم ورحمة الله وبركاته
اختي الكريمة
كان لديك 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

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

الصفحات : 1 2