Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как проверить существует ли колонка в таблице? / 12 сообщений из 12, страница 1 из 1
30.04.2004, 10:44
    #32503918
MPoil
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как проверить существует ли колонка в таблице?
Как проверить существует ли колонка в данно таблице и если её нет,то создать.
\С Уважением,Михаил!
...
Рейтинг: 0 / 0
30.04.2004, 10:47
    #32503927
paparome
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как проверить существует ли колонка в таблице?
А просто попытаться создать с инором ошибок?

Код: plaintext
1.
2.
3.
On Error Resume Next
/* Добавляем колонку к таблице
On Error Goto  0 
...
Рейтинг: 0 / 0
30.04.2004, 11:07
    #32503971
MPoil
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как проверить существует ли колонка в таблице?
Простите,что у меня такие глупые вопросы,просто я только начал программировать.
Хотел спросить как мне сделать так,чтобы вписать в колонку уникальные ключи для таблицы Budget программно?
Вся задача состоит в том,что есть таблица,надо создать ещё одно поле в неё и вписать для каждой записи уникальный ключ
\С Уважением,Михаил.
...
Рейтинг: 0 / 0
30.04.2004, 11:13
    #32503987
paparome
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как проверить существует ли колонка в таблице?
А зачем программно проектировать БД?
...
Рейтинг: 0 / 0
30.04.2004, 11:36
    #32504078
MPoil
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как проверить существует ли колонка в таблице?
Просто эту таблицу я создаю путём поиска файлов и склеивания одинаковых таблиц,просто теперь ещё надо создать уникальное поле.
И если Вам не трудно не могли бы вы мне ответить ещё на один вопрос:Как при нажатии другой кнопки можно например выполнять код+ код от другой кнопки?
...
Рейтинг: 0 / 0
30.04.2004, 13:00
    #32504360
Shuhard
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как проверить существует ли колонка в таблице?
call кнопка_Click()
...
Рейтинг: 0 / 0
30.04.2004, 13:15
    #32504396
Героиныч
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как проверить существует ли колонка в таблице?
MPoil Просто эту таблицу я создаю путём поиска файлов и склеивания одинаковых таблиц,просто теперь ещё надо создать уникальное поле.

А по-подробнее можно рассказать как происходит создание таблицы(лучше даже с примером кода)


MPoil И если Вам не трудно не могли бы вы мне ответить ещё на один вопрос:Как при нажатии другой кнопки можно например выполнять код+ код от другой кнопки?
Вообще-то если один и тот-же код вызывается после нажатия на разные кнопки, то логичнее было бы выделить этот код в отдельную функцию(процедуру) и в обработчиках событий кнопок вызывать эту процедуру.

Public Function MyFunction()
бла...бла...бла
End Function

Private Sub Button1_Click()

MyFunction

End Sub

Private Sub Button2_Click()

MyFunction

End Sub

->главное не напороть косяков!<-
...
Рейтинг: 0 / 0
30.04.2004, 13:34
    #32504461
MPoil
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как проверить существует ли колонка в таблице?
Создаётся так: dim ff
Set ff = Application.FileSearch
With ff
.lookin = "c:\12\"
.searchsubfolders = True
.matchtextexactly = True
.FileName = "12_"
If .Execute() > 0 Then
MsgBox "найдено" & .foundfiles.Count & " файлов"
For i = 1 To .foundfiles.Count
DoCmd.TransferDatabase acImport, "Microsoft Access", ff.foundfiles(i), acTable, Name, temp
Set rs = CurrentDb.OpenRecordset(temp)
CurrentDb.Execute ("insert into " & Name & " select * from " & temp)
Next i
End If
А создаю уникальное поле так,но это не правильно и долго,тк записей много:
DoCmd.RunSQL ("alter table Budget add column kkey number")

Set rs = CurrentDb.OpenRecordset(Name)
rs.MoveFirst
For i = 1 To rs.RecordCount
rs.Edit

rs!kkey = i
rs.Update
rs.MoveNext
Next i
rs.Close
Exit Sub
...
Рейтинг: 0 / 0
30.04.2004, 14:26
    #32504580
Героиныч
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как проверить существует ли колонка в таблице?
Если не секрет - для чего конкретно применяется? ;)

Name я так понимаю это Бюджет?

Первое что приходит в голову, создать в той таблице, куда объединяешь другие, поле типа счетчика .
DoCmd.RunSQL ("alter table " & Name & " add column kkey counter")
А потом, когда будешь данные вместе объединять -
авторCurrentDb.Execute ("insert into " & Name & " select * from " & temp)
поле счетчика автоматически будет заполняться.
А это тогда все не нужно:

авторА создаю уникальное поле так,но это не правильно и долго,тк записей много:
DoCmd.RunSQL ("alter table Budget add column kkey number")

Set rs = CurrentDb.OpenRecordset(Name)
rs.MoveFirst
For i = 1 To rs.RecordCount
rs.Edit

rs!kkey = i
rs.Update
rs.MoveNext
Next i
rs.Close
Exit Sub[/quot]
Вообще я не люблю счетчики :) И DAO тоже не люблю...;))

Неужели в объединяемых таблицах нет уникальный полей?
...
Рейтинг: 0 / 0
30.04.2004, 14:47
    #32504620
MPoil
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как проверить существует ли колонка в таблице?
Спасибо,щас буду делать....
Просто там сделано,что файлы разбиты по месяцам и надо их соединять,чтобы потом все данные отправить в другой отдел.
...
Рейтинг: 0 / 0
30.04.2004, 14:54
    #32504640
Героиныч
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как проверить существует ли колонка в таблице?
Зачем тогда разбивать на файлы? можно добавить поле Месяц и все хранить в одном файле - потом по нему выбирать то что нужно.
->главное не напороть косяков!<-
...
Рейтинг: 0 / 0
30.04.2004, 15:04
    #32504675
Geo
Geo
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как проверить существует ли колонка в таблице?
А отчего было не продолжить обсуждение в предыдущем топике?..
...
Рейтинг: 0 / 0
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как проверить существует ли колонка в таблице? / 12 сообщений из 12, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]