Coding untuk menghubungkan Visual basic ke MS Access

Program dapat ditulis dalam Visual Basic untuk mengakses database akses Microsoft . Beberapa konsep pemrograman seperti subrutin dan perulangan bersama dengan pengetahuan tentang database dan SQL mungkin diperlukan untuk menulis program untuk menautkan database Microsoft Access ke kode Microsoft Visual Basic . Objek ADODB digunakan untuk membuat koneksi ke database dan mengakses catatan menggunakan ADODB.connection dan ADODB.recordset API masing-masing. SQL digunakan untuk mencari database untuk catatan yang cocok dengan informasi yang diberikan sebagai parameter untuk subrutin. Data dalam catatan juga dapat dimanipulasi dalam kode program Visual Basic.

Isu

Halo,

Saya perlu tahu kode untuk menghubungkan visual basic ke MS Access!

Larutan

Anda dapat mencoba ini:

 Opsi Eksplisit Dim kon Sebagai ADODB.Koneksi, rec Sebagai ADODB.Rekam Pengaturan Dim esql Sebagai String, esql2 Sebagai String, searchvar Sebagai String Private Sub Command1_Klik () Text1 = "" Text2 = "" Text3 = "" Command4.Visible = True Command1. Visible = False Text1.SetFocus End Sub Private Sub Command2_Click () Jika Tidak rec.EOF Kemudian rec.MoveNext Else rec.MoveLast End Jika GetText End Sub Private Sub Command3_Klik () Jika Tidak rec.BOF Kemudian rec.MoveSebelum rec rec.oveFirst End Jika GetText End Sub Private Sub Command4_Klik () Pada Kesalahan GoTo 1 Jika Text1 = "" Atau Text2 = "" Kemudian Command4.Visible = False Command1.Visible = True Exit Sub End Jika rec.AddNew rec.Fields (0) = Text1 rec .Fields (1) = Text2 rec.Fields (2) = Text3 rec.Update Jika Tidak rec.EOF Kemudian rec.MoveNext rec.MoveFirst GetText Command4.Visible = False Command1.Visible = True Exit Sub 1 MsgBox ("nilai duplikat" ) & Text3 End Sub Private Sub Command5_Click () Text1 = "" Text2 = "" Text3 = "" searchvar = InputBox ("masukkan item untuk menemukan") rec. Tutup rec.Open ("pilih * dari TestRavi di mana First = "&" '"& searchvar &"' "), samb, adOpenStatic, adLockReadOnly If rec.Fields (0)" "Kemudian Text1 = rec.Fields (0) Text2 = rec.Fields (1) Text3 = rec.Fields (2) Lain MsgBox ("Tidak ada catatan yang cocok ditemukan") rec.Tutup rec.Open ("pilih * dari testravi"), samb, adOpenDynamic, adLockOptimistic GetText End Jika End Sub 'untuk bilangan bulat menggunakan' Dim searchvar2 As Integer 'searchvar2 = InputBox ("masukkan Number")' rec.Open ("pilih * dari TestRavi mana First =" & searchvar2), samb, adOpenStatic, adLockReadOnly Private Sub Form_Load () Set conn = New ADODB.Connection Set rec = New ADODB .Recordset 'conn.Open ("Penyedia = Microsoft.Jet.OLEDB 4.0; Sumber Data = C: \ Program Files \ Microsoft Office \ Office \ Samples \ Northwind.mdb; Info Keamanan Tetap = Salah") conn.ConnectionString = "Penyedia = Microsoft.Jet.OLEDB.4.0; Sumber Data = C: \ Program Files \ Microsoft Office \ Office \ Samples \ Northwind.mdb; Info Keamanan Tetap = Salah "conn.Open esql =" pilih * dari TestRavi "rec.Open ( esql), samb, adOpenDynamic, adLockOptimis tic GetText End Sub Private Sub Form_Unload (Batalkan Sebagai Integer) rec.Close conn.Close Set conn = Nothing command1.visible = false End Sub Private Sub GetText () Jika rec.BOF = Benar Atau rec.EOF = Benar Kemudian Keluar Sub Teks1 = rec.Fields (0) Text2 = rec.Fields (1) Text3 = "" End Sub