vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
SEPA-Dateien erstellen inkl. IBAN-, BLZ-/Kontonummernprüfung  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Visual-Basic Einsteiger
Re: Access datenbank 
Autor: Timo Prestel
Datum: 18.06.03 14:37

Hallo Dieter

Gesagt getan allerdings meckert er wegen dem NoMatch. Fehler beim Kompilieren .

Was nun???

Dim daoDB36 As Database
Dim rs As DAO.Recordset
Dim dbPath As String

dbPath = "d:\Telefon.mdb"
On Error Resume Next 'geht bei Fehler weiter


Set daoDB36 = DBEngine(0).OpenDatabase(dbPath)
'MsgBox (ID)

strSQL = ("update Alcatel set NST = '" & Text1.Text & "' where ID = " & ID)
Dim oRs As Recordset
Set oRs = daoDB36.OpenRecordset("Alcatel")
oRs.Index = "NST"
oRs.Seek "=", "suchnr"
If Not oRs.NoMatch Then
MsgBox "NST existsiert bereits"

End If
oRs.Close
daoDB36.Execute (strSQL)
MsgBox "NST gespeichert"
txtnst.Text = ""
txtnst.Text = Text1.Text


daoDB36.Close

End Sub


Gruß Timo
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Access datenbank216Timo Prestel18.06.03 11:46
Re: Access datenbank348ModeratorDieter18.06.03 11:51
Re: Access datenbank77Timo Prestel18.06.03 12:02
Re: Access datenbank370ModeratorDieter18.06.03 12:55
Re: Access datenbank83Timo Prestel18.06.03 14:37
Re: Access datenbank374ModeratorDieter18.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übersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel