saeed 444
چهارشنبه 02 اسفند 1391, 21:54 عصر
با سلام
من یک سورس کد 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
من یک سورس کد 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