Tabelle füllen mit externer Datei

Chewpapa_22ca98 · 10. November 2019 um 11:14

Hallo Gerd,

Der Code kann so nicht funktionieren, da ist ein
Klammerzeichen zuviel, habe schon versucht die Klammer zu
schließen, aber dann kommt eine Fehlermeldung:

objRS(i) = Replace(Fld(i), Chr(34), „“) -Dein Code-

ja, ausgerechnet ein Anführungszeichen …

ich hab’s gefunden:

objRS(i) = Replace(Fld(i), „“"", „“)

Gruß Rainer

anon21043175 · 10. November 2019 um 11:14

Hier ist der Code, sorry hatte ich eben vergessen zu kopieren:

Private Sub Befehl0\_Click()
Dim strSQL As String
 Dim objRS As ADODB.Recordset
 Dim objConnection As ADODB.Connection
 Dim ff As Integer, Datei As String, Zl As String
 Dim Fld() As String, i As Integer
 Dim DB As String

 DB = "c:\SDS.mdb"
 strSQL = "SELECT [Sds-task].\* FROM [Sds-task]"
 Set objConnection = New ADODB.Connection

 With objConnection
 .CursorLocation = adUseClient
 .Mode = adModeShareDenyNone
 .Provider = "Microsoft.Jet.OLEDB.4.0"
 .ConnectionString = DB
 .Open
 End With

 Set objRS = New ADODB.Recordset
 With objRS
 Set .ActiveConnection = objConnection
 .CursorLocation = adUseClient
 .CursorType = adOpenStatic
 .LockType = adLockOptimistic
 .Source = strSQL
 Call .Open
 End With
Datei = "c:\SDS.txt"
 ff = FreeFile
 Open Datei For Input As #ff
 While Not EOF(ff)
 Line Input #ff, Zl
 Fld = Split(Zl, " ")
 objRS.AddNew
 For i = 0 To 3
 objRS(i) = Fld(i), chr(34), "")
 Next
 objRS.Update
 Wend
 Close #ff

 objRS.Close
 objConnection.Close

[MOD] - Ich habe mal Pre-Tags eingefügt und das unnötige Zitat entfernt.
Gruß Rainer

anon21043175 · 10. November 2019 um 11:14

Perfekt, es funktioniert! DANKE!

Gruss
Gerd

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

Chewpapa_22ca98 · 10. November 2019 um 11:14

Hallo,

ich habe die einzelnen Programmteile mal getrennt und jeweils in eigene Prozeduren geschrieben.

An der Funktion ändert sich dadurch nichts, aber Du siehst sicher, wie leicht es jetzt ist, mehrere Textdateien in die bereits offene Datenbank zu transferieren.

Gruß Rainer

 Dim objRS As ADODB.Recordset
 Dim objConnection As ADODB.Connection

Private Sub Befehl0\_Click()
 OpenDB

 Transfer "c:\SDS.txt"
 Transfer "C:\SDS2.txt"

 CloseDB
End Sub

