Re: ODBC & Transactions?
| От | Hiroshi Inoue |
|---|---|
| Тема | Re: ODBC & Transactions? |
| Дата | |
| Msg-id | 3BEB330C.551AF8F0@tpf.co.jp обсуждение исходный текст |
| Ответ на | Re: ODBC & Transactions? ("Mike Miller" <mmiller@pooka.otago.ac.nz>) |
| Ответы |
Re: ODBC & Transactions?
|
| Список | pgsql-odbc |
Mike Miller wrote:
>
> > Mumble, can you show us the exact VB code you are using to
> > send these queries? Maybe it can help... (well, it would be
> > excellent if you could post a stripped down test case starting
> > from connection, query execution, etc. that shows the behaviour
> > you are experiencing)
>
> '**********************************************************
>
> Dim adoConnection As ADODB.Connection
> Dim strADOConnection As String
>
> '**********************************************************
>
> Sub ConnectDB()
>
> ' Create the ADO object
> Set adoConnection = CreateObject("ADODB.Connection")
>
> ' Set up the connection string to the database
> strADOConnection = "DSN=PostgreSQL"
>
> ' Open the connection
> With adoConnection
> .ConnectionString = strADOConnection
> .Open
> End With
>
> End Sub
>
> '**********************************************************
>
> Sub DisconnectDB()
>
> ' Close connection
> With adoConnection
> .Close
> End With
>
> ' Clean up
> Set adoConnection = Nothing
>
> End Sub
>
> '**********************************************************
>
> Function SQLCommand(strSQL As String) As Integer
>
> ' Variables
> Dim adoCommand As ADODB.Command
> Dim lngRecordsAffected As Long
>
> ' Create the ADO command object
> Set adoCommand = CreateObject("ADODB.Command")
>
> ' Set the connection, the command and execute it
> With adoCommand
> .ActiveConnection = strADOConnection
How about
.ActiveConnection = adoConnection
?
regards,
Hiroshi Inoue
В списке pgsql-odbc по дате отправления: