Surwanto

sediakan 1 form dan 1 combo didalamnya kemudian buat table dengan nama province dengan field Province_Name tempatkan database satu folder yang sama dengan program vb yang anda buat ini sample codenya Dim db As ADODB.Connection Dim Rs As ADODB.Recordset Dim msg as string Private Sub Form_Load() Dim Lok As String Lok = App.Path + "\dataku.mdb" Msg1 = "Provider=Microsoft.Jet.OLEDB.4.0;" & Chr(10) Msg1 = Msg1 & "Data Source='" & Lok & "';" & Chr(10) Msg1 = Msg1 & "Persist Security Info=False" & Chr(10) Set db = New ADODB.Connection db.Open Msg1 Msg = "SELECT Province_Name" Msg = Msg & " From PROVINCE" Set Rs = New ADODB.Recordset Rs2.Open Msg, db, adOpenStatic Combo1.Clear Combo1.Text = "[...]" Combo1.AddItem "[...]" While Rs.EOF <> True With Combo5 .AddItem Rs(0) End With Rs.MoveNext Wend Rs.Close Set Rs = Nothing end sub

Sebelumnya jika salah mohon dikoreksi. Mengkoneksikan VB ke Database dapat menggunakan beberapa teknik (yg saya tau). Teknik-nya yakni : 1. Diatur oleh sistem operasi, melalui DSN (Data Source Name) / ODBC pada Control Panel. 2. Diatur oleh VB dengan metode : * DAO (Data Access Object) * RDO (Remote Data Object) * ADO (ActiveX Data Object) Nah kemudian, ada pula yang seneng menggunakan Kontrol seperti (DATA, RDODC atau ADODC) untuk mengkoneksikannya tinggal klik-kluk-klik connect deh. Namun bagi yang seneng nulis script, maka lebih baik menuliskan aja yach. Saya sendiri lebih cenderung menggunakan script dengan metode ADO. Jangan lupa melakukan hal2 berikut sebelum codding : * Berdoa :-) * Aktifkan referensi ADO (Menu Project > References > Microsoft ActiveX Data Object 2.1) misalnya * Aktifkan komponen penunjang seperti Data Grid, FlexGrid, SSTab, DTPicker, ListView, dll melalui (Project > Component) or [CTRL]+T * Nah terakhir codding deh… Mi

sediakan 1 form dan 1 combo didalamnya kemudian buat table dengan nama province dengan field Province_Name tempatkan database satu folder yang sama dengan program vb yang anda buat ini sample codenya Dim db As ADODB.Connection Dim Rs As ADODB.Recordset Dim msg as string Private Sub Form_Load() Dim Lok As String Lok = App.Path + "\dataku.mdb" Msg1 = "Provider=Microsoft.Jet.OLEDB.4.0;" & Chr(10) Msg1 = Msg1 & "Data Source='" & Lok & "';" & Chr(10) Msg1 = Msg1 & "Persist Security Info=False" & Chr(10) Set db = New ADODB.Connection db.Open Msg1 Msg = "SELECT Province_Name" Msg = Msg & " From PROVINCE" Set Rs = New ADODB.Recordset Rs2.Open Msg, db, adOpenStatic Combo1.Clear Combo1.Text = "[...]" Combo1.AddItem "[...]" While Rs.EOF <> True With Combo5 .AddItem Rs(0) End With Rs.MoveNext Wend Rs.Close Set Rs = Nothing end sub

Free Mp3 Music Player at www.musik-live.net

Bagi pengguna feedjit untuk memantau pengunjung blog tentu sudah paham bener kelebihan dari widget ini yang menurut saya paling bermanfaat dari ke semua widget yang ada di blogspot. Dengan klik di link "what the real time" di kotak feedjit kita bisa menyaksikan siapa dan dari mana pengunjung yang sedang atau yang telah mengunjungi blog kita secara real time. Namun, akhir2 ini laporan dari what the real time sering tidak uptodate (macet), misalnya masih menampilkan kunjungan 7 hari yang lalu. Macetnya feedjit ini mungkin berkaitan dengan rencana mereka untuk tidak lagi menggratiskan layanan ini, klo tidak salah harus membayar 10 dolar selama setahun. Lantas apa solusinya? Jawabannya buruan beralih dan ganti feedjitmu dengan layanan monitoring pengunjung blog dari e-referrer. E-referrer adalah salah satu web yang menyediakan otomatis link kepada mereka yang terhubung ke anda. Salah satu cara terbaik untuk mendapatkan lalu lintas adalah dengan menghubungkan ke situs lain, dan me

Rasa syukur membuat hidup kita menjadi indah, Rasa syukur membuat yang sedikit terasa cukup dan berkah, Rasa syukur mengubah apa yang kita miliki saat ini menjadi lebih berharga, Rasa syukur mengubah masalah yang kita miliki menjadi hikmah yang bernilai, Rasa syukur mengubah hidangan sederhana terasa menjadi istimewa, Rasa syukur mengubah rumah yang sempit terasa lapang dan nyaman, Rasa syukur mengubah kegagalan menjadi pelajaran berharga, Rasa syukur mengubah kekeruhan suasana menjadi kejernihan, Rasa syukur mengubah yang tidak nyaman menjadi menyenangkan, Rasa syukur mengubah penolakan menjadi penerimaan, Rasa syukur mengubah kebenciaan di hati menjadi kasih sayang, Rasa syukur menciptakan kedamaian dan ketenangan hati, Rasa syukur mengubah emosi menjadi latihan kesabaran, Rasa syukur menjadikan masa lalu sebagai kenangan manis, Rasa syukur menjadikan masa sekarang keindahan dan kesenangan, Rasa syukur menjadikan hari esok penuh harapan, Rasa syukur menciptakan visi ke depan yang pen