Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Löschen von Doppelten Einträgen
Autor: manyki
Datum: 23.01.04 02:51
Hallo, wenn ich Dich richtig verstanden habe, willst Du überprüfen ob doppelte Einträge vorhanden sind, ohne vorher zu wissen welche doppelt da sein könnten. Wenn doppelt, dann löschen. Das geht meiner Meinung nach nur mit 2 Schleifen, die 2 Recordsets durchlaufen. Hier habe ich mal was mit Ado. Mit Dao kenn ich mich nicht aus:   Private Sub Command1_Click() Dim sName As String Dim Rs1 As New ADODB.Recordset Dim sSQLDel As String sSQL = "SELECT AdrNr, Name FROM Adressen ORDER BY Name" Set Rs = New ADODB.Recordset Set Rs1 = New ADODB.Recordset With Rs .CursorLocation = adUseClient .LockType = adLockOptimistic .ActiveConnection = Cn .Open sSQL End With With Rs1 .CursorLocation = adUseClient .LockType = adLockOptimistic .ActiveConnection = Cn .Open sSQL End With Do While Not Rs.EOF '1.Rs durchlaufen sName = RTrim(Rs.Fields("Name").Value) If Rs1.RecordCount = Rs.AbsolutePosition Then Exit Do End If 'Pos. des Records aus Rs1 einen unter den aus Rs setzen Rs1.AbsolutePosition = Rs.AbsolutePosition + 1 Do While Not Rs1.EOF '2. Rs durchlaufen u. nach sName vergleichen If RTrim(Rs1.Fields("Name").Value) = sName Then 'SQL-String erstellen sSQLDel = "DELETE FROM Adressen WHERE Name = '" & _ sName & "' AND AdrNr = " & Rs1.Fields("AdrNr").Value Rs1.Delete 'aus Rs1 löschen Cn.Execute sSQLDel 'tatsächlich aus Tabelle löschen End If Rs1.MoveNext 'nächsten Record aus Rs1 Loop Rs.MoveNext 'nächsten Record aus Rs Loop End Sub   Gru? aus dem Norden manyki

Löschen von Doppelten Einträgen	1.700	Zero-G.	22.01.04 15:03
Re: Löschen von Doppelten Einträgen	1.040	Prian0815	22.01.04 15:40
Re: Löschen von Doppelten Einträgen	996	Zero-G.	22.01.04 16:20
Re: Löschen von Doppelten Einträgen	1.226	manyki	23.01.04 02:51
Re: Löschen von Doppelten Einträgen	988	manyki	23.01.04 02:54
Re: Löschen von Doppelten Einträgen	974	Zero-G.	24.01.04 12:20
Re: Löschen von Doppelten Einträgen	1.029	Prian0815	23.01.04 13:04
Re: Löschen von Doppelten Einträgen	937	devnull	23.01.04 13:26
Re: Löschen von Doppelten Einträgen	1.070	Prian0815	23.01.04 14:03
Re: Löschen von Doppelten Einträgen	995	Zero-G.	24.01.04 12:20
Re: Löschen von Doppelten Einträgen	1.005	manyki	24.01.04 15:07
Re: Löschen von Doppelten Einträgen	1.006	devnull	24.01.04 17:22
Re: Löschen von Doppelten Einträgen	998	manyki	24.01.04 17:34
SQL Statement zum finden von doppelten Einträgen	1.125	Snoopy	24.01.04 14:23
Re: SQL Statement zum finden von doppelten Einträgen	995	manyki	24.01.04 15:10
Re: SQL Statement zum finden von doppelten Einträgen	1.188	CarpeDiem	04.12.04 21:24
Re: SQL Statement zum finden von doppelten Einträgen	882	CarpeDiem	07.04.06 21:28
Re: SQL Statement zum finden von doppelten Einträgen	902	Snoopy	07.04.06 22:08
Re: SQL Statement zum finden von doppelten Einträgen	885	CarpeDiem	07.04.06 22:34
Re: SQL Statement zum finden von doppelten Einträgen	846	Snoopy	07.04.06 22:45
Re: SQL Statement zum finden von doppelten Einträgen	878	CarpeDiem	07.04.06 23:16
Re: SQL Statement zum finden von doppelten Einträgen	819	Snoopy	08.04.06 10:00
Re: SQL Statement zum finden von doppelten Einträgen	831	CarpeDiem	08.04.06 11:12
Re: SQL Statement zum finden von doppelten Einträgen	842	Snoopy	08.04.06 14:31
Re: SQL Statement zum finden von doppelten Einträgen	827	CarpeDiem	08.04.06 18:22
Re: SQL Statement zum finden von doppelten Einträgen	888	CarpeDiem	09.04.06 20:42
Re: Löschen von Doppelten Einträgen	866	CarpeDiem	07.04.06 22:58

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen