Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
18.04.2024 17:45:21
Shellkommando ausführen, stderr auslesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1856to1860
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1856to1860
1856to1860
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

In Datenbank Wert suchen und Rückgeben

In Datenbank Wert suchen und Rückgeben
27.11.2021 23:56:48
Tobi
Hallo,
ich suche per Vba in der Datenbank nach einen Wert 

ConnectDB
Set rs = New ADODB.Recordset
Dim sqlstr As String
Dim Geraet = "13334"
sqlstr = "SELECT * FROM auftrag where Geraetenummer = '" & Geraet & "';"
rs.Open sqlstr
Vorreparatur_suchen = rs.GetRows
Anzahl = UBound(Vorreparatur_suchen, 2)
Nun möchte ich die Anzahl der gefunden Zeilen festlegen und alle Werte die in Spalte (2) Auftragsnummer der Datenbank gefunden wurden in eine Spalte schreiben.
Kann mir jemand dabei helfen?
Liebe Grüße
Tobi

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: In Datenbank Wert suchen und Rückgeben
28.11.2021 06:37:54
Oberschlumpf
Hi Tobi,
kannst du denn bitte per Upload sowohl von der DB und auch Excel-Datei jeweils Bsp-Dateien mit Bsp-Daten zeigen?
Ciao
Thorsten
AW: In Datenbank Wert suchen und Rückgeben
28.11.2021 10:25:15
Tobi
Hallo guten Morgen.
Hier ist eine Beispieldatei : https://www.herber.de/bbs/user/149442.zip
Im Grauen Feld wird die Gerätenummer eingetragen.
Dann wird in der Datenbank nach der Gerätenummer gesucht. Die gefunden Stellen sollen in ein Array geschrieben werden
Die dazugehörigen Auftragsnummer sollen dann in Spalte J der Exceldatei untereinander ausgegeben werden.
Ich habe gester noch so viel experimentiert dass jetzt garnichts mehr von der Ausgabe funktioniert. Ich habe die Fehlstellen mal auskommentiert.
Liebe Grrüße
Tobi
Anzeige
AW: In Datenbank Wert suchen und Rückgeben
29.11.2021 10:47:25
ChrisL
Hi
Die Connection musst du gemäss deinen Bedürfnissen neu anpassen. Ich habe zudem auf Late-Binding umgestellt, was ohne Verweise auskommt.
Die Zahlen 1 + 3 sind die Verbindungseigenschaften (ReadOnly und Static).
https://docs.microsoft.com/en-us/sql/ado/reference/ado-api/locktypeenum?view=sql-server-ver15
https://docs.microsoft.com/en-us/sql/ado/reference/ado-api/cursortypeenum?view=sql-server-ver15
Es bietet sich an, nur die Auftragsnummern zu selektieren anstelle aller Daten (Stern=Platzhalter, alle).

Const strConnection As String = "Provider=Microsoft.ACE.OLEDB.16.0;Data Source=C:\Pfad\DB.accdb"


Sub t()
Dim objCon As Object, objRS As Object
Set objCon = CreateObject("ADODB.Connection")
Set objRS = CreateObject("ADODB.Recordset")
objCon.Open strConnection
objRS.Open "SELECT Auftragsnummer FROM Tabelle1 WHERE Geraetenummer=" & Range("Geraetenummer"), objCon, 1, 3
MsgBox "Anzahl Records: " & objRS.RecordCount
Columns(10).Delete
Range("J1").CopyFromRecordset objRS
objRS.Close
objCon.Close
Set objRS = Nothing
Set objCon = Nothing
End Sub
cu
Chris
Anzeige
Vielen Dank ... so funktioniert es owT
01.12.2021 11:54:56
Tobi

303 Forumthreads zu ähnlichen Themen

In Spalte nach Anzahl eines Begriffs suchen?
Lauren

