Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Access и VB / 25 сообщений из 27, страница 1 из 2
01.08.2006, 13:44
    #33891819
(so) blind
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Access и VB
Я пытаюсь связать Access и VB, но пока не получаеться...
Пишет ошибку Unrecognized database format

Модератор: Постарайтесь не создавать дублирующих тем.
...
Рейтинг: 0 / 0
01.08.2006, 13:55
    #33891859
(so) blind
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Access и VB
И еще вопрос : я хочу сделать форму, чтоб на ней можно было в списке
выберать термин(допустим) а в текстовом поле высвечиволось определение,
но не как не могу сооброзить что куда...
...
Рейтинг: 0 / 0
01.08.2006, 14:13
    #33891952
Serge Gavrilov
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Access и VB
Видимо для работы с базой используется DAO 3.5, а база формаьа 2000+.
Подключите DAO 3.6
...
Рейтинг: 0 / 0
01.08.2006, 14:22
    #33891995
(so) blind
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Access и VB
Serge GavrilovВидимо для работы с базой используется DAO 3.5, а база формаьа 2000+.
Подключите DAO 3.6
Еще бы знать как это сделать, я только месяц изучаю VB.
...
Рейтинг: 0 / 0
01.08.2006, 15:16
    #33892244
klen_
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Access и VB
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
' для ADO -----------------------------------------------
  Dim connectString As String
  Dim db As ADODB.Connection
  Dim t1 As ADODB.Recordset
  Set db = New ADODB.Connection
  Set t1 = New ADODB.Recordset
  
  db.ConnectionString = "DBQ=" & file_mdb & ";UID=admin;PWD=" & password & ";DRIVER={Microsoft Access Driver (*.mdb)};DefaultDir=" & path_mdb & ";"
  db.Open
  
  t1.CursorType = adOpenKeyset
  t1.LockType = adLockOptimistic
  t1.Open "Таблица", db, , , adCmdTable

'  для DAO ----------------------------------------------
'  Dim db As Database
'  Dim t1 As DAO.Recordset
'  Set db = OpenDatabase(p_db, False, True, ";PWD=" & password) ' обязательно укажи   False, True   иначе не сможешь определить пароль в mdb
'  Set t1 = db.OpenRecordset("Таблица")
' ------------------------------------------------------
  
  Do Until t1.EOF
' что-нибудь делаешь
       t1.MoveNext
  Loop
               
  t1.Close
  db.Close
  Set t1 = Nothing
  Set db = Nothing
  Set fl = Nothing
...
Рейтинг: 0 / 0
01.08.2006, 15:56
    #33892426
(so) blind
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Access и VB
klen_
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
' для ADO -----------------------------------------------
  Dim connectString As String
  Dim db As ADODB.Connection
  Dim t1 As ADODB.Recordset
  Set db = New ADODB.Connection
  Set t1 = New ADODB.Recordset
  
  db.ConnectionString = "DBQ=" & file_mdb & ";UID=admin;PWD=" & password & ";DRIVER={Microsoft Access Driver (*.mdb)};DefaultDir=" & path_mdb & ";"
  db.Open
  
  t1.CursorType = adOpenKeyset
  t1.LockType = adLockOptimistic
  t1.Open "Таблица", db, , , adCmdTable

'  для DAO ----------------------------------------------
'  Dim db As Database
'  Dim t1 As DAO.Recordset
'  Set db = OpenDatabase(p_db, False, True, ";PWD=" & password) ' обязательно укажи   False, True   иначе не сможешь определить пароль в mdb
'  Set t1 = db.OpenRecordset("Таблица")
' ------------------------------------------------------
  
  Do Until t1.EOF
' что-нибудь делаешь
       t1.MoveNext
  Loop
               
  t1.Close
  db.Close
  Set t1 = Nothing
  Set db = Nothing
  Set fl = Nothing

Может я не так объяснил или я просто не понимаю что делать? у меня есть
форма, есть база данных, мне надо чтоб информация считывалась с базы и
выводилась на форму или текстовое поле или еще куда-то...

