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

السلام عليكم
رمضان كريم
انا جديد في عالم البرمحة بفيجوال بيسك
لم يعمل معي كود الاتصال بقاعدة البيانات و لا تحميل قاعدة البيانات
عند اصافة data source يكون الاتصال عادي
اما عند وصع الكود التالي لا تتصل
Imports System.Data.OleDb
Public Class Form1
    Dim con As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\vb\add\add.mdb")
    Dim da As New OleDbDataAdapter
    Dim dt As New DataTable

    Sub table_load()
        da = New OleDbDataAdapter("select * from table", add)
        da.Fill(dt)
        DataGridView1.DataSource = dt
    End Sub

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        table_load()
    End Sub
End Class

بارك الله فيكم

ارجوا منكم المساعدة وبارك الله فيكم

لم يجلب البيانات من قاعدة البيانات اكسس

السلام عليكم ورحمة الله وبركاته
اولا اتوجه بالشكر لاخي عبد العزيز على مساعدتك اخي الكريم لحل مشكلتك
ثانيا جملة الاتصال تأكد من مسار قاعدة البيانات
ثالثا لديك خطأ في جملة الاستعلام 
والصواب ان تكون 
بقي شيء واحد وهو اسم الجدول الذي ستجلب منه البيانات انت كتبته table
تأكد من اسم الجدول لتكون جملة الاستعلام صحيحة

لم يتصل







جربت لكن لم يشتغل

أولا : عدل جملة الاتصال
Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\VB\r5\r5.accdb")

فلا داعي لوجود علامة & في جملة الاتصال وكذلك المسافة الخالية

ثانيا : غير اسم الجدول الى Table1 أو Table2 ...... ولا تكتفي فقط بكلمة Table

(30-04-20, 04:04 AM)boudyonline كتب : [ -> ]أولا :  عدل جملة الاتصال
Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\VB\r5\r5.accdb")

فلا داعي لوجود علامة & في جملة الاتصال وكذلك المسافة الخالية

ثانيا : غير اسم الجدول الى Table1  أو Table2 ...... ولا تكتفي فقط بكلمة Table

بارك الله فيك اخي
تم تعديل وتمت العملية بنجاح
صح رمضانكم وصح لفطوركم
وربي يجزيكم ان شاء الله