База данных 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 записать. Спасибо за ранее всем, кто откликнется

Новые блоги и статьи Все статьи Все блоги /
http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит переходные токи и напряжения на элементах схемы. . . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .

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

@qwertehok 5962 / 4538 / 1094 Регистрация: 29.08.2013 Сообщений: 28,148 Записей в блоге: 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 / 2267 / 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 5962 / 4538 / 1094 Регистрация: 29.08.2013 Сообщений: 28,148 Записей в блоге: 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