Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
könnt ihr mir beim vbs helfen
zurück: Kalenderwoche und Jahr ausgeben weiter: Tabellen Verknüpfen Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Judith W.
Im Profil kannst Du frei den Rang ändern


Verfasst am:
06. März 2009, 10:30
Rufname:

könnt ihr mir beim vbs helfen - könnt ihr mir beim vbs helfen

Nach oben
       Version: Office 2003

Hallo könnt ihr mir vielleicht helfen
dieses vbs script zieht Daten aus unserer MySQL DB in xls:
Code:
Option Explicit

'---- CursorTypeEnum Values ----
Const adOpenForwardOnly = 0
' Const adOpenKeyset = 1
' Const adOpenDynamic = 2
' Const adOpenStatic = 3

'---- LockTypeEnum Values ----
Const adLockReadOnly = 1
' Const adLockPessimistic = 2
' Const adLockOptimistic = 3
' Const adLockBatchOptimistic = 4

'---- CursorLocationEnum Values ----
' Const adUseServer = 2
Const adUseClient = 3

'---- ConnectModeEnum Values ----
' Const adModeUnknown = 0
Const adModeRead = 1
' Const adModeWrite = 2
' Const adModeReadWrite = 3
' Const adModeShareDenyRead = 4
' Const adModeShareDenyWrite = 8
' Const adModeShareExclusive = &Hc
' Const adModeShareDenyNone = &H10
' Const adModeRecursive = &H400000


    Dim objExcel, objWb, SkriptPfad
    Dim objSheet
    Dim Conn, RS
    Dim rowCount, i, headerSet
    Dim x 'Zähler für Statusbar
    Dim Gesamtanzahl
    Dim Ergebnis
   
    x = 0 'Anfangswert für Zähler
    Gesamtanzahl = 1443
    rowCount = 1
    SkriptPfad = WScript.ScriptFullName                        'Pfadermittlung
    SkriptPfad = Left(SkriptPfad, Len(SkriptPfad) - Len(WScript.ScriptName))
                                                               'Pfadermittlung
    Set objExcel = CreateObject("Excel.Application")
    Set objWb = objExcel.Workbooks.Open(SkriptPfad & "../test.xls")
                                                    'öffnet die angegebene xls
    objExcel.Visible = True
    objExcel.Sheets("Datenbasis").Select
                          'wählt die angegebene Mappe der zuvor geöffneten xls
    objExcel.Range("Datenbasis!$1:$65536").ClearContents
                                    'löscht alle Inhalte von angegebener Mappe
    'Angabe des Tabellenblattes
    Set objSheet = objExcel.ActiveWorkbook.WorkSheets("Datenbasis")
                                          'Import in angegebenes Tabellenblatt
    Set Conn = CreateObject("ADODB.Connection")
    Conn.Provider = "MSDASQL"
    Conn.Mode = adModeRead
    Conn.CursorLocation = adUseClient
    Conn.Open "DRIVER={MySQL ODBC 5.1 Driver};DATABASE=db;SERVER=server;", _
              "user", "pw"
    Set RS = CreateObject("ADODB.Recordset")
    RS.CursorLocation = adUseClient
    'verwendete SQL-Anweisung
    RS.Source = "Select * From Kundentab;"
    Set RS.ActiveConnection = Conn
    RS.CursorType = adOpenForwardOnly
    RS.LockType = adLockReadOnly
    RS.Open
    Do While Not RS.EOF
        objExcel.StatusBar = Ergebnis & " % der Datensätze aus DB importiert"
                                                           'Text für Statusbar
        'Die Spalenüberschriften einfügen Bezug aus dem SQL-Statement
        If (headerSet = 0) Then
            For i = 0 To RS.Fields.Count - 1
                objSheet.Cells(rowCount, i + 1).Value = RS.Fields.Item(i).Name
            Next i
            headerSet = 1
        End If
        'Die dazugehörigen Werte einfügen
        For i = 0 To RS.Fields.Count - 1
            objSheet.Cells(rowCount + 1, i + 1).Value = RS.Fields.Item(i).Value
        Next i
        rowCount = rowCount + 1
        RS.MoveNext
        x = x + 1
        'Ergebnis = Round((x/Gesamtanzahl) * 100, 0)
        Ergebnis = Int((x / Gesamtanzahl) * 100)
    Loop
    objExcel.StatusBar = False                           'Statusbar bereinigen
    objExcel.Sheets("Pivot1").Select
                          'wählt die angegebene Mappe der zuvor geöffneten xls
    RS.Close
    Set RS = Nothing
    Conn.Close
    Set Conn = Nothing
    MsgBox "Datenimport aus DB abgeschlossen! Die Datenbasis zeigt den " & _
           "Stand vom " & Date & " bis " & Time & "!" & vbCrLf & _
           "Aktualisieren Sie die Pivottabellen über die Schaltfläche!" & _
           vbCrLf & "Es wurden " & x & " Datensätze aus DB importiert", 64, _
           "Info"
