vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Blitzschnelles Erstellen von grafischen Diagrammen!  
 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

ActiveX-Programmierung
Re: Laufzeitfehler 
Autor: bweichel
Datum: 21.08.02 14:31

Ok super!
Aber wenn ich mein Script in eine While-Schleife schreibe, bekomme ich den Laufzeitfehler:
'-2147217887 (80040e27)'

und die Meldung:
"Der ODBC-Treiber unterstützt die angeforderte Eigenschaft nicht"

Als ODBC-Treiber habe ich den MySQL 2.50 und den MySQL 3.51. Es funzt mit beiden nicht.

Der Fehler soll in dieser Zeile liegen:
...
rst2.Open "UPDATE artikel SET bestand = " & bestand & " WHERE artnr = " & artnr, conn2, adOpenKeyset, adLockOptimistic
...


Hier die Zeile zusammen mit der While-Schleife:

...
While Not rst.EOF

If IsNull(rst.Fields("Bestand")) Then
List1.AddItem rst.Fields("Artikelnum")
List1.AddItem 0

artnr = rst.Fields("Artikelnum")
bestand = 0

If rst2.State = adStateOpen Then rst2.Close
rst2.Open "UPDATE artikel SET bestand = " & bestand & " WHERE artnr = " & artnr, conn2, adOpenKeyset, adLockOptimistic
Else
List1.AddItem rst.Fields("Artikelnum")
List1.AddItem rst.Fields("Bestand")

artnr = rst.Fields("Artikelnum")
bestand = rst.Fields("Bestand")

If rst2.State = adStateOpen Then rst2.Close
rst2.Open "UPDATE artikel SET bestand = " & bestand & " WHERE artnr = " & artnr, conn2, adOpenKeyset, adLockOptimistic

End If

rst.MoveNext

Wend
...

Lasse ich die While-Schleife weg, funktioniert der Update-Befehl.
Allerdings nur bei einem Datensatz, aber das ist ja auch klar.
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Laufzeitfehler561bweichel20.08.02 13:03
Re: Laufzeitfehler435tbtec20.08.02 15:18
Re: Laufzeitfehler330bweichel21.08.02 11:42
Re: Laufzeitfehler306tbtec21.08.02 13:00
Re: Laufzeitfehler349bweichel21.08.02 14:31

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