alone boy.dhl
سه شنبه 13 دی 1390, 12:01 عصر
درود
نمیدونم چرا این کد رو که از سایتهای خارجی گرفتم برای اونا خوب کار میکرده اما برای من 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" اشکال داره
ممنون میشم کمک کنید و بگید چیکار باید بکنم
نمیدونم چرا این کد رو که از سایتهای خارجی گرفتم برای اونا خوب کار میکرده اما برای من 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" اشکال داره
ممنون میشم کمک کنید و بگید چیکار باید بکنم