VisualStudio
جمعه 08 تیر 1386, 18:14 عصر
من می خوام که مقدار یک فیلد از دیتابیسم در یک Label نمایش داده بشه من از کد زیر استفاده می کنم اما این Error را می ده
PrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
Dim AppPath AsString
AppPath = System.IO.Directory.GetCurrentDirectory &
"\db.mdb"
StrCon =
"Provider=microsoft.jet.oledb.4.0; data source=" & AppPath
EndSub
PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'----------------------------------------------------
Dim dbConn As OleDbConnection
Dim dbCommand AsNew OleDbCommand()
dbConn = New OleDbConnection(StrCon)
dbCommand.CommandText = "Select FName From Employee WHERE FName = ISRAEL"
dbCommand.Connection = dbConn
dbConn.Open()
Dim dbDR As OleDb.OleDbDataReader = dbCommand.ExecuteReader
While dbDR.Read
Label1.Text = dbDR("FName".ToString)
EndWhile
dbConn.Close()
EndSub
PrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
Dim AppPath AsString
AppPath = System.IO.Directory.GetCurrentDirectory &
"\db.mdb"
StrCon =
"Provider=microsoft.jet.oledb.4.0; data source=" & AppPath
EndSub
PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'----------------------------------------------------
Dim dbConn As OleDbConnection
Dim dbCommand AsNew OleDbCommand()
dbConn = New OleDbConnection(StrCon)
dbCommand.CommandText = "Select FName From Employee WHERE FName = ISRAEL"
dbCommand.Connection = dbConn
dbConn.Open()
Dim dbDR As OleDb.OleDbDataReader = dbCommand.ExecuteReader
While dbDR.Read
Label1.Text = dbDR("FName".ToString)
EndWhile
dbConn.Close()
EndSub