MS Access 2003

Работа VB и СУБД (Access, MSSQL, MySQL, Oracle и пр.)
Правила форума
При создании новой темы не забывайте указывать используемую СУБД.
VolkovAlexander
Начинающий
Начинающий
 
Сообщения: 22
Зарегистрирован: 16.08.2005 (Вт) 13:08
Откуда: Нижний Новгород

MS Access 2003

Сообщение VolkovAlexander » 24.01.2006 (Вт) 0:14

Здравствуйте! У меня на компе стоит MS Access 2003...Решил изучить работу с БД, но VB никак не может подключиться к базе, созданной в Access. В чем может быть проблема? Или просто нужно более раннюю версию Accsess??? Никто исходничком хоть махоньким не поможет? Буду очень признателен ;)

alibek
Большой Человек
Большой Человек
 
Сообщения: 14205
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

Сообщение alibek » 24.01.2006 (Вт) 8:25

SP6 поставь. И используй провайдера Jet.4.
Lasciate ogni speranza, voi ch'entrate.

shady
Постоялец
Постоялец
 
Сообщения: 461
Зарегистрирован: 09.11.2005 (Ср) 11:03

Сообщение shady » 24.01.2006 (Вт) 9:19

я вот так подключаюсь...
Код: Выделить всё
Public conn As ADODB.Connection

Public Sub conect()
    Set conn = New ADODB.Connection
    conn.CursorLocation = adUseClient
    conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\base.mdb;Mode=ReadWrite|Share Deny None;Persist Security Info=False"
End Sub

Konst_One
Член-корреспондент академии VBStreets
Член-корреспондент академии VBStreets
Аватара пользователя
 
Сообщения: 3041
Зарегистрирован: 09.04.2004 (Пт) 13:47
Откуда: Химки

Сообщение Konst_One » 24.01.2006 (Вт) 12:00

Код: Выделить всё
Public conn As ADODB.Connection

Public Sub conect()
On Error Goto Err_Debug

    Set conn = New ADODB.Connection
    conn.CursorLocation = adUseClient
    conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\base.mdb;Persist Security Info=False"

    if conn.State=1 then
        Msgbox "Подключились!"
    end if

lb_out:
    exit sub
Err_Debug:
   Msgbox Err.Number & ": " & Err.Description, vbCritical
   Set conn=Nothing
   Resume lb_out

End Sub
[/syntax]

VolkovAlexander
Начинающий
Начинающий
 
Сообщения: 22
Зарегистрирован: 16.08.2005 (Вт) 13:08
Откуда: Нижний Новгород

Сообщение VolkovAlexander » 26.01.2006 (Чт) 22:58

Я разместил на форме элемент Data, завязал с ним элемент DBGrid. написал следующий код:
Код: Выделить всё
Private Sub Form_Load()
With Data1
    .DatabaseName = "D:\base.mdb"
    .RecordSource = scheta
End With
End Sub


Но при запуске программы VB ругаются следующим образом: "Unrecognized database format"...Типа не распознает? Ну я в Accesse 2003ем все делал.
Пожалуйста, подскажите, что делать.


Вернуться в Базы данных

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 2

    TopList  
cron