как сформировать новую таблицу, заполнение по столбцам!!!

[TankKk]

Dim db As DAO.Database
Dim ds As DAO.Recordset
Set db = CurrentDb
Set ds = db.OpenRecordset("SELECT * FROM [db1.mdb].[Табл_1]", dbOpenDynaset)
.............
.............
ds.Close
db.Close
1.Вопрос в том как указать что db1.mdb находиться в директории откуда запущена, а не в c:\Documents and Settings\*\мои док\
2.Как определить общее кол-во записей в таблице табл_1
3. Происходит определенное вычисление, на его основе как сформировать новую таблицу, заполнение по столбцам!!! (ну хотя бы в общих чертах)

[blinow]

1. Если знаешь путь, так прямо и напиши его [C:\DB\db1.mdb].[Табл_1]
Путь откуда запущена текущая БД можно вытащить из db.Name.
2. ds.RecordCount или SELECT Count(*) AS KZ FROM ...
3. Это уже целый учебник, нужно конкретнее.

[Odrick]

А в чем, собственно, проблема? Создаеш таблицу через Create Table, по ходу вычислений делаеш Insert в таблицу. Или если "по столбцам" для начала создаеш нужное количество строк, а потом поколоночно апдейтиш.

[TankKk]

1.Как сформировать двумерный массив и записать его во вновь созданную табл_1(проверить перед этим если табл_1 есть, то удалить), сохранить табл_1
2.какой тип переменных содержащихся в раскрывающемся списке(фикс зн-я заключенные в кавычки) - String???
3.Как задать заголовок активного окна
4.Как обявить пользовательский тип данных или типа например String длинною N символов(или Byte, переменная например от 10 до 100)

[Odrick]

1. Dim MyArray(10, 10). Перебрать все значения, сформировать команды вида "Insert Into my_table (col1, col2) Values (" бла-бла-бла. Точнее сказать не могу, не зная конкретной задачи. Удаление таблицы - SQL-запрос Drop Table...
2. Да
3. Me.Caption
4. Насколько я знаю, никак, но могу ошибаться.

[Twister]

2 Odrick

3. Me.Caption

3.Как задать заголовок активного окна

Неверно... (смотри вопрос). Нужен SetWindowText. Или вопрос неверно сформулирован...

[Odrick]

Ну если активного своего окна, то проще всего через Caption. Если чужого, то SetWindowText. Но тут скорее всего речь идет о своем

[TankKk]

спасибо разобрался, сделал через Screen.ActiveForm.Caption

[TankKk]

1. Dim MyArray(10, 10). Перебрать все значения, сформировать команды вида "Insert Into my_table (col1, col2) Values (" бла-бла-бла. Точнее сказать не могу, не зная конкретной задачи. Удаление таблицы - SQL-запрос Drop Table...
Мне надо вытащить из табл значение и провести с ним операции как с датой

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


For nLaunch = 1 To kolLaun
    Set rs = db.OpenRecordset("SELECT ДеньЗапуска FROM [" & pathSelect & ".[Запуски] WHERE " & _
        "(Код=nLaunch)", dbOpenDynaset)
    If Not rs.EOF Then DayLaunch = rs!ДеньЗапуска
    kolHurrPerDay = 0
    For Diap = DayLaunch - Forms("Основа")!ПолеСоСписком6 To DayLaunch + Forms("Основа")!ПолеСоСписком8
        For nHurr = 1 To kolHurr
            Set es = db.OpenRecordset("SELECT НачалоУрагана FROM [" & pathSelect & ".[Ураганы] WHERE " & _
                "(Код = nHurr)", dbOpenDynaset)
            If Not es.EOF Then DayHurr = rs!НачалоУрагана
            If Diap = DayHurr Then kolHurrPerDay = kolHurrPerDay + 1
            'Я идиот! Убейте меня, кто-нибудь!???Как записать kolHurrPerDay в новую таблицу в nLaunch - столбец????
        Next 'nHurr
        Set es = Nothing
    Next 'Diap
    Set rs = Nothing
Next 'nLaunch

Здесь Err: не хватает параметра (((