تغییر آدرس دهی بانک از DNS به مسیر Debug

[saeed 444]

با سلام
من یک سورس کد air line گرفتم ولی متاسفانه به بانکش متصل نمیشه کد مسیر بانکش رو در زیر up کردم
ولی نتونستم مسیر اتصال رو عوض کنم فرمت بانک هم air line.accdb هست
که فکر میکنم اکسس 2007 هست در صورت امکان محبت فرمایید تغییرات رو اعمال کنید
با کمال تشکر


Imports System.Data.Odbc
Imports System

Public Class DatabaseFunctions

Shared con As OdbcConnection

Public Shared Sub CreateConnection()

con = New OdbcConnection
con.ConnectionString = "Dsn=air line"
con.Open()

End Sub

Private Shared Sub CheckConnection()

If con Is Nothing OrElse con.State = ConnectionState.Closed Then
CreateConnection()
End If

End Sub

Public Shared Function GetDataReader(ByVal SQL As String) As OdbcDataReader

CheckConnection()
Dim cmd As New OdbcCommand(SQL, con)
Dim dr As OdbcDataReader
dr = cmd.ExecuteReader
Return dr

End Function

Public Shared Function GetDataTable(ByVal SQL As String) As DataTable

CheckConnection()
Dim cmd As New OdbcCommand(SQL, con)
Dim table As New DataTable
Dim da As New OdbcDataAdapter(cmd)
da.Fill(table)
Return table

End Function

Public Shared Sub ExecuteQuery(ByVal SQL As String)

CheckConnection()
Dim cmd As New OdbcCommand(SQL, con)
cmd.ExecuteNonQuery()

End Sub
End Class