Ниже это мне дали пример одногрупники, но я не как не могу понять что к чему

Вся информация хранится в Базе данных, созданной с помощью Microsoft Access и связанной с главной программой с помощью Data Project (Data
Environment). В Properties… произведено соответствие между программами.
База данных имеет 4 поля, содержащих всю информацию: ID (нумерация),
Begriff (определение), Erclerung (пояснение) и Bild2 (картинка). Все поля,
кроме ID, являются текстовыми. ID – счетчик. Причем по полю Begriff
производится поиск данных.
Private Sub dcm1_Change(){программные код выводящий соответствующую информацию по запросам пользователя}
sSQL = "Select Erklaerung from tab1 where Begriff= '" & dcm1.Text & "' "
Set rs = DEnv1.Connection1.Execute(sSQL)
bSQL = "Select Bild2 from tab1 where Begriff= '" & dcm1.Text & "' "
Set rs_bild = DEnv1.Connection1.Execute(bSQL)
bild = rs_bild("Bild2")
Set txt1.DataSource = DEnv1
txt1.Text = " "
Set txt1.DataSource = rs
Set Pic1.Picture = LoadPicture(bild)
End Sub
...
Рейтинг: 0 / 0
02.08.2006, 09:22
    #33893506
Resident
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Access и VB
Какой установлен SP? VB с SP6 поддерживает все форматы BD встроенным элементом управления Data. Для Вас как начинающего это вариант будет проще.
...
Рейтинг: 0 / 0
02.08.2006, 14:23
    #33894699
(so) blind
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Access и VB
Serge GavrilovВидимо для работы с базой используется DAO 3.5, а база формаьа 2000+.
Подключите DAO 3.6
Подключил, но все равно та же ошибка
...
Рейтинг: 0 / 0
02.08.2006, 16:45
    #33895256
Resident
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Access и VB
Посмотри в коде где создаешь объекты DataBase и Recordset
дело в том что если объявить объекты так
Dim DB As Database
Dim RS As Recordset
то VB будет ссылатся на DAO 3.5 если не установлен SP5 и выше.
А если референсах ссылка на DAO 3.6 объявляем так
Dim DB As DAO.Database
Dim RS As DAO.Recordset
...
Рейтинг: 0 / 0
02.08.2006, 16:59
    #33895312
Resident
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Access и VB
Вот простой пример...
...
Рейтинг: 0 / 0
03.08.2006, 10:59
    #33896514
(so) blind
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Access и VB
ResidentВот простой пример...
Спасибо огромное, вот у меня теперь возник новый вопрос :
Как сделать чтоб в ComboBox можно было выбирать из списка?
и еще один : В самом Access, я например пишу термин и описание,
а описание все не влазиет пишет что слишком много символов, что делать?
...
Рейтинг: 0 / 0
03.08.2006, 11:23
    #33896604
TIKO
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Access и VB
если ты имеешь ввиду размер занчения в колонке
проверь размер поля по умолчанию 50 проставь 255
...
Рейтинг: 0 / 0
03.08.2006, 11:47
    #33896692
(so) blind
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Access и VB
TIKOесли ты имеешь ввиду размер занчения в колонке
проверь размер поля по умолчанию 50 проставь 255
ага, нашел, помогло... но с ComboBox так и не могу разобраться, хотя можно так сделать
Private Sub Form Load()

Combo1.Additem "..."

Combo1.Additem "..."
...
Но может можно проще? а то долго прописывать если длинный список
...
Рейтинг: 0 / 0
03.08.2006, 12:11
    #33896784
TIKO
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Access и VB
(so) blind TIKOесли ты имеешь ввиду размер занчения в колонке
проверь размер поля по умолчанию 50 проставь 255
ага, нашел, помогло... но с ComboBox так и не могу разобраться, хотя можно так сделать
Private Sub Form Load()

Combo1.Additem "..."

Combo1.Additem "..."
...
Но может можно проще? а то долго прописывать если длинный список

