Visual basic 6 memiliki fungsi built-in untuk operasi string. ada operasi string yang akan memngembalikan ke string lagi, misalnya fungsi Right (Mengambil karakter N dari Kanan), Left (Mengambil Karakter dari Kiri) dan ada yang memberikan output angka, misalnya Len (mengembalikan panjang string). untuk string yang mengembalikan string. fungsi string yang mengembalikan string, dapat ditulis dengan atau tanpa dolar pada akhir nama fungsi. tetapi saya menyarankan menggunakan tanda $ dibagian akhir nama fungsi, untuk mempercepat kinerja aplikasi, berikut ini beberapa fungsi string yang saya tahu:

Fungsi: Len
Deskripsi: Menghitung jumlah karakter dalam suatu string
Syntax: Len(string)
Contoh: lngLen = Len("Visual Basic")  '


Fungsi: Mid$ (atau Mid)
Deskripsi: Mengambil sejumlah karakter dari suatu string,  dari karakter ke - n sampai N
Syntax: Mid$(string, start(Char Ke-),Lenght)


Keterangan:
string   Required; string yang akan diambil sebagian karakternya
start(Char ke-)      Required; Angka. posisi Karakter awal pengambilan pemecahan string 
Lenght:   Optional; Angka. Jumlah/Panjang karakter yang diambil

Contoh:

strSubstr = Mid$("Visual Basic", 3, 4)          ' strSubstr = "sual"
Note: Mid$ juga bisa digunakan untuk mengganti string sejumlah N pada suatu string, mirip dengan perintah Replace$

               Contoh:                   

       strTest = "Visual Basic"
       Mid$(strTest, 3, 4) = "xxxx"     
       'strTest menjadi  "Vixxxx Basic"               


Fungsi: Left$ (atau Left)
Deskripsi: mengambil sebagian karakter dari kiri ke kanan, sejumlah N
Syntax: Left$(string, Lenght)

keterangan:
string    Required. String yang akan diambil sebaian karakternya
Lenght  Required; Angka. Jumlah karakter yang diambil.
Contoh: strSubstr = Left$("Visual Basic", 3)      ' strSubstr = "Vis"


Fungsi: Right$ (or Right)
Deskripsi: Mengambil sebagian karakter sejumlah N dari sisi paling kanan
Syntax: Right$(string, Lenght)

Part      Description
string    Required. String yang akan diambil sebagian karakternya
lenght   Required; Angka. jumlah karakter yang akan diambil
Contoh: strSubstr = Right$("Visual Basic", 3)    ' strSubstr = "sic"


Fungsi: UCase$ (atau UCase)
Description: Merubah semua huruf kecil di suatu string menjadi huruf besar
Syntax: UCase$(string)
Contoh: strUcase = UCase$("Visual Basic")           ' strUcase = "VISUAL BASIC"


Fungsi: LCase$ (or LCase)
Deskripsi: Merubah semua huruf di suatu string menjadi huruf kecil
Syntax: LCase$(string)
Contoh: strLcase = LCase$("Visual Basic")           ' strLcase = "visual basic"


Fungsi: Instr
Deskripsi: mencari posisi substring dalam suatu string dimulai dari posisi karakter ke -n, outputnya numerik posisi substring itu berada
Syntax: InStr([start,] string1, string2 [, compare])

Keterangan
start           Optional. Angka. Posisi awal pencarian, bila tidak diisi otomatis akan dicari dari posisi pertama/karakter pertama

string1        Required. String yang akan dianalisa

string2        Required. filter/substring yang dicari

compare     Optional; Angka/Pilihan,

  • Nilai defaultnya (bila tidak diisi) adalah "0" (vbBinaryCompare) = Case Sensitif, 
  • "1" (vbTextCompare) = Tidak Case Sensitif
  • "2" (vbDatabaseCompare)
Contoh: lngPos = Instr("Visual Basic", "a")
' lngPos = 5

lngPos = Instr(6, "Visual Basic", "a")
' lngPos = 9 (dimulai dari posisi karakter ke -6)

lngPos = Instr("Visual Basic", "A")
' lngPos = 0 (Pencarian Case Sensitif)

lngPos = Instr(1, "Visual Basic", "A", 1)
' lngPos = 5 (Pencarian Tidak Case Sensitif)


Fungsi: InstrRev
Deskripsi: Sama dengan Instr, perbedaannya InstrRev mencari dari posisi karakter terakhir/terbalik
Syntax: InStrRev(string1, string2[, start, [, compare]])

