09-04-14, 12:07 PM
شكرا لك اخي الكريم...
حاولت ان اتبع نفس الكود مع اجراء التعديل الملائم لكنني فشلت
علما اني استخدم اكسس 2000 وليس اكسس 2010 لا ادري انا كان ذلك يؤثر على الكود البرمجي
علما ان هذا هو الكود الذي اتبعته:
على علم ان الجدوليين هما (info, st-tb)
ارجو الاطلاع ان كان هناك اخطاء لم استطع اكتشافها.
شكرا جزيلا.
حاولت ان اتبع نفس الكود مع اجراء التعديل الملائم لكنني فشلت
علما اني استخدم اكسس 2000 وليس اكسس 2010 لا ادري انا كان ذلك يؤثر على الكود البرمجي
علما ان هذا هو الكود الذي اتبعته:
كود :
Imports System.Data
Imports System.Data.OleDb
Public Class basefrm
Dim constr As String = "provider=microsoft.jet.oledb.4.0;" & _
"Data Source=" & Application.StartupPath & "\wwtp.mdb"
Dim con As New OleDbConnection(constr)
Dim dataset1 As New DataSet
Dim dataset2 As New DataSet
Private Sub basefrm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
con.Open()
Dim dataadapter1 As New OleDbDataAdapter("select * from info", con)
dataset1.Clear()
infoview.DataSource = Nothing
dataadapter1.Fill(dataset1, "info")
Dim dataadapter2 As New OleDbDataAdapter("select * from st-tb", con)
dataset2.Clear()
stview.DataSource = Nothing
dataadapter2.Fill(dataset2, "st-tb")
con.Close()
infoview.DataSource = dataset1
infoview.DataMember = "info"
stview.DataSource = dataset2
stview.DataMember = "st-tb"
End Sub
End Classعلى علم ان الجدوليين هما (info, st-tb)
ارجو الاطلاع ان كان هناك اخطاء لم استطع اكتشافها.
شكرا جزيلا.
