Re: BUG #2555: runtime error 80040e21

I don't know VB very well, but I'm guessing that you can't update a
recordset that's the product of a SELECT. In any case, it's certainly
not a PostgreSQL bug. If you need more help, try pgsql-general.

On Jul 28, 2006, at 11:54 PM, Jonas Bruhn wrote:
> The following bug has been logged online:
>
> Bug reference:      2555
> Logged by:          Jonas Bruhn
> Email address:      jonas.bruhn@gmail.com
> PostgreSQL version: 8.1.4
> Operating system:   Windows 2000 Pro
> Description:        runtime error 80040e21
> Details:
>
> I'm using VB6, and trying to update a table. It is all happening on
> my home
> pc with IIS running too. I can download the table to a datagrid,
> bit I can't
> type any text i a textbox and update it whith out the error
> occuring. Here
> is the code and some remarks afterwards:
>
> Private Sub command2_click()
>
>     Dim cn As ADODB.Connection
>     Dim rs As ADODB.Recordset
>
>     Set cn = New ADODB.Connection
>
>     cn.Open "Provider=PostgreSQL.1;Password=***;User ID=postgres;Data
> Source=localhost;Location=***" ';Extended Properties="""
>
>     Set rs = New ADODB.Recordset
>     rs.CursorLocation = adUseClient
>     rs.Open "select tilbudspris, materialer from efterkalk", cn,
> adOpenKeyset, adLockOptimistic
>
>     rs.AddNew
> debug here ---  rs("tilbudspris").Value = Text1.Text
>     rs("materialer").Value = Text2.Text
>     rs.Update
>
>     Set rs.ActiveConnection = Nothing
>     Set rs = Nothing
>     cn.Close
>     Set cn = Nothing
>
> End Sub
>
> Remarks:
> The columns in the table is set to text.
> I've tried to write rs!tilbudspris and rs!materialer.
> I've tried to trim(text1.text)
> I've tried adopenstatic
> I've tried rs.movefirst
>
> I can't recognise where the problem should be, if it isn't a bug.
>
> Best regards
>
> Jonas Bruhn
>
> ---------------------------(end of
> broadcast)---------------------------
> TIP 3: Have you checked our extensive FAQ?
>
>                http://www.postgresql.org/docs/faq
>

--
Jim C. Nasby, Sr. Engineering Consultant      jnasby@pervasive.com
Pervasive Software      http://pervasive.com    work: 512-231-6117
vcard: http://jim.nasby.net/pervasive.vcf       cell: 512-569-9461