Saya pribadi sering mengerjakan beberapa program database, sehingga saya sangat memahami masalah bagaimana antarmuka antara program dan database, karena ketika VB terhubung ke database, biasanya statis, yaitu jalur penyimpanan database. sudah diperbaiki, seperti Saat menggunakan DATA VB, adodc, DataEnvironment, dll. untuk terhubung ke database, jika jalur untuk menyimpan database diubah, jalur tidak akan ditemukan, yang sangat mengganggu.
Solusi penulis adalah menggunakan app.path untuk mengatasi masalah ini.
1. Gunakan kontrol data untuk menyambung ke database, sebagai berikut:
Masukkan proses form_load():
Formulir_Privat()
Definisi DimstraAsString
str=Aplikasi.Jalur
JikaKanan(str,1)<>"/"Lalu
str=str "/"
AkhirJika
data1.namadatabase=str&"/nama basis data"
data1.recordsource="nama tabel data"
data1.segarkan
subend
Arti dari kalimat tersebut adalah membuka database di direktori tempat program sedang berjalan.
Anda hanya perlu memastikan bahwa database Anda ada di direktori tempat program Anda berada.
2. Gunakan adodc (ADODataControl) untuk tautan basis data:
bentuk_privat_load()
Definisi DimstraAsString
str=Aplikasi.Jalur
JikaKanan(str,1)<>"/"Lalu
str=str "/"
AkhirJika
str="Provider=Microsoft.Jet.OLEDB.3.51;PersistSecurityInfo=False;DataSource="&str&"/tsl.mdb"
Adodc1.ConnectionString=str
Adodc1.CommandType=adCmdText
Adodc1.RecordSource="pilih*daritabel3"
Adodc1.Segarkan
sub akhir
3. Gunakan DataEnvironment untuk menghubungkan database
Anda dapat melakukan prosesnya:
OnErrorResumeBerikutnya
IfDataEnvironment1.rsCommand1.State<>adStateClosedThen
DataEnvironment1.rsCommand1.Close'Jika terbuka, tutup
AkhirJika
'i=InputBox("Masukkan Nomor Teman :", "Masukkan")
'Ifi=""KemudianKeluarSub
Lingkungan Data1.Koneksi1.OpenApp.Path&"/userdatabase/tsl.mdb"
DataEnvironment1.rsCommand1.Open"pilih*daritabel3di mana nomor='"&i&"'"
'SetDataReport2.DataSource=DataEnvironment1
'DataReport2.DataMember = "perintah1"
'DataReport2.tampilkan
sub akhir
4. Pemrograman menggunakan ADO (ActiveXDataObjects):
Buat koneksi:
dimconnasnewadodb.koneksi
dimrsasnewadodb.recordset
redup
str=Aplikasi.Jalur
JikaKanan(str,1)<>"/"Lalu
str=str "/"
AkhirJika
str="Provider=Microsoft.Jet.OLEDB.3.51;PersistSecurityInfo=False;DataSource="&str&"/tsl.mdb"
sambungan.openstr
rs.cursorlocation=aduseclient
rs.open"nama tabel data",sambungan,adopenkeyset.adlockpessimistic
Tutup database setelah digunakan:
samb.tutup
setconn=tidak ada->