Thread: Problems with Visual Basic

Hi,

found a Problem with the following configuration; can you help please?

ODBC-Driver-Version:
         7.1.007
Database-Version:
         7.1.3 on Linux 2.4.4-4GB (root@Pentium.suse.de) (gcc version
2.95.3 20010315 (SuSE))
Visual Basic:
         6 SP 5
Data Access Method:
         DAO (.. i know; but I have/want to convert a *large* project)
The Code:
         Set myWs = CreateWorkspace("FAKTODBC", "Admin", "", dbUseODBC)
         Workspaces.Append myWs

         Set myDB = myWs.OpenDatabase("fakt32", dbDriverNoPrompt, False,
"ODBC;dsn=PostgreSQL;uid=postgres;pwd=;")
         Set gRsK = OpenRs(DYN, "Select * from " & TB_KENN)
         With gRsK
                 .AddNew
                 .Update
         End With

openrecordset only creates recordset's that are *not* updateable
         .addnew gives an Error-Message: 3027 ... Database or object is
readonly



---------------------------------------------------------------------
Wolfgang Fürtbauer                              Tel: +43 7612 77620
Steinbichlstrasse 58d                           w.fuertbauer@eunet.at
A-4812 Pinsdorf

> -----Original Message-----
> From: Wolfgang FEtbauer
>
> Hi,
>
> found a Problem with the following configuration; can you help please?
>
> ODBC-Driver-Version:
>          7.1.007
> Database-Version:
>          7.1.3 on Linux 2.4.4-4GB (root@Pentium.suse.de) (gcc version
> 2.95.3 20010315 (SuSE))
> Visual Basic:
>          6 SP 5
> Data Access Method:
>          DAO (.. i know; but I have/want to convert a *large* project)
> The Code:

M$ ODBC cursor library support is needed.

>          Set myWs = CreateWorkspace("FAKTODBC", "Admin", "", dbUseODBC)
>          Workspaces.Append myWs
>

Please insert the following code here.

    myWS.defaultCursorDriver = dbUseODBCCursor

>          Set myDB = myWs.OpenDatabase("fakt32", dbDriverNoPrompt, False,
> "ODBC;dsn=PostgreSQL;uid=postgres;pwd=;")
>          Set gRsK = OpenRs(DYN, "Select * from " & TB_KENN)

Please open the recordset gRsK with dbExecDirect, dbOptimistic option.

regards,
Hiroshi Inoue