Коннект к базе 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

13   голосов , оценка 4 из 5