Коннект к базе AccessXP - VB
Формулировка задачи:
Имеется офис XP и VB 6.0 При попытке приконнектиться к базе через Jet, получаю 'Unrecognized data base format'. Что делать? Подскажите пожалуйста, не дайте умереть в невежестве!
Решение задачи: «Коннект к базе AccessXP»
textual
Листинг программы
Public dbFileName$ 'Путь к ивоей .mdb Public Conn As Connection 'Во время старта программы сначала присваиваешь путь к базе 'переменной dbFileName$, а потом просто вызываешь процедуру ' Call DB_CONNECT() 'При завершении работы закрываешь соединение с базой вызвав 'процедуру Call TERMINATE_DB_CONNECT() 'В модуле 'Open Connection DB Public Sub DB_CONNECT() On Error GoTo ErrD Set Conn = New Connection Conn.ConnectionTimeout = 30 Conn.ConnectionString = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' & dbFileName & ';Mode=ReadWrite|Share Deny None;Persist Security Info=False;Jet OLEDB:Database Password=superpassword' Conn.Open Exit Sub ErrD: MsgBox 'Error Open Connections: ' & Err.Number & ' : ' & Err.Description Resume Next End Sub 'Terminate Connection Public Sub TERMINATE_DB_CONNECT() On Error GoTo ErrD If Not Conn Is Nothing Then Set Conn = Nothing End If Exit Sub ErrD: MsgBox 'Error Close Connections: ' & Err.Number & ' : ' & Err.Description Resume Next End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д