База данных ADO

@Кенес · Регистрация: 20.09.2013

Студворк — интернет-сервис помощи студентам

Всем привет. В общем дело такое, я через ADO загружаю *dbf таблицу в ДЕЛФИ. И я эту таблицу с помошью ADOTable в Access выгружаю/экспортирую. У меня все получается, только если мне известны наименование столбцов *dbf файла, и я даю такие же имена в таблицу Access. А мне нужно сделать так, что бы не знаю параметров таблицы, выгружать ее в Access. То есть например, допустим скинули мне *dbf файл, что бы я его в Access открыл, я просто загрузил в ДЕЛФИ и сразу же выгрузил в Access. Если честно я понятия не имею как это делается, подскажите форумчане. За ранее спасибо.

@qwertehok · 09.09.2016, 08:46

Сообщение от Кенес

я через ADO загружаю *dbf таблицу в ДЕЛФИ

делфи это среда разработки. в нее нельзя загрузить dbf

а у вас там нигде Fields[].Names нет?

@Кенес · 09.09.2016, 09:00 **[ТС]**

Точнее не загружаю, а открываю через Ado как обычную таблицу в гриде. Да, я именно так и сохраняю через fieldbyname. Я мне нужно обойтись без этого, то есть не давай имена столбцам

@qwertehok · 09.09.2016, 09:12

мммммммм, во первых я написал Fields[].Names - это вроде и есть заголовки столбцов
во вторых кто вам мешает перебрать весь грид и вставить его в базу?

код ваш не смотрел, покажите примерно в чем проблема

@rusqwe · 09.09.2016, 09:45

Сообщение от Кенес

Точнее не загружаю, а открываю через Ado как обычную таблицу в гриде. Да, я именно так и сохраняю через fieldbyname. Я мне нужно обойтись без этого, то есть не давай имена столбцам

посчитать количество столбцов и обращаться к ним:
ADOTable1.Fields[i].AsString;

@Кенес · 09.09.2016, 11:46 **[ТС]**

qwertehok, что то я не обратил на это внимание. Весь грид перебираю с помощью такого цикла, если я правильно понял Вас: .DataSource.DataSet.First; for I:= 0 to DBGrid.DataSource.DataSet.RecordCount do. Запись в access происходит так: adotable1.fieldbyname('id').asstring:=db grid1.datasource.dataset.fieldbyname('id ').asstring. То есть со столбца 'id' в dbgrid, я записываю данные в одноимённый столбце в access. Что б мои кож работал мне нужно так же переименовать в access столбцы так же, как они именуются в dbf файле. А мне нужно что бы сразу без всего этого. Просто я не знаю как это все осуществить

@qwertehok · 09.09.2016, 11:55

во первых так

Delphi
1
while not DataSource.DataSet.Eof do begin

во вторых не

Сообщение от Кенес

datasource.dataset.fieldbyname('id').ass tring

а

Delphi
1
dataset.fields[0].

@Кенес · 09.09.2016, 12:54 **[ТС]**

qwertehok, хорошо спасибо, то есть запись в акцесс будет происходить так adotable1.fields[0]:=dbgrid.datasource.dataset.fields[0] и так же с первым столбцом? А вот теперь другой вопрос что делать если мне заранее не известно количество столбцов. Мне нужно просто открыть dbf файл и сразу же сохранить его в Access и без разницы сколько столбцов какое у них название

@qwertehok · 09.09.2016, 13:54

Сообщение от Кенес

А вот теперь другой вопрос что делать если мне заранее не известно количество столбцов

Fields.Count для кого придумали?

@Пытливый · 11.09.2016, 22:30

А нафига козе баян? Зачем в этом процессе Delphi нужен? Акцес прекрасно умеет сам импортировать dbf-файлы.

@kavasaka · 12.09.2016, 09:48

Сообщение от Пытливый

Зачем в этом процессе Delphi нужен

Он хочет утилиту типа DBU написать))

@Кенес · 13.09.2016, 19:15 **[ТС]**

Пытливый, задание такое

