RE: Writing Large Objects to Postgresql via ODBC using VB

At 12:15 AM 5/5/01 +0900, you wrote:
> > -----Original Message-----
> > From: Matthew Dormer
> >
> > I am having problems writing to a postgres database using ODBC.  Here are
> > the steps I have taken:
> >
> > 1.  I have greated a lo type in the database
> >
> > create type lo (
> > internallength=4, externallength=10,
> > input=int4in, output=int4out,
> > default='', passedbyvalue
> > );
> >
> >
> > 2.  I create a table in the database
> >
> > Create table matt ( matt_id integer not null unique primary key,
> > matt_text
> > lo );
> >
> > 3.  I have a simple form with 1 rich text box, RichTextBox1 and a command
> > button Command 1  Here is the code on the form:
> >
>
>Hmm you are using RDO.
>Are you setting rdoEnvironments.CursorDriver to rdUseOdbc ?
>
>regards,
>Hiroshi Inoue
>
>
>---------------------------(end of broadcast)---------------------------
>TIP 4: Don't 'kill -9' the postmaster
When I connect to the database I use:


     Dim Server As New Database_Servers
     Dim Connect_String As String

     If Server.dbDriver(DBid) = "SQL Server" Then

         Connect_String = "UID=" & Server.User_Name(DBid) & _
                      ";PWD=" & Server.User_Password(DBid) & _
                      ";Driver={" & Server.dbDriver(DBid) & _
                      "};SERVER=" & Server.dbServer(DBid) & _
                      "," & Server.dbServerPort(DBid) & _
                      ";DATABASE=" & Server.dbName(DBid)

     Else

         Connect_String = "UID=" & Server.User_Name(DBid) & _
                      ";PWD=" & Server.User_Password(DBid) & _
                      ";Driver={" & Server.dbDriver(DBid) & _
                      "};SERVER=" & Server.dbServer(DBid) & _
                      ";DATABASE=" & Server.dbName(DBid)

     End If

     Set en = rdoEnvironments(0)
     en.CursorDriver = rdUseOdbc
     Set cn = en.OpenConnection( _
         dsname:="", _
         Connect:=Connect_String _
         , Prompt:=rdDriverNoPrompt)

Ok... I added in the en=CoursorDriver = rdUseODBC and now I am getting:

S1090: [Microsoft][ODBC Driver Manager] Invalid String or buffer length

Any Ideas?

Matt.