Keterangan:
string1        String yang akan dianalisa

string2        String yang akan dicari

start           posisi karakter awal pencarian (bila tidak diisi, otomatis pencarian akan dimulai dari karakter terakhir)

compare     Optional; Angka/Pilihan,

  • Nilai defaultnya (bila tidak diisi) adalah "0" (vbBinaryCompare) = Case Sensitif, 
  • "1" (vbTextCompare) = Tidak Case Sensitif
  • "2" (vbDatabaseCompare)
Contoh: lngPos = InstrRev("Visual Basic", "a")
' lngPos = 9

lngPos = InstrRev("Visual Basic", "a", 6)
 ' lngPos = 5 (dimulai dari posisi karakter ke- 6)

lngPos = InstrRev("Visual Basic", "A")
' lngPos = 0 (Pencarian Case Sensitif)

lngPos = InstrRev("Visual Basic", "A", , 1)
' lngPos = 9 (Tidak Case Sensitif)

Fungsi: String$ (atau String)
Deskripsi:Mengulang karakter (string) sepanjang jumlah yang ditentukan
Syntax: String$(jumlah, karakter)

Jumlah             Required; Angka jumlah/panjang perulangan
karakter           Required; String/Ascii Code, karakter yang akan diulang
Contoh: strTest = String$(5, "a")
' strTest = "aaaaa"

strTest = String$(5, 97)
' strTest = "aaaaa" (97 is the ASCII code for "a")


Fungsi: Space$ (atau Space)
Deskripsi: Menghasilkan spasi sejumlah n
Syntax: Space$(angka)
angka = jumlah spasi yang diinginkan
Contoh: strTest = Space$(5)           ' strTest = "     "


Fungsi: Replace$ (atau Replace)
Deskripsi: Menggantikan/merubah karakter dari suatu string, fungsinya sama dengan Search and Replace di notepad atau Microsoft Word
Syntax: Replace$(string, Cari, Replace)

Keterangan:

string       Required. String String yang akan dirubah/diganti karakternya/subsringnya

Cari                 Required. Karakter/substring yang akan diganti

Replace      Required. Karakter/subString pengganti
Contoh: strTanggal = Replace$("08/31/2001", "/", "-")
' strTanggal = "08-31-2001"


Fungsi StrReverse$ (atau    StrReverse)
Deskripsi Membalik String
Syntax: StrReverse$(string)
Contoh strTest = StrReverse$("Visual Basic")           Output: "cisaB lausiV"


Fungsi LTrim$ (or LTrim)
Deskripsi Menghapus Spasi diawal string
Syntax: LTrim$(string)
Contoh strTest = LTrim$("  Visual Basic  ")
output: "Visual Basic  "


Fungsi RTrim$ (or RTrim)
Deskripsi: Menhapus spasi di akhir string
Syntax: RTrim$(string)
Contoh: strTest = RTrim$("  Visual Basic  ")      output: "  Visual Basic"


Fungsi: Trim$ (or Trim)
Deskripsi Menghapus semua spasi pada string
Syntax: Trim$(string)
Contoh strTest = Trim$("  Visual Basic  ")      output:  "Visual Basic"


Fungsi: Asc
Deskripsi: Merubah/mengkonversi karakter/string ke kode ASCII
Syntax: Asc(string)
Contoh: intCode = Asc("*")      Output: 42
intCode = Asc("A")    Output = 65


Fungsi: Chr$ (or Chr)
Deskripsi: Mengkonversi/merubah kode ASCII menjadi karakter/string
Syntax: Chr$(ASCII)
ASCII = kode ascii yang ingin di konversi
Contoh: strChar = Chr$(65)                                 Output: "A"



Contoh Aplikasi

Buat Project baru, kemudian buat satu tombol, beri nama cmdCoba


Masukkan kode ini pada cmdCoba

