Top-Themen

Aktuelle Themen (A bis Z)

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)

Mitglied: RoyalSunday

RoyalSunday (Level 1) - Jetzt verbinden

16.09.2008, aktualisiert 17.09.2008, 4445 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
Datenbanken

Excel2007 - Excel VBA Tabelle in MySQL Datenbank schreiben

gelöst Frage von moribundusDatenbanken2 Kommentare

Hallo Zusammen, ich versuche vergebens eine komplette Tabelle in eine MySQL Datenbank zu schreiben bekomme aber immer wieder folgenden ...

VB for Applications

Spalte suchen, rechnen und ersetzen Excel vba

gelöst Frage von 123660VB for Applications11 Kommentare

Hallo zusammen, ich hoffe ihr könnt mir weiter helfen. mein Problem ist : ich habe ein Tabelle mit 2 ...

Microsoft

Excel-Datei mit VBA speichern

gelöst Frage von 116408Microsoft6 Kommentare

Guten Tag Ich habe eine Excel-Datei, in der in D4 der Kundenname und in D11 das Projekt benennt wird. ...

Basic

Excel VBA enthält

Frage von AngelsBasic

Guten Tag Ich bin ganz neu in diesem Forum und hätte eine Frage. Wie kann ich bei diesem bestehenden ...

Neue Wissensbeiträge
Google Android

Googles "Android Enterprise Recommended" für Unternehmen

Information von kgborn vor 3 StundenGoogle Android

Hier eine Information, die für Administratoren und Verantwortliche in Unternehmen, die für die Beschaffung und das Rollout von Android-Geräten ...

Sicherheit

Intel gibt neue Spectre V2-Microcode-Updates frei (20.02.2018)

Information von kgborn vor 3 StundenSicherheit

Intel hat zum 20. Februar 2018 weitere Microcode-Updates für OEMs freigegeben, um Systeme mit neueren Prozessoren gegen die Spectre ...

Microsoft
ARD-Doku - Das Microsoft Dilemma
Tipp von Knorkator vor 6 StundenMicrosoft2 Kommentare

Hallo zusammen, vor einigen Tagen lief in der ARD u.a. Reportage. Das Youtube Video dazu dürfte länger verfügbar sein. ...

Windows 10

Neue Sicherheitslücke in Windows 10 (Version 1709) durch Google öffentlich geworden

Information von kgborn vor 1 TagWindows 10

Vor ein paar Tagen haben Googles Sicherheitsforscher vom Projekt Zero eine Sicherheitslücke im Edge-Browser publiziert. Jetzt wurde eine weitere ...

Heiß diskutierte Inhalte
Windows Server
AD DS findet Domäne nicht, behebbar?
Frage von schapitzWindows Server36 Kommentare

Guten Tag, ich habe bei einem Kunden ein Problem mit den AD DS. Umgebung ist folgende: Windows Server 2016 ...

Router & Routing
LANCOM VPN CLIENT einrichten
Frage von Finchen961988Router & Routing27 Kommentare

Hallo, ich habe ein Problem und hoffe ihr könnt mir helfen, wir haben einen Kunden der hat einen Speedport ...

Router & Routing
ISC DHCP 2 Subnetze
gelöst Frage von janosch12Router & Routing15 Kommentare

Hallo, ich betreibe bei mir im Netzwerk einen ISC DHCP Server auf Debian, der DHCP verwaltet aktuell ein /24 ...

CPU, RAM, Mainboards
32 gb RAM zu wenig?
Frage von pcguyCPU, RAM, Mainboards13 Kommentare

Hallo zusammen, mein PC verfügt über 32GB Ram. Nun kriege ich bei grossen Dateien im Illustrator die Fehlermeldung das ...