Menggunakan kaedah ADO dalam VB untuk menanyakan jadual data

Cara menggunakan kaedah ADO dalam VB untuk menanyakan sekeping data dalam 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

Bagaimana VB menggunakan kawalan ADO untuk menyambung ke pangkalan data menggunakan kod

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.

Gunakan kawalan ADO untuk menyambung ke pangkalan data Access dalam VB

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!