But it worked yesterday!

From: "Corey W(dot) Gibbs" <cgibbs(at)westmarkproducts(dot)com>
To: "pgsql-odbc(at)postgresql(dot)org" <pgsql-odbc(at)postgresql(dot)org>
Subject: But it worked yesterday!
Date: 2002-05-15 17:41:24
Message-ID: 01C1FBFD.0FFBEA70.cgibbs@westmarkproducts.com
Views: Raw Message | Whole Thread | Download mbox | Resend email
Thread:
Lists: pgsql-odbc

Good Morning Everyone,

I swear this exact set of code below worked yesterday. Environment is VB6,
latest MDAC, and PG odbc of 7.02.00.01

I made zero, zip, no changes to anything, just turned on my workstation and
blam, it quit working. Has anyone else had something like this happen?

Does it sound like my mdac got hosed somehow? Any help would be
appreciated.

thanks in advance
corey

<rambling code>

'first i open a connection...
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
cn.Open "Driver={PostgreSQL};" & _
"Server=server3;" & _
"Port=5432;" & _
"Database=listing_job_info;" & _
"Uid=postgres;"

'when the user hits the add/update button then this stuff runs....
rs.Open "SELECT job_number,purch_notes from purchasing_info where
job_number = '" & txt_job_number.Text & "' order by job_number DESC", cn,
adOpenDynamic, adLockOptimistic

If rs.RecordCount < 1 Then
new_record
Else
update_record
End If

'here's the new_record subroutine
Public Sub new_record()
With rs
.AddNew
.Fields("job_number") = txt_job_number.Text
.Fields("purch_notes") = txt_job_notes.Text
.Update
End With
end sub

'Row Value Out Of Range is the error message i get try to execute the
.Update
'here's the output from the immediate window
print err.Source
Microsoft OLE DB Provider for ODBC Drivers
print err.Description
Row value out of range
</rambling code>

Browse pgsql-odbc by date

  From Date Subject
Next Message Corey W. Gibbs 2002-05-15 20:28:19 but it worked yesterday? please ignore
Previous Message Gavin Evans 2002-05-15 09:48:52 psqlodbc-07_02_0001