Saya hampir melupakan semua VB yang saya pelajari beberapa tahun yang lalu, jadi saya telah mengulasnya hari ini. Tidak terlalu sulit untuk menghubungkan database ADO dengan VB.
Langkah pertama penyambungan (baca baik-baik)
Untuk pemula, tutorial disini paling detail. Langkah pertama untuk koneksi ke database ADO komponen apa saja yang harus ditambahkan? Nama lengkapnya adalah komponen Microsoft ADO Data Control 6.0 (SP6) (OLEDB).
Di komponen Microsoft ADO Data Control 6.0 (SP6) (OLEDB) ada nama: Adodc data control, Anda perlu menambahkannya. Temukan ACCES di lokasi data kontrol data Adodc.
Metode yang direferensikan oleh kontrol (nilai mengacu pada nama)
Copy kode kodenya sebagai berikut:
Untuk i = 1 Ke Adodc1.Recordset.RecordCount
Jika Bukan Adodc1.Recordset.EOF Lalu
Combo1.AddItem Adodc1.Recordset.Fields("nilai").Nilai
Adodc1.Recordset.Movenext
Akhiri Jika
berikutnya saya
Penulis yang dikutip kode ini adalah ydl890406. Saat saya menulis hal ini di grup VB, saya diminta untuk meminjamnya, kemudian saya menemukan banyak kesalahan. Setelah Anda merevisinya beberapa kali, masih ada kesalahan, jadi saya cukup tulis ulang. Ini adalah kode Nanti. Waktu berlalu dengan cepat dan grup VB pun bubar. Belakangan, entah kenapa, sekarang banyak tutorial yang menggunakan kode ini.
Bagian kedua adalah koneksi kode AOD. Karena bagian kedua melibatkan objek Recordset dan objek Connection, Anda dapat mempelajarinya sendiri dan menulisnya sendiri.
Apa yang dimaksud dengan objek Recordset dan objek Connection? Objek Connection adalah koneksi ke sumber data, dan objek Recordset adalah data operasi.
Mencari komponen Microsoft ADO Data Control 6.0 (SP6) (OLEDB).
VB menggunakan ADO untuk terhubung ke database SQL Server
'Konstanta informasi sumber data Public Const conn As String = "Penyedia = SQLOLEDB.1; Kata Sandi = sa; UserID = sa; Katalog Awal = StudentFiles; Sumber Data = localhost" Public Const CONNECT_LOOP_MAX = 10 'Lakukan operasi penyambungan satu kali dan Anda dapat mengakses database Jumlah kaliPrivate IsConnect As Boolean 'Tandai apakah database terhubungPrivate Connect_Num As Integer 'Tandai berapa kali data diakses setelah menjalankan fungsi Connect()Private cnn As ADDODB.Connection 'Connect object to connect to the databasePrivate re As ADDODB.Recordset 'Recordset object yang menyimpan kumpulan hasil //Hubungkan ke databasePrivate Sub Connect () 'Jika tanda koneksi Jika benar, kembalikan. IF IsConnect = True Lalu Keluar dari Sub End If Set cnn = New ADODB.Connection 'Key new digunakan untuk membuat objek baru cnn cnn.ConnectionString = conn cnn.Open 'Tentukan status koneksiIf cnn.State <> adStateOpen Lalu MsgBox "Kegagalan Koneksi Basis Data" Akhir Akhir Jika 'Setel ID koneksi, yang menunjukkan bahwa ia terhubung ke database IsConnect = TrueEnd Sub' Putuskan koneksi dengan database Private Sub DisConnect() Redupkan rc Selama If IsConnect = False Kemudian Keluar dari Sub Akhir Jika 'Tutup koneksi cnn.Tutup' Rilis cnn Set cnn = Nothing IsConnect = FalseEnd Sub'Gunakan Connect_Num untuk mengontrol koneksi data Public Sub DB_Connect() Connect_Num = Connect_Num + 1 ConnectEnd Sub'Gunakan Connect_Num untuk mengontrol data putuskan Sub Publik DB_Disconnect ()Jika Connect_Num >= CONNECT_LOOP_MAX Kemudian Connect_Num = 0 Putuskan Akhir Jika Berakhir Sub'Paksa untuk menutup mode api untuk mengakses database Rusia, setel ulang penghitung Sub Publik DBapi_Disconnect() Connect_Num = 0 DisconnectEnd Sub'Jalankan operasi database bahasa'byval Itu diteruskan oleh nilai parameter, dan parameter tidak akan berubah selama proses transfer (yaitu, nilai parameter diteruskan ke proses alih-alih alamat. Hal ini memungkinkan proses untuk mengakses salinan variabel, dan proses tidak dapat mengubah nilai variabel. ); yang sesuai dengannya adalah byref, yang berarti meneruskan nilai sesuai dengan alamat parameter. Byref dapat dihilangkan. Public Sub SQLExt(ByVal TmpSQLstmt As String) Dim cmd As New ADODB. .Perintah 'Buat objek Perintah cmd DB_Connect 'Sambungkan ke database Set cmd.ActiveConnection = cnn 'Atur atribut ActiveConnect cmd dan tentukan koneksi database yang terkait dengannya cmd.CommandText = TmpSQLstmt 'Atur teks perintah yang akan dieksekusi'MsgBox TmpSQLstmt cmd.Execute 'Jalankan perintah Set cmd = Nothing DB_DisConnect 'Putuskan koneksi Buka koneksi dengan database End Sub'Jalankan pernyataan query database Public Function QueryExt(ByVal TmpSQLstmt As String ) As ADODB.Recordset Dim rst As New ADODB.Recordset 'Buat objek Rescordset terlebih dahulu DB_Connect 'Hubungkan ke database Set rst.ActiveConnection = cnn 'Atur properti ActiveConnection pertama dan tentukan koneksi ke database yang terkait dengannya rst.CursorType = adOpenDynamic ' Atur jenis kursor terlebih dahulu LockType = adLockOptimistic 'Setel jenis kunci terlebih dahulu.Buka TmpSQLstmt 'Buka kumpulan data Set QueryExt = rst' 'Kembalikan Fungsi kumpulan dataEnd