- Katılım
- 23 Ekim 2011
- Mesajlar
- 31
- Excel Vers. ve Dili
- 2003 Türkçe
- Altın Üyelik Bitiş Tarihi
- 09.11.2022
Merhaba arkadaşlar, logo go veritanından bilgi çekmeye çalışıyorum. Baglan ve con modül içinde public olarak tanımlandı, aşağıdaki sorgu ile recordset açılışında. " Run-time error '-2147217900(80040e14)': Incorrect syntax near 'dbo'. Hatası alıyorum, ayrıca aşağıdaki sorgu ile logo veritabanında wiev oluşturdum wiev adı = "dbo.stokbaris" bu wiev i de recordset e alamadım bir türlü nerede hata yapıyorum? İyi çalışmalar.
Kod:
Private Sub UserForm_Activate()
Dim rs As Object
Set rs = CreateObject("adodb.recordset")
Call Baglan
s = " select * dbo.LG_014_ITEMS.STGRPCODE AS [GRUP KODU], dbo.LG_014_ITEMS.CODE AS [MALZ. KODU], dbo.LG_014_ITEMS.NAME AS [MALZ. AÇIKLAMASI],"
s = s & " dbo.LG_014_PRCLIST.PRICE AS [SATIŞ FİYATI], SUM(dbo.LG_014_01_STINVTOT.ONHAND) AS [STOK MİKTARI],"
s = s & " dbo.LG_014_PRCLIST.CURRENCY AS [DÖVİZ KODU]"
s = s & " FROM dbo.LG_014_01_STINVTOT INNER JOIN"
s = s & " dbo.LG_014_ITEMS ON dbo.LG_014_01_STINVTOT.STOCKREF = dbo.LG_014_ITEMS.LOGICALREF INNER JOIN"
s = s & " dbo.LG_014_PRCLIST ON dbo.LG_014_ITEMS.LOGICALREF = dbo.LG_014_PRCLIST.CARDREF"
s = s & " GROUP BY dbo.LG_014_ITEMS.CODE, dbo.LG_014_ITEMS.NAME, dbo.LG_014_PRCLIST.PRICE, dbo.LG_014_PRCLIST.PTYPE, dbo.LG_014_01_STINVTOT.INVENNO,"
s = s & " dbo.LG_014_ITEMS.STGRPCODE , dbo.LG_014_PRCLIST.CURRENCY"
s = s & " HAVING (dbo.LG_014_PRCLIST.PTYPE = 2) And (dbo.LG_014_01_STINVTOT.INVENNO = -1)"
rs.Open s, con, 1, 1
With ListView1
.ListItems.Add , , rs(0).Value
.ListItems(.ListItems.Count).ListSubItems.Add , , rs(1).Value
.ListItems(.ListItems.Count).ListSubItems.Add , , rs(2).Value
.ListItems(.ListItems.Count).ListSubItems.Add , , rs(3).Value
.ListItems(.ListItems.Count).ListSubItems.Add , , rs(4).Value
.ListItems(.ListItems.Count).ListSubItems.Add , , rs(5).Value
'.ListItems(.ListItems.Count).ListSubItems.Add , , rs(6).Value
End With
End Sub