In diesem Code ist die Gesamtanzahl fest vergeben, kann man die Gesamtaanzahl als Ergebnis dieses Sql Statements übernehmen?
Code:
SELECT COUNT(*) AS Anzahl
FROM   Kunden
WHERE  kndnr.= 1020;
Das ist nämlich die Anzahl die ich in meinem "alten" Code als festen Wert drin habe

Jemand eine Idee??
MiLie
kein Office- VBA- Programmierer


Verfasst am:
06. März 2009, 22:19
Rufname: Micha
Wohnort: Chemnitz


AW: könnt ihr mir beim vbs helfen - AW: könnt ihr mir beim vbs helfen

Nach oben
       Version: Office 2003

hallo,
Code:
Gesamtanzahl = DCount("*", "Kunden", "kndnr = 1020")

_________________
Viele Grüße

Micha

Schreibfehler die Ihr findet, könnt Ihr behalten
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Hilfe: DB stürzt nach start ab... wer kann helfen 3 andrlechner 383 06. Dez 2011, 09:39
Donni DB stürzt nach start ab... wer kann helfen
Keine neuen Beiträge Access Formulare: Filter funktioniert nicht richtig! bitte helfen 4 s_Techert 387 29. Apr 2011, 12:10
s_Techert Filter funktioniert nicht richtig! bitte helfen
Keine neuen Beiträge Access Tabellen & Abfragen: Datenbankdesign-mag mir jemand helfen 1 rewelrider 274 26. Sep 2010, 19:36
derArb Datenbankdesign-mag mir jemand helfen
Keine neuen Beiträge Access Hilfe: Hat jemand den nerv mir !!! anfänger !!! zu helfen 6 Vinz 482 09. Jan 2010, 22:23
Vinz Hat jemand den nerv mir !!! anfänger !!! zu helfen
Keine neuen Beiträge Access Programmierung / VBA: ERM und Normalsierung! wer kann mir helfen? danke im voraus! 1 andi90 299 18. Nov 2009, 12:45
MiLie ERM und Normalsierung! wer kann mir helfen? danke im voraus!
Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten. Access Tabellen & Abfragen: Datum vergleichen! Bitte helfen bin am verzweifeln! 1 RocknRoller1337 304 27. Feb 2009, 14:28
KlausMz Datum vergleichen! Bitte helfen bin am verzweifeln!
Keine neuen Beiträge Access Programmierung / VBA: Access oder Excel per .vbs oder .bat Datei fernsteuern 2 blicki 3863 16. Jun 2008, 12:29
blicki Access oder Excel per .vbs oder .bat Datei fernsteuern
Keine neuen Beiträge Access Hilfe: Kann jemand helfen mein Code öffnet outlook nicht. 3 toxma 1522 13. Jan 2008, 22:47
Willi Wipp Kann jemand helfen mein Code öffnet outlook nicht.
Keine neuen Beiträge Access Hilfe: Hilfe wer kann mir Helfen meine Datenbank zu erweitern? 3 abraham20 996 17. Aug 2007, 21:34
LynnV Hilfe wer kann mir Helfen meine Datenbank zu erweitern?
Keine neuen Beiträge Access Hilfe: Abfrage-Funktion, wer kann mir helfen 3 Gast 602 20. Jul 2007, 14:46
Willi Wipp Abfrage-Funktion, wer kann mir helfen
Keine neuen Beiträge Access Hilfe: Kleine Probleme bei Suchmaske, wer könnte helfen? 0 Biegel 701 12. Feb 2007, 22:59
Biegel Kleine Probleme bei Suchmaske, wer könnte helfen?
Keine neuen Beiträge Access Programmierung / VBA: DB lässt sich nicht öffnen! Kann mir bitte jemand helfen?! 3 Anfänger123 905 20. Mai 2006, 14:12
Nouba DB lässt sich nicht öffnen! Kann mir bitte jemand helfen?!
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: CSS Forum