Desktop
Website
Multimedia
Database
Security
Enterprise
Pytanie : przedmiot wymagany błąd
I próbować VB pismo wewnątrz przodować który query niektóre stół i wracać the rezultat w spreadsheet. Zanim I używać dojazdowy zapytanie i ono w przodować jako baza danych zapytanie. Teraz, I używać SQL Przedsięwzięcie Kierownik i znać sposób zapytanie od the zapytanie analyzer, więc I napisać ten VB pismo mój stół i the dane który sposób. I dostawać błąd który mówić przedmiot wymagać. Tutaj być mój pismo:
Sub CompareQry ()
' Oznajmiać the QueryTable object
Dim qt Gdy QueryTable
' Oznajmiać baza danych varaiables
Dim SQLDB Jako String
Dim SQLServer Jako String
Dim SQLDbase Jako String
Dim SQLUser Jako String
Dim SQLPword Jako String
Open App.Path & "\ SQLConnect.txt" Dla Wkład Gdy #1
Input #1, SQLServer, SQLDbase, SQLUser, SQLPword
Close #1
' Ustawianie the SQL Statement
sqlstring = "WYBRANY a.item, a.qty, a.strnum, b.it
em jako itemb, b.qty jako qtyb, b.strnum" _
& "OD firsttbl" _
& "wewnętrzny łączyć [server1] .STORE.dbo.tablen
ame B" _
& "na a.strNum = b.strnum i " _
& "a.Item = b.Item" _
& "i a.qty <> b.qty" _
& "Dokąd a.strNum = "09" rozkaz a.item "
' Ustawianie the podłączeniowy string
connstring = "Provider=sqloledb; Server=
" & SQLServer &"; Użytkownik - id = " & SQLUser & "; Pwd=" & SQLPword &"; Database= " & SQLDbase
' Narzędzie the związek, biegać the zapytanie, i add
' the rezultat the spreadsheet przy rząd A1
With ActiveSheet.qt.Add (Connect
ion: =conns
tring, Miejsce przeznaczenia: =Range ("A1"), Sql: =sqlstring)
. Refresh
Końcówka With
End Sub
Thanks dla pomoc twój pomoc!
KT
Odpowiedź : przedmiot wymagany błąd
Twój błąd być najprawdopodobniejszy tutaj
ActiveSheet.qt.Add
Ponieważ ActiveSheet mieć coś dzwonić qt
Ty móc
Set qt = ActiveSheet.QueryTables.Add
(….
Inne rozwiązania
SUP7203B PFC niekompatybilność
system przywrócić punkt
IE8 Przedkładać Forma z [Wchodzić Do] Klucz, stosownie
zintegrowany wordpress w miejsce. blog pic doczepianie.
Łączyć XenServer wśród iPhone
Porzucony Windows 7 Instalacyjny odpowiedź kartoteka
SSH konsola: iść precyzować falcówka po nazwa użytkownika
Tworzyć Linux przygotowywać CD-R stylowy but dysk…
Dlaczego Sysinternals Wirusowy wyszukiwarka redirect?
MS Dojazdowy SQL Podział Dojazdowy obejście potrzebować