ebie147 Ответов: 2

Как выбрать из 2-х таблиц VB.NET

Привет итак я получил эту базу данных со следующими таблицами
Таблица 1:
--------------------------------------
|REF|ID_RECIEVED|ID_DATE|POA|POA_DATE|
|-------------------------------------
|001|YES        |       |YES|        |
|002|YES        |       |NO |        |
--------------------------------------


Таблица 2:
------------------------------
|REF|CRED_NAME|COB|ACCEPTANCE|
------------------------------
|001|AFRICAN  |YES|YES       |
|001|NEDBANK  |YES|YES       |
|002|NEDBANK  |YES|YES       |
------------------------------


Таким образом, в основном из таблицы 1 может быть только один Ref, но Таблица 2 может иметь дубликаты
То, что я хочу, я хочу, чтобы отобразить все ссылки, где(табл. 1) ID_RECIEVED,ПД и из (табл. 2) КОБ, принятие-это да

Я использую vb.net с базой данных ms access и понятия не имею с чего начать

Что я уже пробовал:

Не знаю, как это сделать, но любая помощь будет полезна

2 Ответов

Рейтинг:
2

David_Wimbley

Неясно, что такое ваш внешний ключ. Для меня это выглядит как колонка REF, так что я буду исходить из этого предположения.

Ваш SQL-запрос для использования в вашем VB-коде будет следующим

SELECT * FROM Table1 AS A
JOIN Table2 AS B ON B.REF = A.REF
WHERE A.ID_RECEIVED = 'YES' AND A.POA = 'YES' AND B.COB = 'YES' AND B.ACCEPTANCE = 'YES'


Выполнение sql в файле. net.

Как создать и выполнить инструкцию SQL, возвращающую строки[^]

Если вам нужна дополнительная помощь с этим в VB, простой поиск google вернет вам множество ссылок, которые предоставят вам массу примеров.

ebie147

я все время получаю "синтаксическую ошибку в предложении FROM"
вот мой код

Дим кон как метод oledbconnection = новый объект oledbconnection("поставщик=Майкрософт.Джет.Oledb для.4.0;Источник данных=\\192.168.1.191\Сум\КФС\СУО программы\CLIENT_DOCS.МБР")
Дим УМК как объект oledbcommand = новый объект oledbcommand("Select * из USER_FILES как присоединиться Creditor_FILES А Б О Б. справ = справочники А., Где А. ID_Recieved = 'да' и А. ПД = 'да' и Б. удара = 'да' и B. прием = 'да'", кон)
против.Открыть()
Дим myda представляет как объект oledbdataadapter = новый объект oledbdataadapter(УМК)
Dim myDataSet As DataSet = новый набор данных()
myda представляет.Заполнить(myDataSet, "CLIENT_DOCS") &ЛТ;&ЛТ;&ЛТ;&ЛТ;где ошибка.
DataGridView1. DataSource = myDataSet.Таблицы ("CLIENT_DOCS"). DefaultView
против.Закрывать()
кон = ничего

Patrice T

Воспользуйся Улучшить вопрос чтобы обновить ваш вопрос.
Чтобы каждый мог обратить внимание на эту информацию.

Рейтинг:
0

OriginalGriff

Попробуй:

SELECT b.REF, a.ID_RECIEVED, a.ID_DATE, A.POA, A.POA_DATE b.CRED_NAME FROM Table2 b
JOIN Table1 a ON a.REF = b.REF
WHERE b.COB='YES' AND b.ACCEPTANCE='YES'

ebie147

получение следующее сообщение об ошибке:

Дим кон как метод oledbconnection = новый объект oledbconnection("поставщик=Майкрософт.Джет.Oledb для.4.0;Источник данных=\\192.168.1.191\Сум\КФС\СУО программы\CLIENT_DOCS.МБР")
Дим УМК как объект oledbcommand = новый объект oledbcommand("выберите б.Реф, а.ID_RECIEVED, а.ID_DATE, А. РОА, А. POA_DATE, б.CRED_NAME из Таблица2 б присоединиться Таблица1 а на.Справ = б.Где B справ.Удара='да' и B.Принятие='да'", кон)
против.Открыть()
Дим myda представляет как объект oledbdataadapter = новый объект oledbdataadapter(УМК)
Dim myDataSet As DataSet = новый набор данных()
myda представляет.Заполнить(myDataSet, "CLIENT_DOCS") &ЛТ;&ЛТ;

OriginalGriff

А ошибка есть?

Patrice T

Воспользуйся Улучшить вопрос чтобы обновить ваш вопрос.
Чтобы каждый мог обратить внимание на эту информацию.