مشکل تازهکار ها

[zarrin_306]

سلام من برای ذخیره دیکسری داده در دیتابیس اکسس به شیوه زیر عمل کردم:

Imports System.Data
Imports System.Data.OleDb


Dim ds As New DataSet()
Dim strsql As String
Dim strcon As String
Dim da As OleDbDataAdapter
Dim con As OleDbConnection
Dim newrow As DataRow
Dim cb As OleDbCommandBuilder



Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Put user code to initialize the page here

strcon = "Provider=microsoft.jet.OLEDB.4.0;DataSource=/inetpub/wwwroot/db/db1.mdb"
strsql = "select * from StTable"
con = New OleDbConnection(strcon)
con.Open()
da = New OleDbDataAdapter(strsql, con)
da.Fill(ds, "StTable")
'Me.OleDbDataAdapter1.Fill(Me.DataSet11, "StTable")
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
newrow = ds.Tables("StTable").NewRow
newrow("StNo") = Val(StNo.Text)
newrow("Name") = (Me.FirseName.Text)
newrow("Course") = (Me.Course.Text)
newrow("Ave") = Val(Me.Ave.Text)
newrow("NumUnit") = Val(Me.NumUnit.Text)

ds.Tables("StTable").Rows.Add(newrow)

cb = New OleDbCommandBuilder(da)
da.InsertCommand = cb.GetInsertCommand
da.Update(ds, "stTable")
con.Close()
StNo.Text = ""
Me.FirseName.Text = ""
Me.Course.Text = ""
Me.Ave.Text = ""
Me.NumUnit.Text = ""

End Sub

اما موقع اجرا با مشکل زیر مواجه میشه :

[Asad.Safari]

در رجیستری به مسیر HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Jet\4.0\Engi nes\Xbase بروید
روی win32 دابل کلیک کنید و بعد به اون مسیری که اونجا نوشته برید . باید این باشه : C:\WINDOWS\system32

برید و ببینید که این فایل در اونجا هست یا نه : Msxbde40.dll

اگر به نحوی مسیر مشکل داشت و یا اون فایل اونجا نبود با در ویندوز خود جستجو کنید و اون فایل رو پیدا کنید و بعد با دستور زیر اون رو رجیستر کنید :


Regsvr32 c:\winnt\system32\Msxbde40.dll


موفق باشید