technik serching pada visual basic

    Setelah membahas tentang tata cara dan teknik pembuatan database, sekarang saya akan membahas tentang bagaimana cara mengkoneksikan nya pada visual basic 6.0,, ada beberapa cara untuk koneksi database pada vb 6, yaitu dengan menggunakan Tool Data atau Adodc yang berfungsi sebagai jembatan penghubung koneksi database dengan vb. Selain menggunakan kedua tool tersebut, koneksi juga bisa dilakukan lewat modul, atau koding/perintah koneksi yang diletakkan di modul, sehingga kita bisa memanggil program perintah koneksi dari modul tersebut tanpa menggunakan tool penghubung seperti Data dan Adodc.

Pada pembahasan kali ini saya akan berbagi pengetahuan tentang koneksi database menggunakan Data dan Adodc.

Oke,,daripada lama2 n tambah bingung, kita mulai aja pembahasan nya...,,

Langkah pertama kita tambahkan dulu komponen pada toolbox nya dengan mngetikkan Ctrl+T atau klik menu projeck lalu pilih Componen.,

kemudian cari dan centang komponen Microsoft Ado Data Control 6 (OLEDB) dan Data Grid Control 6 (OLEDB), seperti pada gambar dibawah :

Setelah kedua komponen tersebut di centang lalu tekan tombol OK, kemudian masukkan kedua komponen tersebut ke dalam form., komponen tool data grid berfungsi untuk menampilkan isi dari database yang kita inputkan.

Kalau komponen adodc1 dan datagrid1 sudah diletakkan pada form, langkah berikutnya adalah cara untuk mengkoneksikan database lewat adodc1.

pertama, klik kanan pada tool adodc1, lalu pilih ADODC Properties.

Kemudian akan muncul Properties Page, Klik tabulasi general, kemudian pada frame source of connection pilih option Use Connection String lalu klik tombol Build...

Setelah itu akan muncul form Data Link Properties pada tab Provider pilih Microsoft Jet 4 OLE DB Provider, kemudian Klik Next.

Pada tab Connection pilih tombol cari (....) pada Select or Enter a Database Name untuk mencari database yang sudah kita buat sebelumnya,,

Setelah database dimasukkan kemudian klik tombol Test Connection, jika berhasil maka akan muncul pesan Test Connection Succeeded, kemudian Klik Tombol OK.

Kemudian kembali ke form Property Pages, klik tab Record Source kemudian pada Command Type Pilih adCmdTable dan pada Table or Stored Procedure Name pilih tabel dari database yang kita buat lalu klik OK.

Sampai disini kita sudah berhasil mengkoneksikan database access dengan visual basic..,untuk membuktikan database sudah terkoneksi kita gunakan datagrid1,,cara nya :

klik datagrid1, kemudian pada datagrid1 properties, Data Source nya pilih Adodc1..,

Kemudian klik kanan pada DataGrid1, lalu pilih Retrieve Fields, setelah itu klik OK,,maka akan muncul Field-fiel dari database yang kita buat sebelumnya pada datagrid.

Oke sampai disini dulu langkah-langkah koneksi Database menggunakan Adodc, untuk koneksi dengan Data dan dengan koding akan saya post pada artikel selanjutnya...^_^

Semoga Bermanfaat...^_^

KUMPULAN KODE PROGRAM VB6

 pertemuan ke 2

latihan membuat kalkulator

Private Sub Command1_Click()
Dim a, b, c As Double
a = Val(Text1.Text)
b = Val(Text2.Text)
c = a + b
Text3.Text = Str(c)
End Sub

Private Sub Command3_Click()
Dim a, b, c As Double
a = Val(Text1.Text)
b = Val(Text2.Text)
c = a - b
Text3.Text = Str(c)
End Sub

Private Sub Command4_Click()
Dim a, b, c As Double
a = Val(Text1.Text)
b = Val(Text2.Text)
c = a \ b
Text3.Text = Str(c)
End Sub

Private Sub Command5_Click()
Dim a, b, c As Double
a = Val(Text1.Text)
b = Val(Text2.Text)
c = a * b
Text3.Text = Str(c)
End Sub

Private Sub Command6_Click()
Dim a, b, c As Double
a = Val(Text1.Text)
b = Val(Text2.Text)
c = a ^ b
Text3.Text = Str(c)
End Sub

Private Sub Command7_Click()
End
End Sub

Private Sub Command8_Click()

End Sub

pertemuan ke 3 

belajar tentang variabel

Private Sub Label2_Click()

End Sub

Private Sub CmdKeluar_Click()
End
End Sub

Private Sub CmdTambah_Click()
Dim a, b, c As Byte
a = Val(TxtA.Text)
b = Val(TxtB.Text)
c = a + b
TxtC.Text = Str(c)
End Sub

pertemuan ke 4

membuat grafik

Dim r As Single

Private Sub Form_Load()
r = 100
End Sub

Private Sub Form_Paint()
Circle (1500, 1500), 1500
Circle (2500, 3500), 1500
Circle (3500, 1500), 1500
Circle (4500, 3500), 1500
Circle (5500, 1500), 1500
Circle (10000, 1500), 1000
Circle (10000, 3500), 1000
Circle (12000, 1500), 1000
Circle (12000, 3500), 1000
Circle (11000, 2500), 1000
End Sub

