VB6 Zugriff auf Access 2003 Datenbank

gelöstFrage VB for Applications Entwicklung

Hallo,

ich habe mit Access 2003 eine datenbank angelegt und darin eine tabelle mit eigentlich nur einem Wert auf den ich aus einem makro aus outlook zugreifen will. der wert ist eine zahl die nach dem zugriff in einer variable geschieben wird und danach soll der wert in der Tabelle/Datenbank verändertwerden (immer +1).

kann mir jemand sagen wie das geht ich steh da nu aufm Schlauch

mfg
corpse2001

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 64526

Url: https://administrator.de/forum/vb6-zugriff-auf-access-2003-datenbank-64526.html

Ausgedruckt am: 19.05.2025 um 02:05 Uhr

4 Kommentare

Neuester Kommentar

Hallo corpse2001!

Warum jetzt VB6?

Wie auch immer, versuch es so:

Set cn = CreateObject("ADODB.Connection")  
cn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\Server\Freigabe\db1.mdb")  
Set rs = cn.Execute("SELECT Nummer.Nr FROM Nummer")  
If Not rs.EOF Then
	NewNumber = rs.Fields("Nr")  
	NewNumber = NewNumber + 1
	Set rs = cn.Execute("UPDATE Nummer SET Nummer.Nr = " & NewNumber)  
	MsgBox NewNumber
Else
	'Nr konnte nicht gelesen werden  
End If
cn.Close

Mit dem obigen Code wird auf die "db1.mdb", gespeichert auf "\\Server\Freigabe", zugegriffen.

Wenn sich die gesuchte Ticketnummer im Feld "Nr" des ersten Datensatzes der Tabelle "Nummer" befindet, wird diese gelesen und um 1 erhöht wieder zurückgeschrieben. Die neue Nummer steht in der Variablen "NewNumber" zur Verfügung.

Grüße
bastla

hallo

danke für die antwort ich probier das gleich mal aus.

das war doch vorher auch VB6 steht jedenfall unter Info (Microsoft Visual Basic 6)

mfg corpse2001

Hallo corpse2001!

Gemeinhin wird unter VB6 die eigenständige (also nicht als VBA an Office gebundene) Programmiersprache (Vorgänger von VB.NET) verstanden.

Grüße
bastla