تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كود الاتصال بقواعد البيانات
#1
السلام عليكم

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

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

مع جزيل الشكر
الرد }}}}
تم الشكر بواسطة: oussama boultif
#2
بقي ان تسند datamember لشبيكة البيانات وهو اسم الجدول
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:
#3
كيف يكون ذلك
الرد }}}}
تم الشكر بواسطة:
#4
لا خلاص بما انك استخدمت datatable فيفترض ان تظهر البيانات.....
كنت اظنك تستخدم dataset
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:
#5
عدل على datasource ليكون فراغ بين الكلمتين data source
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:
#6
لايقبل التجزأة في الامر
الرد }}}}
تم الشكر بواسطة:
#7
.....

جرب التالي وعند ظهور رسالة ستعرف الخطأ
كود :
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

.....
الرد }}}}
تم الشكر بواسطة:
#8
عملت ماقلت وظهرت عندي هذه الرسالة ولم افهما ياليت تفيدني بما فيها مع جزيل الشكر

https://twitter.com/search?q=ybvg8kjzfc

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

هذا السؤال خاص بكيفية ارفاق الصورة في اضافة رد بالمنتدى وليس خاص ببرنامجي
الرد }}}}
تم الشكر بواسطة:
#10
اخي الكريم انت تحتاج الى داتاست 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()
تقبل تحياتي
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تغيير قاعدة البيانات الى .bak زيد زينوبي 3 36 أمس, 07:07 PM
آخر رد: ابراهيم النعيمي
  [سؤال] ايهما افضل في قواعد البيانات للتميم برنامج sal.softip 2 31 أمس, 06:59 PM
آخر رد: sal.softip
  قاعدة البيانات لا تدعم اللغة العربية ؟؟؟؟؟؟ صبري زينوبي 13 188 أمس, 04:47 PM
آخر رد: صبري زينوبي
  تغيير قاعدة البيانات من اكسس الى sql hglogtd 2 95 26-11-16, 03:03 AM
آخر رد: hglogtd
  [سؤال] ايهما افضل من جهة امن البيانات thevirus 2 83 24-11-16, 12:14 PM
آخر رد: thevirus
  [كود] الحذف من قاعدة البيانات بواسطة كلمة سر المبرمج العبقري 5 117 23-11-16, 05:21 PM
آخر رد: hglogtd
  [VB.NET] الاتصال بقاعدة البيانات في التقارير (الكريستال ريبورت) thevirus 2 79 23-11-16, 11:05 AM
آخر رد: thevirus
  [SQL] مشكلة عند الاتصال بالسيكوال سيرفر تظهر الرسالة التالية Asmaa adel 8 178 21-11-16, 11:58 PM
آخر رد: Asmaa adel
  مساعدة في عرض البيانات في التقرير haiderkh 1 70 21-11-16, 11:24 PM
آخر رد: السرور
  طلب كود لحذف جميع البيانات من الجدول haiderkh 4 115 21-11-16, 07:11 PM
آخر رد: haiderkh

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم