Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Скрипт получение данных из другой таблицы / 15 сообщений из 15, страница 1 из 1
13.04.2016, 11:55
    #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:57
    #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, 12:11
    #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:15
    #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:37
    #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:49
    #39214578
Konst_One
Konst_One
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Скрипт получение данных из другой таблицы
значит вы эти данные из другой таблицы должны сначала получить
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.04.2016, 12:53
    #39214586
Ainur.sm
Ainur.sm
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Скрипт получение данных из другой таблицы
Konst_One,
Но я получила да данные. Теперь надо сравнить если из tblAction.CategorProduct=qdfOrders.CategorProduct если они равны то оставляем те данные которые необходимо .
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.04.2016, 13:18
    #39214612
Konst_One
Konst_One
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Скрипт получение данных из другой таблицы
Код: vbnet
1.
2.
3.
4.
5.
if sCategorProduct = значениеИз2таблицы then
   ...
else
  ...
end if
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.04.2016, 13:35
    #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:37
    #39214643
Konst_One
Konst_One
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Скрипт получение данных из другой таблицы
вы в цикл свою проверку вставляйте , если вам нужно по каждой строке проверять
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.04.2016, 13:54
    #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:56
    #39214667
Konst_One
Konst_One
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Скрипт получение данных из другой таблицы
у вас какая-то каша в голове и соответственно в коде.
нарисуйте на бумажке последовательность действий , составьте алгоритм программы, а уже потом его реализуйте.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.04.2016, 14:19
    #39214685
by-pass
by-pass
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Скрипт получение данных из другой таблицы
Ainur.sm,
автортеперь мне надо сравнить эти данные по полю CategorProduct.
Правильнее и быстрее делать это в запросе, хранимом в БД, а данные получать из этого запроса.
Тем более, что у Вас уже похоже уже имеются некоторые запросы:
авторsSql1="SELECT *From qdfOrders"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.04.2016, 16:53
    #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, 17:58
    #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
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Скрипт получение данных из другой таблицы / 15 сообщений из 15, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 501ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2155569]:
 0ms
get settings:
 9ms
get forum list:
 11ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 79ms
get topic data:
 12ms
get forum data:
 2ms
get page messages:
 50ms
get tp. blocked users:
 2ms
others: 328ms
total:  501ms
x
x
Закрыть


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