MyBlog

Disini saya akan menunjukan script Visual Basic 6.0 untuk menyeleksi database menggunakan SQL 2000 yang akan ditampilkan pada DataGrid. Komponen-komponen yang harus digunakan 1 buah Adodc kosongan (tanpa diganti propertiesnya, kecuali yang tidak mempengaruhi koneksi) 1 buah TextBox 1 buah DataGrid Untuk Script yang dimasukkan dalam Form_Load Adodc1.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=TA" Adodc1.RecordSource = " Pembeli " Set DataGrid1.DataSource = Adodc1 DataGrid1.AllowUpdate = False DataGrid1.TabStop = False DataGrid1.Refresh Untuk Script yang akan menyeleksi sql = "select * from Pembeli where Bon = '"& Text1.Text &"'" Adodc1.RecordSource = sql Adodc1.Refresh Set DataGrid1.DataSource = Adodc1 DataGrid1.Refresh NB: -Kalau Adodc-nya diberi Connection String, maka datagrid tidak akan memunculkan selection data. -Untuk Script warna merah adalah nama Table (Hati...

Mungkin jika anda membuat sebuah program, anda menginginkan hasil yang bagus bukan? Program yang anda buat akan lebih bagus dan menarik jika diberikan auto number. Pengguna program anda tidak sush-susah lagi didalam menuliskan kode. Selain itu, auto number juga berguna untuk meminimalisirkan kesalahan jika database program anda menggunakan primary key. Script yang saya share disini adalah dengan menggunakan angka dan huruf sebagai inisial. Contohnya SN001, SN002, SN003, dan seterusnya. Langsung aja ke scriptnya. Contoh yang menggunakan label bantu berupa Label1 Call Buka_Pembeli sql = "select * from Pembeli where ID_Pembeli In (Select Max(ID_Pembeli) From Pembeli) Order By ID_Pembeli Desc" Set rsa = con.Execute(sql) With rsa If .EOF Then Label8.Caption ="SN"+ "001" TxtIDPembeli.Text = Label8.Caption Else Label8.Caption = rsa.Fields("ID_Pembeli") a = Trim(Right(Label8.Caption, Len(Label8.Caption) - 2)) b = Right("000...

Component-component yang harus digunakan 1 buah Adodc 1 buah Command Button 1 buah Textbox 1 buah Label Langkah: Pertama-tama buatlah koneksi database dengan script dibawah ini Sub Buka_Pembeli() Set con = New ADODB.Connection Set rsa = New ADODB.Recordset conect = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=TA" con.Open conect rsa.Open "Pembeli", con End Sub Untuk script auto numbernya, kopas dibawah ini Call Buka_Pembeli sql = "select * from Pembeli where ID_Pembeli In (Select Max(ID_Pembeli) From Pembeli) Order By ID_Pembeli Desc" Set rsa = con.Execute(sql) With rsa If .EOF Then Label8.Caption = "001" TxtIDPembeli.Text = Label8.Caption Else Label8.Caption = rsa.Fields("ID_Pembeli") a = Trim(Right(Label8.Caption, Len(Label8.Caption) - 2)) b = Right("000" & Val(a + 1), 3) TxtIDPembeli.Text = b End If End With Semoga tutorial diatas dapat bermanfaat buat semua aja.

Tutuorial yang sangat sederhana ini, saya buat untuk membantu teman-teman saya yang sedang mengerjakan Tugas Akhir. Didalam membuat Tugas Akhir berupa pembuatan sistem informasi, haruslah menggunakan Crystal Report untuk memudahkan didalam membuat struk maupun laporan. Namun, ketika kita add Crystal Report 8.5 pada Visual Basic 6.0, seketika langsung not responding. Tutorial ini muncul dari ide teman saya yang bernama Ignatius Bagas . Disini saya mencantumkan nama pemikir karena saya tidak ingin melanggar hak cipta seseorang. Yang saya inginkan dari pen-download ini, supaya tidak melanggar hak cipta seseorang. Untuk download Tutorial sederhana ini, click DISINI

Disini saya akan memberikan tutorial mengenai Cara Membuat Relasi Table Melalui Microsoft SQL 2000 berserta triknya. Download tutorial pdf via Mediafire Download tutorial pdf via 4Shared 1.       Jika kalian menemukan hasil seperti dibawah ini, maka lakukan langkah dibawah gambar. maka  Download tutorial via Mediafire Download tutorial via 4Shared maaf jika program screen shot ane nyelip atau nyantol di gambar atas. *saya mohon maaf jika terdapat iklan yang kuran berkenan di hati pembaca   disini saya juga butuh uang untuk hidup

Katanya Microsoft SQL 2000 hanya dapat digunakan untuk OS maksimal Windows XP. Tetapi disini saya akan menunjukan bagaimana cara menginstal microsoft sql 2000 for windows 7. untuk download programnya silahkan klik DISINI . untuk download tutorialnya silahkan klik DISINI . Semoga bermanfaat buat kalian semua.....

Pernahkah Anda mengalami hal semacam ini? Gak bisa merestore database pada SQL 2000? Eror dalam merestore database pada SQL 2000? Atau seperti pada gambar dibawah ini? Jangan takut, jangan kuatir. Silahkan download pdf DISINI

Disini saya akan menunjukkan tips & trik cara mencontek yang aman dan sukses. Pertama, lihatlah situasi apa Anda mencontek. Apakah pada situasi " UN " atau pada situasi " Ulangan Akhir Semester maupun Ulangan Harian "?????? Jika itu terjadi pada saat " Ulagan ", maka buatlah contekan Anda sendiri. Karena Anda sudah mengetahui materinya dan materinya tidak begitu kompleks. Namun jika pada situasi " UN " dan Anda mendapatkan kunci jawaban, maka ambilah kunci jawaban tersebut. Tetapi jangan ditulis sama persis dengan kunci jawaban tersebut. Kunci jawaban tersebut dapat Anda gunakan jika Anda sudah benar-benar yakin bahwa Anda tidak dapat mengerjakan salah satu soalnya. Namun, jika Anda tidak mendapatkan kunci jawaban, maka Anda harus lebih giat belajar lagi..... Kedua, lihatlah pengawas ruangan Anda. Jika pengawas ruangan Anda tersebut suka lengah dan 'masa bodoh ' kepada siswa yang diawasinya, maka Anda agak leluasa didalam menconte...