Frage : erforderliche Störung des Gegenstandes

Ich versuche, einen VB Index zu schreiben übertreffe innen, der einige Tabellen fragt und die Resultate in einem Verteilungsbogen zurückbringt. Bevor ich verwendet habe, übertreffen eine Zugangsfrage und importiert ihm in als Datenbankfrage. Jetzt verwende ich SQL-Unternehmens-Manager und weiß nicht von einer Weise, eine Frage aus dem Fragenanalysator zu importieren, also schrieb ich diesen VB Index, der versucht, an meine Tabellen anzuschließen und die Daten zu importieren, die Weise. Ich erhalte eine Störung, die den erforderten Gegenstand sagt. Ist hier mein Index:

Sub CompareQry ()

' erklären das QueryTable object
Dim Quart, während QueryTable

' Datenbank varaiables
Dim SQLDB als String
Dim SQLServer als String
Dim SQLDbase als String
Dim SQLUser als String
Dim SQLPword als String

Open App.Path u. „\ SQLConnect.txt“ für Eingang als #1
Input #1 erklären, SQLServer, SQLDbase, SQLUser, gründete SQLPword
Close #1

' den SQL Statement
sqlstring = „AUSERWÄHLTES a.item, a.qty, a.strnum, b.item als itemb, b.qty als qtyb, verbinden b.strnum“ _
& „vom firsttbl ein“ _
& „inner [server1] .STORE.dbo.tablename b“ _
& „auf a.strNum = b.strnum und “ _
& „a.Item = b.Item“ _
& „und a.qty <> b.qty“ _
& „, wo a.strNum = Auftrag „09“ durch a.item "

' das Anschluss string
connstring = „Provider=sqloledb gründete; Server=“ u. SQLServer u.“; Benutzernummer = " u. SQLUser u. „; Pwd=“ u. SQLPword u.“; Database= " u. SQLDbase

' Werkzeug der Anschluss, lassen die Frage und add
' die Resultate zum Verteilungsbogen laufen, der an der Reihe A1
With ActiveSheet.qt.Add beginnt (Connection: =connstring, Bestimmungsort: =Range („A1“), Sql: =sqlstring)
. Refresh

Ende With

End Sub

Thanks für die ganze Ihre Hilfe!
KT

Antwort : erforderliche Störung des Gegenstandes

Ihre Störung ist hier höchstwahrscheinlich

ActiveSheet.qt.Add

Weil ActiveSheet nicht etwas benannter Quart hat

Sie können wünschen

Einstellen Quart = ActiveSheet.QueryTables.Add (….  
Weitere Lösungen  
 
programming4us programming4us