Desktop
Website
Multimedia
Database
Security
Enterprise
Vraag : voorwerp vereiste fout
Ik probeer te schrijven een manuscript VB binnen uitblinkt dat sommige lijsten zal vragen en de resultaten in een spreadsheet zal terugkeren. Alvorens ik heb gebruikt blinkt een toegangsvraag en ingevoerd het in uit als gegevensbestandvraag. Nu, gebruik ik SQL de Manager van de Onderneming en ken niet van een manier om een vraag van de vraaganalysator in te voeren, zodat schreef ik dit manuscript VB die met mijn lijsten proberen te verbinden en de gegevens in te voeren die manier. Ik krijg een fout die vereist voorwerp zegt. Hier is mijn manuscript:
Sub CompareQry ()
' verklaart QueryTable object
Dim qt aangezien QueryTable
' gegevensbestand varaiables
Dim SQLDB als String
Dim SQLServer als String
Dim SQLDbase als String
Dim SQLUser als String
Dim SQLPword als String
Open App.Path & „\ SQLConnect.txt“ voor Input als #1
Input #1 verklaart, SQLServer, SQLDbase, SQLUser, de Opstelling #1
Close/>' SQL Statement
sqlstring = „UITGEZOCHTE a.item, a.qty, a.strnum, b.it
em als itemb, b.qty als qtyb, b.strnum“ _
& „VAN firsttbl een“ _
& „binnen zich [server1] bij .STORE.dbo.tablen
ame B“ _
& „op a.strNum = b.strnum aansluit en “ _
& „a.Item = b.Item“ _
& „en a.qty <> orde b.qty“ _
& „waar a.strNum = „09“ door a.item "
' Opstelling/>
connstring = „Provider=sqloledb; Server=
“ & SQLServer &“; Gebruiker - identiteitskaart = " & SQLUser & „; Pwd=“ & SQLPword &“; Database= " & SQLDbase
' voeren de verbinding, stellen de vraag, en add
' de resultaten uit aan de spreadsheet in werking die bij rij A1
With ActiveSheet.qt.Add beginnen (Connect
ion: =conns
tring, Bestemming: =Range („A1“), Sql: =sqlstring)
. Het Eind With
End Sub
Thanks van Refresh
voor elk van uw hulp!
KT
Antwoord : voorwerp vereiste fout
Uw fout is hier most likely
ActiveSheet.qt.Add
Omdat ActiveSheet iets niet geroepen qt heeft
U kunt willen
Vastgesteld qt = ActiveSheet.QueryTables.Add
(….
Andere oplossingen
Somebody verzendt emialsvorm mijn hotmailrekening
een programma probeert om het volgende e-mailbericht uit uw naam te verzenden - de Levende post van Vensters
Kleine Statische IP Bedrijfs van de Server 2008 verandering
sharepoint stichting 2010 op met 32 bits?
Word 2003 die - met lijsten, rijen, en cellen werken
Navigeer aan de pagina van een specifiek punt op een gridview
Hyperlink die het diagram/de Tekening activeren
Apple iWeb - hoe te om HTML aan Schijf de website via FTP te publiceren te bewaren of?
sql - datumformaat
Het van een lus voorzien over de tellers van googlekaarten v3