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

gelöst Definierte Abfrage für VBA

Mitglied: VBSnoobDlu

VBSnoobDlu (Level 1) - Jetzt verbinden

17.07.2008, aktualisiert 15:52 Uhr, 5514 Aufrufe, 5 Kommentare

HI,
Ich habe mal ne echt dumme Frage aber komme einfach nicht darauf.

Ich habe eine Datenbank die einige dinge tut (Sind für die Frage nicht wichtig ;) )
so nun habe ich eine Abfrage geschrieben und gespeichert (abf_ColB)
wie kann ich in VBA nun mit dem Ergebnis dieser Abfrage arbeiten?
Das Ergebnis sind einige Zeilen also muss in einem Object gespeichert werden nur wie führe ich die Abfrage in VBA aus??

habe bis dato immer folgendes gemacht:


Sub bla()
DIM SQLCB as String
DIM Rec as Object

SQLCB = "Select * from tbl_bla;"

Set Rec = CurrentDb.OpenRecordset(SQLCB)



So würde ich es so auch weitermachen, doch der SQL-Tag ist zu lang und hat zuviele Variablen die ich in VBS nicht mehr getrennt bekommen ;)

bsp:
SELECT tbl_Pressplan.F_Nummer AS [F-Nr], tbl_Pressplan.Kunde, tbl_Pressplan.Modell, tbl_Pressplan.Folie, tbl_Pressplan.Menge, [Hübe] & "/" & summ([Startdatum],[Startzeit],[Maschine]) AS Hub, [Startdatum] & " " & [Startzeit] AS Start, IIf([Gespritzt] Is Null,"","x") AS SP, tbl_Pressplan.Text AS Zusatz, tbl_produktion.Text AS Auftragstext FROM tbl_Pressplan LEFT JOIN tbl_produktion ON tbl_Pressplan.F_Nummer_Auswahl = tbl_produktion.z10_faufnr WHERE (((tbl_Pressplan.Maschine)="Col. B") AND ((tbl_Pressplan.Erledigt) Is Null)) ORDER BY tbl_Pressplan.Startdatum, tbl_Pressplan.Startzeit;


Also wie kann ich eine definierte Access-Abfrage (abf_ColB) in VBA ausführen und das Ergebnis bearbeiten?


Danke schon mal für die Hilfe

Daniel
Mitglied: Logan000
17.07.2008 um 11:19 Uhr
Moin

..., doch der SQL-Tag ist zu lang und ...
Zu lang für was?

...hat zuviele Variablen die ich in VBS nicht mehr getrennt bekommen ;)
Welche Variablen und warum wist du diese trennen?

Vielleicht hilft Dir das weiter:
01.
DIM SQLCB as String 
02.
DIM Rec as Object 
03.
SQLCB = "SELECT tbl_Pressplan.F_Nummer AS [F-Nr], tbl_Pressplan.Kunde, " 
04.
SQLCB = SQLCB & "tbl_Pressplan.Modell, tbl_Pressplan.Folie, tbl_Pressplan.Menge, " 
05.
SQLCB = SQLCB & "[Hübe] & "/" & summ([Startdatum],[Startzeit],[Maschine]) AS Hub, " 
06.
SQLCB = SQLCB & "[Startdatum] & " " & [Startzeit] AS Start, IIf([Gespritzt] Is Null,"","x") AS SP, "  
07.
SQLCB = SQLCB & "tbl_Pressplan.Text AS Zusatz, tbl_produktion.Text AS Auftragstext " 
08.
SQLCB = SQLCB & "FROM tbl_Pressplan LEFT JOIN tbl_produktion ON " 
09.
SQLCB = SQLCB & "tbl_Pressplan.F_Nummer_Auswahl = tbl_produktion.z10_faufnr " 
10.
SQLCB = SQLCB & "WHERE (((tbl_Pressplan.Maschine)="Col. B") AND " 
11.
SQLCB = SQLCB & "((tbl_Pressplan.Erledigt) Is Null)) " 
12.
SQLCB = SQLCB & "ORDER BY tbl_Pressplan.Startdatum, tbl_Pressplan.Startzeit;" 
13.
 
14.
Set Rec = CurrentDb.OpenRecordset(SQLCB)
Gruß L.
Bitte warten ..
Mitglied: VBSnoobDlu
17.07.2008 um 11:33 Uhr
Hi und Danke,
daher das ich den Tag ja in VBA verwenden würde müsste ich Ihn umbasteln, da ja jedes " bedeutet Befehl beendet.

habe schon raus wie ich weiter machen muss ist ja doch relative leicht ;)

stAbfName = "abf_ColB"
Set Rec = CurrentDb.OpenRecordset(stAbfName)


jetzt muss ich nur noch zusehen wie ich die einzelnen Antwortzeilen aus dem Rec Object bekomme.

aber wo ein Wille ist, ist auch ein weg

Danke für dein Post aber finde Ihn zu lang ... der SQL-Tag ist nun mal bissel länger und
das Problem ist eigentlich ja nur das wenn da mal jemand anderes reinschaut erst den kompletten Tag zusammen Sätzen muss um Ihn zu verstehen.


Wie heißt es so schön

quick and dirty

aber wenn du einen Anreiz hast wegen der sache mit dem Rec object bin ich ganz Ohr


Gruß
Bitte warten ..
Mitglied: Logan000
17.07.2008 um 12:09 Uhr
aber wenn du einen Anreiz hast wegen der sache mit dem Rec object bin ich ganz Ohr
Du arbeitest in VBA unter...
Access? Welche Version?

Hast du einen Verweis gesetzt auf Microsoft ActiveX Data Objects?

