مشکل با دیتابیس

[alone boy.dhl]

درود
نمیدونم چرا این کد رو که از سایتهای خارجی گرفتم برای اونا خوب کار میکرده اما برای من error میده ؟
کد اینه :
Dim usern As String


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim con As OleDb.OleDbConnection
con = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\dbtest\WindowsApplication1\db.accdb;")
con.Open()
Using Cmd As New OleDb.OleDbCommand("SELECT UN FROM Loinfo", con)
Dim DR As OleDb.OleDbDataReader = Cmd.ExecuteReader
If DR.Read Then
usern = DR("UN").ToString
End If
DR.Close()
End Using
con.Close()
label1.text = usern
End Sub
وقتی ران میکنم با کلیک بر روی button1 نشون میده که کده "con.open" اشکال داره
ممنون میشم کمک کنید و بگید چیکار باید بکنم

[Hybrid]

سلام ،

ببین این خط کد رو در بالای Code Editor وارد کردین؟؟؟


Imports System.Data.OleDb

[alone boy.dhl]

آره اما باز هم از روی خط "con.open" گیر میکنه (Eroor میده)

[M.KH-SH]

دوست برای راحت شدن کاره شما کامپوننت زیر رو میتونی دانلود کنی و به پروژه اضافه کنی و دیگه کدنویسی برای بانک انجام ندی
http://barnamenevis.org/showthread.php?321150-%DA%A9%D8%A7%D9%85%D9%BE%D9%88%D9%86%D9%86%D8%AA-%D8%A7%D8%AA%D8%B5%D8%A7%D9%84-%D8%A8%D9%87-%D8%A8%D8%A7%D9%86%DA%A9-%D9%88-%DA%A9%D8%AF%D9%86%D9%88%DB%8C%D8%B3%DB%8C-%DA%A9%D9%88%D8%AA%D8%A7%D9%87-%D8%A8%D9%87-%D9%87%D9%85%D8%B1%D8%A7%D9%87-%D9%BE%D8%B1%D9%88%DA%98%D9%87-%D8%A2%D9%85%D9%88%D8%B2%D8%B4%DB%8C-%D8%AF%D9%81%D8%AA%D8%B1-%D8%AA%D9%84%D9%81%D9%86-%D9%85%D8%AE%D8%AA%D8%B5%D8%B1

[meisam3322]

با سلام، دوست من پسوند فایل بانک خودتون رو به *.mdb تغییر بدین، ببینین مشکلتون حل میشه ؟ اگه نه که لطف کنین پیغام خطا را بزارین.

برای آدرس دهی بانک هم از این دستور استفاده کن ، فرض کن بانک داخل پوشه db در کنار فایل exe برنامه شما هست :




con = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source==Application.StartupPath" & "\db\db.mdb")