Forum Użytkownikow Subiekt GT

InsERT GT => Dodatki - zestawienia - sfera => Wątek zaczęty przez: wendka w Czerwiec 06, 2018, 22:14:22

Tytuł: Sfera Zapytanie SQL przy użyciu vbscript dla programu Nicelabel
Wiadomość wysłana przez: wendka w Czerwiec 06, 2018, 22:14:22

Witam,
do generowania etykiet moich produktów używam programu nicelabel pro, umozliwia on pobieranie danych z bazy SQLowej, potrzebuję pobierać do etykiet za pomocą VBscriptu wartości pola własnego towaru nr 3 poniżej zamieszczam kod, gdyby ktoś się temu przyjżał i powiedział co jest nie tak.

ID-Towaru bedzie podawane ręcznie _ przy tworzeniu etykiety

Kod: [Zaznacz]

Dim dbopen, rs ,Value
Set dbopen=CreateObject("ADODB.Connection")
dbopen.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=NAZWA_BAZY;Data Source=SERVER\INSERTGT;User ID=sa;"
sqlString= "SELECT tw__Towar.tw_Pole3 FROM tw__Towar Where tw__Towar.tw_Id = 1774"
Set rs = dbopen.execute (sqlString)
Value = rs("tw__Towar.tw_Pole3")
dbopen.Close

Tytuł: Odp: Sfera Zapytanie SQL przy użyciu vbscript dla programu Nicelabel
Wiadomość wysłana przez: birds22 w Czerwiec 06, 2018, 23:58:28

Value = rs("tw_Pole3")

Tytuł: Odp: Sfera Zapytanie SQL przy użyciu vbscript dla programu Nicelabel
Wiadomość wysłana przez: wendka w Czerwiec 07, 2018, 12:15:06

Ostatecznie kod wygląda tak: :) jest to skrypt pobierający datę przydatności przechowywaną w polach własnych towaru, na podstawie kodu produktu, i wkłada go do etykiety drukowanej na produkt.

Kod: [Zaznacz]

Dim dbopen, rs ,x
Set dbopen=CreateObject("ADODB.Connection")
dbopen.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=NAZWA_BAZY;Data Source=SERVER\INSERTGT;User ID=sa;"
sqlString= "SELECT tw__Towar.tw_Pole3 FROM tw__Towar Where tw__Towar.tw_Symbol = 'KODPRODUKTU'"
Set rs = dbopen.execute (sqlString)
Result = rs("tw_Pole3")
dbopen.Close

dziękuję za naprowadznie.