Probiers mal mit
<code>
...
DIM Rec as ADODB.Recordset
...
</code

Jetzt solten dir eigenlich alle Eigenschaften und Methoden angeboten werden sobald zu Rec. tippst.
Den Rest soltest Du in der Hilfe finden.

Gruß L.
Bitte warten ..
Mitglied: VBSnoobDlu
17.07.2008 um 12:31 Uhr
es ist Access 2002

habe das mal getestet was du geschrieben hast:
DIM Rec as ADODB.Recordset

das Problem ist das ich Rec ja als Object deklariert habe,
nun bekomme ich die Fehlermeldung doppel deklaration.

Wenn ich die Object deklaration entferne bekomme ich eine Typenunverträglichkeit bei ausführen

Rec = currentDB.OpenRecordSet(SQL)

aber werde da mal ansetzen sollte machbar sein,

Ich bedanke mich für deine Hilfe.
Bitte warten ..
Mitglied: Logan000
17.07.2008 um 15:52 Uhr
Sorry da habe ich geschlafen.

So in etwa soltes du mit den Ergebnissen arbeiten können:
01.
Dim rec As Recordset 
02.
Dim tAbfName As String 
03.
 
04.
tAbfName = "abf_ColB" 
05.
Set rec = CurrentDb.OpenRecordset(tAbfName ) 
06.
rec.MoveFirst 
07.
While Not rec.EOF 
08.
    Debug.Print rec.Fields(0).Value   ' Inhalt 1. Feld 
09.
    Debug.Print rec.Fields(1).Value   ' Inhalt 2. Feld usw. 
10.
    rec.MoveNext 
11.
Wend
Gruß L.
Bitte warten ..
Ähnliche Inhalte
VB for Applications

VBA Excel Filter mit vor Definiertem Freien Platz

gelöst Frage von chaos2goVB for Applications14 Kommentare

Hey ihr , unzwar habe ich einen Excel Report , für den ich ein VBA script habe , was ...

VB for Applications

SNMP Abfrage in EXCEL über VBA

Frage von SebastianLVB for Applications7 Kommentare

Hallo Zusammen, Erstmal zum Sachverhalt: Ich habe mehrere Drucker (ca. 50) die über SNMP ansprechbar sind. Mein Ziel ist ...

Microsoft Office

Abfrage durch vba von Oracle-DB, Fehlermeldung

Frage von famsprengeMicrosoft Office

Hallo zusammen, ich versuche mit Excel-vba eine Abfrage von einer Oracle-Datenbank durchzuführen. Der Code läuft durch bis zum Öffnen ...

Windows Userverwaltung

RDP definierte Benutzer auf definierten Servern über GPO

gelöst Frage von mc-doubleyouWindows Userverwaltung11 Kommentare

Hallo Community, ich steh mal wieder an. :( Gibt es über GPO eine Möglichkeit folgendes zu definieren: User A ...

Neue Wissensbeiträge
Humor (lol)
IoT-Gefahr: Smartes Aquarium leckt!
Information von Lochkartenstanzer vor 17 StundenHumor (lol)3 Kommentare

Moin, Die IoT-Manie hat weitere Opfer gefunden. Ein Casino-Leck durch ein smartes Aquarium: Allerdings haben sie kein Wasser, sondern ...

Router & Routing

Alte Fritzbox 7270 mit VPN und SIP-Telefonie hinter O2 Homebox 6641 als "Modem"

Erfahrungsbericht von the-buccaneer vor 1 TagRouter & Routing3 Kommentare

Nun war es soweit: Auch O2 hat mich mit VOIP zwangsbeglückt. Heute am Privatanschluss, in 2 Wochen ist das ...

Sicherheit

Ungepatchte Remote Code Execution-Lücke in LG NAS

Information von kgborn vor 1 TagSicherheit

Nutzt wer LG NAS-Einheiten? In den NAS-Einheiten der LG Network Storage-Einheiten gibt es eine sehr unschöne Schwachstelle, die einen ...

Windows Update

Neue Version KB4099950 NIC Einstellungen gehen verloren

Information von sabines vor 1 TagWindows Update2 Kommentare

Es ist eine neue Version des KB4099950 verfügbar, die das Problem mit den verlorenen Netzwerkeinstellungen lösen soll. Das Datum ...

Heiß diskutierte Inhalte
Sicherheit
Verbindliche Zustellung per E-Mail?
Frage von ahussainSicherheit18 Kommentare

Hallo allerseits, ein Kunde von mir nutzt intensiv Fax. Hauptgrund: zusammen mit einer Empfangsbestätigung ist eine verbindliche Zustellung gewährleistet. ...

Sonstige Systeme
Wie Normenkataloge im Unternehmen bereit stellen?
Frage von MuzzepuckelSonstige Systeme14 Kommentare

Hallo Kollegen, ich lese schon lange hier mit, nun mein ersrer Beitrag, bzw. Frage. :-) Wir benötigen für unsere ...

Linux Netzwerk
Raspberry Pi 3: WLAN Power save deaktivieren
Frage von nordie92Linux Netzwerk13 Kommentare

Moin moin, mein Raspberry Pi 3 Model B benötigt eine dauerhaft aktive WLAN-Verbindung. Leider bricht die WLAN-Verbindung nach einigen ...

SAN, NAS, DAS
Entscheidung SAN Dell oder HP
Frage von VincorSAN, NAS, DAS13 Kommentare

Hallo, wir wollen uns für unsere Hyper V Umgebung eine neue SAN Anschaffen. Es laufen 30 VM's darunter, DC; ...