Ramedhan Hermawan's Blog

masih berhubungan dengan MySQL seperti yang sudah saya bahas sebelumnya di Sini , Sekarang Saya akan membahas cara bagaimana menampilkan Data MySQL yang sudah berhasil dibaca ke MsFlexGrid. Saya memilih MsFlexGrid karena relatif lebih mudah dalam pengaturan. Untuk contoh, saya siapkan sebuah table database seperti berikut (silahkan dicopast kalau mau menggunakan data ini) CREATE TABLE IF NOT EXISTS pegawai ( NIP char(18) DEFAULT NULL, NMPEG char(100) DEFAULT NULL, TEMPATLHR char(50) DEFAULT NULL, KDGAPOK char(4) DEFAULT NULL, Nominal int ); INSERT INTO pegawai VALUES ('110013596000000000', 'HERIEN DJOHAR M.', 'PARE-PARE', '3C32', 1000000), ('110013605000000000', 'DRS.SUNARJONO', 'YOGYAKARTA', '4A30', 1500000), ('110013622000000000', 'NY.SRI MULYATI', 'JAKARTA', '3C32', 1000000), ('110013953000000000', 'NY.KARTININGSIH', 'SOLO', '3B32', 1250000), (...

Berikut trik ngejalanin perintah DOS dari vb, siapa tau berguna. Buat Project baru dengan 1 textbox dan 1 command button. Tambahin Kode ini: Private Sub Form_Load() Shell "cmd.exe", vbNormalFocus End Sub Private Sub Command1_Click() Clipboard.Clear Clipboard.SetText Text1 + Chr$(13) AppActivate "cmd.exe" SendKeys "% ep", 1 End Sub isi perintah Dos di text1, misal nya 'DIR *.EXE' lalu klik command1, maka perintah dos tersebut akan langsung dieksekusi..

Bisakah VB menampilkan Gif Animasi? secara standard VB memang tidak memiliki object komponen untuk menampilkan gif animasi. Anda mungkin bisa googling untuk mendapatkan OCX nya. dari pengalaman saya, OCX tersebut biasanya harus dibeli, kalaupun ada yang gratis, biasanya dengan kemampuan terbatas. Sebetulnya dengan satu trik agar kita bisa menampilkan gif animasi dengan komponen bawaan VB. Langkah-langkahnya: 1. Buat Project dengan sebuah form 2. Tambahkan object Internet Control (Add-Components-Microsoft Internet Controls) 3. Ketikan Kode: Private Sub Form_Load() WebBrowser1.Navigate = "c:\somefile.gif" End Sub Ya... dengan control webbrowser dan sedikit sentuhan html kita bisa menampilkan gif animasi.. Silahkan dicoba..

Bagi Anda yang biasa membuat program pengolahan DataBase mungkin sudah tidak asing lagi Untuk mengkoneksikan VB dengan MySQL. Untuk saat ini Data Base MySQL memang sangat ideal, baik dari segi kecepatan maupun karena gratisnya. Sayang nya memang MySQL tidak memiliki driver standard seperti Access atau SQL Server. Salah Satu Solusi mungkin bisa menggunakan MyODBC untuk mengkoneksikannya. akan tetapi, MyODBC memiliki kelemahan dari segi kecepatan, terutama jika data sudah membengkak jumlahnya. Koneksi tanpa ODBC mungkin bisa menjadi solusi. Langsung Pada inti aja mungkin, berikut langkah-langkah nya: 1. Download dan Install VbMySQLDirect (googling aja atau Klik Disini ) 2. Buat Program Baru 3. Tambahin VbMySQLDirect ke Referensi program (Menu Project->References->VbMySQLDirect 1.0) 4. Tinggal definisiin variable buat koneksi dan Recordset Contoh Penggunaan: Dim koneksi As New MYSQL_CONNECTION Dim Recset As New MYSQL_RS Private Sub Form_Load() NamaServer = ...

Ingin tau gimana caranya bikin email palsu lewat bahasa pemrograman Visual Basic? Sssstt.. simple koq!! tapi jangan buat maen2 ya... Ini sih buat belajar aja, sama sekali bukan mengajarkan kejahatan. (Tanggung jawab sendiri loe klo dipake buat nipu!!) Langkah 1: Bikin Form baru Tambahin Objek Inet (Klik Kanan di Tool Box, Componens.. Pilih Microsoft Internet Transfer Control) Tambahin 4 Text Box Kasih Nama txtSender, txtTarget, txtSubject, txtMsg Ubah Properti txtMsg: MultiLine = True Tambahin 1 Command Button Atur Tampilannya biar Indah dan menawan :) Langkah 2: Copy Source Code Dibawah Ini, Paste di Code nya VB Private Sub Command1_Click() Dim strURL As String Dim StrFormData As String Dim X, Y Dim Sender As String Dim Receiver As String X = Split(TxtSender.Text, "@") Sender = X(0) & "%40" & X(1) Y = Split(TxtTarget.Text, "@") Receiver = Y(0) & "%40" & Y(1) StrFormData = "TO=" & Receiver & "&FROM=...

Pernah punya file microsoft Access yang di protek password, trus Anda lupa? Tentu sangat menyebalkan.. Jangan Buru² Frustasi!! Bagi Anda yang mengerti pemrograman Visual Basic bisa mencoba membuat program untuk membuka Password. Berikut Listing Programnya: Function AccessPassword(Byval Filename As string) as string Dim MaxSize, NextChar, MyChar, secretpos,TempPwd Dim secret(13) secret(0) = (&H86) secret(1) = (&HFB) secret(2) = (&HEC) secret(3) = (&H37) secret(4) = (&H5D) secret(5) = (&H44) secret(6) = (&H9C) secret(7) = (&HFA) secret(8) = (&HC6) secret(9) = (&H5E) secret(10) = (&H28) secret(11) = (&HE6) secret(12) = (&H13) secretpos = 0 Open Filename For Input As #1' Open file for input. For NextChar = 67 To 79 Step 1 'Read in Encrypted Password Seek #1, NextChar' Set position. MyChar = Input(1, #1)' Read character. TempPwd = TempPwd & Chr(A...

bagaimana caranya mengambil nilai suatu sel dari microsoft excel melalui source code visual basic? Ada satu trik sederhana untuk melakukan hal ini: Function getExcel(rowval As Integer, columnval As String, excelfile As String) Dim excelSheet As Object 'Excel Sheet object 'Buat Object Excel Set excelSheet = CreateObject(excelfile) mycell$ = columnval & rowval getExcel = excelSheet.ActiveSheet.Range(mycell$).Value Set excelSheet = Nothing End Function untuk selanjut nya anda bisa copy paste function tersebut di program anda, dan dapat dipangil kapan saja saat diperlukan. Contoh Penggunaan: private sub cmdContoh_Click() dim a dim baris, klm as integer dim kolom as string dim NamaFile as string NamaFile = App.Path & "\contoh.xls" For baris =1 to 10 For klm = 1 to 10 Kolom = Chr(klm+ 65) ' ngerubah kolom jadi huruf, sesuai penamaan kolom di excel IsiExcel = getExcel (baris, kolom, NamaFile) ' ambil isi cell nya List1.AddItem ...