4
VB6 Zugriff auf Access 2003 Datenbank
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
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
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 64526
Url: https://administrator.de/contentid/64526
Printed on: May 9, 2024 at 05:05 o'clock
4 Comments
Latest comment
Hallo corpse2001!
Warum jetzt VB6?
Wie auch immer, versuch es so:
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
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.CloseWenn 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
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
Gemeinhin wird unter VB6 die eigenständige (also nicht als VBA an Office gebundene) Programmiersprache (Vorgänger von VB.NET) verstanden.
Grüße
bastla
DANKE!!!
funktioniert wunderbar!
funktioniert wunderbar!
