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
|