Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Mit mysql rechnen in VBA (Excel)

Frage Entwicklung Datenbanken

Mitglied: RoyalSunday

RoyalSunday (Level 1) - Jetzt verbinden

16.09.2008, aktualisiert 17.09.2008, 4411 Aufrufe, 3 Kommentare

Hallo zusammen

Zuzeit habe ich ein Script das alle Daten aus der Datenbank ausliesst. Nun sollte man aber zusätzlich noch Werte Rechnen.
z.B. Traffic * Calls.
Wie mache ich das?

Vielen Dank für die Hilfe

01.
Sub Makro2() 
02.
03.
' Makro2 Makro 
04.
' Makro am 16.09.2008 von tbaroma1 aufgezeichnet 
05.
06.
 
07.
08.
    With ActiveSheet.QueryTables.Add(Connection:= _ 
09.
        "ODBC;DRIVER=SQL Server;SERVER=sch4058-2;UID=tbaroma1;APP=Microsoft Office 2003;WSID=U175891;DATABASE=TOC;Trusted_Connection=Yes" _ 
10.
        , Destination:=Range("A15")) 
11.
        .CommandText = Array( _ 
12.
        "SELECT CH_INT.Top_Level_Customer_Code, CH_INT.""Base_Offer_Level 3"", CH_INT.""Umsatz + VAT"", CH_INT.Traffic, CH_INT.Calls, CH_INT.Data_MBytes" & Chr(13) & "" & Chr(10) & "FROM TOC.dbo.CH_INT CH_INT" _ 
13.
14.
        .Name = "Abfrage von CH_INT" 
15.
        .FieldNames = True 
16.
        .RowNumbers = False 
17.
        .FillAdjacentFormulas = False 
18.
        .PreserveFormatting = True 
19.
        .RefreshOnFileOpen = False 
20.
        .BackgroundQuery = True 
21.
        .RefreshStyle = xlInsertDeleteCells 
22.
        .SavePassword = False 
23.
        .SaveData = True 
24.
        .AdjustColumnWidth = True 
25.
        .RefreshPeriod = 0 
26.
        .PreserveColumnInfo = True 
27.
        .Refresh BackgroundQuery:=False 
28.
    End With 
29.
    ActiveWindow.SmallScroll Down:=-6 
30.
End Sub 
31.
 
Mitglied: Raiment
16.09.2008 um 16:03 Uhr
Hallo

Du kannst die Berechnung gleich in der Query machen.

Z.B.: "SELECT (CH_INT.Traffic * CH_INT.Calls) as TrafficCalls, CH_INT.Data_MBytes" & Chr(13) & "" & Chr(10) & "FROM TOC.dbo.CH_INT CH_INT")

Gruss
Bitte warten ..
Mitglied: RoyalSunday
17.09.2008 um 09:15 Uhr
Super Vielen Dank für deine Hilfe.
Jedoch habe ich nun ein anderes Problem.
Wenn ich "/" rechnen möchte kommt immer ein Allgemeiner OBDC-Fehler.
Was muss ich beim Durchrechnen anders machen als beim * oder + ?
Dort geht deine Lösung nähmlich.

Zurzzeit habe ich dies:
01.
"SELECT CH_INT.Top_Level_Customer_Code, CH_INT.""Base_Offer_Level 3"", CH_INT.""Umsatz + VAT"", CH_INT.Traffic, CH_INT.Calls, CH_INT.Data_MBytes, (CH_INT.Traffic / CH_INT.Calls) as TrafficCalls" & Chr(13) & "" & Chr(10) & "FROM TOC.dbo.CH_INT CH_INT" _ 
02.
        )
Bitte warten ..
Mitglied: Raiment
17.09.2008 um 11:16 Uhr
Es müsste eigentlich auch mit dem / gehn. Alternativ kannst du auch div verwenden "(CH_INT.Traffic div CH_INT.Calls) as TrafficCalls"

http://dev.mysql.com/doc/refman/5.0/en/arithmetic-functions.html

Falls dies immer noch nicht funktionier, würd ich mal prüfen, ob du die aktuellen ODBC-Treiber (5.1 --> http://dev.mysql.com/downloads/connector/odbc/5.1.html) verwendest oder die Query mal direkt in der Datenbank ausführst

Den CRLF würd ich auch mal weglassen
Bitte warten ..
Ähnliche Inhalte
VB for Applications
VBA Excel Dateien zusammenfassen (3)

Frage von cberndt zum Thema VB for Applications ...

Microsoft Office
gelöst Verschieben von Zellinformation in andere Spalte (per VBA) excel 2010 (5)

Frage von thomas1972 zum Thema Microsoft Office ...

VB for Applications
Bilder vom LDAP in VBA - Excel (3)

Frage von Roadrunner777 zum Thema VB for Applications ...

Microsoft Office
gelöst Excel VBA In Userform Maske Text nach Eingabe löschen (1)

Frage von kluthi69 zum Thema Microsoft Office ...

Neue Wissensbeiträge
Batch & Shell

Batch zum Zurücksetzen eines lokalen Profils

Tipp von Mr.Error zum Thema Batch & Shell ...

RedHat, CentOS, Fedora

Fedora, RedHat, Centos: DNS-Search Domain setzen

(13)

Tipp von Frank zum Thema RedHat, CentOS, Fedora ...

Heiß diskutierte Inhalte
LAN, WAN, Wireless
VPN Tunnel aufbauen (16)

Frage von Hajo2006 zum Thema LAN, WAN, Wireless ...

Microsoft Office
Saubere HTML aus Word-Dokument (14)

Frage von peterpa zum Thema Microsoft Office ...

Router & Routing
ASUS RT-N18U mit VPN Client hinter Fritzbox - Portforwarding (14)

Frage von marshall75000 zum Thema Router & Routing ...

E-Mail
gelöst Probleme beim E-Mail Empfang (12)

Frage von TommyB83 zum Thema E-Mail ...