db.sqlexecute ("Insert into users (username,password,priority) Values "_
    +"(editfield1.text+','+editfield2.text+','+popgroup)")

I think this line should be:

dim aQuery, test as string

aQuery = "Insert into users(username,password,priority)Values('" + editfield1.text +"','"+editfield2.text + "','"+popgroup"');" // watch out there are ' before and/or after the "
db.sqlexecute(aQuery)
if not db.error then
//all is well
.....
else
        MsgBox db.ErrorMessage
test = "" //this line is just there so you can put a breakpoint on it. This way when things go wrong, the debugger will open with aQuery available for inspection (and copying to your sqltool)
end if

hth

Bart Pietercil
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>

Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>

Reply via email to