역시 conn.Open 에서 에러가 나는 데요...
> 안녕하세요
> 요즘 저도 postgres 를 연동하는 조그마한 프로그램을 짜고 있어요
> 아래는 제가 사용했던 방법입니다
> Dim conn As ADODB.Connection
> Dim adors As ADODB.Recordset
>
> Private Sub Form_Load()
> Set conn = New Connection
>
> conn.CursorLocation = adUseClient
> '둘중하나 아무거나 써도 됩니다
> 'conn.ConnectionString = "ODBC;DATABASE=test2;UID=speedall;PWD=;DSN=PostgreSQL"
> conn.ConnectionString = "Driver=PostgreSQL;Server=xxx.xxx.xxx.xxx;" & _
> "Database=test2;" & _
> "Port=5432;Uid=speedall;Pwd=xxxx"
>
> conn.Open
>
> Set adors = New ADODB.Recordset
> adors.CursorType = adOpenDynamic
> adors.LockType = adLockPessimistic
> adors.Open "test33", conn, , , adCmdTable
>
> conn.BeginTrans
> conn.Execute "insert into test33 values('1261')"
>
> End Sub
>
>
> ado 에서 데이타가 들어가긴 하지만 제 같은 경우
> conn.committrans 에서 에러가 나더군요 ...
> 이 문제는 아직 해결 못 했구요
> 혹 제어판에 readonly 를 제거 시키시구요 ...
>
> 그리고 위의 옵션은 도움말에 자세히 나와 있습니다
>
> 환경에따라 어떻게 작용할지는 모르지만 성공하시길....
|