Private Sub cmdCoba_Click()

 Dim strTest    As String

 strTest = InputBox("Please enter a string:")
 Print "Contoh Len:"; Tab(25); Len(strTest)
 Print "Contoh Mid$:"; Tab(25); Mid$(strTest, 3, 4)
 Print "Contoh Left$:"; Tab(25); Left$(strTest, 3)
 Print "Contoh Right$:"; Tab(25); Right$(strTest, 2)
 Print "Contoh UCase$:"; Tab(25); UCase$(strTest)
 Print "Contoh LCase$:"; Tab(25); LCase$(strTest)
 Print "Contoh Instr:"; Tab(25); InStr(strTest, "a")
 Print "Contoh InstrRev:"; Tab(25); InStrRev(strTest, "a")
 Print "Contoh LTrim$:"; Tab(25); LTrim$(strTest)
 Print "Contoh RTrim$:"; Tab(25); RTrim$(strTest)
 Print "Contoh Trim$:"; Tab(25); Trim$(strTest)
 Print "Contoh String$ & Space$:"; Tab(25); String$(3, "*") _
                                            & Space$(2) _
                                            & Trim$(strTest) _
                                            & Space$(2) _
                                            & String$(3, 42)
    Print "Contoh Replace$:"; Tab(25); Replace$(strTest, "a", "*")
    Print "Contoh StrReverse$:"; Tab(25); StrReverse$(strTest)
    Print "Contoh Asc:"; Tab(25); Asc(strTest)

    Print "Contoh Len:"; Tab(25); Len(strTest)
    Print "Contoh Mid$:"; Tab(25); Mid$(strTest, 3, 4)
    Print "Contoh Left$:"; Tab(25); Left$(strTest, 3)
    Print "Contoh Right$:"; Tab(25); Right$(strTest, 2)
    Print "Contoh UCase$:"; Tab(25); UCase$(strTest)
    Print "Contoh LCase$:"; Tab(25); LCase$(strTest)
    Print "Contoh Instr:"; Tab(25); InStr(strTest, "a")
    Print "Contoh InstrRev:"; Tab(25); InStrRev(strTest, "a")
    Print "Contoh LTrim$:"; Tab(25); LTrim$(strTest)
    Print "Contoh RTrim$:"; Tab(25); RTrim$(strTest)
    Print "Contoh Trim$:"; Tab(25); Trim$(strTest)
    Print "Contoh String$ & Space$:"; Tab(25); String$(3, "*") _
                                            & Space$(2) _
                                            & Trim$(strTest) _
                                            & Space$(2) _
                                            & String$(3, 42)
    Print "Contoh Replace$:"; Tab(25); Replace$(strTest, "a", "*")
    Print "Contoh StrReverse$:"; Tab(25); StrReverse$(strTest)
    Print "Contoh Asc:"; Tab(25); Asc(strTest)
End Sub



Selamat malam sobat,
Malam ini saya ingin berbagi cerita, eh maksud saya source program sederhana untuk membuat koneksi antara visual basic 6 dengan database Access. Agar sobat lebih paham, tolong source code nya di ketik ulang, jangan cuma di kopas. berikut ini langkah-langkahnya:

Step 1,  Buat Folder untuk menyimpan project latihan kita. sebagai contoh, saya simpan project di drive D: di folder project, saya buat folder lagi dengan nama latihan2 , kalau diringkas, bentuk alamat di windows explorer bakal seperti ini   "D:\Project\Latihan2"
 
Step 2, Seperti selayaknya dalam pembuatan aplikasi, maka hal pertama yang kita buat dahulu adalah::: Databasenya... kayaknya nggak perlu saya jembrengkan cara membuat database dan tabel dengan microsoft Access, langsung saja, buat file database access, lalu buat tabel mahasiswa dengan struktur tabel seperti berikut:

Simpan dengan Save As (Jangan yang Save), pilih Access 2000 Database, Simpan di folder
"D:\Project\Latihan2" dengan nama Mahasiswa



Step 3, Buka Visual Basic 6, Buat Project baru, pilih Vb Enterpise Edition Control
Step 4, Simpan Project di  "D:\Project\Latihan2"
Step 5, Buat Modul baru, Cara membuat modul di Vb6 seperti ini nih,
lihat ke sisi paling kanan dari IDE Visual basic 6, anda bisa melihat ada jendela project disana. Klik folder modul trus klik kanan, pilih Add di menu, kemudian pilih modul
 Step 6,  Buat dua modul
 Step 7, Ganti nama modul, modul pertama = "modVar", modul kedua = "modUtil", Hasil struktur projectnya bisa anda lihat seperti dibawah ini:


Step 8, Struktur dan Bentuk Form1
Nama ObjectTypeProperties
txtNimTextBox
txtNamaTextBox
txtAlamatTextBox
txtTempatLahirTextBox
dtpTglLahirDTPickerUpdown = True
txtKotaTextBox
Adodc1Adodc1Visible = False
DataGrid1DataGrid1
txtCariNamaTextBox
txtCariAlamatTextBox
Label untuk text boxLabel


