Re: Parameters.Refresh error.

> What's happen? I can't continue helping you without it.

Sorry this is later than expected, things got a bit around here.

I attached the code so that spacing is preserved.  It's in VB6 and just
a text file.  The first method works, but none of the others do.  I've
made note of the error I receive as comments in the code.  If there's
anything else you need, just let me know.

Thank you,
Adam
Dim dbc As ADODB.Connection
Dim cmd As ADODB.Command

Set dbc = New ADODB.Connection
dbc.Open "DSN=GALSTA Postgres;", UserID, Password
' Verify that the connection opened properly.
If dbc.State And adStateOpen Then
    Debug.Print "Connected"
    ' This method works.
'    dbc.Execute "Insert into CHAPTER (CHAPTERID, CHAPTERDESC) values (1,'test1')"
    ' Start the second method.
    Set cmd = New ADODB.Command
    Set cmd.ActiveConnection = dbc
    cmd.CommandText = "Insert into CHAPTER (CHAPTERID, CHAPTERDESC) values (?,?)"
    ' Error on next line: Provider cannot derive parameter information and SetParameterInfo has not been called.
    cmd.Parameters.Refresh
    cmd.Parameters.Item(0).Value = 2
    cmd.Parameters.Item(1).Value = "test2"
    cmd.Execute
    Set cmd = Nothing
    ' Start the third method.
    Set cmd = New ADODB.Command
    Set cmd.ActiveConnection = dbc
    cmd.CommandText = "Insert into CHAPTER (CHAPTERID, CHAPTERDESC) values (?,?)"
    Call cmd.Parameters.Append(cmd.CreateParameter("ID", adNumeric, adParamInput, 4))
    Call cmd.Parameters.Append(cmd.CreateParameter("DESC", adVarChar, adParamInput, 80))
    cmd.Parameters.Item(0).Value = 3
    cmd.Parameters.Item(1).Value = "test3"
    ' Error on next line: Multiple-step OLE DB operation generated errors. Check each OLE DB status value, if
available.No work was done. 
    cmd.Execute
    Set cmd = Nothing
    ' Start the fourth method.
    Set cmd = New ADODB.Command
    Set cmd.ActiveConnection = dbc
    cmd.CommandText = "Insert into CHAPTER (CHAPTERID, CHAPTERDESC) values (?,?)"
    Call cmd.Parameters.Append(cmd.CreateParameter("ID", adNumeric, adParamInput, 4, 4))
    Call cmd.Parameters.Append(cmd.CreateParameter("DESC", adVarChar, adParamInput, 80, "test4"))
    ' Next line produces the same error as the third method.
    cmd.Execute
    Set cmd = Nothing
    ' Done
    dbc.Close
End If
Set dbc = Nothing