Script Visual Basic 6.0 untuk Selection Database Menggunakan SQL 2000

Disini saya akan menunjukan script Visual Basic 6.0 untuk menyeleksi database menggunakan SQL 2000 yang akan ditampilkan pada DataGrid.
Komponen-komponen yang harus digunakan
1 buah Adodc kosongan (tanpa diganti propertiesnya, kecuali yang tidak mempengaruhi koneksi)
1 buah TextBox
1 buah DataGrid

Untuk Script yang dimasukkan dalam Form_Load

Adodc1.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=TA"
Adodc1.RecordSource = "Pembeli"
Set DataGrid1.DataSource = Adodc1
DataGrid1.AllowUpdate = False
DataGrid1.TabStop = False
DataGrid1.Refresh

Untuk Script yang akan menyeleksi

sql = "select * from Pembeli where Bon = '"& Text1.Text &"'"
Adodc1.RecordSource = sql
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh

NB:
-Kalau Adodc-nya diberi Connection String, maka datagrid tidak akan memunculkan selection data.
-Untuk Script warna merah adalah nama Table (Hati-Hati! Key Sencitive)
-Untuk Script warna hijau adalah nama Field yang ada pada Table warna merah (Hati-Hati! Key Sencitive)
-Untuk Script warna biru digunakan untuk menyeleksi.

Semoga Informasi diatas bermanfaat bagi anda dan dapat menambah pengetahuan anda tentang Visual Basic 6.0.

Komentar

Postingan populer dari blog ini

Beberapa klausa dalam MySQL yang digunakan untuk mengurutkan, memfilter, mencari dan juga menghitung data

Mendefinisikan metadata dari sebuah artikel

Cara remote MySQL menggunakan XAMPP di Windows