المشاركات : 24
المواضيع 7
الإنتساب : Sep 2014
السمعة :
0
الشكر: 0
تم شكره 3 مرات في 3 مشاركات
السلام عليكم
اواجه مشكلة في كود اتصال برنامج الفيجوال بيسك 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
ارجو الاطلاع وافادتي عن الخلل بالكود
مع جزيل الشكر
المشاركات : 7,394
المواضيع 803
الإنتساب : Sep 2013
السمعة :
847
الشكر: 13249
تم شكره 18797 مرات في 4415 مشاركات
بقي ان تسند datamember لشبيكة البيانات وهو اسم الجدول
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء، اللهم أصلح لي ديني الذي هو عصمة أمري، وأصلح لي دنياي التي فيها معاشي، وأصلح لي آخرتي التي فيها معادي، واجعل الحياة زيادة لي في كل خير، واجعل الموت راحة لي من كل شر
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي جدي وهزلي وخطأي وعمدي وكل ذلك عندي، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
المشاركات : 7,394
المواضيع 803
الإنتساب : Sep 2013
السمعة :
847
الشكر: 13249
تم شكره 18797 مرات في 4415 مشاركات
لا خلاص بما انك استخدمت datatable فيفترض ان تظهر البيانات.....
كنت اظنك تستخدم dataset
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء، اللهم أصلح لي ديني الذي هو عصمة أمري، وأصلح لي دنياي التي فيها معاشي، وأصلح لي آخرتي التي فيها معادي، واجعل الحياة زيادة لي في كل خير، واجعل الموت راحة لي من كل شر
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي جدي وهزلي وخطأي وعمدي وكل ذلك عندي، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
المشاركات : 7,394
المواضيع 803
الإنتساب : Sep 2013
السمعة :
847
الشكر: 13249
تم شكره 18797 مرات في 4415 مشاركات
عدل على datasource ليكون فراغ بين الكلمتين data source
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء، اللهم أصلح لي ديني الذي هو عصمة أمري، وأصلح لي دنياي التي فيها معاشي، وأصلح لي آخرتي التي فيها معادي، واجعل الحياة زيادة لي في كل خير، واجعل الموت راحة لي من كل شر
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي جدي وهزلي وخطأي وعمدي وكل ذلك عندي، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
المشاركات : 24
المواضيع 7
الإنتساب : Sep 2014
السمعة :
0
الشكر: 0
تم شكره 3 مرات في 3 مشاركات
تحية وبعد كيف يمكنني ارفاق صورة الخطأ من جهازي مباشرة بدون رابط أو كيف اعمل رابط لصورة في جهازي مع الشكر
هذا السؤال خاص بكيفية ارفاق الصورة في اضافة رد بالمنتدى وليس خاص ببرنامجي
المشاركات : 13
المواضيع 0
الإنتساب : Jan 2014
السمعة :
0
الشكر: 0
تم شكره 2 مرات في 2 مشاركات
اخي الكريم انت تحتاج الى داتاست dataset لا يمكن تمرير البيانات الى الداتاجريد فيو بدونها
Dim conn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Application.StartupPath + "\mydata.mdb"
Dim dbconn As New OleDbConnection(conn)
Dim dataset1 As New DataSet
في حدث تحميل الفورم
dbconn.Open()
Dim s As String
s = "select * from inform "
Dim dbadapt As New OleDbDataAdapter(s, dbconn)
Dim dset As New DataSet
dbadapt.Fill(dset)
DataGridView1.DataSource = dset.Tables(0)
dbconn.Close()
تقبل تحياتي