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

Adikku Yang Paling aku sayang Senyumnya adalah sumber kebahagiaan aku tangisnya adalah kesedihanku... tersenyumlah selalu adikku sayang... misssssss uuu.... Untuk Lebih Lengkapnya***

Cara Install Windows XP pada notebook dg HDD SATA dengan atau tanpa Floppy Disk Dikarenakan Type Harddisk Notebook saat ini sudah mempergunakan SATA dan masih banyaknya user yang memilih Operating System Windows XP, sedangkan Windows XP sendiri belum bisa mengenali Harddisk SATA tersebut secara langsung maka seringkali user/customer mengatakan Harddisk tersebut rusak atau tidak dikenali pada saat instlasi Windows. Tapi sebenarnya Harddisk tersebut tidak rusak hanya kita perlu menginstall driver Harddisk SATA pada saat awal instalasi Windows XP tersebut atau kita bisa men-disable feature SATA pada laptop tersebut apabila BIOSnya mendukung. Berikut cara instalasi laptop dengan Harddisk Type SATA dengan 2 cara yaitu : I. MEN "DISABLE" SATA NATIVE SUPPORT Hal ini dilakukan apabila "BIOS" pada Notebook/Laptop tersebut mendukung untuk melakukan DISABLE SATA NATIVE SUPPORT, yaitu dgn cara sebagai berikut: 1. Masuk Menu BIOS (Tekan F10 - segera setelah tampilan COMPA

Silahkan Mencoba... Web Ini Dibuat Untuk Belajar Karena Dengan Belajar Bukan Tidak Mungkin Kita Akan Bisa Menggunakannya dan dapat mengoperasikannya.... harapan saya semoga blog saya dapat membantu teman teman blogs semua