Private Sub Transfer(ByVal Datei As String)
 Dim ff As Integer, Zl As String
 Dim Fld() As String, i As Integer

 ff = FreeFile
 Open Datei For Input As #ff
 While Not EOF(ff)
 Line Input #ff, Zl
 Fld = Split(Zl, " ")
 objRS.AddNew
 For i = 0 To 3
 objRS(i) = Replace(Fld(i), """", "")
 Next
 objRS.Update
 Wend
 Close #ff

End Sub

Private Sub OpenDB()
 Dim strSQL As String
 Dim DB As String
 DB = "c:\SDS.mdb"
 strSQL = "SELECT [Sds-task].\* FROM [Sds-task]"
 Set objConnection = New ADODB.Connection

 With objConnection
 .CursorLocation = adUseClient
 .Mode = adModeShareDenyNone
 .Provider = "Microsoft.Jet.OLEDB.4.0"
 .ConnectionString = DB
 .Open
 End With

 Set objRS = New ADODB.Recordset
 With objRS
 Set .ActiveConnection = objConnection
 .CursorLocation = adUseClient
 .CursorType = adOpenStatic
 .LockType = adLockOptimistic
 .Source = strSQL
 Call .Open
 End With
End Sub

Private Sub CloseDB()
 objRS.Close
 objConnection.Close
End Sub

anon21043175 · 10. November 2019 um 11:14

Rainer,

ich habe jetzt die anderen Dateien mit eingebunden und bei einer Datei gibt es eine Fehlermeldung wenn wir zu dem Punkt objRS(i) = Replace(Fld(i), „“"", „“)kommen: #Fehler bei einem aus mehreren Schritten bestehenden Vorgang. Prüfen Sie die einzelnen Statuswerte#

Denke die Fehlermeldung entsteht dadurch, weil vielleicht nicht alle Zeilen ein " haben oder evtl. die Werte in einer bestimmten Zeile dem Syntax nicht entsprechen. Ich kann dies leider nicht beeinflussen, es können also immer mal Werte in dieser Datei sein, die keinen Sinn machen.

Frage, können wir dieses Problem abfangen, indem wir (wir = du) einen Abfangcode oder ähnliches dafür schreiben, so ziemlich allgemein wie z.B. entsteht ein Fehler dann ignorier ihn einfach, weil bei der Datenmenge kommt es auf einen Datensatz nicht an.

Danke und Gruss Gerd

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

Chewpapa_22ca98 · 10. November 2019 um 11:14

Hi Gerd,

ich habe jetzt die anderen Dateien mit eingebunden und bei
einer Datei gibt es eine Fehlermeldung wenn wir zu dem Punkt
objRS(i) = Replace(Fld(i), „“"", „“)kommen: #Fehler bei einem
aus mehreren Schritten bestehenden Vorgang. Prüfen Sie die
einzelnen Statuswerte#

in der Zeile stehen eine ganze Reihe Anweisungen, welche den Fehler auslöst verrät die Fehlermeldung nicht. Ich darf aber mal raten: ‚Die Anzahl Trennzeichen ist nicht mit dem Üblichen identisch.‘

Denke die Fehlermeldung entsteht dadurch, weil vielleicht
nicht alle Zeilen ein " haben

Nein, eher nicht. Wenn das zu ersetzende Zeichen nicht gefunden wird, macht das Programm an der stelle einfach nichts.

die Werte in einer bestimmten Zeile dem Syntax nicht entsprechen.

Das vermute ich. Wenn Das Programm mit der Fehlermeldung stehen bleibt, zeigt es Dir den Code. Stellst Du dann den Muaszeiger auf eine Variable, wird Dir deren Inhalt angezeigt.

Du kannst im Programm auch einen Stoppunkt setzen, dazu klickst Du einfach im Editorfenster auf den linken Rand. Das Programm hält dann an der Stelle an, Du kannst Dir den Inhalt der Variablen ansehen und das Programm durch drücken der taste 'F8" schrittweise ausführen und beobachten wie sich die Inhalte der Variablen ändern.

Ich kann dies
leider nicht beeinflussen, es können also immer mal Werte in
dieser Datei sein, die keinen Sinn machen.

Frage, können wir dieses Problem abfangen, indem wir (wir =
du)

*gg* Das machen wir schön gemeinsam, Du sollst ja auch etwas lernen dabei, das nächste Programm schaffst Du fast allein, das übernächste ganz.

einen Abfangcode oder ähnliches dafür schreiben, so
ziemlich allgemein wie z.B. entsteht ein Fehler dann ignorier
ihn einfach,

Das geht nur mit manchen Fehlern, wenn man das unbedacht einsetzt, kann man unerwartete ergebnisse bekommen, so daß das ganze Programm unbrauchbar wird.

Wenn es möglich ist, vermeidet man Fehler besser.

Ein Fehler tritt hier auf, wenn der String nicht das erwartete Format hat, dann entstehen durch Split nicht wie erwartet vier Teile. Das prüfen wir und übertragen nur Zeilen mit vier Teilen.

Private Sub Transfer(ByVal Datei As String)
 Dim ff As Integer, Zl As String
 Dim Fld() As String, i As Integer

 ff = FreeFile
 Open Datei For Input As #ff
 While Not EOF(ff)
 Line Input #ff, Zl
 Fld = Split(Zl, " ")
 If Ubound(Fld) = 3 Then 
 objRS.AddNew
 For i = 0 To 3
 objRS(i) = Replace(Fld(i), """", "")
 Next
 objRS.Update
 End If
 Wend
 Close #ff 
End Sub

Wenn meine Vermutung stimmt, tritt dann der Fehler schon nicht mehr auf.

weil bei der Datenmenge kommt es auf einen
Datensatz nicht an.

Daß die Daten nicht vollständig benötigt werden ist ungewöhnlich.

Gru0 Rainer

anon21043175 · 10. November 2019 um 11:14

Hallo Rainer,
ich lerne schon die ganze Zeit, aber es ist für mich immer noch sehr schwierig die einzelnen Schritte zu verstehen

Der Fehler war in einer Zeile, habe wieder die Feldgröße geändert, aber auf einen Wert der diesmal hoch genug ist.

Die Daten müssen nicht vollständig sein, weil WIR von 4 Servern die Daten lesen und diese eigentlich immer Identisch sein sollten. Ich habe also nun eine Tabelle mit allen Daten von den 4 Servern. Diese habe ich in eine Query mit Distinc verbunden und mit dem Befehl „Like“ nochmal selektiert. Am Ende habe ich 46 Datensätze von 1860 Datensätze übrig. Mit diesen 46 Datensätze muss ich jetzt arbeiten.

Die Aufgabe ist jetzt etwas komplizierter
Jeder Datensatz von den 46 beinhaltet ein Filename auf einem der 4 Servern (es ist 100% Sicher, dass jeder Filname auch auf jedem der 4 Servern einmal zu finden ist!)
Jedes File beinhaltet Daten, die nun von jedem Server ausgelesen und in eine Datei geschrieben werden sollen. Am Ende soll wieder mit einer Query der Befehl Distinc angewendet werden und der Inhalt zurück auf jeden der 4 Servern in das entsprechende File geschrieben werden. Damit ist gewährleistet, dass jedes File auf allen 4 Servern immer die gleichen Daten enthält. Damit wäre das Projekt „Ich habe keine Ahnung wie ich das alleine schaffen soll“ auch schon abgeschlossen

Hast du eine Idee???

Gruss
Gerd

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

Chewpapa_22ca98 · 10. November 2019 um 11:14

Hallo Gerd,

ich lerne schon die ganze Zeit, aber es ist für mich immer
noch sehr schwierig die einzelnen Schritte zu verstehen

wenn etwas unverständlich ist, frag. Daß Du den ganzen Code verstehst ist Sinn der Übung.

Der Fehler war in einer Zeile, habe wieder die Feldgröße
geändert, aber auf einen Wert der diesmal hoch genug ist.

OK.

Die Daten müssen nicht vollständig sein, weil WIR von 4
Servern die Daten lesen und diese eigentlich immer Identisch
sein sollten. Ich habe also nun eine Tabelle mit allen Daten
von den 4 Servern. Diese habe ich in eine Query mit Distinc
verbunden und mit dem Befehl „Like“ nochmal selektiert. Am
Ende habe ich 46 Datensätze von 1860 Datensätze übrig. Mit
diesen 46 Datensätze muss ich jetzt arbeiten.

Auch OK.

Die Aufgabe ist jetzt etwas komplizierter
Jeder Datensatz von den 46 beinhaltet ein Filename auf einem
der 4 Servern (es ist 100% Sicher, dass jeder Filname auch auf
jedem der 4 Servern einmal zu finden ist!)
Jedes File beinhaltet Daten, die nun von jedem Server
ausgelesen und in eine Datei geschrieben werden sollen.

Wieder daten in einem bestimmten Format, die in eine DB geladen werden sollen, wenn ich das richtig verstehe.

Am
Ende soll wieder mit einer Query der Befehl Distinc angewendet
werden und der Inhalt zurück auf jeden der 4 Servern in das
entsprechende File geschrieben werden.

OK.

Damit ist
gewährleistet, dass jedes File auf allen 4 Servern immer die
gleichen Daten enthält.

Ja.

Damit wäre das Projekt „Ich habe keine
Ahnung wie ich das alleine schaffen soll“ auch schon
abgeschlossen

Hast du eine Idee???

Ja, eine Idee schon.

Also lass uns langsam anfangen, schön Schritt für Schritt und immer prüfen, ob das Ergebnis auch stimmt.

Schritt:

Wir bauen noch einmal um und zerlegen den Code weiter in Prozeduren.

Das könntest Du doch mal versuchen.

Zerlege die Prozeduren OpenDB und CloseDB in
OpenDB

anon21043175 · 10. November 2019 um 11:14

Hallo Rainer,

dazu habe ich noch eine Frage…
Meinst du mit Prozedur Module erstellen oder meinst du den einzelnen Steps einfach nur die von Dir genannten Namen zu vergeben wie z.B.

Public Sub OpenDB()
Dim strSQL As String
 Dim objRS As ADODB.Recordset
 Dim objConnection As ADODB.Connection
 Dim ff As Integer, Datei As String, Zl As String
 Dim Fld() As String, i As Integer
 Dim DB As String

 DB = "c:\SDS.mdb"
 strSQL = "SELECT [Sds-task].\* FROM [Sds-task]"
 Set objConnection = New ADODB.Connection

 With objConnection
 .CursorLocation = adUseClient
 .Mode = adModeShareDenyNone
 .Provider = "Microsoft.Jet.OLEDB.4.0"
 .ConnectionString = DB
 .Open
 End With

 Set objRS = New ADODB.Recordset
 With objRS
 Set .ActiveConnection = objConnection
 .CursorLocation = adUseClient
 .CursorType = adOpenStatic
 .LockType = adLockOptimistic
 .Source = strSQL
 Call .Open
 End With
End Sub

Hier habe ich den Sub den Namen OpenDB zugewiesen, aber ich weiß nicht genau wo der Punkt ist, wo die Datenbank geschlossen wird.
Sorry, ich höre mich wohl etwas hilflos an, aber ich bin wirklich bemüht deine Gedanken umzusetzen…

Gruss
Gerd

Chewpapa_22ca98 · 10. November 2019 um 11:14

Hallo Gerd,

dazu habe ich noch eine Frage…
Meinst du mit Prozedur Module erstellen

Nein,

oder meinst du den
einzelnen Steps einfach nur die von Dir genannten Namen zu
vergeben wie z.B.

Ja, genau. Das ist eine Prozedur. Aber warum Public? Private genügt völlig. Public verwendest Du, wenn Du aus einer anderen Klasse auf Die Prozedur zugreifen möchtest, davon sind wir Welten entfernt.
Mit globaler Deklaration geht man möglichst sparsam um, das vermeidet Fehler.

Private Sub OpenDB()
Dim strSQL As String
Dim objRS As ADODB.Recordset
Dim objConnection As ADODB.Connection
Dim ff As Integer, Datei As String, Zl As String
Dim Fld() As String, i As Integer
Dim DB As String

DB = „c:\SDS.mdb“
strSQL = „SELECT [Sds-task].* FROM [Sds-task]“
Set objConnection = New ADODB.Connection

Im nächsten Block wird die Datenbank verbunden.
Die Zeile: strSQL = "… ist hier dann natürlich falsch, den SQL-String willst Du ja ändern und verschiedene Recordsets aufrufen.

> With objConnection  
> .CursorLocation = adUseClient  
> .Mode = adModeShareDenyNone  
> .Provider = "Microsoft.Jet.OLEDB.4.0"  
> .ConnectionString = DB  
> .Open  
> End With

Die datenbank ist verbunden, nun soll das Recordset erstellt werden, das siehst Du daran, daß der SQL-String übergeben wird. Das soll in einen eigene Prozedur. Den SQL-String übergeben wir beim Aufruf, deshalb muß da eine Variable stehen:

Private Sub OpenRS(ByVal strSQL As String)

Klar?

> Set objRS = New ADODB.Recordset  
> With objRS  
> Set .ActiveConnection = objConnection  
> .CursorLocation = adUseClient  
> .CursorType = adOpenStatic  
> .LockType = adLockOptimistic  
> .Source = strSQL  
> Call .Open  
> End With  
> End Sub

Hier habe ich der Sub den Namen OpenDB zugewiesen, aber ich
weiß nicht genau wo der Punkt ist, wo die Datenbank
geschlossen wird.

Wir sind beim Öffnen.
Geschlossen wird die Datenbank mit DB.Close, aber das steht schon in einer anderen Prozedur.

Gruß Rainer

anon21043175 · 10. November 2019 um 11:14

Hallo Rainhard,

Public hatte ich gewählt, weil es mir zugewiesen wurde von Access…

Im verstehe zwar was du vor hast, kann es aber nicht so schnell umsetzen. Müssen wir denn den anderen Teil löschen, er funktionierte doch so gut…

Also ich habe mal alles gelassen und folgendes dazu geschrieben:

Private Sub OpenDB()

Dim strSQL As String
Dim objRS As ADODB.Recordset
Dim objConnection As ADODB.Connection
Dim ff As Integer, Datei As String, Zl As String
Dim Fld() As String, i As Integer
Dim DB As String

DB = „c:\SDS.mdb“
strSQL = „SELECT [Sds-task].* FROM [Sds-task]“
Set objConnection = New ADODB.Connection

With objConnection
.CursorLocation = adUseClient
.Mode = adModeShareDenyNone
.Provider = „Microsoft.Jet.OLEDB.4.0“
.ConnectionString = DB
.Open
End With
End Sub

Private Sub OpenRS(ByVal strSQL As String)

Set objRS = New ADODB.Recordset
With objRS
Set .ActiveConnection = objConnection
.CursorLocation = adUseClient
.CursorType = adOpenStatic
.LockType = adLockOptimistic
.Source = strSQL
Call .Open
End With
End Sub

Der erste Teil ist zum DB öffnen, macht Sinn, aber was mit Recordset erstellen oder SQL-String gemeint ist, weiß ich nicht

Ich hatte mir das alles einfacher vorgestellt, da „wir“ ja schon die Hälfte geschafft hatten, sprich wir hatten die Daten der 4 Server und ich dachte wir können evtl. den Code von Dir den wir schon verwendet hatten etwas umschreiben und gut ist. Ich bin im Moment sehr weit von einer Lösung entfernt und habe null Ahnung was du da vor hast.

Gruss Gerd

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

Chewpapa_22ca98 · 10. November 2019 um 11:14

Hi Gerd,

Mittagspause.

Ich hab’s jetzt noch einmal umgebaut.
Wenn Dein Umbau etwa so aussieht, hast Du’s verstanden.

Dim objRS As ADODB.Recordset
Dim objConnection As ADODB.Connection

Private Sub Befehl0\_Click()
 OpenDB
 strSQL = "SELECT [Sds-task].\* FROM [Sds-task]"
 OpenRS strSQL

 Transfer "c:\SDS.txt"
 Transfer "C:\SDS2.txt"

 objRS.Close
 objConnection.Close
End Sub

Private Sub Transfer(ByVal Datei As String)
 Dim ff As Integer, Zl As String
 Dim Fld() As String, i As Integer

 ff = FreeFile
 Open Datei For Input As #ff
 While Not EOF(ff)
 Line Input #ff, Zl
 Fld = Split(Zl, " ")
 objRS.AddNew
 For i = 0 To 3
 objRS(i) = Replace(Fld(i), """", "")
 Next
 objRS.Update
 Wend
 Close #ff

End Sub

Private Sub OpenDB()
 Dim strSQL As String
 Dim DB As String
 DB = "c:\SDS.mdb"
 Set objConnection = New ADODB.Connection

 With objConnection
 .CursorLocation = adUseClient
 .Mode = adModeShareDenyNone
 .Provider = "Microsoft.Jet.OLEDB.4.0"
 .ConnectionString = DB
 .Open
 End With
End Sub

Private Sub OpenRS(ByVal strSQL As String)
 Set objRS = New ADODB.Recordset
 With objRS
 Set .ActiveConnection = objConnection
 .CursorLocation = adUseClient
 .CursorType = adOpenStatic
 .LockType = adLockOptimistic
 .Source = strSQL
 Call .Open
 End With
End Sub

Nun kannst Du erst die Datenbank öffnen, dann ein Recordset erzeugen.
Dann das Recordset schließen, ein anderes erzeugen … Wenn es sein soll kannst Du auch verschiedene Recordsets gleichzeitig öffnen.

Bevor Du Dich wunderst, wenn Du nicht die gesamte Tabelle im Recordset hast oder ‚DISTINCT‘ im SQL-String steht, kannst Du nur lesen, nicht schreiben.

Gruß Rainer

Chewpapa_22ca98 · 10. November 2019 um 11:14

Hallo Gerd,

Im verstehe zwar was du vor hast, kann es aber nicht so
schnell umsetzen. Müssen wir denn den anderen Teil löschen, er
funktionierte doch so gut…

löschen nicht, nur dafür sorgen, daß er etwas flexibler wird.
Bisher haben wir nur mit einer einzigen Tabelle gearbeitet und dazu jedes mal immer die ganze datenbank geöffnet und wieder geschlossen.

Wenn wir mit verschiedenen Abfragen arbeiten, ist es ja nicht Sinnvoll, immer die ganze Datenbank mehrfach zu öffnen.

Also ich habe mal alles gelassen und folgendes dazu
geschrieben:

> Private Sub OpenDB()  
>   
> Dim strSQL As String  
> Dim objRS As ADODB.Recordset  
> Dim objConnection As ADODB.Connection  
> Dim ff As Integer, Datei As String, Zl As String  
> Dim Fld() As String, i As Integer  
> Dim DB As String  
>   
> DB = "c:\SDS.mdb"  
> strSQL = "SELECT [Sds-task].\* FROM [Sds-task]"  
> Set objConnection = New ADODB.Connection  
>   
> With objConnection  
> .CursorLocation = adUseClient  
> .Mode = adModeShareDenyNone  
> .Provider = "Microsoft.Jet.OLEDB.4.0"  
> .ConnectionString = DB  
> .Open  
> End With  
> End Sub  
>   
> Private Sub OpenRS(ByVal strSQL As String)  
>   
> Set objRS = New ADODB.Recordset  
> With objRS  
> Set .ActiveConnection = objConnection  
> .CursorLocation = adUseClient  
> .CursorType = adOpenStatic  
> .LockType = adLockOptimistic  
> .Source = strSQL  
> Call .Open  
> End With  
> End Sub

Na bitte, klappt doch!

Der erste Teil ist zum DB öffnen, macht Sinn, aber was mit
Recordset erstellen oder SQL-String gemeint ist, weiß ich
nicht

Der Sql-Strung ist die Beschreibung, wie das Recordset geöffnet werden soll.

„SELECT [Sds-task].* FROM [Sds-task]“

Das ist Dein SQL-String.
Im nächsten Recordset soll ja etwa so etwas stehen …

„SELECT DISTINCT [Sds-task].Feld1 FROM [Sds.task] WHERE Feld1 LIKE ‚Test%‘:“

Ich hatte mir das alles einfacher vorgestellt, da „wir“ ja
schon die Hälfte geschafft hatten, sprich wir hatten die Daten
der 4 Server und ich dachte wir können evtl. den Code von Dir
den wir schon verwendet hatten etwas umschreiben und gut ist.

Umschreiben ja, ‚etwas‘ trifft es nicht ganz.
Ich schätze, wir haben etwa ein Viertel.

Ich bin im Moment sehr weit von einer Lösung entfernt und habe
null Ahnung was du da vor hast.

Die daten stehen ja jetzt schon in der Datenbank, denke ich, Du hast ja jetzt schon fast die Liste der Pfade. Oder habe ich das falsch verstanden?

Die werden wir in ein Array schreiben und dann in einer Schleife jeweils die Dateien öffnen, deren Pfade inzwischen im Array stehen.
Was wir da lesen willst Du ja wieder in ein Rcordset schreiben, habe ich verstanden.

Dann öffnen wir das Recordset gefiltert, wir werden also noch einige recodrsets öffnen und schließen müssen …

Gruß Rainer

Chewpapa_22ca98 · 10. November 2019 um 11:14

Hi Gerd,

das Öffnen der Datenbank, der Recordsets, der Transfer … Das ist nun alles schön in eigenen Prozeduren, die bequem zu verwenden sind. Die muss ich jetzt nicht mehr mit posten, das ist erledigt, wenn nicht noch etwas kommt das wieder eine Änderung nötig macht.

Dann mal weiter in der Hauptprozedur, die die anderen Prozeduren aufruft.
Wenn ich Dich richtig verstanden habe liefert der folgenden Code, nachdem Du ihn vervollständigt hast eine Liste mit 46 Pfaden:

Private Sub Befehl0\_Click()
 Dim strSQL As String
 OpenDB
 strSQL = "SELECT [Sds-task].\* FROM [Sds-task]"
 OpenRS strSQL

 Transfer "c:\SDS.txt"
 Transfer "C:\SDS2.txt"

 objRS.Close

 strSQL = "SELECT DISTINCT [Sds-Task]..."

 OpenRS strSQL

 objRS.movefirst
 While Not objRS.EOF
 ListBox1.AddItem objRS("Feldname")
 Wend

 bclRS.Close
 objConnection.Close
End Sub

Richtig?

Gruß Rainer

Reinhard_fb8cb7 · 10. November 2019 um 11:14

OT Beitragsfolge
Hallo Rainer,

folgende Beiträge stehen exakt untereinander also nicht eingerückt:

Re^24 ... 14.7.2008 12:26
Re^25 ... 14.7.2008 13:36
Re^26 ... 14.7.2008 14:13
Re^25 ... 14.7.2008 13:07
Re^26 ... 14.7.2008 13:35
Re^27 ... 14.7.2008 13:52

Ich finds gar nicht so einfach zu erkennen wer auf wen geantwortet hat

Liegt das an deinen Eingriffen wenn du ihm den pre-Tag o.ä. einfügst, also den Beitrag abänderst oder liegt das an w-w-w?

Gruß
Reinhard

Chewpapa_22ca98 · 10. November 2019 um 11:14

Hallo Reinhard,

Liegt das an deinen Eingriffen wenn du ihm den pre-Tag o.ä.
einfügst, also den Beitrag abänderst oder liegt das an w-w-w?

an w-w-w. Wird der Tehead zu lang, wird nicht mehr eingerückt.
Es werden nur 25 Beiträge jeweils nach rechts versetzt, danach ist Schluss, weil im Plauderbrett mal ‚die Suche nach dem rechten Rand‘ lief und Browser daran abgestürzt sind.

Gruß Rainer

anon21043175 · 10. November 2019 um 11:14

Hallo Rainer,

sorry war bis eben im Meeting, ich versuche bis morgen mir etwas zu überlegen (nach deinem Plan).

Nochmal DANKE für deine Hilfe!!!

Gruss
Gerd

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

Chewpapa_22ca98 · 10. November 2019 um 11:14

Hallo Gerd,

bei der nächsten Antwort, antworte bitte hier, dann haben wir einen neunen Zweig und wieder Übersicht.

Gruß Rainer

Reinhard_fb8cb7 · 10. November 2019 um 11:15

anon21043175 · 10. November 2019 um 11:16

Guten Morgen, Rainer!

Die Liste der Pfade (Dateinamen) habe ich in einer Query stehen. Soll ich diese in einer Tabelle umwandeln? Ich bin mir nicht sicher, ob man mit der Query die Daten auch so verarbeiten kann wie mit einer Tabelle.
Du hattest als Beispiel geschrieben:
„SELECT DISTINCT [Sds-task].Feld1 FROM [Sds.task] WHERE Feld1 LIKE ‚Test%‘:“

soll das bedeuten, ich brauche nicht extra eine Query zu erstellen, um die Daten zu filtern?

1/4 haben WIR schon…hmmm…denke ab jetzt wird es etwas schwieriger, habe mir gestern noch ein Buch gekauft „Access 2002 Programmieren“ damit ich in etwas verstehe wovon du redest

Wie ist dein Plan, was soll ich tun oder vorbereiten?

Gruss
Gerd

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]