Kang saya coba sample dibawah, tapi muncul error sbb:
Error -2147467259: [Microsoft][ODBC Driver Manager] Data source name not
found and no default driver specified
kenapa ya?
btw untuk SQL Command nya sendiri, perbedaan antara Ms-SQL dan PostGreSQL
banyak atau tidak, kebetulan saya sedang menjajaki migrasi dari Ms-SQL ke
PostGreSQL, coz Ms-SQL License nya mahal banget, apalagi CAL nya.
btw seinget saya dulu kantor Kang Toni juga pake Ms-SQL kan?
salam,
sodik
On Thu, 06 Dec 2007 16:36:29 +0700, Toni Rahayu <[EMAIL PROTECTED]>
wrote:
>
>
> 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
>
--
Using Opera's revolutionary e-mail client: http://www.opera.com/mail/
Send instant messages to your online friends http://asia.messenger.yahoo.com
Wahana Programmer Groups Links
<*> Untuk mengunjungi sponsor milis ini, klik link berikut:
http://wahanaprogrammer.net
<*> Untuk menghubungi owner milis ini, kirim email ke:
[EMAIL PROTECTED]
<*> Konsultasi pemrogramman bisa chat disini:
Yahoo! Messenger: wahanaprogrammer
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/Programmer-VB/
<*> Your email settings:
Individual Email | Traditional
<*> To change settings online go to:
http://groups.yahoo.com/group/Programmer-VB/join
(Yahoo! ID required)
<*> To change settings via email:
mailto:[EMAIL PROTECTED]
mailto:[EMAIL PROTECTED]
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