Добавлено через 12 часов 56 минут
qwertehok, с этим разобрался, теперь осталось присвоить эти имена в акцесс, как я понял это можно сделать с помощью create table, нужно имена таблиц засунуть в массив, и потом через create table создать в акцесс таблице столбцы, я правильно шагаю?

@qwertehok · 14.09.2016, 08:41

Сообщение от Кенес

теперь осталось присвоить эти имена в акцесс, как я понял это можно сделать с помощью create table, нужно имена таблиц засунуть в массив, и потом через create table создать в акцесс таблице столбцы

расшифруете этот поток мысли?

ЗЫ create table нужен для создания таблицы в базе данных
например

SQL
1
CREATE TABLE TEMP (id INT, F CHAR, I CHAR, O CHAR)

(если синтаксис аксесса не отличается от mssql)
как видно - передавать нужно не только имена колонок, но их тип. ты сможешь определить тип колонки?

@Кенес · 14.09.2016, 09:16 **[ТС]**

qwertehok, ну с этим я разобрался, спасибо, просто таблицу примера вашего я создать могу, но что делать если у меня данные в массиве array of string. Как мне задать имена столбцов и их тип? Подскажите

@qwertehok · 14.09.2016, 09:26

Сообщение от Кенес

но что делать если у меня данные в массиве array of string

в массиве уже никак

нужно пройтись по dbf

Delphi
1
2
3
4
5
      for i:=0 to q1.FieldCount-1 do
      begin
          Имя поля: q1.Fields[i].FieldName
          Тип поля: q1.Fields[i].DataType
      end

получить данные и только потом создавать таблицу
далее можно сразу считывать ее в БД

ИМХО заносить их в массив - только тратить время

@Кенес · 14.09.2016, 20:42 **[ТС]**

qwertehok,я знаю что с массивом гемор, ну условие задания такое, что ж поделаешь ))но все же спасибо

Добавлено через 10 часов 36 минут
Может кто сталкивался и знает, подскажите. В общем создаю двумерный массив array of string. В [i] записываю имена столбцов с помощью

Delphi
1
2
 for i:=0 to q1.Fields.count-1 do
 Cname[i,j]:=q1.Fields[i].FieldName

,
в [j] записываю типы столбцов с помощью

Delphi
1
2
for j:=0 to q1.Fields.count-1 do 
 Cname[i,j]:=q1.Fields[j].DataType

Как Мне теперь все сложить в 'Create Table Student'. Что бы он записывал имя столбца потом тип и через запятую дальше.

@qwertehok · 14.09.2016, 21:52

Что значит 'как'? Руками. Выводи данные попарно название тип и формирую строку

@Кенес · 14.09.2016, 22:42 **[ТС]**

qwertehok, а можно по подробнее, как это сделать догадываюсь, с исполнением не получается.

@qwertehok · 15.09.2016, 09:11

так как i=j то можно сделать так

Delphi
1
2
3
4
s:='create table (';
for low(i) to high(i) do s:=s+' '+i[i]+' '+j[i]+',';
s:=удалить последнюю запятую
s:=s+')';

в S у вас получится нужная строка.

@Кенес · 16.09.2016, 12:42 **[ТС]**

qwertehok, спасибо огромное

Добавлено через 5 часов 13 минут
может кто сталкивался в интернете ничего толкового не нашёл. Мне нужно определить тип полей, я делаю так: создаю массив array of string, определяю тип полей так:for I:=0 to adotable.fieldcount-1 do ctype[i]:= Ctype[i] + adotable.fields[i].datatype. Соответственно он выдаёт ошибку что типы tfieldtype и string не совместимы, как мне тип полей в массив array of string записать. Спасибо за ранее всем, кто откликнется

Новые блоги и статьи Все статьи Все блоги /
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .

@Кенес 0 / 0 / 0 Регистрация: 20.09.2013 Сообщений: 50
	09.09.2016, 09:00 [ТС]
	Точнее не загружаю, а открываю через Ado как обычную таблицу в гриде. Да, я именно так и сохраняю через fieldbyname. Я мне нужно обойтись без этого, то есть не давай имена столбцам 0

