powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Access и VB
27 сообщений из 27, показаны все 2 страниц
Access и VB
    #33891819
(so) blind
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Я пытаюсь связать Access и VB, но пока не получаеться...
Пишет ошибку Unrecognized database format

Модератор: Постарайтесь не создавать дублирующих тем.
...
Рейтинг: 0 / 0
Access и VB
    #33891859
(so) blind
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
И еще вопрос : я хочу сделать форму, чтоб на ней можно было в списке
выберать термин(допустим) а в текстовом поле высвечиволось определение,
но не как не могу сооброзить что куда...
...
Рейтинг: 0 / 0
Access и VB
    #33891952
Фотография Serge Gavrilov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Видимо для работы с базой используется DAO 3.5, а база формаьа 2000+.
Подключите DAO 3.6
...
Рейтинг: 0 / 0
Access и VB
    #33891995
(so) blind
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Serge GavrilovВидимо для работы с базой используется DAO 3.5, а база формаьа 2000+.
Подключите DAO 3.6
Еще бы знать как это сделать, я только месяц изучаю VB.
...
Рейтинг: 0 / 0
Access и VB
    #33892244
Фотография 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
...
Рейтинг: 0 / 0
Access и VB
    #33892426
(so) blind
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
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
Access и VB
    #33893506
Фотография Resident
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Какой установлен SP? VB с SP6 поддерживает все форматы BD встроенным элементом управления Data. Для Вас как начинающего это вариант будет проще.
...
Рейтинг: 0 / 0
Access и VB
    #33894699
(so) blind
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Serge GavrilovВидимо для работы с базой используется DAO 3.5, а база формаьа 2000+.
Подключите DAO 3.6
Подключил, но все равно та же ошибка
...
Рейтинг: 0 / 0
Access и VB
    #33895256
Фотография Resident
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Посмотри в коде где создаешь объекты 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
Access и VB
    #33895312
Фотография Resident
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Вот простой пример...
...
Рейтинг: 0 / 0
Access и VB
    #33896514
(so) blind
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ResidentВот простой пример...
Спасибо огромное, вот у меня теперь возник новый вопрос :
Как сделать чтоб в ComboBox можно было выбирать из списка?
и еще один : В самом Access, я например пишу термин и описание,
а описание все не влазиет пишет что слишком много символов, что делать?
...
Рейтинг: 0 / 0
Access и VB
    #33896604
TIKO
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
если ты имеешь ввиду размер занчения в колонке
проверь размер поля по умолчанию 50 проставь 255
...
Рейтинг: 0 / 0
Access и VB
    #33896692
(so) blind
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
TIKOесли ты имеешь ввиду размер занчения в колонке
проверь размер поля по умолчанию 50 проставь 255
ага, нашел, помогло... но с ComboBox так и не могу разобраться, хотя можно так сделать
Private Sub Form Load()

Combo1.Additem "..."

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

Combo1.Additem "..."

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

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

Combo1.Additem "..."

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

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

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

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

Если честно я не понел что именно делать.
создай новый command
на вкладке general см. рисунок
выбери имя таблицы
Ага сделал, но все равно не вылазиет список и определение...
...
Рейтинг: 0 / 0
Период между сообщениями больше года.
Access и VB
    #34978395
MasterWEB
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Подскажите плиз
у меня база тоже подключена к акцессу
ФИО , номер телефона, фото
осуществляется только поиск

Private Sub cmdFind_Click()
Data1.Recordset.FindFirst "FIO = '" _
& Trim(InputBox("Введите ФИО")) & "'"
If Data1.Recordset.NoMatch Then MsgBox "ФИО не найдено"
End Sub

как сделать,чтобы картинка тоже появлялась?
Появляется только фио и номер, а картинка нехочет...
...
Рейтинг: 0 / 0
Access и VB
    #34978458
MasterWEB
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Если к picture1 напрямую делаю Datasurce=data1 dataField=foto , то выдает Invalid picture :( кто знает как разобраться в этом
...
Рейтинг: 0 / 0
27 сообщений из 27, показаны все 2 страниц
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Access и VB
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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