Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Неможете помочь мне разобратся, как работать с БД. 
:(
    Опции темы
Shoblin
Дата 23.9.2007, 01:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 11
Регистрация: 5.8.2007

Репутация: нет
Всего: нет
Неможете помочь мне разобратся, как работать с БД.
 
Код


(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
П.С. Фаел БД создан на Акссесе Хп. Кажется...
PM MAIL   Вверх
Akina
Дата 23.9.2007, 11:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
Верен ли путь к базе данных?
Точно ли НЕ требуется указания имени пользователя и пароля?
Точно ли используется именно версия 3.51 библиотеки?

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


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
Shoblin
Дата 23.9.2007, 21:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 11
Регистрация: 5.8.2007

Репутация: нет
Всего: нет
1.Путь верен...
2. Не требует пароля...
3. А как узнать??? Всетаки офис 2002

Где искать Data Connection Wizard
PM MAIL   Вверх
Akina
Дата 23.9.2007, 22:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
Цитата(Shoblin @  23.9.2007,  22:46 Найти цитируемый пост)
А как узнать??? 

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

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

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


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
Shoblin
Дата 23.9.2007, 23:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 11
Регистрация: 5.8.2007

Репутация: нет
Всего: нет
По референсам вопрос: А что надо сделать, что бі в референсах появился Microsoft.Jet.OLEDB.4.0???
PM MAIL   Вверх
Shoblin
Дата 23.9.2007, 23:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 11
Регистрация: 5.8.2007

Репутация: нет
Всего: нет
Спасибо, Акина... Сам разобрался 8))) С твоей помощью... Оказывается... он хотел, что бы я прописал в коде версию 4.0. Только не могу понять, почему 4.0. в референсах нету...
 
PM MAIL   Вверх
Akina
Дата 24.9.2007, 10:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
по дефолту 4 - ты же через Jet работаешь


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0493 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.