@qwertehok 5988 / 4563 / 1096 Регистрация: 29.08.2013 Сообщений: 28,203 Записей в блоге: 3
	09.09.2016, 09:12
	мммммммм, во первых я написал Fields[].Names - это вроде и есть заголовки столбцов во вторых кто вам мешает перебрать весь грид и вставить его в базу? код ваш не смотрел, покажите примерно в чем проблема 0

@Кенес 0 / 0 / 0 Регистрация: 20.09.2013 Сообщений: 50
	09.09.2016, 11:46 [ТС]
	qwertehok, что то я не обратил на это внимание. Весь грид перебираю с помощью такого цикла, если я правильно понял Вас: .DataSource.DataSet.First; for I:= 0 to DBGrid.DataSource.DataSet.RecordCount do. Запись в access происходит так: adotable1.fieldbyname('id').asstring:=db grid1.datasource.dataset.fieldbyname('id ').asstring. То есть со столбца 'id' в dbgrid, я записываю данные в одноимённый столбце в access. Что б мои кож работал мне нужно так же переименовать в access столбцы так же, как они именуются в dbf файле. А мне нужно что бы сразу без всего этого. Просто я не знаю как это все осуществить 0

@Кенес 0 / 0 / 0 Регистрация: 20.09.2013 Сообщений: 50
	09.09.2016, 12:54 [ТС]
	qwertehok, хорошо спасибо, то есть запись в акцесс будет происходить так adotable1.fields[0]:=dbgrid.datasource.dataset.fields[0] и так же с первым столбцом? А вот теперь другой вопрос что делать если мне заранее не известно количество столбцов. Мне нужно просто открыть dbf файл и сразу же сохранить его в Access и без разницы сколько столбцов какое у них название 0

@Пытливый 3763 / 2271 / 705 Регистрация: 29.05.2013 Сообщений: 9,622
	11.09.2016, 22:30
	А нафига козе баян? Зачем в этом процессе Delphi нужен? Акцес прекрасно умеет сам импортировать dbf-файлы. 0

@Кенес 0 / 0 / 0 Регистрация: 20.09.2013 Сообщений: 50
	13.09.2016, 19:15 [ТС]
	Пытливый, задание такое Добавлено через 12 часов 56 минут qwertehok, с этим разобрался, теперь осталось присвоить эти имена в акцесс, как я понял это можно сделать с помощью create table, нужно имена таблиц засунуть в массив, и потом через create table создать в акцесс таблице столбцы, я правильно шагаю? 0

@Кенес 0 / 0 / 0 Регистрация: 20.09.2013 Сообщений: 50
	14.09.2016, 09:16 [ТС]
	qwertehok, ну с этим я разобрался, спасибо, просто таблицу примера вашего я создать могу, но что делать если у меня данные в массиве array of string. Как мне задать имена столбцов и их тип? Подскажите 0

@qwertehok 5988 / 4563 / 1096 Регистрация: 29.08.2013 Сообщений: 28,203 Записей в блоге: 3
	14.09.2016, 21:52
	Что значит 'как'? Руками. Выводи данные попарно название тип и формирую строку 0

@Кенес 0 / 0 / 0 Регистрация: 20.09.2013 Сообщений: 50
	14.09.2016, 22:42 [ТС]
	qwertehok, а можно по подробнее, как это сделать догадываюсь, с исполнением не получается. 0

@Кенес 0 / 0 / 0 Регистрация: 20.09.2013 Сообщений: 50
	16.09.2016, 12:42 [ТС]
	qwertehok, спасибо огромное Добавлено через 5 часов 13 минут может кто сталкивался в интернете ничего толкового не нашёл. Мне нужно определить тип полей, я делаю так: создаю массив array of string, определяю тип полей так:for I:=0 to adotable.fieldcount-1 do ctype[i]:= Ctype[i] + adotable.fields[i].datatype. Соответственно он выдаёт ошибку что типы tfieldtype и string не совместимы, как мне тип полей в массив array of string записать. Спасибо за ранее всем, кто откликнется 0