Private Sub pct1_paint()
pct1.Line (0, 0)-(3000, 3000)
pct1.Line (-10, 10)-(3000, 3000)
End Sub

Private Sub Timer1_Timer()
pct1.Circle (pct1.ScaleWidth / 2, pct1.ScaleHeight / 2), r
r = r + 50
If r > 1000 Then
r = 100
pct1.Cls
End If
End Sub

Private Sub Timer2_Timer()
pct1.Top = pct1.Top + 50
If pct1.Top > FrmGrafik.Height Then
pct1.Top = -pct1.Height
End If
End Sub

Private Sub Timer3_Timer()
pct1.Left = pct1.Left + 50
If pct1.Left > FrmGrafik.Height Then
pct1.Left = -pct1.Height
End If
End Sub

pertemuan ke 5

belajar membuat print di form

Private Sub Cmddouble_Click()
Form1.Caption = "Jl.Iskandar Muda"
End Sub

Private Sub Form_Load()

End Sub

pertemuan ke 6

membuat game 

Private Sub CmdAtas_Click()
Timer1.Enabled = True
CmdAtas.Enabled = False
CmdKiri.Enabled = True


End Sub

Private Sub CmdBawah_Click()
PctGambar.Top = PctGambar.Top + 30
End Sub

Private Sub CmdKanan_Click()
PctGambar.Left = PctGambar.Left + 30
End Sub

Private Sub CmdKiri_Click()
Timer1.Enabled = False
CmdAtas.Enabled = True
CmdKiri.Enabled = False
Timer2.Enabled = True


End Sub


Private Sub Form_Load()

End Sub

Private Sub Timer1_Timer()
PctGambar.Top = PctGambar.Top - 30
End Sub

Private Sub Timer2_Timer()
PctGambar.Left = PctGambar.Left - 50
End Sub

pertemuan ke 7

membuat penentuan beasiswa

Private Sub Label2_Click()

End Sub

Private Sub Cmdbeasiswa_Click()
Dim ip As Single
ip = Val(TxtIP.Text)
TxtKet.Text = "Tidak Dapat Beasiswa"
If (ip > 3) Then
TxtKet.Text = "Dapat Beasiswa"
End If
End Sub


Private Sub Cmdexit_Click()
End
End Sub

Private Sub TxtIP_Change()
Dim ip As Single
ip = Val(TxtIP.Text)
If (ip > 3) Then
TxtKet.Text = "Dapat Beasiswa"
End If
End Sub

pertemuan ke 8

membuat zodiak

Dim tanggal As Date
Dim tglLhr, blnLhr  As Integer
Dim panggil As String

Private Sub cmdbersih_Click()
Text1.Text = " "
lblZodiak.Caption = " "
End Sub

Private Sub cmdEnter_Click()
    tanggal = Me.DTPicker1.Value
    tglLhr = Day(tanggal)
    blnLhr = Month(tanggal)
   
    If (tglLhr >= 22 And blnLhr = 12) Or (tglLhr <= 20 And blnLhr = 1) Then
        zodiak = "Capricorn"
    ElseIf (tglLhr >= 21 And blnLhr = 1) Or (tglLhr <= 19 And blnLhr = 2) Then
        zodiak = "Aquarius"
    ElseIf (tglLhr >= 20 And blnLhr = 2) Or (tglLhr <= 20 And blnLhr = 3) Then
        zodiak = "Pisces"
    ElseIf (tglLhr >= 21 And blnLhr = 3) Or (tglLhr <= 19 And blnLhr = 4) Then
        zodiak = "Aries"
    ElseIf (tglLhr >= 20 And blnLhr = 4) Or (tglLhr <= 20 And blnLhr = 5) Then
        zodiak = "Taurus"
    ElseIf (tglLhr >= 21 And blnLhr = 5) Or (tglLhr <= 21 And blnLhr = 6) Then
        zodiak = "Gemini"
    ElseIf (tglLhr >= 22 And blnLhr = 6) Or (tglLhr <= 22 And blnLhr = 7) Then
        zodiak = "Cancer"
    ElseIf (tglLhr >= 23 And blnLhr = 7) Or (tglLhr <= 23 And blnLhr = 8) Then
        zodiak = "Leo"
    ElseIf (tglLhr >= 24 And blnLhr = 8) Or (tglLhr <= 22 And blnLhr = 9) Then
        zodiak = "Virgo"
    ElseIf (tglLhr >= 23 And blnLhr = 9) Or (tglLhr <= 23 And blnLhr = 10) Then
        zodiak = "Libra"
    ElseIf (tglLhr >= 24 And blnLhr = 10) Or (tglLhr <= 22 And blnLhr = 11) Then
        zodiak = "Scorpio"
    ElseIf (tglLhr >= 23 And blnLhr = 11) Or (tglLhr <= 21 And blnLhr = 12) Then
        zodiak = "Sagitarius"
    End If
    Me.lblZodiak.Caption = zodiak
   
End Sub

Private Sub Cmdkeluar_Click()
MsgBox ("Yakin anda ingin keluar? Jika anda yakin, tekan OK")
MsgBox (" OK la kalo begitu...")
End
End Sub