Step 9: Isi Form1
<script src="https://gist.github.com/anonymous/d7ac21b4ecf6d4285861988bb93a3388.js"></script>

Step 10: Isi modVar
Public dbconn As ADODB.Connection
Public rs As ADODB.Recordset
Public dbCmd As ADODB.Command
Public strSQL As String
Step 11: Isi ModUtil
'Fungsi untuk membuka koneksi
Public Function OpenConnection()
    Set dbconn = New ADODB.Connection
    dbconn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\mahasiswa.mdb;Persist Security Info=False"
    dbconn.CursorLocation = adUseClient
    dbconn.Open
End Function
'Fungsi untuk membuat query yang menghasilkan recordset
Public Function bukaRs(Query As String, Record As Recordset)
    Set Record = New ADODB.Recordset
    Record.Open Query, dbconn, adOpenStatic, adLockReadOnly
End Function
'Procedure untuk mengisi Data Combo
Public Sub IsiDataSource(dcName As DataCombo, rsTemp As ADODB.Recordset, Query As String)
    Set rs = New ADODB.Recordset
    Set rs = dbconn.Execute(Query)
    Set dcName.RowSource = rsTemp
    dcName.BoundColumn = rsTemp.Fields(0).Name
    dcName.ListField = rsTemp.Fields(1).Name
End Sub
'Procedure untuk menjalankan perintah query untuk simpan, update dan delete
Public Sub execCmd(Cmd As ADODB.Command, Query As String)
    Dim num_Affected As Integer
    Set Cmd = New ADODB.Command
    Cmd.ActiveConnection = dbconn
    Cmd.CommandText = Query
    Cmd.CommandType = adCmdText
    Cmd.CommandTimeout = 60
    Cmd.Execute num_Affected
    If num_Affected = 0 Then
        Call MsgBox("Transaksi Gagal")
    Else
        Call MsgBox("Transaksi Berhasil")
    End If
End Sub
Penjelasan: Lihat ke bagian Kode ini
Public Function OpenConnection()
    Set dbconn = New ADODB.Connection
    dbconn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\mahasiswa.mdb;Persist Security Info=False"
    dbconn.CursorLocation = adUseClient
    dbconn.Open
End Function
set dbconn = new ADODB.Connection ---> Membuat Koneksi Baru dbconn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\mahasiswa.mdb;Persist Security Info=False" --> Koneksi string untuk database Access Mahasiswa, sekedar catatan, dulu sekali saat ujian skripsi banyak teman-teman saya yang gagal presentasi aplikasi karena aplikasinya tidak bisa konek database, mengapa bisa begitu? karena mereka beli program dari orang lain, pas di kopi ke komputernya, folder penyimpanan databasenya beda dengan komputer yang buat ujian, Nah, supaya kalian tidak mengalami nasib yang sama dengan teman-teman saya, pakai saja perintah "App.Path" yang artinya kurang lebih "Path tempat aplikasi (exe) berada". App.Path artinya Path aplikasi berada.
Ini adalah part terakhir dari best practice belajar visual basic, mari kita membuat sebuah form untuk menampilkan data dan operasi Buat, Simpan, Edit dan Hapus Data, berikut langkah-langkahnya:


  1. Buat database Mahasiswa, sebagai contohnya saya akan memakai database Microsoft Access, mengapa  Microsoft Access? karena hampir semua komputer pasti ada Microsoft Accessnya. Saya akan membagi cara koneksi dengan database lain di postingan saya yang lain.
  •       Buat Tabel Fakultas
Nama Field Type Field
IdFakultasAutoNumber
NamaFakultasText(255)
  •     Buat Tabel Mahasiswa, komposisi fieldnya seperti dibawah ini:              
Nama Field Type Field
NIMText(10)
NamaText(50)
Tempat LahirText(30)
TglLahirDate/Time
AlamatText(50)
KotaText(30)
IdFakultasNumber


    2. Buat Form Mahasiswa, objectnya  seperti berikut ini:


Type Object                     Nama Object

                                                   TextBox                           txtNim
                                                   Textbox                            txtNama
                                                   Textbox                            txtAlamat
                                                   Textbox                            txtTempatLahir
                                                   DTPicker                          dtpTglLahir                                    
                                                   Textbox                            txtKota
                                                   Data Combo                    dcFakultas
                                                   TextBox                           txtCariNama
                                                   Datagrid                           DataGrid1
                                                   TextBox                           txtCariAlamat
