®@mÐäÑ

MS Access to MySQL Database Converter

2012-01-31T13:21:00.010+07:00

Conversion of database with manual migration effort on a large scale is very slow and tedious tasks. Based on my own experience, I tried to write a program to convert Access databases into MySQL with Visual Basic.

This program was able to convert an Access database 2003 (*.mdb) or 2007 (*.accdb), including all tables and the item records. But still limited to few data type such as text, integer and date.

you can download for free here, or write an email to cool_ramdan@yahoo.com if you want the source code.

please leave a comment and let me know if the program is running well..

Ps: I use vbMySqlDirect for mySQL connection and Microsoft.ACE.OLEDB.12.0 for Access Driver

Menampilkan Data dari MySQL ke MsFlexGrid

2011-12-08T11:29:00.014+07:00

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),
('110015937000000000', 'L.SURACHMAN', 'MAGELANG', '3B30', 1750000),
('110016206000000000', 'M.WAJELLI, SE.MBA', 'TANJUNG KARANG', '4A26', 1300000),
('110017469000000000', 'THERESIA SUBIJANTI', 'YOGYAKARTA', '3C30', 1750000),
('110017472000000000', 'NATHANIEL RUNDUPADANG', 'MAKASSAR', '3C28', 1400000),
('110017514000000000', 'SRI JULIANI', 'AMBARAWA', '3B28', 2100000),
('110017672000000000', 'ROCHYATI', 'YOGYAKARTA', '3B30', 1100000);

Langkah-langkahnya sebagai berikut:

1. Buat Project baru

2. Tambahin VbMySQLDirect ke Referensi program seperti saya jelaskan Disini

3. Tambah sebuah MsFlexGrid

4. Copy Code berikut:

Dim Koneksi As New MYSQL_CONNECTION
Dim Recordset As New MYSQL_RS

Private Sub Form_Load()
Koneksi.OpenConnection "localhost", "root", "", "db_appgpp" 'sesuaikan
Set Recordset = Koneksi.Execute("select * from pegawai")

MSFlexGrid1.Cols = Recordset.FieldCount 'Set jumlah kolom Grid, sesuai jumlah field data
MSFlexGrid1.Rows = Recordset.RecordCount + 2 'set jml baris, +2 untuk header
CetakHeader

For Baris = 2 To Recordset.RecordCount + 1 'data dimulai di baris2, brs 0&1 utk header
For Kolom = 0 To Recordset.FieldCount - 1
MSFlexGrid1.TextMatrix(Baris, Kolom) = Recordset.Fields(Kolom)
MSFlexGrid1.ColAlignment(1) = flexAlignCenterleft
MSFlexGrid1.ColAlignment(2) = flexAlignCenterleft
Next
Recordset.MoveNext
Next

ResizeGrid MSFlexGrid1, Me
End Sub

Sub CetakHeader()
With MSFlexGrid1
.FixedRows = 2
.FixedCols = 0
.ForeColorFixed = vbBlue

.TextMatrix(0, 0) = "NIP"
.TextMatrix(1, 0) = "NIP"
.TextMatrix(0, 1) = "NAMA PEGAWAI"
.TextMatrix(1, 1) = "NAMA PEGAWAI"
.TextMatrix(0, 2) = "TEMPAT LAHIR"
.TextMatrix(1, 2) = "TEMPAT LAHIR"

.TextMatrix(0, 3) = "GAJI"
.TextMatrix(0, 4) = "GAJI"
.TextMatrix(1, 3) = "KODE"
.TextMatrix(1, 4) = "NOMINAL"

.ColAlignment(-1) = flexAlignCenterCenter
.FixedAlignment(1) = flexAlignCenterCenter
.FixedAlignment(2) = flexAlignCenterCenter
.ColAlignment(1) = flexAlignCenterleft
.ColAlignment(2) = flexAlignCenterleft
.MergeCells = flexMergeRestrictAll
.MergeCol(0) = True
.MergeCol(1) = True
.MergeCol(2) = True
.MergeRow(0) = True
End With
End Sub

Sub ResizeGrid(pGrid As MSFlexGrid, pForm As Form)
Dim intRow As Integer
Dim intCol As Integer
With pGrid
If .Rows > 100 Then
maxRow = 100
Else: maxRow = (.Rows - 1)
End If
For intCol = 0 To .Cols - 1
For intRow = 0 To maxRow
If .ColWidth(intCol) < pForm.TextWidth(.TextMatrix(intRow, intCol)) + 100 Then
.ColWidth(intCol) = pForm.TextWidth(.TextMatrix(intRow, intCol)) + 100
End If
Next
Next
End With
End Sub

Jika sukses, hasilnya akan seperti ini:

Selamat mencoba..

jalanin Perintah DOS dari VB

2009-03-11T09:23:00.005+07:00

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..

Menampilkan Gif Animasi di VB

2009-01-29T17:07:00.002+07:00

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..

Koneksi VB - My SQL tanpa ODBC

2009-01-05T15:52:00.006+07:00

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 = "10.204.15.214"
UserID = "root"
Password = "123456"
dbName = "test"
koneksi.CursorLocation = adUseClient
koneksi.OpenConnection NamaServer, UserID ,Password, dbName

Recset.OpenRs "select * from t_contoh_data", koneksi, 3, 3
MsgBox "Data ke 1 = " & Recset.Fields("Cth1")
End Sub

Udah, cuma gitu ajah cara koneksinya, ga ribet setting ODBC segala.. Cukup simpel kan..??
Selamat mencoba..

Kirim Email Palsu lewat Program VB

2008-12-15T13:44:00.004+07:00

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=" & Sender & "&SUBJECT=" & TxtSubject.Text & "&BODY=" & txtMsg.Text

strURL = "http://www.lorenza.it/varie/catalogo/Admin/XcCDONTS.asp"
Inet1.Execute strURL, "POST", StrFormData, "Content-Type: application/x-www-form-urlencoded"
MsgBox "sukses..."
TxtTarget = ""
TxtSubject = ""
TxtMsg = ""

End Sub

Coba deh Run Programnya, target nya pake email sendiri, sendernya terserah, misalnya aku@manis.sekali trus kirim...
haveFun.. :)

Visual Basic: Password Microsoft Access

2008-12-12T15:30:00.003+07:00

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(Asc(MyChar) Xor secret(secretpos)) 'Decrypt using Xor
secretpos = secretpos + 1'increment pointer
Next NextChar
Close #1' Close file.
AccessPassword = TempPwd
End Function

Demikian, semoga bermanfaat

Mengambil Nilai Sel Excel Dari VB

2008-12-12T13:20:00.005+07:00

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 IsiExcel
Next
Next

End Sub

Jangan Lupa tambahin Preferensi buat excel di program nya (Pilih Menu Project -> Preference ->Microsoft Excel Object Library), klo ngga percuma, ga jalan

Itu saja, semoga bermanfaat. ditunggu kritik dan sarannya

e-Book Gratis

2008-12-10T13:48:00.001+07:00

e-Book Ayat ayat fitna: klik disini