> 안녕하세요.
> 저는 초보 회사원 '나영수' 라고 합니다.
>
> 다름이 아니라
> Private AdoConnection As ADODB.Connection
> Dim connect As String
>
> connect = "Driver=PostgreSql; Server=xxx.xxx.xxx.xxx; Database=xxx; Port=xxxx; Uid=xxx; Pwd=xxx;
> "
> AdoConnection.Open connect
>
> 이와같이 ADO 를 사용하여 리눅스상의 postgresql DB에 접속하려 하는데
> 'ADO가 지정된 공급자를 찾지 못하였습니다.' 라는 에러 메세지를 뿌리네요
>
> ADO 는 postgresql을 지원 못하는지요...
> 참고로 connect에 여러가지 정보를 바꾸어가며(Provider, dsn... 집어넣기)
> 테스트 해보았는데도 않되네요
>
> 참고로 RDO 는 접속이 되던데요...
> Private rdoConnect As RdoConnection
> Private rdoEnviron As rdoEnvironment
>
> Set rdoEnviron = rdoEnvironments(0)
> Set rdoConnect = rdoEnviron.OpenConnection(***dns name***)
>
> 저는 RDO 보다는 ADO 를 사용하고 싶은데요.....
>
안녕하세요
요즘 저도 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 를 제거 시키시구요 ...
그리고 위의 옵션은 도움말에 자세히 나와 있습니다
환경에따라 어떻게 작용할지는 모르지만 성공하시길....
|