3. Tampilannya sebagai berikut:

4. Buat modul untuk menyimpan variable global, beri nama modVar, kemudian buat modul untuk menyimpan  procedure yang sering kita pakai, beri nama modUtil, susunan folder projectnya akan terlihat seperti berikut:

5. Berikut ini contoh isi modVar
    Public dbconn As ADODB.Connection
    Public rs As ADODB.Recordset
    Public dbCmd As ADODB.Command
    Public strSQL As String
6. dan ini isi ModUtil
 'Fungsi untuk membuka koneksi
   Public Function OpenConnection()
     Set dbconn = New ADODB.Connection
     dbconn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\mahasiswa.mdb;Persist Security Info=False"
    dbconn.CursorLocation = adUseClient
    dbconn.Open
 End Function
'Fungsi untuk membuat query yang menghasilkan recordset
Public Function bukaRs(Query As String, Record As Recordset)
    Set Record = New ADODB.Recordset
    Record.Open Query, dbconn, adOpenStatic, adLockReadOnly
End Function
'Procedure untuk mengisi Data Combo
Public Sub IsiDataSource(dcName As DataCombo, rsTemp As ADODB.Recordset, Query As String)
    Set rs = New ADODB.Recordset
    Set rs = dbconn.Execute(Query)
    Set dcName.RowSource = rsTemp
    dcName.BoundColumn = rsTemp.Fields(0).Name
    dcName.ListField = rsTemp.Fields(1).Name
End Sub
'Procedure untuk menjalankan perintah query untuk simpan, update dan delete
Public Sub execCmd(Cmd As ADODB.Command, Query As String)
    Dim num_Affected As Integer
    Set Cmd = New ADODB.Command
    Cmd.ActiveConnection = dbconn
    Cmd.CommandText = Query
    Cmd.CommandType = adCmdText
    Cmd.CommandTimeout = 60
    Cmd.Execute num_Affected
    If num_Affected = 0 Then
        Call MsgBox("Transaksi Gagal")
    Else
        Call MsgBox("Transaksi Berhasil")
    End If
End Sub
7. Sekarang saatnya mengkoding Form1. berikut ini langsung saya copykan disini:

Private Sub cmdBatal_Click()
    Call BersihForm
End Sub

Private Sub cmdHapus_Click()
    strSQL = "Delete from Mahasiswa where NIM = '" & txtNIM.Text & "'"
    Call execCmd(dbCmd, strSQL)
    Call BersihForm
    FillGrid
End Sub

Private Sub cmdSimpan_Click()
    strSQL = "select Nim from mahasiswa where Nim = '" & txtNIM.Text & "';"
    Call bukaRs(strSQL, rs)
    If rs.EOF = True Or rs.BOF = True Then
        strSQL = "Insert into Mahasiswa (Nim, Nama, Alamat, TempatLahir, TglLahir, Kota, IdFakultas) values " & _
                 "('" & txtNIM.Text & "', '" & txtNama.Text & "', '" & txtAlamat.Text & "', '" & txtTempatLahir.Text & "', '" & dtpTglLahir.Value & "', '" & txtKota.Text & "', '" & dcFakultas.BoundText & "')"
        Call execCmd(dbCmd, strSQL)
    Else
        strSQL = "Update Mahasiswa set Nama = '" & txtNama.Text & "', Alamat = '" & txtAlamat.Text & "', TempatLahir = '" & txtTempatLahir & "', TglLahir = '" & dtpTglLahir.Value & "', Kota = '" & txtKota.Text & "', IdFakultas = '" & dcFakultas.BoundText & "' Where Nim = '" & txtNIM.Text & "'"
        Call execCmd(dbCmd, strSQL)
    End If
    Call BersihForm
    FillGrid
End Sub

Private Sub DataGrid1_Click()
    If DataGrid1.ApproxCount < 1 Then Exit Sub
    With DataGrid1
        
        txtNIM.Text = .Columns("Nim").Value
        txtNama.Text = .Columns("Nama").Value
        txtAlamat.Text = .Columns("Alamat").Value
        txtTempatLahir.Text = .Columns("TempatLahir").Text
        dtpTglLahir.Value = .Columns("TglLahir").Value
        txtKota.Text = .Columns("Kota").Text
        dcFakultas.BoundText = .Columns("IdFakultas").Value
    End With
    cmdHapus.Enabled = True
    
End Sub

