Нужно проверить наличие записей (людей) из таблицы Table1 в Table2

01.02.2010, 14:00. **Показов** 1123. **Ответов** 3

Студворк — интернет-сервис помощи студентам

Есть таблица Table1(поля - fam, im, ot, ulica, summa, otv) и таблица Table2 (поля - fam, im, ot, ulica, tlf).
Нужно проверить наличие записей (людей) из таблицы Table1 в Table2 (по полям fam, im, ot, ulica), в случае совпадения поле otv (Table1) присваивать True, если аналога в Table2 нет otv=False. Что лучше использовать?
Спасибо.

@XPraptor · 01.02.2010, 14:45

Лучше использовать ADO. Reference ставишь галку на Microsoft ActiveX Data Object 2.6 или другую самую высшую версию.
Открываешь базу при старте или когда надо:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
'Open Connection DB
Public Conn As Connection
Public dbFileName As String
 
Public Sub DB_CONNECT()
    On Error GoTo err
Set Conn = New Connection
Conn.ConnectionTimeout = 30
'ConnectionString для Access
Conn.ConnectionString = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' & dbFileName & ';Mode=ReadWrite|Share Deny None;Persist Security Info=False;Jet OLEDB:Database Password=password'
Conn.open
    Exit Sub
err:
End Sub

Завершаешь соединение при выходе из проги

Visual Basic
1
2
3
4
5
6
7
8
9
'Terminate Connection
Public Sub TERMINATE_DB_CONNECT()
On Error GoTo err
If Not Conn Is Nothing Then
    Set Conn = Nothing
End If
    Exit Sub
err:
End Sub

Затем в процедуре проверки пишешь запрос

Visual Basic
1
2
3
4
5
6
7
Dim rsValid As Recordset
Dim strSQL$
 
Set rsValid = New Recordset
strSQL = 'UPDATE Table1, Table2 SET Table1.otv=True WHERE Table1.fam=Table2.fam AND Table1.im=Table2.im AND Table1.ot=Table2.ot AND Table1.ulica=Table2.ulica'
rsValid.Open strSQL, Conn, adOpenDynamic, adLockOptimistic
Set rsValid  = Nothing

А False полю otv в таблице Table1 присвой как значение по умолчанию для этого поля.

01.02.2010, 15:39

strSQL = 'UPDATE Table1, Table2 SET Table1.otv=True WHERE Table1.fam=Table2.fam AND Table1.im=Table2.im AND Table1.ot=Table2.ot AND Table1.ulica=Table2.ulica' - такая простота мне кажется фантастической. Такого быть не может. Но я проверила, выдается ошибка.
Не может Basic так оперативно работать, чтоб сразу видеть всю таблицу, и говорить, такой есть, а такого нет. Вы-то так делаете в своих программах?

@XPraptor · 01.02.2010, 15:51

Я делаю по всякому. Высылайте кусок кода или кусок базы мне на мыло, тогда отправлю готовый код. Все должно работать, нужно просто правильно вызвать функции и вообще что за ошибки пишет VB?
mailto: specforce-vb6@rambler.ru

Новые блоги и статьи Все статьи Все блоги /
моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .
Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь(не выше 3-го порядка) постоянного тока с элементами R, L, C, k(ключ), U, E, J. Программа находит переходные токи и напряжения на элементах схемы классическим методом(1 и 2 з-ны. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .

marianna

	Нужно проверить наличие записей (людей) из таблицы Table1 в Table2 01.02.2010, 14:00. Показов 1123. Ответов 3 Метки нет (Все метки) Есть таблица Table1(поля - fam, im, ot, ulica, summa, otv) и таблица Table2 (поля - fam, im, ot, ulica, tlf). Нужно проверить наличие записей (людей) из таблицы Table1 в Table2 (по полям fam, im, ot, ulica), в случае совпадения поле otv (Table1) присваивать True, если аналога в Table2 нет otv=False. Что лучше использовать? Спасибо.

marianna
	01.02.2010, 15:39
	strSQL = 'UPDATE Table1, Table2 SET Table1.otv=True WHERE Table1.fam=Table2.fam AND Table1.im=Table2.im AND Table1.ot=Table2.ot AND Table1.ulica=Table2.ulica' - такая простота мне кажется фантастической. Такого быть не может. Но я проверила, выдается ошибка. Не может Basic так оперативно работать, чтоб сразу видеть всю таблицу, и говорить, такой есть, а такого нет. Вы-то так делаете в своих программах?

@XPraptor 0 / 0 / 3 Регистрация: 28.01.2010 Сообщений: 279
	01.02.2010, 15:51
	Я делаю по всякому. Высылайте кусок кода или кусок базы мне на мыло, тогда отправлю готовый код. Все должно работать, нужно просто правильно вызвать функции и вообще что за ошибки пишет VB? mailto: specforce-vb6@rambler.ru 0