Membaca Data Tabel Kedalam Text ( Visual Basic 6.0)

Jangan Pernah bosan ya dengan dunia pemrogramman yang mengasikan ini :D
hari ini kita mulai dengan tutorial membaca data tabel kedalam text.

Dikarenakan ada teman yang bertanya tentang cara bagaimana menampilkan data tabel kedalam text, dan saya juga mau berbagi ilmu nya disini, semoga bisa bermanfaat buat para pembaca.



Ok, langsung saja dengan membuat projectnya,
- Buat 1 buah form dengan memakai 3 label dan 3 text, berikut adalah penampakannya :

jika sudah selesai mari kita gunakan coding untuk menjalankan form ini:

buat koneksinya (*unttuk koneksi silahkan gunakan sesuai dengan database dan tabel yang kalian gunakan) kalau saya membuatnya dengan sql server dan berikut codingnya:

Sub konek()

Set conn = New Connection

Set ceknik = New ADODB.Recordset

      koneksi = "Provider=MSDASQL.1;Password=*sahyana*;Persist Security Info=True;User ID=sa;Data Source=BDPNEW;Initial Catalog=BDPNEW"

     conn.Open koneksi

          End Sub

berikut adalah coding lengkapnya, silahkan kalian ubah sendiri sesuai dengan kebutuhan ya ;

Dim mvBookMark As Variant

Public conn As New ADODB.Connection

Public ceknik As ADODB.Recordset

‘--------------------------------------------------------------------------------

Private Sub Form_Load()

Call konek

conn.CursorLocation = adUseClient

ceknik.Open "select * from TBOPERATOR", conn

With ceknik

    If Not (.BOF And .EOF) Then

      mvBookMark = .Bookmark

    End If

End With

End Sub

‘----------------------------------------------------------------------------------------------------

Sub konek()

Set conn = New Connection

Set ceknik = New ADODB.Recordset

      koneksi = "Provider=MSDASQL.1;Password=*sahyana*;Persist Security Info=True;User ID=sa;Data Source=BDPNEW;Initial Catalog=BDPNEW"

     conn.Open koneksi

          End Sub

  ‘------------------------------------------------------------------------------------------------

     Private Sub TampilkanData()

    With ceknik

        If Not ceknik.EOF Then

           Text2 = ceknik!nama_operator

            Text3 = ceknik!alamat

        End If

    End With

End Sub

‘-------------------------------------------------------------------------------------------------

Function CariData()

    Call konek

    ceknik.Open "Select * From TBOPERATOR where id_operator='" & Text1 & "'", conn

End Function

‘--------------------------------------------------------------------------------------
'----- disini coding intinya, tempatkan coding ini di text1_KeyPress---------

Private Sub Text1_KeyPress(KeyAscii As Integer)

KeyAscii = Asc(UCase(Chr(KeyAscii)))

If KeyAscii = 13 Then

    If Len(Text1) < 11 Then

            Text1.SetFocus

    End If

     Call CariData

     If Not ceknik.EOF Then

                Call TampilkanData

           End If

       End If

End Sub

Jika ada yang error atau belum mengerti silahkan tinggalkan komentar, 

selamat mencoba.....