Hall Leute!
ich will nach einem Begriff, in meinem Fall nach "SUMs" in der Spalte C suchen und wissen wie oft es in der Spalte vorkommt.
Bei Berechnungen funktioniert es mit ZÄHLENWENN ohne Probleme aber wie erhalte ich die "absolute" Zahl?
Vielen Dank für Eure Hilfe!
Grüße
...
19.08.2008 11:08:23
Thread-ID: 1002846
5 Beiträge
Anzeige
Häufigkeit einer Uhrzeit aus einer Spalte
wolfgang

Hallo Leute
Ich habe eine Spalte mit einer menge Uhrzeiten und möchte die Häufigkeit einer Uhrzeit ( wie oft ist eine eintrag vorhanden)zum Beispiel zwischen 08:00 und 17:00!! Ich weiß das für euch sicher ein leichtes ist jemanden wie mir zu helfen!
Schon jetzt besten Dank für eure Mühe...
02.09.2008 15:11:51
Thread-ID: 1006816
2 Beiträge
von Datum bis Datum suchen und Werte in die Spalte
Datum

Hallo liebe Excel-Könner,
ich habe folgendes Problem und finde keine Lösung.
Ich habe in Spalte A von 2006 bis heute Datum stehen, über eine UserForm möche ich in zwei TextBoxen von bis Datum eintragen und in Spalte B in diesem Bereich den WertX.
Ich hoffe Ihr könnt mir helfen!
...
07.09.2008 09:31:20
Thread-ID: 1007931
8 Beiträge
Anzeige
Berechnen von Werten in einer Spalte
Werten

Folgendes Problem:
In der Spalte A möchte ich wissen, wieviel unterschiedliche Werte es gibt.
Wer kann mir helfen.
Danke
Alex
05.10.2008 12:52:00
Thread-ID: 1014231
5 Beiträge
Filtern, gefilterte Daten benutzen, Suchen und Aus
Merle


Hallo alle zusammen,
ich habe ein mittelschweres Problem. Und zwar habe ich hier ein Beispiel:
https://www.herber.de/bbs/user/55986.xls
In 'Tabelle1' sind ganz viele verschiedene Waren (C17:57) hinterlegt. Ich möchte nun, wenn ich eine dieser Waren rausfilter z.B H025, dass da...
13.10.2008 15:48:00
Thread-ID: 1016087
3 Beiträge
Gleiche Eintäge in einer Spalte nacheinander finde
Malcolm_p

Hallo zusammen!
Wenn ich einen bestimmten Eintrag - per VBA - in einer Spalte finden möchte verwende ich der Regel den folgenden Code:
Dim NameSP As Range
Set NameSP = Sheets("Konten").Rows(1).Find( _
What:=Textbox1, _
Lookat:=xlWhole, _
LookIn:=xlValues)
Dim Erfdat...
15.10.2008 23:08:59
Thread-ID: 1016705
5 Beiträge
Suchen und Ersetzen schnelleres Makro
Susi

Hallo liebe Excel-Freunde,
ich habe folgendes kleines Makro.
Sub Suchen_Ersetzen() out = "15200" 'zu ersetzender String in = "43900" 'einzufügender String For Each cell In Selection If cell.HasFormula = True Then cell.Formula = Application.WorksheetFunction.Substitute(cell.Formula, ou...
20.10.2008 12:19:00
Thread-ID: 1017624
17 Beiträge
Doppelte Einträge in einer Spalte farbig markieren
Robert

Hallo,
ich hab eine Tabelle mit riesigem Datenbestand. Mein Problem ist nun, dass doppelte Eintrage, die in einer Spalte vorkommen, farbig markiert werden sollten - und das gleiche bei jeder weiteren Spalte mit Inhalt.
Sollten in einer Spalte doppelte Einträge vorhanden sein, müsste die...
27.10.2008 19:09:00
Thread-ID: 1019713
11 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
8
1
7
5
4
2
4
16
10
2
3
6
8
4
2
3
4
2
15
10
5
1
5
3