سلام
من می خام به یک بانک اکسس که پسورد دارد وصل بشم
در ضمن می خام از این دستورات استفاده کنم
dim db as database
Set db = OpenDatabase("database\database_name.mdb",)
لطفا کمکم کنید
Printable View
سلام
من می خام به یک بانک اکسس که پسورد دارد وصل بشم
در ضمن می خام از این دستورات استفاده کنم
dim db as database
Set db = OpenDatabase("database\database_name.mdb",)
لطفا کمکم کنید
کد:DAO
Sub DAOOpenDBPasswordDatabase()
Dim db As DAO.Database
Set db = DBEngine.OpenDatabase _
(".\NorthWind.mdb", False, False, _
";pwd=password")
db.Close
End Sub
ADO
Sub ADOOpenDBPasswordDatabase()
Dim cnn As New ADODB.Connection
cnn.Open "Provider=" & _
"Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=.\NorthWind.mdb;" & _
"Jet OLEDB:Database Password=" & _
"password;"
cnn.Close
End Sub
ممنون از راهنمائیتون
من يه بانك اكسس2003 دارم آيا مي شه با وي بي6 به اون متصل بشوم ؟
بله چرا که نه, شما حتی می تونی با وی بی به بانکهای اطلاعاتی غیر اکسس هم متصل بشینقل قول:
با سلام
بايد ServicePack 6 را براي Vb نصب كني
چیرو باید نصب کن عزیزنقل قول:
پست الکی ندیدنقل قول:
با سلام
بايد ServicePack 6 را براي Vb نصب كني
با سلام
من خيلي دير به دير ميام . نه ؟؟؟
پست قبلي بنده الكي نبود
براي استفاده از بانكهاي اطلاعاتي كه نگارش بالاتري از VB6 دارند ( مثلا Access2003 يا ... كه بعد از VB6 متولد شده اند )
لازم است تا ServicePack6 را براي VB6 نصب كنيد تا Provider مربوط به آنها را در VB داشته باشيد و بتوانيد متصل شويد
اگر اطلاع نداريد تهمت نزنيد