Private Sub dtpTglLahir_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyReturn Then txtKota.SetFocus
End Sub
Private Sub Form_Load()
    Call OpenConnection
    Call BersihForm
    Call IsiDataSource(dcFakultas, rs, "Select IdFakultas, NamaFakultas from Fakultas")
    FillGrid
End Sub

Private Sub BersihForm()
    txtNIM.Text = ""
    txtNama.Text = ""
    txtAlamat.Text = ""
    txtKota.Text = ""
    txtTempatLahir.Text = ""
    dtpTglLahir.Value = Now
    dcFakultas.BoundColumn = ""
    cmdHapus.Enabled = False
    FillGrid
End Sub

Private Sub txtAlamat_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then txtTempatLahir.SetFocus
End Sub

Private Sub txtCariAlamat_Change()
    FillGrid
End Sub

Private Sub txtCariNama_Change()
    FillGrid
End Sub

Private Sub txtKota_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then dcFakultas.SetFocus
End Sub

Private Sub txtNama_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then txtAlamat.SetFocus
End Sub

Private Sub txtTempatLahir_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then dtpTglLahir.SetFocus
End Sub
Public Sub FillGrid()
 strSQL = "select a.Nim, a.Nama, a.TempatLahir, a.TglLahir, a.Alamat, a.Kota, b.NamaFakultas, a.IdFakultas from Mahasiswa as a inner join Fakultas as b on a.IdFakultas = b.IdFakultas where a.Nama like '%" & txtCariNama.Text & "%' and a.Alamat like '%" & txtCariAlamat.Text & "%'"
    Call bukaRs(strSQL, rs)
    Set DataGrid1.DataSource = rs
    
End Sub


Selesai sudah tutorial Step by step best practice belajar Visual Basic 6.
kalau anda malas mengkopas artikel ini, silahkan download source codenya di sini


Mencari Object database (Tabel, Store Procedure, View, Function) lewat Query:
Mencari Tabel

 " SELECT * FROM sys.Tables WHERE name like '%%' "

Mencari Store Procedure

 " SELECT * FROM sys.procedure where name like '%%' " 

 Mencari View

 " SELECT * FROM sys.views where name like '%%' "

Mengurutkan tabel berdasarkan tanggal modifikasi terakhir

 " SELECT * FROM sys.Tables WHERE name like '%%' order by modify_date DESC "

Mengurutkan Store Procedure berdasarkan tanggal modifikasi terakhir

 " SELECT * FROM sys.procedure where name like '%%' order by modify_date DESC "

Mengurutkan View berdasarkan tanggal modifikasi terakhir

 " SELECT * FROM sys.views where name like '%%' order by modify_date DESC "

Mengurutkan tabel berdasarkan tanggal Pembuatan terbaru
 " SELECT * FROM sys.Tables WHERE name like '%%' order by create_date DESC "

Mengurutkan Store Procedure berdasarkan tanggal Pembuatan terbaru

 " SELECT * FROM sys.procedure where name like '%%' order by create_date DESC "

Mengurutkan View berdasarkan tanggal Pembuatan terbaru

 " SELECT * FROM sys.views where name like '%%' order by create_date DESC " 
Note: bila ingin dirubah berdasarkan urutan terlama, DESC diganti dengan ASC

Demikian tips dari saya.
Assalamualaikum warahmatullahi wabarakatuh. Salam!!
Melanjutkan postingan yang pertama Tips and Trik: Step by step belajar Visual Basic 6, Membuat Project Visual Basic 6. sekarang kita menuju ke bahasan yang kedua, yaitu : Membuat Koneksi.....

pada saat kuliah dulu (puluhan tahun yang lalu) Dosen saya mengajarkan saya memakai koneksi DAO. tetapi untuk tutorial ini saya akan mencoba menggunakan ADO, apalagi DAO hanya bisa digunakan untuk koneksi dengan microsoft Access (kayaknya...).


Langkah pertama dari semua pembuatan aplikasi database adalah membuat databasenya terlebih dahulu.
sebagai contoh, mari kita membuat database dengan microsoft access dengan nama "mahasiswa". 
Simpan file di folder tempat aplikasi/project berada. jangan lupa untuk menyimpan dalam format Microsoft Access 2000. atau aplikasinya tidak dapat tersambung dengan database (visual basic dibuat tahun 98 :P).


gb1. Option Simpan Database

gb2. Create Database di Office 2007

