18. maj 2003 - 17:01Der er
6 kommentarer og 1 løsning
Login ID og PassWord
Jeg har en pivottabel, hvor dataerne kommer fra en SQL-database, som er hentet ind med Microsoft Query, hvorefter jeg har oprettet en OLAP-kube og til sidst sat ind i Excel som en Pivottabel. Denne Pivottabel vil jeg gerne opdatere uden at skulle taste password ind for Databaseforespørgeren. Jeg kunne forestille mig, at der kunne laves en VBA-programstump, hvor oplysningerne om Login ID og PassWord er sat ind.
Jeg har lavet følgende:
Sub OpdaterData() ' Sheets("Timer").Select ActiveSheet.PivotTables("PivotTimer").RefreshTable End Sub
...men mangler altså kodelinierne som indeholder Login ID og PassWord.
Hvis du connecter til din database med en SQL-sætning, kan du indsætte login og PW i dit SQL-udtryk. Er ikke helt sikker på jeg fatter hvad du spørger om...
Jeg vil lave en knap som er knyttet til en makro i mit regneark, hvor pivottabellen er. Denne knap skal bruges til at opdatere dataerne fra SQL. Faciliteten findes jo som sådan allerede ved at højreklikke et sted i pivottabellen og derefter vælge "Opdater", men her efter bliver jeg bedt om at indtaste Login ID og PassWord og det er det jeg gerne vil undgå.
Connect Property Example: DSN Connection Using Establish Connection The following example establishes an ODBC connection using a registered DSN to provide most of the required arguments. The User ID and Password are to be provided by domain-managed security. In this case the example prints the resulting Connect property to the Immediate window.
Dim cn As New rdoConnection Dim qd As New rdoQuery
Nu har jeg endelig fået det til at virke, både med hensyn til at opdatere og indsætte specifikke værdier i en UserForm.
/Jane
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
