Wasup! писав (а): все правильно роблю
Ось туга, кирилиця не працює.
Справи відвернули.
Ну-у-у. doc - файли не підключає!
Гаразд див. Нижче, там небагато.
1. У наводиться прикладі для знайомства з технологією ADO в VBA все імена-ідентифікатори є конкретними, тобто, саме на ці імена робляться посилання в програмних кодах. (Імена баз даних, таблиць, полів).
2. В даному програмному коді (див. Нижче) виконано підключення бази даних MS Access через драйвер Microsoft jet 4.0 OLE DB Provider. Якщо потрібно підключати бази даних dBase, Paradox або FoxPro, то слід вказати драйвер Microsoft OLE DB Provider for ODBC, для баз даних Oracle Microsoft OLE DB Provider Oracle.
3. Взагалі подивитися провайдери для підключення можна в Delphi, починаючи з версії 5 і вище, в такий спосіб:
Палітра компонентів ADO # 61614; компонент ADO Table (перенести на форму) # 61614; У Інспектор Об'єкту вибрати властивість ConnectionString і клацнути праворуч # 61614; клацнути на кнопці з трьома крапками # 61614; з'явиться вікно діалогу майстра зв'язку # 61614; клацання у вікні на кнопці Вuild ... # 61614; Provider є список всіх провайдерів, які використовуються в твоїй системі.
(Біда, я більше в Delphi працюю)
Для початку створіть дві незалежні бази даних.
Перша база даних.
Ім'я: baza_1
Ім'я таблиці: Маршрут_1
Структура таблиці і кілька записів:
Маршрут_1
K № Маршрут Тривалість Вартість
1 № C - 115 Сочі 10 днів $ 350,00
2 № A - 110 Ялта 7 днів $ 250,00
3 № F - 100 Анталія 7 днів $ 400,00
4 № F - 105 Ніцца 7 днів $ 530,00
Для даних поля "№" можна ввести Маску введення типу: "№" L "-" 000
Для даних поля "Тривалість", Формат поля: # "днів"
Для даних поля "Вартість", Формат поля ввести: $ # ## 0,00
Друга база даних.
Ім'я: proba_1
Без таблиці! Для перевірки зв'язку з незалежної БД!
Тепер вирішимо завдання.
потрібно:
в таблиці Маршрут_1 бази даних baza_1 замінити Маршрут Сочі на Коста Брава, Тривалість на 7 днів, Вартість на $ 1300.;
Dim Stext As String
'Stext - для виведення в MsgBox, головним чином при налагодженні, потім можна прибрати!
'Організація зв'язку з ADO
Set Conn = New ADODB.Connection
Set Rs = New ADODB.Recordset
'Підключення драйвера і незалежної бази даних із зазначенням шляху до неї
Conn.Open "Provider = Microsoft jet 4.0 OLE DB Provider;" "Data Source = C: \ Мої документи \ flying \ baza_1.mdb;"
'Data Source - тут слід вказати шлях до ВАШОЇ Базі Даних
'Відкриваємо потрібну таблицю, тобто, вказуємо її ім'я
Rs.Open "Маршрут_1", Conn, adOpenKeyset, adLockOptimistic
'Програмний модуль вирішення поставленого завдання
'Перехід на перший запис в таблиці, це для спрощення завдання, можна,
'Звичайно, організувати пошук, але це зовсім інше завдання
Rs.MoveFirst
'Зчитування значення третього поля таблиці в першому записі, у нас це поле
'Має ім'я Маршрут, для різноманітності тут наводжу, як працювати з ім'ям
'Поля, як працювати з його псевдонімом
Stext = Rs.Fields (2)
MsgBox Stext
'Змінюємо значення поля
Rs! [Маршрут] = "Коста Брава"
Stext = Rs.Fields (2)
Rs! [Тривалість] = 7
Rs! [Вартість] = 1300
MsgBox Stext
'Оновлюємо дані:
Rs.Update
Set Conn = Nothing
End Sub
З паролем не знаю, як? Може питання уточниш?
I'd like to speak Russian in my IE