Buat Tabel Mahasiswa dengan susunan field seperti dibawah ini
  1. NIM Text (10)
  2. Nama Text (50)
  3. TempatLahir (50)
  4. Tgllahir Date/Time
  5. Alamat Text (50)
  6. Kota Text (50)
gb3. Susunan Field tabel Mahasiswa

Simpan File (Ctrl+S / File->Save)
Tralala... Database berhasil kita buat

-------------------------------------
-- Baris ini Sengaja Dikosongkan --
------------------------------------

Let's Code 
 ---   Persiapan

Langkah pertama: Buka project yang sudah kita buat di posting sebelumnya, sebelum memulai koding, masukkan control adodc ke form1. hal ini dilakukan untuk meload Adodb ke project kita dan mencegah error saat kita menjalankan aplikasi, seperti gambar dibawah ini:
gb4. error Adodb

langkah-langkah memasukkan adodb ke project kita adalah sebaga berikut:
klik adodc controller, tarik ke form1, adodc controller berada pada koordinat seperti gambar di bawah ini


gb5. Posisi mouse mengarah pada Adodc Controller

Tarik ke Form 1, sehingga hasilnya seperti ini:
gb6. Adodc di Form1

Tahap selanjutnya adalah membuat Connection String, Connection String ini nanti akan digunakan untuk koneksi Database.
Klik kanan pada Adodc1 Controller, kemudian pilih ADODC properties 
gb7. menu ADODC Properties 
Klik Build, seperti pada gambar
gb8. Tombol Build (connection String)

Pilih Provider/driver database kita, karena kita menggunakan database Microsoft Access, kita pilih "Microsoft Jet 4.0 OLE DB Provider"., Klik tombol Next
gb9 Pilih Provider Database

Pilih tombol disebelah text box "Select or Enter Database Name", arahkan ke File Database mahasiswa.mdb
gb10. Pilih Database

Masukkan User dan password Database (Kalau Ada, di contoh ini kita tidak menggunakan password)
gb11. Database Credential 

Klik Test Connection, Bila keluar dialog box Connection Succeeded, berarti kamu sudah berhasil... mencoba koneksi
gb12. Test Connection


Klik OK, kemudian Salin Connection Stringnya (yang kita butuhkan hanya connection stringnya)
gb13. Salin Connection String

Setelah itu anda bisa menghapus Controll ADODC dari form, karena fungsinya hanya untuk memancinig kelas ADODB dan membuat Connection String.

NOW, Lets Code 

Kembali ke jendela project, pilih file modVar, klik double, kemudian kita membuat variable-variable global yang akan kita gunakan untuk membuat fungsi koneksi dan browse tabel

'Module ModVar
Public dbConn As ADODB.Connection Public rs As ADODB.Recordset Public dbCmd As ADODB.Command Public strSQL As String

penjelasan program:
Public dbConn As ADODB.Connection = mendeklarasikan variable koneksi/connection
Public rs As ADODB.Recordset = deklarasi recordset untuk menampung hasil query
Public dbCmd As ADODB.Command = deklarasi command/perintah untuk proses CUD (Create-Update-Delete)
Public strSQL As String = string untuk menampung perintah query yang akan dieksekusi oleh dbCmd dan rs

kemudian pada modUtil kita buat fungsi untuk koneksi database

'Module modUtil
Public Function OpenConnection()
   Set dbconn = New ADODB.Connection
   dbconn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Project\latihan1\mahasiswa.mdb;Persist Security Info=False"
dbconn.CursorLocation = adUseClient
   dbconn.Open
End Function

penjelasan program:
Public Function OpenConnection() = mendeklarasikan fungsi global (bisa dipanggil dari mana saja)
Set dbconn = New ADODB.Connection = mendeklarasikan koneksi baru
dbconn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Project\latihan1\mahasiswa.mdb;Persist Security Info=False" = mendeklarasikan connectionString.
kalau aplikasi dan database berada dalam satu folder, bisa dirubah dengan perintah ini:

dbconn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & app.Path & "\mahasiswa.mdb;Persist Security Info=False"

seperti yang kamu lihat, value dari connection string saya ambil dari wizard membuat connection string di ADODC Controller. 
Selain cara diatas, sebenarnya ada yang lebih simple, yaitu mengunjungi web ini:
http://www.connectionstrings.com/

Fungsi Memasukkan data ke Recordset
fungsi ini digunakan untuk memanggil data dan memasukkannya ke recordset


Public Function Openrs(Query As String, Record As Recordset) Call OpenConnection Set Record = New ADODB.Recordset Record.Open Query, dbconn, adOpenStatic, adLockReadOnly End Function


