Кодування для зв'язку Visual Basic з MS Access

Програми можуть бути написані на Visual Basic для доступу до баз даних Microsoft Access . Деякі концепції програмування, такі як підпрограми та циклічність, а також знання баз даних і SQL, можуть знадобитися для написання програм, що зв'язують базу даних Microsoft Access з кодом Microsoft Visual Basic . Об'єкт ADODB використовується для створення з'єднання з базою даних і доступу до записів за допомогою API ADODB.connection і ADODB.recordset відповідно. SQL використовується для пошуку в базі даних записів, які відповідають інформації, наданої в якості параметрів підпрограм. Дані в записах також можна маніпулювати в коді програми Visual Basic.

Проблема

Здрастуйте,

Мені потрібно знати кодування для зв'язку Visual Basic з MS Access!

Рішення

Можна спробувати:

 Параметр Явний конд Dim Як ADODB.Connection, rec Як ADODB.Recordset Dim esql As String, esql2 Як рядок, searchvar Як рядок Приватний Sub Command1_Click () Text1 = "" Text2 = "" Text3 = "" Command4.Visible = True Command1. Visible = Помилковий Text1.SetFocus Закінчити суб-приватний Sub Command2_Click () Якщо не rec.EOF Потім rec.MoveNext Else rec.MoveLast End Якщо GetText Закінчити Суб Приватний Sub Command3_Click () Якщо не rec.BOF Потім rec.MovePrevious Else rec.MoveFirst End Якщо GetText Закінчити Суб-Приватний Sub Command4_Click () На помилку GoTo 1 Якщо Text1 = "" Або Text2 = "" Тоді Command4.Visible = False Command1.Visible = True Вихід Sub End Якщо rec.AddNew rec.Fields (0) = Текст1 . Fields (1) = Text2 rec.Fields (2) = Text3 rec.Update Якщо не rec.EOF Потім rec.MoveNext rec.MoveFirst GetText Command4.Visible = False Command1.Visible = True Вихід Sub 1 MsgBox ("дублювати значення") & Текст3 Закінчити підзаголовок Sub Command5_Click () Text1 = "" Text2 = "" Text3 = "" searchvar = InputBox ("ввести елемент для пошуку") rec.Close rec.Open ("виберіть * від TestRavi, де First = "&" '"& searchvar &"' "), conn, adOpenStatic, adLockReadOnly Якщо rec.Fields (0)" "Тоді Text1 = rec.Fields (0) Text2 = rec.Fields (1) Text3 = rec.Fields (2) Else MsgBox ("Не знайдено відповідних записів") rec.Close rec.Open ("select * from testravi"), conn, adOpenDynamic, adLockOptimistic GetText Закінчити, якщо закінчити Sub 'для цілих чисел використовувати' Dim searchvar2 As Integer 'searchvar2 = InputBox ("введіть номер")' rec.Open ("виберіть * з TestRavi де First =" & searchvar2), conn, adOpenStatic, adLockReadOnly Приватний Sub Form_Load () Set conn = Новий ADODB.Connection Set rec = Новий ADODB Джерело даних = C: Файли програм Microsoft Office Управління Прикладами Northwind.mdb; Захист інформації = False ") conn.ConnectionString =" Постачальник Джерело даних = C: Файли програм Microsoft Office Office Приклади Northwind.mdb; Постійна інформація безпеки = False "conn.Open esql =" select * from TestRavi "rec.Open esql), conn, adOpenDynamic, adLockOptimis tic GetText Закінчити Суб-приватний Sub Form_Unload (Скасувати як ціле) rec.Close conn.Close Встановити conn = Нічого не command1.visible = false End Sub Private Sub GetText () Якщо rec.BOF = True Або rec.EOF = True Тоді Exit Sub Text1 = rec.Fields (0) Text2 = rec.Fields (1) Text3 = "" Кінець Sub