[VB6] record toevoegen lukt niet

[ljt]

Ik heb een kleine database in acces en heb via ADO met vb6 een koppeling gemaakt. Alles werkt perfect behalve als ik en record wil toevoegen. De volgende code heb ik:

Toevoegen:

Msg = "Are you sure you want to update this field?"
Buttons = vbYesNo + vbQuestion
Result = Msgbox(Msg, Buttons, "My program")
If result = vbYes Then

rs.edit
dim db as integer
dim rs as integer
dim newrecord as integer
dim artikelnaam as integer

newrecord = artikelnaam.artikel
newrecord = artikelnaam.prijs

rs.addnew

rs.update
call showfields
end if


Als ik dit dus doe krijg ik de melding: COMPILE ERROR: DUPLICATE DECLARATION IN CURRENT SCOPE

Wordt een beetje gek ervan Iemand??

[whoami]

Je hebt ergens een variable die je 2 x declareert. (2x een variable met dezelfde naam dus).

Het is trouwens netter als je records insert met een INSERT SQL statement.

[RobIII]

Als aanvulling op whoami:

Gebruik voortaan [code] tags, en wat doet dit?

code:

newrecord = artikelnaam.artikel
newrecord = artikelnaam.prijs

De fout zit zo te zien hier:

code:

rs.edit
dim db as integer
dim rs as integer

Je hebt al een var rs, en die (re)dim je vervolgens weer als integer (zie regel 1 en 3)

Uhm, en wat heeft dit voor nut:

code:

rs.addnew

rs.update

Tot slot: Er is ERG weinig logica in je code te ontdekken... Bezig met een tutorial?

[ Voor 75% gewijzigd door RobIII op 25-03-2004 20:36 ]

[ljt]

Ja ben een heel erge beginneling Maar wat ik dus wil doen is gewoon een record toevoegen vanuit me applicatie.

Maar met sql moet het ook kunnen(zie 2 post hierboven) dus ga dat ook proberen. (sql kennis is beter als die van vb6 )

[whoami]

Jouw probleem (compiler error) zit 'm niet in het feit dat je het niet met sql doet (al is dat dus een betere oplossing), maar dat je een variabele 2x declareert. (Zie wat RobIII zegt).