ReSQL.ru
     
powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Скрипт получение данных из другой таблицы
15 сообщений из 15, страница 1 из 1
Скрипт получение данных из другой таблицы
    #39214497
Ainur.sm
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ainur.sm
Гость
Добрый день! Vbs незнаю вообще, но обстоятельство принуждает писать скрипт vbs.
Нужно написать скрипт при нажатие кнопки показывала данные из другой таблицы.

на данный момент вот, что получилась
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Dim rstA, sSql, iID, sCategoryAct,sCategorProduct,sProduct, sMessage,iSales
sSql="SELECT *FROM tblActions" 
OpenRecordset rstA, sSql, iID,sCategory, sCategorProduct,sProduct,iSales
Do Until rstA.EOF 
iID = rstA("ID").Value 
sCategoryAct=rstA("CategoryAct").Value
sCategorProduct=rstA("CategorProduct").Value
iSales=rstA("Sales").Value
MsgBox "Акции" & vbCrLf & vbCrLf & iID & vbTab &  sCategoryAct   & vbTab & iSales & vbTab &  sCategorProduct
rstA.MoveNext 
Loop 
CloseRecordset rstA, sSql, iID,sCategoryAct,sCategorProduct,sProduct,iSales



результат получаю MSbox столько сколько в таблице. А как сделать, чтобы получить экран один раз с перечисленными данными.
...
Рейтинг: 0 / 0
13.04.2016, 11:55
| Ответить | Цитировать | Написать  
Скрипт получение данных из другой таблицы
    #39214504
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
dim s
s = "Акции" & vbCrLf
...
s = s & vbCrLf & iID & vbTab &  sCategoryAct   & vbTab & iSales & vbTab &  sCategorProduct 'вместо msgbox
...
CloseRecordset ...
Msgbox s
...
Рейтинг: 0 / 0
13.04.2016, 11:57
| Ответить | Цитировать | Написать  
Скрипт получение данных из другой таблицы
    #39214533
Ainur.sm
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ainur.sm
Гость
Konst_One,
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Dim rstA, sSql, iID, sCategoryAct,sCategorProduct,sProduct, sMessage,iSales,s
sSql="SELECT *FROM tblActions" 
OpenRecordset rstA, sSql, iID,sCategory, sCategorProduct,sProduct,iSales,s
Do Until rstA.EOF 
iID = rstA("ID").Value 
sCategoryAct=rstA("CategoryAct").Value
sCategorProduct=rstA("CategorProduct").Value
iSales=rstA("Sales").Value
s = "Акции" & vbCrLf
s = s & vbCrLf & iID & vbTab &  sCategoryAct   & vbTab & iSales & vbTab &  sCategorProduct 
rstA.MoveNext 
Loop 
CloseRecordset rstA, sSql, iID,sCategoryAct,sCategorProduct,sProduct,iSales,s

Msgbox s



Получила только одну запись. В таблице 2 записи
...
Рейтинг: 0 / 0
13.04.2016, 12:11
| Ответить | Цитировать | Написать  
Скрипт получение данных из другой таблицы
    #39214536
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
невнимательно смотрели, вот так надо
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
Dim rstA, sSql, iID, sCategoryAct,sCategorProduct,sProduct, sMessage,iSales,s

s = "Акции" & vbCrLf

sSql="SELECT *FROM tblActions" 
OpenRecordset rstA, sSql, iID,sCategory, sCategorProduct,sProduct,iSales,s

Do Until rstA.EOF 
  iID = rstA("ID").Value 
  sCategoryAct=rstA("CategoryAct").Value
  sCategorProduct=rstA("CategorProduct").Value
  iSales=rstA("Sales").Value
  s = s & vbCrLf & iID & vbTab &  sCategoryAct   & vbTab & iSales & vbTab &  sCategorProduct 
  rstA.MoveNext 
Loop 
CloseRecordset rstA, sSql, iID,sCategoryAct,sCategorProduct,sProduct,iSales,s

Msgbox s
...
Рейтинг: 0 / 0
13.04.2016, 12:15
| Ответить | Цитировать | Написать  
Скрипт получение данных из другой таблицы
    #39214560
Ainur.sm
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ainur.sm
Гость
Konst_One,

Круто! Получила данные из другой таблицы.

теперь мне надо сравнить эти данные по полю CategorProduct.

