Hallo yepai, Coba pake ini :
Option Explicit
Public PostgresConnection As ADODB.Connection
Public Sub Main()
Dim sErrStr As String
On Error GoTo ErrorHandler
Set PostgresConnection = New ADODB.Connection
Set PostgresConnection =
Db_Open("DSN=PostgreSQL26;UID=postgres;PWD=YourPassword;Database=ErpDB;")
frmKamu.Show
GoTo ExitHandler
Exit Sub
ErrorHandler:
sErrStr = "Error " & Err.Number & ": " & Err.Description
MsgBox sErrStr, vbInformation + vbOKOnly, "frmMDI:Main"
ExitHandler:
Exit Sub
End Sub
Private Function Db_Open(ConnectionString As String) As ADODB.Connection
Dim sErrStr As String
Set Db_Open = New ADODB.Connection
Db_Open.CursorLocation = adUseClient
Db_Open.ConnectionString = ConnectionString
Db_Open.Open
Exit Function
ErrorHandler:
sErrStr = "Error " & Err.Number & ": " & Err.Description
MsgBox sErrStr, vbInformation + vbOKOnly, "mdMain:Db_Connect"
ExitHandler:
Exit Function
End Function
"Yepai" <[EMAIL PROTECTED]> on 11/28/2007 08:25:18 AM
Please respond to [email protected]
To: [email protected]
cc: (bcc: Toni Rahayu/IT/domino_srv)
Subject: [Programmer-VB] ? Koneksi Postgresql pada Vb.6
Dulu waktu kursus vb.6 koneksi database yang diajarkan cuma dengan
ms.access dan ms.sql server. Gimana yah kalo koneksi dengan postgresql
? ada yang tahu ? sharing.. dong....!!! trim's
|
Dulu waktu kursus vb.6 koneksi database yang diajarkan cuma dengan |
att2.eml
Description: Binary data
Toni Rahayu PT. Omedata Electronics IT Department Hunting : (62-22) 6030805 Ext 121 Faxs : (62-22) 6030896 Homepage : http://www.toni-rahayu.co.cc
