[rochdi191]

السلام عليكم
رمضان كريم
انا جديد في عالم البرمحة بفيجوال بيسك
لم يعمل معي كود الاتصال بقاعدة البيانات و لا تحميل قاعدة البيانات
عند اصافة 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

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

[rochdi191]

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

[عبد العزيز البسكري]

كود :

  da = New OleDbDataAdapter("select * from table", Con)

[rochdi191]

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

[عبد العزيز البسكري]

قمت بتجربته قبل كتابته

يجب أن يكون لديك مجلّد باسم VB

تضع داخلة مجلد آخر باسم Add

و  كل هذا على القرص D

داخل المجلد Add تضع قاعدة البيانات

[ابراهيم ايبو]

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

كود :

da = New OleDbDataAdapter("select * from table", add)

والصواب ان تكون 

كود :

da = New OleDbDataAdapter("select * from table", con)

بقي شيء واحد وهو اسم الجدول الذي ستجلب منه البيانات انت كتبته table
تأكد من اسم الجدول لتكون جملة الاستعلام صحيحة

كود :

da = New OleDbDataAdapter("select * from اسم الجدول", con)

[rochdi191]

لم يتصل







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

[عبد العزيز البسكري]

ACCDB

[boudyonline]

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

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

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

[rochdi191]

(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

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