Hallo Kang Sodik, Kamu udah install-in pogress odbc plus setting di data source odbc nya gak, kalo udah cek lagi nama databasenya di settingan odbc-nya.
Perbedaannya banyak, diantaranya di pogress case sensitif, terus penulisan nama
filenya harus pake "" contoh "NamaFile" dll.
btw, kang sodik koq tahu abaout kantor saya ? yup... database yang saya pake
MySQL, Postgress dan oracle ora ono Ms-SQL nya kang.
Rgds
"Sodik Ihwan" <[EMAIL PROTECTED]> on 12/06/2007 12:13:26 PM
Please respond to [email protected]
To: [email protected]
cc: (bcc: Toni Rahayu/IT/domino_srv)
Subject: Re: [Programmer-VB] ? Koneksi Postgresql pada Vb.6
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
Yahoo! Groups Links
att1.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