если полученные данные из таблицы tblActions поле CategorProduct= qdfOrders.CategorProduct(все происходит в тбл qdfOrders)
то выводим
из другой таблицы соответствующие поля
Код: vbnet
1.
s=s & vbCrLf & iID & vbTab &  sCategoryAct   & vbTab & iSales & vbTab &  sCategorProduct
...
Рейтинг: 0 / 0
13.04.2016, 12:37
| Ответить | Цитировать | Написать  
Скрипт получение данных из другой таблицы
    #39214578
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
значит вы эти данные из другой таблицы должны сначала получить
...
Рейтинг: 0 / 0
13.04.2016, 12:49
| Ответить | Цитировать | Написать  
Скрипт получение данных из другой таблицы
    #39214586
Ainur.sm
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ainur.sm
Гость
Konst_One,
Но я получила да данные. Теперь надо сравнить если из tblAction.CategorProduct=qdfOrders.CategorProduct если они равны то оставляем те данные которые необходимо .
...
Рейтинг: 0 / 0
13.04.2016, 12:53
| Ответить | Цитировать | Написать  
Скрипт получение данных из другой таблицы
    #39214612
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
Код: vbnet
1.
2.
3.
4.
5.
if sCategorProduct = значениеИз2таблицы then
   ...
else
  ...
end if
...
Рейтинг: 0 / 0
13.04.2016, 13:18
| Ответить | Цитировать | Написать  
Скрипт получение данных из другой таблицы
    #39214640
Ainur.sm
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ainur.sm
Гость
Konst_One, Пытаюсь сделать, но не получается
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
Dim rstA, sSql, iID, sCategoryAct,sCategorProduct,sProduct, sMessage,iSales,s, sCategorProductOrders
sSql="SELECT *FROM tblActions" 
OpenRecordset rstA, sSql, iID,sCategory, sCategorProduct,sProduct,iSales,s
Do Until rstA.EOF 
iID = rstA("ID").Value 
sCategoryAct=rstA("CategoryAct").Value
sCategorProduct=rstA("CategorProduct").Value
iSales=rstA("Sales").Value
s = "Акции" & vbCrLf
s = s & vbCrLf & iID & vbTab &  sCategoryAct   & vbTab & iSales & vbTab &  sCategorProduct 
rstA.MoveNext 
Loop 
CloseRecordset rstA, sSql, iID,sCategoryAct,sCategorProduct,sProduct,iSales,s
 sSql1="SELECT *From qdfOrders"
 OpenRecordset rstA, sSql1
 Do Unil rstA.EOF
sCategorProductOrders=rstA("CategorProduct").Value
if sCategorProduct = sCategorProductOrders then
s=s & vbCrLf & iID & vbTab &  sCategoryAct   & vbTab & iSales & vbTab &  sCategorProduct 
  end if
rstA.MoveNext 
Loop 
CloseRecordset rstA, sSql1
...
Рейтинг: 0 / 0
13.04.2016, 13:35
| Ответить | Цитировать | Написать  
Скрипт получение данных из другой таблицы
    #39214643
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
вы в цикл свою проверку вставляйте , если вам нужно по каждой строке проверять
...
Рейтинг: 0 / 0
13.04.2016, 13:37
| Ответить | Цитировать | Написать  
Скрипт получение данных из другой таблицы
    #39214665
Ainur.sm
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ainur.sm
Гость
Konst_One,

Вывел ошибку
Переменная sSql1 не определена.
Строка: sSql=”Select *from qdfOrders”
Переменные rstA sSql iID sCategoryAct sCategorProduct sProduct sMessage iSales s sCategorProductOrders

Ошибочная инструкция SQL Delete Insert Select UPDATE
sSql

Код: vbnet
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.
Dim rstA, sSql, iID, sCategoryAct,sCategorProduct,sProduct, sMessage,iSales,s, sCategorProductOrders
sSql="SELECT *FROM tblActions" 
OpenRecordset rstA, sSql, iID,sCategory, sCategorProduct,sProduct,iSales,s
Do Until rstA.EOF 
iID = rstA("ID").Value 
sCategoryAct=rstA("CategoryAct").Value
sCategorProduct=rstA("CategorProduct").Value
iSales=rstA("Sales").Value
s = "Акции" & vbCrLfif sCategorProduct = sCategorProductOrders then
s=s & vbCrLf & iID & vbTab &  sCategoryAct   & vbTab & iSales & vbTab &  sCategorProduct 
  end if
rstA.MoveNext 
Loop 
CloseRecordset rstA, sSql, iID,sCategoryAct,sCategorProduct,sProduct,iSales,s
 sSql1="SELECT *FROM qdfOrders "
 OpenRecordset rstA, sSql1
 Do Unil rstA.EOF
