Hadiir.net
چهارشنبه 29 خرداد 1387, 17:39 عصر
من معمولا برای یجاد کانکشن از دستور زیر به صورت کد استفاده میکنم و همیشه فایل دیتا بیس و کنار برنامه و در پوشه خود برنامه قرار میدم .
Module Module_Conn
Public WithEvents Rs_Data As ADODB.Recordset
Public Function Conn_Data() As Boolean
Conn_Data = False
Dim db As New ADODB.Connection
db.CursorLocation = ADODB.CursorLocationEnum.adUseClient
db.Open("PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=data.mdb;Jet OLEDB:Database Password=009155072939;")
Rs_Data = New ADODB.Recordset
Rs_Data.Open("select * from Reg", db, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockOptimistic)
Conn_Data = True
End Function
End Module
حالا میخوام این فایل دیتابیس رو در محل دیگه ای قرار بدم .چه تغییری باید به این دستور بدم؟
تشکر.
Module Module_Conn
Public WithEvents Rs_Data As ADODB.Recordset
Public Function Conn_Data() As Boolean
Conn_Data = False
Dim db As New ADODB.Connection
db.CursorLocation = ADODB.CursorLocationEnum.adUseClient
db.Open("PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=data.mdb;Jet OLEDB:Database Password=009155072939;")
Rs_Data = New ADODB.Recordset
Rs_Data.Open("select * from Reg", db, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockOptimistic)
Conn_Data = True
End Function
End Module
حالا میخوام این فایل دیتابیس رو در محل دیگه ای قرار بدم .چه تغییری باید به این دستور بدم؟
تشکر.