Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > VB6 > Неможете помочь мне разобратся, как работать с БД.


Автор: Shoblin 23.9.2007, 01:48
Неможете помочь мне разобратся, как работать с БД.
 
Код


(General) (Declarations)
Private cn As adodb.Connection 
Private rs As adodb.Recordset

Private Sub Command1_Сlick()
Dim rc As String 'код возврата
Dim cmd As String, sql As String
Dim cn As adodb.Connection, rs As adodb.Recordset
' создать строку подключения
cmd = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security _
Info=False;Data Source=A:\db1.mdb"
' установить соединение с базой данных
Set cn = New adodb.Connection
cn.ConnectionString = cmd
cn.Open
sql = "select * from Таble1" ' создать запрос
Set rs = New adodb.Recordset ' открыть набор записей
rs.Open sql, cn, adOpenDynamic, adLockOptimistic
' проверка, действительно ли пользователь
' хочет добавить данные
rc = MsgBox("Add ?", vbYesNo + vbQuestion, "Add !")
If rc = 6 Then
' процесс добавления данных 
rs.AddNew: rs("Name") = txtName
rs("Vorname") = txtVorname
rs("Vatersn") = txtVatersn
rs("Gebdat") = txtGebdat
rs("Nummer") = txtNummer
rs.Update
End If
rs.Close: Set rs = Nothing
cn.Close
Set cn = Nothing
' вывод сообщения о добавлении записи в БД
MsgBox "Введенная вами запись добавлена в базу данных!",_ vbOKOnly, "Успешное добавление!"
End Sub

и он мне выдает все врея одну и туже ощибку
Unrecodnized database format
П.С. Фаел БД создан на Акссесе Хп. Кажется...

Автор: Akina 23.9.2007, 11:34
Верен ли путь к базе данных?
Точно ли НЕ требуется указания имени пользователя и пароля?
Точно ли используется именно версия 3.51 библиотеки?

Попробуйте построить Connection String, используя Data Connection Wizard.
Перенесите БД на жесткий диск.

Автор: Shoblin 23.9.2007, 21:46
1.Путь верен...
2. Не требует пароля...
3. А как узнать??? Всетаки офис 2002

Где искать Data Connection Wizard

Автор: Akina 23.9.2007, 22:18
Цитата(Shoblin @  23.9.2007,  22:46 Найти цитируемый пост)
А как узнать??? 

В референсы посмотреть

Цитата(Shoblin @  23.9.2007,  22:46 Найти цитируемый пост)
Где искать Data Connection Wizard 

В меню надстроек.

Автор: Shoblin 23.9.2007, 23:21
По референсам вопрос: А что надо сделать, что бі в референсах появился Microsoft.Jet.OLEDB.4.0???

Автор: Shoblin 23.9.2007, 23:59
Спасибо, Акина... Сам разобрался 8))) С твоей помощью... Оказывается... он хотел, что бы я прописал в коде версию 4.0. Только не могу понять, почему 4.0. в референсах нету...
 

Автор: Akina 24.9.2007, 10:48
по дефолту 4 - ты же через Jet работаешь

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)