setelah dua fungsi dasar ini terbuat, sekarang saatnya kita mengaplikasikannya
saya ingatkan kembali penggunaan dari dua modul awal ini
1. modVar -> untuk menampung variable-variable global. pada pembuatan aplikasi, pasti kita membutuhkan data yang bisa diakses oleh antar form atau mungkin data tersebut dibutuhkan oleh semua form. nah disinilah peran variable global ini, contohnya: info user, ruangan dll.
2. modUtil
digunakan untuk menyimpan fungsi-fungsi yang sering digunakan dalam aplikasi, sebagai contoh: fungsi untuk membuat koneksi dan mengambil data dan menyimpannya ke Recordset. selain dua fungsi itu, kita bisa menambahkan fungsi lain, misalnya: fungsi supaya form selalu berada di tengah, atau fungsi konversi string dll.

Tips and Trik: Step by step best practice belajar Visual Basic 6,  Membuat Form CRUD













Assalamualaikum warahmatullahi wabarakatuh.
Alhamdulilah akhirnya saya berani membuat postingan pertama. Semoga tulisannya nggak belepotan<-- contoh tulisan belepotan.
dan akhirnya Pada Postingan pertama saya, saya akan memberikan judul yaituu tralalaaa... treng treng
                           "Tips and Trik: Step by step belajar Visual Basic 6"
sebenarnya koding yang saya paparkan disini sering saya pakai dan merupakan salah satu amunisi saya, alasannya adalah agar struktur aplikasi-aplikasi yang saya buat terlihat rapi dan seragam a.k.a Males bikin ulang. Pada postingan kali ini saya memakai database Microsoft Access, tetapi nanti akan saya sertakan koneksi dengan database lain.

Step pertama adalah menyiapkan perangkat kerja. Pada dasarnya sebelum membangun aplikasi kita harus menyiapkan dahulu kantor tempat kita bekerja menjadi senyaman mungkin. dan kali ini saya akan menshare kantor kerja saya yang buat saya sih sudah nyaman. moga aja kamu juga merasa demikian. untuk versi visual basic 6 saya menggunakan Visual Basic 6 Enterpriese Edition, saya tidak menyediakan link downloadnya. silahkan anda googling sendiri.

Buat project baru di Visual Basic 6. File->New Project. pilih VB Enterpriese Edition Control
gb1. Pilih Vb Enterproese Edition Controller


Setelah Halaman terbuka kamu akan melihat Workspace IDE Visual Basic 6.


gb2. WorkSpace IDE Visual Basic 6

Sebelum melangkah lebih jauh, mari kita buat kesepakatan. Visual Basic 6 adalah bahasa pemrograman yang bersifat prosedural. prosedure-prosedure tersebut dapat disimpan di modul yang terpisah. sebagai langkah awal, kita akan membuat dua modul sebagai alat bantu utama. menyimpan variable global (modVar), dan modul kedua untuk menyimpan fungsi global yang sering digunakan (modUtil).

Untuk membuat Modul baru, klik kanan di text Project1(Project1) di window project (paling kanan). Kemudian pilih Add->Module. seperti terlihat pada gambar dibawah ini:
gb.3: Membuat Modul baru di Visual Basic 6

Setelah muncul jendela modul, Klik Open dan tralala, modul baru akan terjadi eh...  terbuat
gb 4: Buat Module baru

Ganti Nama Modul menjadi ModVar, caranya seperti berikut: arahkan padangan pada jendela paling kanan, tepat dibawah jendela Project, ganti tulisan Module1 dengan ModVar.
gb5, Ganti Nama Module

Lakukan hal yang sama dengan langkah 4-5 untuk membuat module ModUtil. hasil akhir struktur  Projectya akan terlihat seperti ini:
gb.6: Struktur Project

Setelah itu klik File->Save Project, arahkan ke folder yang kamu inginkan (saya pakai contoh: D:\Project\Latihan1).
gb.7: Save Project

gb.8: Dialog buka folder

gb9: Struktur File di Hardisk.

Project1 adalah file project kamu, Form1 adalah file Form dan ModUtil, Modvar adalah file modul
Sekarang kamu bisa menutup Visual Basic 6 kamu, untuk membuka kembali project kamu, masuk ke folder project, lalu klik double ke file Project1.vbp

Selamat, Project pertama kamu telah terbuat dengan  apa adanya!!!