Уважаемые программисты,
требуется помощь. Я простой пользователь не программист, но есть необходимость получения из базы дополнительных данных.
Есть база из которой данные получаются из excel, c помощью вот такой проги (ниже):

задачка такая - добавить в эти данные баркод из таблицы LG_001_UNITBARCODE колонка BARCODE.
связь у колонок такая LG_001_UNITBARCODE.ITEMREF = LG_001_ITEMS.LOGICALREF или LG_001_02_STLINE.STOCKREF = LG_001_UNITBARCODE.ITEMREF

Может что-то еще надо?

Заранее благодарю за оперативную помощь!!!




Public Sub BRAND()
Dim TCON As ADODB.Connection
Set TCON = New ADODB.Connection
Dim STRCON As String
STRCON = "DRIVER=SQL Server;SERVER=--------;UID=------;PWD=------;APP=Microsoft Office 2003;WSID=SOFTPC;DATABASE=DB;"
TCON.Open STRCON
Dim RS_ As ADODB.Recordset
Set RS_ = New ADODB.Recordset
Dim A As String
With RS_
.ActiveConnection = TCON

A = "SELECT L_CAPIWHOUSE.NR AS SKLNO, L_CAPIWHOUSE.NAME AS SKLAD, LG_001_ITEMS.CODE AS TOVARKOD, LG_001_ITEMS.NAME AS TOVAR, "
A = A + " SUM(CASE LG_001_02_STLINE.IOCODE WHEN 1 THEN LG_001_02_STLINE.AMOUNT WHEN 2 THEN LG_001_02_STLINE.AMOUNT ELSE 0 - LG_001_02_STLINE.AMOUNT END) AS STOK, "
A = A + " (SELECT TOP (1) PRICE FROM LG_001_PRCLIST "
A = A + " WHERE (BEGDATE <= '" + Worksheets("FILTRE").Range("D2").Text + "-" + Worksheets("FILTRE").Range("C2").Text + "-" + Worksheets("FILTRE").Range("B2").Text + "' ) AND (ENDDATE >= '" + Worksheets("FILTRE").Range("D2").Text + "-" + Worksheets("FILTRE").Range("C2").Text + "-" + Worksheets("FILTRE").Range("B2").Text + "') "
A = A + " AND (LG_001_02_STLINE.STOCKREF = CARDREF) AND (PTYPE = 1)) AS SBAHA, "

A = A + " (SELECT TOP (1) PRICE FROM LG_001_PRCLIST "
A = A + " WHERE (BEGDATE <= '" + Worksheets("FILTRE").Range("D2").Text + "-" + Worksheets("FILTRE").Range("C2").Text + "-" + Worksheets("FILTRE").Range("B2").Text + "' ) AND (ENDDATE >= '" + Worksheets("FILTRE").Range("D2").Text + "-" + Worksheets("FILTRE").Range("C2").Text + "-" + Worksheets("FILTRE").Range("B2").Text + "') "
A = A + " AND (LG_001_02_STLINE.STOCKREF = CARDREF) AND (PTYPE = 2)) AS ABAHA, "


A = A + " LG_001_ITEMS.SPECODE FROM LG_001_02_STLINE INNER JOIN L_CAPIWHOUSE ON LG_001_02_STLINE.SOURCEINDEX = L_CAPIWHOUSE.NR INNER JOIN LG_001_ITEMS ON LG_001_02_STLINE.STOCKREF = LG_001_ITEMS.LOGICALREF "
A = A + " WHERE (LG_001_02_STLINE.DATE_ <= '" + Worksheets("FILTRE").Range("D2").Text + "-" + Worksheets("FILTRE").Range("C2").Text + "-" + Worksheets("FILTRE").Range("B2").Text + "') "
A = A + " GROUP BY L_CAPIWHOUSE.NAME, LG_001_ITEMS.CODE, LG_001_ITEMS.NAME, LG_001_02_STLINE.STOCKREF, L_CAPIWHOUSE.NR, LG_001_ITEMS.SPECODE "
A = A + " HAVING (LG_001_ITEMS.CODE <> 'я') ORDER BY TOVARKOD "


.Open A
Worksheets("BRAND").Activate
Worksheets("BRAND").Range("A4:h265000").Select
Selection.ClearContents
Worksheets("BRAND").Range("A4").CopyFromRecordset RS_
.Close
End With
TCON.Close
Set RS_ = Nothing
Set TCON = Nothing
End Sub

Модератор: Тема перенесена из форума "Microsoft SQL Server".

Shocker.Pro,

ОГРОМНОЕ СПАСИБО !!

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

Еще раз спасибо.