Rumah > Artikel > tutorial komputer > Menggunakan kaedah ADO dalam VB untuk menanyakan jadual data
Kawalan yang mudah digunakan.
Prasyaratnya ialah kawalan adodc mesti disambungkan ke pangkalan data seperti biasa
Kawalan datagrid terikat pada kawalan adocc
Sub Perintah Peribadi1_Klik()
'Sambung ke pangkalan data
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Sumber Data=" & App.Path & "Database.mdb"
'Pertanyaan
Adodc1.RecordSource = "pilih * daripada jadual dengan nama seperti '" & Text1.Teks & "' dan major seperti '" & Text2.Teks & "'"
Adodc1.Refresh
Tamat Sub
Petikan pertama ADO: Projek--Rujukan--Pilih Objek Data MS ActiveX
Kod:
Malapkan Access_Con Sebagai Sambungan
Tetapkan Access_Con = Sambungan Baharu
Access_Con.ConnectionString = "Provider=Microsoft.jet.oledb.4.0;sumber data=" & App_Path & "FHLdata.mdb;"
Akses_Con.Terbuka
Malapkan rs Sebagai Set Rekod
Set rs = Set Rekod Baru
rs.Buka "pilih * daripada Pengurusan Pengguna", Access_Con
''''Hasil pertanyaan akan berada dalam rs, anda boleh mengikat rs ke grid data untuk melihat data, dsb.
Pilih projek data semasa membuat projek baharu Pada masa ini, kawalan yang diperlukan untuk pengaturcaraan pangkalan data telah dimuatkan dalam kotak alat di sebelah kiri persekitaran penyahpepijatan bersepadu VB6.
Kemudian tambahkan kawalan ADODC dan kawalan DATAGRID dalam borang FORM1, pilih ADODC1 untuk sifat DATASOURCE DATAGRID1, buka halaman sifat kawalan ADODC1 untuk menggunakan rentetan sambungan, pilih Jana, pilih MICROSOFT jet 4.0 OLE DB Provider dalam pilihan pembekal , dan kemudian tekan Sambung ke pangkalan data, dsb. Terdapat rentetan panjang dalam tetingkap teks kosong menggunakan rentetan sambungan pada halaman sifat kawalan ADODC1 Ambil perhatian bahawa rentetan ini boleh disalin ke kod program untuk pengaturcaraan. Terdapat tetingkap penulisan teks arahan (SQL) dalam sumber data halaman sifat kawalan ADODC1 untuk menulis bahasa pertanyaan SQL. Pernyataan SQL dalam tetingkap ini boleh disalin ke kod program untuk pengaturcaraan.
Struktur utama bahasa pertanyaan SQL ialah:
Pilih medan pertanyaan daripada nama jadual Di mana pernyataan keadaan pertanyaan [penyataan isihan atau pernyataan kumpulan]
Medan pertanyaan mesti dipisahkan dengan koma (Bahasa Sepanyol) atau digantikan dengan tanda * Adalah disyorkan bahawa pernyataan pengisihan dalam pertanyaan di atas digunakan dengan sebaiknya.
Bahasa pertanyaan SQL akan memberitahu anda jika terdapat ralat semasa program berjalan, buat sahaja perubahan yang sepadan. Saya biasanya menekan sambungan di atas terlebih dahulu, dan menggunakan "SELECT * FROM TabelName" untuk penyahpepijatan SQL Tiada masalah Gunakan lubang butang untuk menyalin rentetan sambungan dan bahasa pertanyaan SQL yang perlu disalin dalam acara KLIK butang. kawalan. Simpan untuk kegunaan kemudian. Kemudian padamkan bahagian lubang ADODC1, tambah kawalan ADODC1 dan tambah kandungan lain.
Berikut ialah contoh kod:
Sub Borang Persendirian_Muat()
Teks1 = ""
Dengan Adodc1
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Sumber Data=E:db1.mdb;Persist Security Info=False"
Adodc1.RecordSource = "pilih nama daripada pesanan b1 mengikut nama"
Adodc1.Refresh
DataGrid1.Refresh
Tamat Dengan
Tamat Sub
Sub Teks Peribadi1_Change()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Sumber Data=E:db1.mdb;Persist Security Info=False"
Adodc1.RecordSource = "pilih nama dari b1 di mana nama >='" & Text1 & "' tertib mengikut nama"
Adodc1.Refresh' mengemas kini pertanyaan
DataGrid1.Refresh
Tamat Sub
Atas ialah kandungan terperinci Menggunakan kaedah ADO dalam VB untuk menanyakan jadual data. Untuk maklumat lanjut, sila ikut artikel berkaitan lain di laman web China PHP!