[amsasa]

عملت الكود ولم يشتغل
المشكلة هذه مع اكثر من بروجكت عملتهم للتجربه

اتوقع احتمال من نفس برنامج الفيجوال بيسك انه غير مكتمل
ارجو ممن لديه رابط لتحميل برنامج فيجوال بيسك 2010 مكتمل يرفقه مع جزيل الشكر

[vbnet]

.....

مشكلتك كانت بنقص مسافة واحدة
الخطأ لديك في كلمة "datasource" والصحيح أنها كلمتين بينهما مسافة "data source"

الكود مجرب ويعمل

كود :

Imports System.Data.OleDb

Public Class Form1

    Public con1 As New OleDbConnection(" Provider= Microsoft.ACE.OLEDB.12.0; Data Source= |DataDirectory|\dareenpark.accdb ")
    Public da As New OleDbDataAdapter
    Public dt As New DataTable

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try

            da = New OleDbDataAdapter(" select * from table1", con1)
            da.Fill(dt)
            dgv.DataSource = dt

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

End Class

إذا استمرت المشاكل تأكد من أن لديك أوفيس 2007 أو أحدث
إن لم يكن لديك، (على الأقل) قم بتركيب محرك قاعدة البيانات التالي
Microsoft Access Database Engine 2010 Redistributable



جرب المثال المرفق في المشاركة التالية

وضع الصلاحيات vb وربطها بقاعدة بيانات اكسس #4

.....

[سعود]

أي خطا إملائي في جملة الاتصال يسبب هذه الرسالة
قابل للتثبيت isam تعذر العثور على

[osama.okn]

السلام عليكم و رحمة الله و بركاته
أخوتي الأكارم
وقعت بنفس الخطأ و قمت بتنفيذ ماورد من الاخ aladein
ولكن ظهرت لي مشكلة جديدة
يتعذّر على مشغّل قاعدة بيانات Microsoft Access العثور على جدول الإدخال أو الاستعلام 'Family'. تأكد من وجوده ومن صحة إملاء اسمه.

[ghaner joseph]

(16-09-14, 01:47 AM)amsasa كتب : السلام عليكم

اواجه مشكلة في كود اتصال برنامج الفيجوال بيسك 2010 مع قاعدة بيانات بالاكسس 2010 وهي اني عملت قاعة بيانات واسميتها dareenpark وعملت بها جدول واسميته table1  وقمت بتعبئته بالبيانات وانشأت بالفيجوال form1 واضفت له داتا قرد فيو واسميتها dgv  ولكن عند تنفيذ الكود لاتتعبأ الدات بالبيانات

هذا هو الكود

Imports System.Data.OleDb


Public Class Form1

   Public con1 As New OleDbConnection("provider=microsoft.ace.oledb.12.0;" & " datasource=" & Application.StartupPath & "\dareenpark.accdb")
   Public da As New OleDbDataAdapter
   Public dt As New DataTable

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       da = New OleDbDataAdapter(" select * from table1", con1)
       da.Fill(dt)
       dgv.DataSource = dt
   End Sub
End Class

ارجو الاطلاع وافادتي عن الخلل بالكود

مع جزيل الشكر

---

Imports system.Data.oleDb
لتعريف المتغيرات التي سنتعامل معه في قواعد البيانات
Dim conn AS New OleDb connection ("provider=msdaora;user id =scott;password=tiger")
Dim db1 AS New oleDbdataAdapter
Dim db2 AS New oleDbCommand
Dim dset1 AS New Dataset
لي استعراض الجدول dapt من قاعدة البيانات
Conn .open()
db1=New oleDbDataAdapter("select * from dapt",conn
db1.fill(dset1,"dapt1")
conn.close()
dg.DataSouree=dset1
dg.DataMember="dapt1"
t1.DataBindings.Add("text",dset1,"dapt.daptno")