Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Access datenbank
Autor: Timo Prestel
Datum: 18.06.03 12:02
Hallo Dieter Wie immer bin ich übrzeugt das deine Lösung stimmt. Allerdings hab ich keine Ahnung wie ich sie hier einfügen kann. Fur was steht das o bei oRs ? Private Sub delete() Dim daoDB36 As Database Dim dbPath As String dbPath = "d:\Telefon.mdb" On Error Resume Next 'geht bei Fehler weiter Set daoDB36 = DBEngine(0).OpenDatabase(dbPath) strSQL = "UPDATE Alcatel SET Alcatel.NST='' WHERE NST ='" & Text1.Text & "';" daoDB36.Execute (strSQL) strSQL = "UPDATE FNT SET FNT.NST='' WHERE NST ='" & Text1.Text & "';" daoDB36.Execute (strSQL) daoDB36.Close Text1.Text = "" txtnst.Text = "" End Sub

Access datenbank	216	Timo Prestel	18.06.03 11:46
Re: Access datenbank	348	Dieter	18.06.03 11:51
Re: Access datenbank	77	Timo Prestel	18.06.03 12:02
Re: Access datenbank	370	Dieter	18.06.03 12:55
Re: Access datenbank	82	Timo Prestel	18.06.03 14:37
Re: Access datenbank	374	Dieter	18.06.03 14:40

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