Autor Wątek: Sfera Zapytanie SQL przy użyciu vbscript dla programu Nicelabel  (Przeczytany 1540 razy)

0 użytkowników i 1 Gość przegląda ten wątek.

Offline wendka

  • Nowy użytkownik
  • *
  • Wiadomości: 22
  • Reputacja +0/-0
  • Wersja programu: 1.42 HF1
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

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
« Ostatnia zmiana: Czerwiec 06, 2018, 22:51:34 wysłana przez wendka »

Offline birds22

  • Ekspert
  • *****
  • Wiadomości: 9208
  • Reputacja +1304/-21
  • Wersja programu: Najnowsza
Odp: Sfera Zapytanie SQL przy użyciu vbscript dla programu Nicelabel
« Odpowiedź #1 dnia: Czerwiec 06, 2018, 23:58:28 »
Value = rs("tw_Pole3")
Sławek, Zduńska Wola

Offline wendka

  • Nowy użytkownik
  • *
  • Wiadomości: 22
  • Reputacja +0/-0
  • Wersja programu: 1.42 HF1
Odp: Sfera Zapytanie SQL przy użyciu vbscript dla programu Nicelabel
« Odpowiedź #2 dnia: 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.

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.

Forum Użytkownikow Subiekt GT

Odp: Sfera Zapytanie SQL przy użyciu vbscript dla programu Nicelabel
« Odpowiedź #2 dnia: Czerwiec 07, 2018, 12:15:06 »