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

Posting Komentar

Postingan populer dari blog ini

-
Perbedaan Internet, Intranet dan Extranet Kita semua tahu apa itu Internet, mudah-mudahan saya tidak salah. Paling tidak bagi yang belum mengetahui-nya Internet secara sederhana Internet adalah jaringan dari jaringan (network of networks). Intranet adalah sebuah jaringan komputer berbasis protokol TCP/IP seperti internet hanya saja digunakan dalam internal perusahaan, kantor, bahkan warung internet (WARNET) pun dapat di kategorikan Intranet. Antar Intranet dapat saling berkomunikasi satu dengan yang lainnya melalui sambungan Internet yang memberikan tulang punggung komunikasi jarak jauh. Akan tetapi sebetulnya sebuah Intranet tidak perlu sambungan luar ke Internet untuk berfungsi secara benar. Intranet menggunakan semua protocol TCP/IP dan aplikasi-nya sehingga kita memiliki “private” Internet. Jika sebuah badan usaha / bisnis / institusi mengekspose sebagian dari internal jaringannya ke komunitas di luar, hal ini di sebut ekstranet. Memang biasanya tidak semua isi intranet di kelu
MyBlog

Memecah dan membuat relasi tabel

-
Gambar
Selamat malam teman-teman, malam ini kita akan mencoba membuat relasi tabel dari tabel yang sebelumnya sudah kita buat pada artikel Mendefinisikan metadata dari sebuah artikel . Dalam hal ini kita akan mencoba memisahkan data author menjadi tabel terpisah diluar tabel artikel. Pertama-tama kita buat tabel author seperti biasa dengan tipe data seperti dibawah ini Gambar 1 Struktur tabel author Lalu kita set kolom id pada tabel author sebagai primary key dengan menggunakan perintah ALTER TABLE `author` ADD PRIMARY KEY (`id`); Setelah kita menambahkan primary key pada tabel author, saatnya kita beralih pada tabel artikel yang sudah kita buat sebelumnya.  Pertama yang harus kita lakukan yaitu merubah kolom penulis  menjadi author_id dengan tipe data int dengan menggunakan perintah ALTER TABLE `artikel` CHANGE `penulis` `author_id` int Setelah kita merubah nama kolom dan tipe datanya, saatnya kita memberikan relasi antar tabel menggunakan foreign key. Dalam kasus ini, kolom author_id pada
MyBlog