sCategorProductOrders=rstA("CategorProduct").Value
if sCategorProduct = sCategorProductOrders then
s=s & vbCrLf & iID & vbTab &  sCategoryAct   & vbTab & iSales & vbTab &  sCategorProduct 
  end if
rstA.MoveNext 
Loop 
CloseRecordset rstA, sSql1,s,sCategorProduct
Msgbox s
...
Рейтинг: 0 / 0
13.04.2016, 13:54
| Ответить | Цитировать | Написать  
Скрипт получение данных из другой таблицы
    #39214667
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
у вас какая-то каша в голове и соответственно в коде.
нарисуйте на бумажке последовательность действий , составьте алгоритм программы, а уже потом его реализуйте.
...
Рейтинг: 0 / 0
13.04.2016, 13:56
| Ответить | Цитировать | Написать  
Скрипт получение данных из другой таблицы
    #39214685
Фотография by-pass
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
by-pass
Участник
Ainur.sm,
автортеперь мне надо сравнить эти данные по полю CategorProduct.
Правильнее и быстрее делать это в запросе, хранимом в БД, а данные получать из этого запроса.
Тем более, что у Вас уже похоже уже имеются некоторые запросы:
авторsSql1="SELECT *From qdfOrders"
...
Рейтинг: 0 / 0
13.04.2016, 14:19
| Ответить | Цитировать | Написать  
Скрипт получение данных из другой таблицы
    #39214876
Ainur.sm
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ainur.sm
Гость
by-pass,

Получилось,
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Dim rstA, sSql, iID, sCategoryAct,sCategorProduct,sProduct, sMessage,iSales,s, sCategorProductOrders
sSql="SELECT * FROM tblActions " 
OpenRecordset rstA, sSql
s = "Акции" & vbCrLf
Do Until rstA.EOF 
iID = rstA("ID").Value 
sCategoryAct=rstA("CategoryAct").Value
sCategorProduct=rstA("CategorProduct").Value
iSales=rstA("Sales").Value
if sCategorProduct = <tblOrders>.<CategorProduct> then 
s = s & vbCrLf & iID & vbTab & sCategoryAct & vbTab & iSales & vbTab & sCategorProduct 
end if
rstA.MoveNext 
Loop 
CloseRecordset rstA, sSql
Msgbox s



Сравниваю поля и выводит соответствую поля.
...
Рейтинг: 0 / 0
13.04.2016, 16:53
| Ответить | Цитировать | Написать  
Скрипт получение данных из другой таблицы
    #39214995
Ainur.sm
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ainur.sm
Гость
Konst_One,

Сравнила данные(sCategorProduct = <tblOrders>.<CategorProduct> ) вывела нужные информацию
Я получаю
iID номер, sCategoryAct =название акции, iSales =%, sCategorProduct= Категория товара , iQuantity=количество. (из tblActions).
1------Скидка на второй товар----------------------30 %, Категория товара-------------------------кол-во 2.
Код: vbnet
1.
s = s & vbCrLf & iID & vbTab & sCategoryAct & vbTab & iSales & vbTab & sCategorProduct & vbTab & iQuantity



Как написать цикл если sCategoryAct=Скидка на второй товар цикл до 2(iQuantity), 1 проверяет пропускает, вторую проверяет отнимает 30%(iSales из таблицы tb,Actions ) и выводит конечный результат Цена - Цена*30/100.



Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
Dim rstA, sSql, iID, sCategoryAct,sCategorProduct,sProduct, sMessage,iSales,s, sCategorProductOrders, iQuantity
sSql="SELECT * FROM tblActions " 
OpenRecordset rstA, sSql
s = "Акции" & vbCrLf
Do Until rstA.EOF 
iID = rstA("ID").Value 
sCategoryAct=rstA("CategoryAct").Value
sCategorProduct=rstA("CategorProduct").Value
iSales=rstA("Sales").Value
iQuantity=rstA("Quantity").Value
if sCategorProduct = <tblOrders>.<CategorProduct> then 
s = s & vbCrLf & iID & vbTab & sCategoryAct & vbTab & iSales & vbTab & sCategorProduct & vbTab & iQuantity
end if
rstA.MoveNext 
Loop 
CloseRecordset rstA, sSql
Msgbox s
...
Рейтинг: 0 / 0
13.04.2016, 17:58
| Ответить | Цитировать | Написать  
15 сообщений из 15, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Скрипт получение данных из другой таблицы
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&tid=2155569]:
 0ms
get settings:
 9ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 136ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 45ms
get tp. blocked users:
 1ms
others: 303ms
total:  527ms
созд. / загр.: 527ms
x
x
Закрыть


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