Desktop
Website
Multimedia
Database
Security
Enterprise
Fråga : anmärka det required felet
Pröva förmiddag I att skriva en VB skrivar överträffar, att den ska queryen några bordlägger och går in resultaten i ett räkneark tillbaka. För jag har använt, en ta framquery och importerat det in i överträffar som en databasquery. Nu I-förmiddagen using SQL-företagchef och vet inte av a långt till importen en query från queryanalysatorn, så jag skrev denna VB skrivar pröva för att förbinda till mitt bordlägger och importen datan ditåt. Förmiddag som I får ett fel som något att säga anmärker required. Är här mitt skrivar:
' för
Sub CompareQry () förklarar den QueryTable object
Dim qt, som QueryTable
' förklarar att databasvaraiables
Dim SQLDB som String
Dim SQLServer som String
Dim SQLDbase som String
Dim SQLUser som String
Dim SQLPword som String
Open App.Path & ”\ SQLConnect.txt” för matar in som #1
Input #1, SQLServer, SQLDbase, SQLUser, SQLPword
Close #1
' ställer in SQLEN Statement
sqlstring = ”VALD a.item, a.qty, a.strnum, b.it
em som itemb, b.qty som qtyb, b.strnum” _
& ”FRÅN firsttbl en inre” _
& ”sammanfogar [server1] .STORE.dbo.tablen
ame b” _
& ”på a.strNum = b.strnum och ” _
& ”a.Item = b.Item” _
& ”och a.qty-<> b.qty” _
& ”var a.strNum = ”09” beställer vid a.item "
' ställer in anslutningsstring
connstring = ”Provider=sqloledb; Server=
” & SQLServer &”; Användare - ID = " & SQLUser & ”; Pwd=” & SQLPword &”; Database= " & SQLDbase
' genomför anslutningen, kör queryen, och add
' resultaten till räknearkstarten på ror A1
With ActiveSheet.qt.Add (Connect
ion: =conns
tring, destination: =Range (”A1”), Sql: =sqlstring)
. Refresh
avslutar With
End Sub
Thanks för all din hjälp!
KT
" klar "
Svar : anmärka det required felet
Ditt fel är mest rimlig här
ActiveSheet.qt.Add
Därför att ActiveSheet inte har något kallad qt
Du kan önska
Uppsättning qt = ActiveSheet.QueryTables.Add
(….,
Andra lösningar
Hur många skrivar av sidor r där i SQL-server?
OMA och OWA
Missa över mellan GLÅMIGA anslutningar för aktiv/för aktiv på en Cisco Router
ASP.Net tappar skuggar verkställer
Vad är ämna av ”den MAKEFILE” makroen i en makefile?
Ett rengöringsdukundantag uppstod därför att en HTTP 401 - det obehöriga svaret mottogs från okända
Funktionen måste använda en Updateable Query
PHP passerar parametrar till den on-line aktiveringssidan
Ethernetövergångskabel förbinder
döda ett processaa vid styrka, hur kan jag