October

Помогите, как засадить данные в ComboBox на форме в ACCESS из таблицы в MS SQL Server 2000 ? Связь через ADODB.Connection.

vivi

Прилинковываешь таблицу или представление в Access:
Но сначала надо создать соединение ODBC:
Пуск - Настройка - Панель управления - Администрирование - Источники данных ODBC.
Соединение будет иметь имя.
Далее в Access:
окно БД - вкладка Таблицы - связь с таблицами,тип файлов выбираешь ODBS Databases и имя твоего соединения.
Если хочешь чтоб прилинкованная таблица была обновляемой, надо при установлении связи указать уникальное поле. Если такого нет, то добавляешь в таблице на SQL искуственное поле счетчика.
Важно! При изменении структуры таблицы на SQL связь надо принудительно обновлять.

Прилинкованная таблица или представление будут иметь имя. Указываешь имя этого объекта в свойстве Источник строк элемента управления гна форме.
Если надо подробнее - спросите.

October

Vivi, Спасибо. Но это все сделано.И связь есть и все.
Но не могу весь список вонзить в Combobox.
Или только первое значение.
отрывок:
...
r1.movefirst
me.CBox1.value = r1!Name
me.refresh

Показывает только первое значение, а мне надо все.
Где r1 определяется как
set r1=cnn1.execute('select ...')

vivi

Поскольку вопрос в ветке про Access, то уточни, пожалуйста: Клиент у тебя на чем?

October

Клиент в форме на Access.

vivi

Счас разберемся.
Что ты называешь ComboBox?
Поле со списком?

October

Да. Поле со списком.
Клиент на Access.

vivi

Прости за мою непонятливость.
Объясни, чего ты хочешь иметь на выходе.
Поле со списком имеет источник строк и предназначено для выбора и использования выбранного значения.

Поле со списком присоеденено к одному полю (если результат выбора нужно хранить)или свободное, т.е. выбираемое значение не сохраняется.

А вот источник строк может быть представлен обширным набором записей -много записей и несколько столбцов.

У тебя проблема где? В источнике записей для раскрывающегося списка или ты хочешь результат выбора хранить в виде набора записей?

October

Я хочу иметь выбор и использование выбранного значения.
Так, чтобы, Поле со списком было присоеденено к ОДНОМУ СТОЛБЦУ.
-----
У тебя проблема где? В источнике записей для раскрывающегося списка или ты хочешь результат выбора хранить в виде набора записей?
----
Проблема в источнике записей. Не удается подцепить необходимый столбец таблицы на сервере к раскрывающемуся списку.

October

Поясню нагляднее. Под меню форума есть поля 'Искать' и второе (раскрывающийся список), в котором высвечено 'в новостях'. Предположим, что значения для второго поля берутся с сервера (из таблицы). Каким образом мне подцепить этот элемент АктивХ - раскрывающийся список к данным в таблице на сервере ? Повторяю, что клиент, где расположен раскрывающийся список - на Access.

vivi

Тогда надо воспользоваться средствами этого элемента управления.

Задать свойства : Источник строк, число столбцов, ширину столбцов.
Ничего не надо программировать! Все это элементарно делается визуальными средствами.
Лучше всего воспользоваться мастером (возникает, когда рисуешь новый элемент).

Если тебе надо динамически менять источник строк, ну, к примеру в зависимости от значения какого-нибудь соседнего поля, то это делается путем изменения свойств этого поля со списком в модуле формы средствами VBA - в ответ, например на событие 'после обновления' того, другого пля.

Источник строк это string. Его ты и формируешь в VBA. Он имеет вид SQL-запроса 'Select .... '. В предложении FROM пишешь имя прилинкованной таблицы и о коннекте не заботишься, ибо он в этой тбл хранится. А предложение WHERE динамически формируешь.

Удачи!

Напиши, получилось ли.

vivi

Причем здесь АктивХ? Воспользуйся родным полем со списком, который интегрирован в Access. Тут тот случай, когда не надо экзотики.

October

Я понимаю, о чем вы говорите. Но, дело в том, что здесь работа идет через Connection. Я не делаю линки таблиц. В разделе ТАБЛИЦЫ у меня не т ни одной таблицы, Все через ADODB.Connection.
В том-то и трудность. Если я сделаю линки таблиц с сервера, то при работе нескольких клиентов будет конфликт. (Правда он и так может быть, но так можно поковырять с транзакциями).

@.polythene

RowSource = 'SELECT ODBC_Table.FieldName from ODBC_Table;'

или я чего-то не понял?

0

@.polythene

а ещё после SELECT можно вставить DISTINCT, тогда ваще ништяк бует

0

October

To: poluthene
Попробовал, но выдает сообщение, что ядро не может найти входную таблицу OLEDB_project_type.

October

To: polithene
Как я понимаю, эту строку я вставил в источник строк в элементе управления. Она дает ошибку. Если вставить программно, думаю, все равно даст ошибку (причем, наверное, ту-же).

@.polythene

Dim db As DAO.Database
Dim tdf As DAO.TableDef
Dim rst As DAO.Recordset
Dim strServer As String
Dim strDB As String
Dim strTable As String
Dim strConnect As String
Dim strMsg As String

strConnect = 'ODBC:driver ={SQL server}; trusted_connection=yes;'

или

strConnect = 'ODBC:driver ={SQL server}; UID=' < UserName > ' PWD= ' < Password > ''

Set db = CurrentDb
Set rst = db.OpenRecordset('tblSQLTables', dbOpenSnapshot)

If rst.EOF Then
strMsg = 'NO TABLES!!!'
GoTo exithere
End If

Do Until rst.EOF
strServer = rst!sqlserver
strDB = rst!sqldatabase
strTable = rst!sqltable

Set tdf = db.CreateTableDef(strTable)
tdf.Connect = strConnect & 'Server=' & strServer & 'atabase=' & strDB & ';'
tdf.SourceTableName = strTable

db.TableDefs.Append tdf
rst.MoveNext
Loop

strMsg = 'tables are linked'
rst.Close
Set rst = Nothing
Set tdf = Nothing
Set db = Nothing

exithere:
MsgBox strMsg, , 'Linking sql tables'
HandleErr:
Exit Sub


взято из 'Access. Сборник рецептов для профессионалов'
авторы - К.Гетц, П.Литвин, Э.Берон
Работает на MSO XP, возможно не будет работать на ранних версиях.
Не забудь включить Tools > References > Microsoft DAO 3.6 object library

Удачи

0

@.polythene

забыл написать.
код этот подсоединяет ВСЕ таблицы, думаю сам разберёшся, что к чему...

0

October

Спасибо, polythene.
Попробую. Сообщу как и что.