Monday 9 March 2015

Cari data berdasar tanggal vb6

Cari data di datagrid vb6 Akan melaksanakan pencarian sebuah bukti lakukan langkah langkah brikut1. buka rencana baru2. Tampilka jendela form kemudian tambahkan objek.3. Ubahlah setting property dari tujuan bahan yang telah kamu tambahkan.4. Ketik aba-aba progam berikut ‘program : menggunakan SQL ‘programmer: kok yung ‘tanggal : 15 november 2001 ‘deskripsi : mencari data ‘folder : Cari data di msflexgrid vb6 c: ADDBab3 Option Explicit Dim conAVB As ADODB.Connection Dim rsPemasok As ADODB.Recordset Dim pemasok As ADODB.Command Private sub from_load () Dim strSQL As String Set conAVB = New ADODB.Connection conAVB.ConnnectionString = “Provider = Microsoft.jet.OLEDB.4.0; “ &_ “persist Security info = False;Data Source =” & App.path &_ ‘’AVB.mdb;mode = readwrite” conAVB.Open


Set rsPemasok = New ADODB.recordset strSQL = “select * from pemasok” rsPemasok.open strSQL, conAVB, adOpenDynamic, adLockOptimistic, adCmdText End sub Contoh Program Visual Basic 6.0 Private Sub cmdLast_Click () On Error Resume Next rsPemasok.moveFirst Tampikandata End Sub Private Sub cmdLast_Click () On Error Resume Next rsPemasok.moveLast tampilkankata End sub Private Sub cmdLast_Click () On Error Resume Next With rsPemasok .moveNext If .EOF Then .MoveFirst End If Tampilkandata End With End sub Private Sub cmdLast_Click () On Error Resume Next With rsPemasok .movePrevious If .BOB Then .MoveLast End If Tampilkandata End With End sub Private Sub cmdLast_Click () With rsPemasok txtNamaPemasok.Text =


! [Kode Pemasok] txtAlamatPemasok.Text = ! [Nama Pemasok] txtNoTelepon.Next = ! [No Telepon] End with End sub Private sub cmdCari_Cilck () Dim strSQL As String Set rsPemasok = New ADODB.Recordset strSQL = “select * from pemasok where [kode pemasok] = ‘ “&txtCari.Text & “ ‘ “ Set rspemasok = conAVB.Execute (strSQL, , adCmdText) With rspemasok If .BOF Then msgBox “Data yang dicari Pencarian data vb6 tidak ada. “ ‘ vbInformation, “keterangan” Else txtNamaPemasok.Text = ! [Kode Pemasok] txtAlamatPemasok.Text = ! [Nama Pemasok] txtNoTelepon.Next = ! [No Telepon] end if end with end sub 5. Simpan dan form dengan nama CariData. 6. Jalankan progam


dengan mengeklik icon Start.



Cari data berdasar tanggal vb6

No comments:

Post a Comment