معادل دستور sql در بانک اکسس

[IranVisual]

من از این دستور برای بانک sql استفاه میکردم معادل این دستور رو برای بانک اکسس میخوام

Dim o As New SqlCommand
o.Connection = Coon
o.CommandText = "select max(FildName) from TableName"
Coon.Open()
Dim max As Object = o.ExecuteScalar
If max Is DBNull.Value Then
max = 0
End If
Coon.Close()

[sepide1]

من از این دستور برای بانک sql استفاه میکردم معادل این دستور رو برای بانک اکسس میخوام

Dim o As New SqlCommand
o.Connection = Coon
o.CommandText = "select max(FildName) from TableName"
Coon.Open()
Dim max As Object = o.ExecuteScalar
If max Is DBNull.Value Then
max = 0
End If
Coon.Close()
شما می تونید براحتی همین کدتونا عوض کنید فقط کافی است شما هر جایی Sql نوشتید را تبدیل به OleDb کنید
در ضمن خط زیر فراموش نشه


Imports System.Data.OleDb

[sepide1]

به عنوان مثال به جای SqlCommand بنویس oledbCommand

[IranVisual]

من این کار رو انجام دادم اما پیغام میده

[sepide1]

آخه چه پیغامی میده ؟

[sepide1]

Imports System.Data
Imports System.Data.OleDb

بعد اگه اشتباه نکنم (آخه من c# بلدم)


Dim con AsNew OleDbConnection
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Server.MapPath("Namebank.mdb") + ";User Id=Admin"