что именно нужно добавить с комбо?
задачу расскажи
...
Рейтинг: 0 / 0
03.08.2006, 12:22
    #33896823
(so) blind
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Access и VB
TIKO (so) blind TIKOесли ты имеешь ввиду размер занчения в колонке
проверь размер поля по умолчанию 50 проставь 255
ага, нашел, помогло... но с ComboBox так и не могу разобраться, хотя можно так сделать
Private Sub Form Load()

Combo1.Additem "..."

Combo1.Additem "..."
...
Но может можно проще? а то долго прописывать если длинный список

что именно нужно добавить с комбо?
задачу расскажи
Есть список терминов, его помещаю в комбо, по термину высвечиваеться определение,
надо чтоб можно в комбо можно было выбирать термин, а не прокручивать через объект Data
...
Рейтинг: 0 / 0
03.08.2006, 12:38
    #33896878
TIKO
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Access и VB
высвечиваеться определение где в каком иструмете Text, другой combo,
grid?
если данные в базе то по лубому надо искать через объект "Data"
если нужно сделать связку терминов и опредилений то нужно воспользоваться фильтром Recordset-а или писать запрос а условие и выводит результат в какой либо тоол
...
Рейтинг: 0 / 0
03.08.2006, 12:50
    #33896920
(so) blind
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Access и VB
TIKOвысвечиваеться определение где в каком иструмете Text, другой combo,
grid?
если данные в базе то по лубому надо искать через объект "Data"
если нужно сделать связку терминов и опредилений то нужно воспользоваться фильтром Recordset-а или писать запрос а условие и выводит результат в какой либо тоол
Определение в RichTextBox1, да они в базе, придеться тогда много прописывать(((
А связку я уже сделал, она вот как раз работает через Data, а если прописать как я говорил
выше, тогда определение не вылазит.... не знаешь как сделать, чтоб работало(определение)
...
Рейтинг: 0 / 0
03.08.2006, 12:56
    #33896958
TIKO
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Access и VB
покажи код соединения
...
Рейтинг: 0 / 0
03.08.2006, 12:57
    #33896961
TIKO
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Access и VB
TIKOпокажи код соединения
и процедуру при изменении значения комбо
...
Рейтинг: 0 / 0
03.08.2006, 13:00
    #33896968
(so) blind
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Access и VB
TIKOпокажи код соединения
Я делал через Data соединение с Access,
а потом просто в Комбо и RichTextBox1 прописывал свойства...
например : DataField, выбираю opicanie и т.д.
...
Рейтинг: 0 / 0
03.08.2006, 13:41
    #33897129
TIKO
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Access и VB
DataSurce DEnv1
Используешь
...
Рейтинг: 0 / 0
03.08.2006, 13:51
    #33897176
TIKO
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Access и VB
Код: plaintext
DEnv1.rsCommand1.Filter = "Begriff= '" & dcm1.Text & "'"
...
Рейтинг: 0 / 0
03.08.2006, 14:09
    #33897255
(so) blind
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Access и VB
TIKO
Код: plaintext
DEnv1.rsCommand1.Filter = "Begriff= '" & dcm1.Text & "'"

Если честно я не понел что именно делать.
...
Рейтинг: 0 / 0
03.08.2006, 14:21
    #33897306
TIKO
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Access и VB
(so) blind TIKO
Код: plaintext
DEnv1.rsCommand1.Filter = "Begriff= '" & dcm1.Text & "'"

Если честно я не понел что именно делать.
создай новый command
на вкладке general см. рисунок
выбери имя таблицы
...
Рейтинг: 0 / 0
03.08.2006, 16:20
    #33897864
(so) blind
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Access и VB
TIKO (so) blind TIKO
Код: plaintext
DEnv1.rsCommand1.Filter = "Begriff= '" & dcm1.Text & "'"

Если честно я не понел что именно делать.
создай новый command
на вкладке general см. рисунок
выбери имя таблицы
Ага сделал, но все равно не вылазиет список и определение...
...
Рейтинг: 0 / 0
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Access и VB / 25 сообщений из 27, страница 1 из 2
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]