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
|
