Help needed with combo box and database

[teja8100]

Hello,

I am trying to write items added by a user to a combo box to a database, and I am getting an error doing this. The code is as shown below:

Dim Qstn As Database

    ' Modify this line to include the path to Northwind
    ' on your computer.
    Set Qstn = OpenDatabase(App.Path & "\RotorData.mdb")

    ' Delete employee records where title is Trainee.
    Qstn.Execute "Insert into Questions(Question) Values(Combo1.Text)"
    
    Qstn.Close

Getting the following error:

RunTime Error: '3061'
Too few parameters Expected 1

Help??

[pclement]

Given the syntax you're using, Combo1.Text cannot be properly evaluated. Try the following:

Qstn.Execute "Insert into Questions (Question) Values ('" & Combo1.Text & "')"

[teja8100]

Ya i did what you said, but still getting the same error. I am just trying to add what ever is entered in the combo box to a data base and populate the combo box with entries from the database each time the project is compiled. if there is any other way this can be done, I would really appreciate if anyone could share it with me.

[pclement]

Well I don't see any problem with the syntax so it's likely a problem with the column name. Are you certain there is a column called Question in your Questions table? Is it spelled correctly?

[teja8100]

Yes, it is spelled correctly. The data type I chose for the Question column is "text". Do you think that has something to do with this error??

[mstraf]

see if this helps:

http://support.microsoft.com/default...b;en-us;210244

otherwise:
http://support.microsoft.com/default...b;en-us;105171

TIP: open the MSDN web page, and type 'error 3061' in the search box

Marco

[pclement]

Are there any other columns in the Questions table that require values in order to insert a row?

If not, try hard-coding the value to make sure that the statement executes properly:

Qstn.Execute "Insert into Questions (Question) Values ('Test')"

[teja8100]

Hello pclement,

Qstn.Execute "Insert into Questions(Question1) Values('Test')" works, but

Qstn.Execute "Insert into Questions(Question1) Values(" & Combo1.Text & ")"

does not.

[pclement]

OK, try the following to see if it works (make sure to leave in the single quotes). If it fails, post the value of strSQL:

Dim strSQL As String

strSQL = "INSERT INTO Questions (Question1) VALUES ('" & Combo1.Text & "')"
Qstn.Execute strSQL

[teja8100]

Thanks a lot Paul...it works !!