| |
|
|
| | Положил на форму компонент
Microsoft ADO Data Control 6.0
обозвал его Adodc1
Подцепил в ссылках ADO
на кнопку повесил код
With Adodc1
.ConnectionString = "FILE NAME=C:\VB-DB\Nwind.udl"
.RecordSource = "SELECT * FROM Products WHERE ProductID"
End With
Set Text1.DataSource = Adodc1 - почему то вот сдесь остановка и сообщение Недопустимый составной файл
|
| |
| |
| |
| |
|
|
| | а воттак
With Adodc1
.ConnectionString = "C:\VB-DB\Nwind.udl"
.RecordSource = "SELECT * FROM Products"
End With
|
не указан драйвер используемый по умолчанию - а как его программно указать??? | |
| |
| |
| |
|
|
| | блин теперь не выполнена проверка подлинности........  | |
| |
| |
| |
|
|
| | Теперь операция была отменена........ что за ХР  | |
| |
| |
| |
|
|
| | Наконец то попёрло.
With Adodc1
.ConnectionString = "FILE NAME=C:\VB-DB\NOMENKLATURA.udl"
.RecordSource = "NOMENKLATURA_TBL"
End With
Set Text1.DataSource = Adodc1
Text1.DataField = "Наименование"
Label1.Caption = "Наименование:"
Set Cena.DataSource = Adodc1
Cena.DataField = "Цена"
Label2.Caption = "Цена:"
|
| |
| |
| |
| |
|
|
| | ООООООООООООООООООО и так попёрло
With Adodc1
.ConnectionString = "FILE NAME=C:\VB-DB\NOMENKLATURA.udl"
.RecordSource = "Запрос1"
End With
Set Text1.DataSource = Adodc1
Text1.DataField = "Наименование"
Label1.Caption = "Наименование:"
Set Cena.DataSource = Adodc1
Cena.DataField = "Цена"
Label2.Caption = "Цена:"
|
| |
| |
| |
| |
|
|
| | На радостях пиду посплю......... | |
| |
| |
| |
|
|
| | Пока спал вчерашние ссылки все отвалились Adodc1 - потерял сам себя.....
Как же программно это всё подцеплять - едрёна мать?????? | |
| |
| |
