Имена таблиц из базы данных

[[WizarD]-GoSu]

Подскажите пожалуйста как в коде получить имена всех таблиц из БД Access открытой при помощи Adodc. Допустим открываем произвольную базу и надо знать какие таблицы там есть, чтобы в строчке

Код: Выделить всё

ShoeBase.RecordSource = "Select * From shoedb"

не задавать явно таблицу, а скажем выбирать её из списка.
Реализовать желательно средствами самого контрола.

Код: Выделить всё

Private Sub Form_Load()
    ShoeBase.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;DataSource=E:\PSTU\Áàçûäàííûõ\ShoeBD\base\shoedb.mdb;Mode=ReadWrite|Share Deny None;Persist Security Info=False"
    ShoeBase.RecordSource = "Select * From shoedb"
    ShoeBase.Refresh
    Set ShoeTable.DataSource = ShoeBase
    ShoeTable.ReBind
End Sub

[shady]

Код: Выделить всё

SELECT MSysObjects.Id, MSysObjects.[Name]
FROM MSysObjects
WHERE (((MSysObjects.Type)=1) AND (Left([Name],4))<>"MSys" And (Left([Name],4))<>"USys")

[[WizarD]-GoSu]

Спасибо за помощь!

[[WizarD]-GoSu]

После того как впечатал этот запрос пишет:

Код: Выделить всё

Записи не могут быть прочитаны; отсутствует разрешение на чтение данных для MSysObjects

Mode задал на чтение и запись, подключаюсь как админ вроде

[[WizarD]-GoSu]

Полазив в настройках Access нашёл ответ на свой вопрос!!!
Надо сделать следущее:

Открываем в Access меню Сервис->Вид и на вкладке Вид , ставим галочку Системные объекты . Теперь мы видим системные таблицы.

Далее в Сервис->Защита->Разрешения находим таблицу MSysObjects и ставим необходимые разрешения!

Теперь всё работает!

[[WizarD]-GoSu]

У меня вопрос если имя таблицы содержит пробелы, как правильно запрос построить?

Код: Выделить всё

Select * From Big Table

Такой код не катит естественно

[Gloom]

У меня вопрос если имя таблицы содержит пробелы, как правильно запрос построить?

Код: Выделить всё

Select * From Big Table

Такой код не катит естественно

Код: Выделить всё

Select * From [Big Table]

[[WizarD]-GoSu]

Спасибо Gloom !

[[WizarD]-GoSu]

Появилась проблема опять связанная со знанием синтаксиса SQL Помогите плиз!

Делаю следующий запрос:

Код: Выделить всё

adoBase.RecordSource = "SELECT Сырье.id, Сырье.[Вид материала], [Расход сырья].Количество, Сырье.Количество, [Расход сырья].Примечание FROM [Расход сырья] INNER JOIN Сырье ON [Расход сырья].[Номер сырья]=Сырье.id Where [Расход сырья].Дата>='" & Format(Calen1.Value, "yyyy.mm.dd") & "' And [Расход сырья].Дата<='" & Format(Calen2.Value, "yyyy.mm.dd") & "' GROUP BY  Сырье.[Вид материала], Сырье.id, [Расход сырья].Количество, Сырье.Количество, [Расход сырья].Примечание"

Получаю:

Код: Выделить всё

Кожа (голуб)   20   50   Цех 5
Кожа (голуб)   50   50   Цех 3
Кожа (черн)   5   110   Цех 5
Кожа (черн)   10   110   Цех 4
Резина   10   225   Цех 3

Как мне объединить одинаковые строки Наименование и при этом найти сумму строк Расход сырья.Количество?

Например объединяем Кожа (черн) и Кожа (черн) получаем:

Кожа (голуб) 70 50

[HandKot]

попробуйте

Код: Выделить всё

SELECT
   Сырье.id,
   Сырье.[Вид материала],
   SUM([Расход сырья].Количество),
   Сырье.Количество,
   [Расход сырья].Примечание
FROM
   [Расход сырья]
INNER JOIN Сырье ON [Расход сырья].[Номер сырья]=Сырье.id
Where
   [Расход сырья].Дата>='" & Format(Calen1.Value, "yyyy.mm.dd") & "'
   And [Расход сырья].Дата<='" & Format(Calen2.Value, "yyyy.mm.dd") & "'
GROUP BY 
   Сырье.[Вид материала],
   Сырье.id,
   Сырье.Количество,
   [Расход сырья].Примечание"

[[WizarD]-GoSu]

Осталось всё тоже самое после запроса только имя столбца [Расход сырья].Количество сменилось на Expr1002

[shady]

[WizarD]-GoSu
У Вас же написано:

Код: Выделить всё

Кожа (голуб)   20   50   Цех 5
Кожа (голуб)   50   50   Цех 3

Цех 5 и Цех 3 - как же вы хотите сгруппировать?

Осталось всё тоже самое после запроса только имя столбца [Расход сырья].Количество сменилось на Expr1002

Напишите SUM([Расход сырья].Количество) AS SumKol или что там Вам надо... и не будет Expr1002

[[WizarD]-GoSu]

Большое спасибо! Всё робит!