Menampilkan Nama Field Tertentu Dari SQL ke Dalam Datagrid Visual Basic 6

Perhatikan Gambar di bawah ini.

  

Gambar 1

 

Gambar tersebut di atas adalah tampilan dari nama-nama field pada Datagrid yang sebelumnya sudah di masukan data dari salah satu Tabel SQL

Dan Gambar di bawah ini adalah Perubahan dari Gambar di atas dengan nama Tabel SQL yang sama namun yang kita tampilkan hanya beberapa nama field saja yang kita inginkan.

 

Gambar 2

dan Source Code atau Coding untuk Perubahan nama Fields nya adalah sebagai berikut :

Coding Untuk Tampilan Awal pada Gambar 1

Dim judul As String
Public con As New ADODB.Connection
Public rsdata As New ADODB.Recordset
Public Sub koneksi()
On Error GoTo er
Set con = New ADODB.Connection
Set rsdata = New ADODB.Recordset
con.Open "Driver={MySQL ODBC 5.1 Driver};server=localhost;database=transaksi;uid=root;pwd=ibnusabil;"
con.CursorLocation = adUseClient
Exit Sub
er:
 MsgBox "Gagal Loading Database", vbInformation, "Database Error"
End Sub
Public Sub dtgrid()
Set rsdata = New ADODB.Recordset
    rsdata.ActiveConnection = con
    rsdata.CursorLocation = adUseClient
    rsdata.CursorType = adOpenDynamic
    rsdata.LockType = adLockOptimistic
    rsdata.Source = "SELECT * FROM transaksi"
    rsdata.Open
End Sub

Maka tampilan nya akan seperti di bawah ini.

Dan Coding untuk Merubah nya adalah seperti di bawah ini.

Dim judul As String
Public con As New ADODB.Connection
Public rsdata As New ADODB.Recordset
Public Sub koneksi()
On Error GoTo er
Set con = New ADODB.Connection
Set rsdata = New ADODB.Recordset
con.Open "Driver={MySQL ODBC 5.1 Driver};server=localhost;database=transaksi;uid=root;pwd=ibnusabil;"
con.CursorLocation = adUseClient
'buka tabel database
Exit Sub
er:
 MsgBox "Gagal Loading Database", vbInformation, "Database Error"
End Sub
Public Sub dtgrid()
Set rsdata = New ADODB.Recordset
    rsdata.ActiveConnection = con
    rsdata.CursorLocation = adUseClient
    rsdata.CursorType = adOpenDynamic
    rsdata.LockType = adLockOptimistic
    rsdata.Source = "SELECT `nm_brang` , `Kemasan` , `hrga_grosir` , `hrga_eceran` , `Hrga_satuan` FROM `transaksi` ORDER BY `Kemasan` ASC"
    rsdata.Open
End Sub

Maka Tampilan nya akan seperti di bawah ini.

dan semua Data pada setiap nama fields nya pun akan berubah semua dengan nama Field yang di inginkan.

Jika Koneksi Variabel String anda sebelum nya sudah bagus dan normal saat di "run",berarti anda hanya tinggal mengganti data Source nya saja sesuai dengan nama Tabel yang anda gunakan seperti pada data Source yang saya gunakan yang berwarna merah tersebut sedikit saya tambah kan beberapa perubahan nama field nya.

Selamat Mencoba..!! Good Luck