[VB] Dataenvironment Record verwijderen

[Verwijderd]

Hallo,

Ik ben bezig met een prog die aan een Acces DB zit met een Dataenvironment.
Ik heb alles ingesteld, en de prog kan maken, verwijderen enz. Nu heb ik
laatst als wijziging toegepast dat er tijdens runtime een verbinding wordt
gemaakt met een DB met de volgende code:

With DataEnvironment1
.rsCommand1.Close
.Connection1.Close

.Connection1.CursorLocation = adUseClient
.Connection1.ConnectionString =
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Kookboek.mdb"
& ";Persist Security Info=False"
.Connection1.Open

.rsCommand1.source = "Select * from Tabel1"
.rsCommand1.ActiveConnection = .Connection1
.rsCommand1.LockType = adLockOptimistic
.rsCommand1.Open

Nu krijg ik opeens als ik een record wil verwijderen met de code:

DataEnvironment1.rsCommand1.Delete adAffectCurrent

de fout:

Run-time error '-2147217887 (80040e21)':
Bij een bewerking die uit meerdere stappen bestaa, zijn fouten opgetreden.
Controleer alle statuswaarden.

Weet iemand hoe dit komt? Want als ik de DB vooraf in de IDE instel, gaat
alles prima.

Ik heb nog een probleem, wat hier zeer waarschijnlijk mee te maken heeft. Als ik namelijk via een Common dialog die nieuwe DB open, krijg ik 2 keer de volgende fout:

Field not updatable, Bound Property Name: Text, Field Name: Titel

Daarna krijg ik de fout nog 2x voor een andere textbox. Gek genoeg geven de 2 richtextboxen die ook aan de DB zitten, niet deze fout.


Heel erg bedankt voor je tijd,

Marvin van Dongen

[Verwijderd]

^^Schop^^

Weet niemand hier iets op?

[supakeen]

Verwijderd schreef op 07 februari 2003 @ 16:38:
^^Schop^^

Weet niemand hier iets op?

Liever even 24 uur wachten voor te kicken

[D2k]

Hoi,
Welkom in P&W (FAQ-28/11/2002)

Policy mbt het omhoogschoppen van threads. Wacht minstens 24 uur voor je je topic omhoog schopt. Doe dit dan ook alleen met een zinnige opmerking en dus niet met "Waarom antwoord er nou niemand" nadat je 5 minuten geen antwoord hebt gehad. Sommigen van ons hebben een leven

[robjanssen]

Waarom maak je niet gewoon een DELETE query?

code:

strSQL = "DELETE " _
            & "FROM Tabel1"
DataEnvorionment1.Connection1.Execute strSQL

[Verwijderd]

thnx, dat ga ik morgen ff proberen.