Biar mudah saya kasih contoh scriptnya saja yach (untuk koneksi Oracle dan
MySql), kamu bikin modul dengan script dibawah ini :
Option Explicit
Public MySqlConnection As ADODB.Connection
Public OracleConnection As ADODB.Connection
Public Sub Main()
Set OracleConnection = New ADODB.Connection
Set MySqlConnection = New ADODB.Connection
Set OarcleConnection = Db_Open("PROVIDER=MSDASQL;DSN=Teserah;User Id=Teserah
;PASSWORD=Teserah;DBQ=Teserah;UID=Teserah;")
Set MySqlConnection =
Db_Open("Driver={mysql};Server=localhost;Option=16834;Database=mydatabase")
frmMDI.Show vbModal
End Sub
Private Function Db_Open(ConnectionString As String) As ADODB.Connection
Set Db_Open = New ADODB.Connection
Db_Open.CursorLocation = adUseClient
Db_Open.ConnectionString = ConnectionString
Db_Open.Open
End Function
NB:
- Terserah artinya tergantung dari konfigurasi database yang kamu pakai.
- Untuk tiap koneksi ke database cukup seperti di bawah ini saja (contoh untuk
MySql):
Dim Table As ADODB.Recordset
Dim Sql As String
Sql = "select * from nama_table "
Set Table = New ADODB.Recordset
Table.Open Sql, MySqlConnection, adOpenDynamic, adLockOptimistic, adCmdText
- Semoga membantu
"DuniaVB" <[EMAIL PROTECTED]> on 07/04/2006 11:11:21 AM
Please respond to [email protected]
To: "Idoprog-VB" <[email protected]>
cc: (bcc: Toni Rahayu/IT/domino_srv)
Subject: [indoprog-vb] Koneksi database menggunakan coding
Selamat siang,
Langsung saja ke permasalahan, selama ini saya menambahkan control Ms ADODC pada
form untuk koneksi ke database, sehingga bila dalam satu project terdapat lebih
dari satu form, maka saya perlu mengatur koneksi data pada masing-masing control
di tiap form yang saya buat, sehingga ini kurang praktis bila database saya
pindah tempatnya (mohon maklum, saya pemula).
Pertanyaan saya, bagaimana cara mengatur koneksi ke database menggunakan coding,
misalnya coding tersebut diletakkan di Module yang bernama ModDB dan nama
databasenya Rontgen.mdb yang terletak di drive D:\Data\, sehingga bila letak
database berpindah saya hanya perlu merubah satu kali pada Modulenya saja. Mohon
diberikan contoh singkat coding utuk konek database, penggunaan recordset dalam
penulisan pada Module dan code Form-nya.
Kalau diantara teman-teman milis ada yang memiliki software POS, apotek, klinik
pengobatan+laboratnya, akunting, HRD, pembayaran SPP, dan lainnya dan berniat
menjual dengan atau tanpa source codenya, saya siap membantu memasarkan untuk
daerah saya dan bisa menawarkan langsung ke email saya, tentunya software
tersebut sudah "error free", sudah diuji sebelumnya, dan yang paling penting
harga bersaing. Saya tunggu..!!
Demikian, semoga pertanyaan saya dapat difahami dan terima kasih.
Samsul A.
[Non-text portions of this message have been removed]
Untuk berhenti berlangganan kirim email kosong ke :
[EMAIL PROTECTED]
Forum ini berkembang dengan pesat, jika anda memiliki
dedikasi dan waktu, silahkan mengaplikasikan diri
menjadi moderator.
Yahoo! Groups Links
Toni Rahayu
PT. Omedata Electronics
IT Department
Hunting : (62-22) 6030805 Ext 121
Faxs : (62-22) 6030896
Homepage : http://toni.rahayu.tripod.com
Untuk berhenti berlangganan kirim email kosong ke : [EMAIL PROTECTED]
Forum ini berkembang dengan pesat, jika anda memiliki
dedikasi dan waktu, silahkan mengaplikasikan diri
menjadi moderator.
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/indoprog-vb/
<*> 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/
