Релиб / Access / Базы данных / пара вопросов / Latest Posts

RE: пара вопросов

Михайло — Fri, 27 Jul 2007 16:01:32 GMT

А я не думаю, что переименование поля и ALETR TABLE - одна и та же операция...

RE: пара вопросов

babken76 — Fri, 27 Jul 2007 15:55:05 GMT

Спасибо Михайло! Не думал, что переименование полей т.е. фактически alter, будет работать так быстро. Тем не менее, интересно что же не так с импортом.

С уважением,

RE: пара вопросов

Михайло — Fri, 27 Jul 2007 14:16:07 GMT

1. Например, создайте запрос и откройте его посредством объекта RecordSet:

Dim table As RecordSet
Set table=CurrentDB.OpenRecordSet("имя_запроса или имя_таблицы или команда_SQL")

Словом, точно так же, как и с ADO/DAO...
2. После преобразования откройте таблицу и попереименовывайте названия полей. Для MS Access 2000 и выше:

Dim bd As Database
Dim table As TableDef
Dim pole As Field
Set bd = CurrentDb
Set table = bd.TableDefs!FILC_DB
For Each pole In table.Fields
pole.Name=Replace(pole.Name,"#","")
Next pole

RE: пара вопросов

babken76 — Fri, 27 Jul 2007 13:56:09 GMT

вопрос 1: по аналогии сделал так:
[code]
Sub hgfd()
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("select * from spr")
OpenRecordsetOutput (rst)
End Sub
Sub OpenRecordsetOutput(ByVal rstOutput As Recordset)

' Enumerate the specified Recordset object.
With rstOutput
Do While Not .EOF
Debug.Print , .Fields(0), .Fields(1)
.MoveNext
Loop
End With

End Sub
[/code]
Странно, когда в отладчике просматриваю fields.item1.fieldsize = <Ошибочный тип данных поля>. К чему бы это?
вопрос 2 остается пока открытым.

С уважением,

пара вопросов

babken76 — Fri, 27 Jul 2007 12:25:15 GMT

1 Как из модуля mdb выбрать данные из таблицы содержащейся в этой же БД? До этого работал с access только, как с внешним ИД, используя ADO, DAO.

2 Необходимо импортировать данные из текстового файла с разделителями в таблицу БД. Первая строка-заголовок, в именах полей содержит точки.
Когда я импортирую вручную (через файл-внешние данные-импорт) точки опускаются, т.е. все ок. Когда я делаю это программно:
[code]
DoCmd.TransferText acImportDelim, CurShbID, "tTab", Me.tb_path.Value & "\" & a, -1
[/code]
точки преобразуются в решетки (#). Как с этим бороться?

С уважением,