عملت الكود ولم يشتغل
المشكلة هذه مع اكثر من بروجكت عملتهم للتجربه
اتوقع احتمال من نفس برنامج الفيجوال بيسك انه غير مكتمل
ارجو ممن لديه رابط لتحميل برنامج فيجوال بيسك 2010 مكتمل يرفقه مع جزيل الشكر
.....
مشكلتك كانت بنقص مسافة واحدة
الخطأ لديك في كلمة "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
إن لم يكن لديك، (على الأقل) قم بتركيب محرك قاعدة البيانات التالي
Microsoft Access Database Engine 2010 Redistributable
جرب المثال المرفق في المشاركة التالية
وضع الصلاحيات vb وربطها بقاعدة بيانات اكسس #4
.....
أي خطا إملائي في جملة الاتصال يسبب هذه الرسالة
قابل للتثبيت isam تعذر العثور على
السلام عليكم و رحمة الله و بركاته
أخوتي الأكارم
وقعت بنفس الخطأ و قمت بتنفيذ ماورد من الاخ aladein
ولكن ظهرت لي مشكلة جديدة
يتعذّر على مشغّل قاعدة بيانات Microsoft Access العثور على جدول الإدخال أو الاستعلام 'Family'. تأكد من وجوده ومن صحة إملاء اسمه.
(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")