Вопросы по базам данных

← →
Defort © (2006-11-07 22:30) [0]

Удалено модератором
Примечание: СПАМ

← →
Percent (2006-11-07 22:36) [1]

Аргументы имеют неверный тип, выходят за пределы допустимого диапазона или конфликтуют друг с другом

Наименования полей на русском языке, да еще и с пробелами - это круто!
Попробуй так:
DataModule1.ADOTable1.IndexFieldNames:= "[Дата заключения]";

Задача: чтобы к каждому договору он создавал новую таблицу График платежей

"Задачу" в топку. Забудь о таком. И не вспоминай даже. Нельзя создавать одинаковые таблицы динамически. Нельзя. Табу. Таблица "График платежей" должна быть в БД одна. Все.

← →
Defort © (2006-11-07 22:44) [2]

> Наименования полей на русском языке, да еще и с пробелами
> - это круто!
> Попробуй так:
> DataModule1.ADOTable1.IndexFieldNames:= "[Дата заключения]";

Спасибо. Так все работает. А как можно отсортировать поля которые лукапают в другую таблицу?

> "Задачу" в топку. Забудь о таком. И не вспоминай даже. Нельзя
> создавать одинаковые таблицы динамически. Нельзя. Табу.
> Таблица "График платежей" должна быть в БД одна. Все.

Я тоже пришел к такому выводу. Но я не знаю как это правильно реализовать. Задумка у меня такая: одну таблицу график плетежей, в ней поле номер договора. При заключении нового договора, в окно Grid вводится график, а программа автоматически должна присваивать полю номер договора текущий номер, и выводить потом только записи с нужным номером. Но я не знаю, как при редактировании данных непосредственно через DBGrid присваивать полю значения номера.

И сразу еще вопрос: прочитал в теме про базы экспорт данных в эксель. Применил для своего примера:

procedure TMainForm.N13Click(Sender: TObject);
var
exl: OleVariant;
WorkBook, Sheet: Variant;
i,j : cardinal;
begin
try
exl := CreateOleObject("Excel.Application");
WorkBook := exl.Application.WorkBooks.Add;
Sheet := WorkBook.WorkSheets[1];
exl.visible := True;
DataModule1.ADOTable1.First;
i := 1;
While not DataModule1.ADOTable1.Eof do
begin
for j := 0 to DataModule1.ADOTable1.FieldCount - 1 do
begin
Sheet.Cells(i,j+1) := DataModule1.ADOTable1.Fields[j].DisplayText;
end;
DataModule1.ADOTable1.Next;
inc(i);
end;
except
ShowMessage("Ïðîèçîøëà îøèáêà ïðè ýåìïîðòèðîâàí&# 232;è");
end;
WorkBook.close;
exl := Unassigned;
end;
end;

Не знаю что сделать с exl: OleVariant; и exl := CreateOleObject("Excel.Application"); - он меня ругает.

← →
Desdechado © (2006-11-07 22:48) [3]

ага, таки чукча писатель...
http://delphimaster.net/view/3-1162927118/
ну-ну, грабли уже раскиданы и ждут тебя, чтоб поцеловать в лобик

← →
Percent (2006-11-07 23:02) [4]

Но я не знаю как это правильно реализовать.

Послушай моего совета. Внимательно так послушай. Рано тебе браться за разработки БД. Найди книгу хорошую в сети, или купи в магазине бумажную. По разработке структур БД. По реляционным БД. И почитай. Потрать хотя бы месяц, разберись хорошенько. Про таблицы. Про отношения между таблицами. Про первичные и внешние ключи. Разберись. И только после этого берись за дальнейшую работу над своим проектом. Потому что если ты этого не сделаешь - вряд ли у тебя что-то получится. Собирать программу из кусочков готового кем-то написанного кода - глупо и бессмысленно. Браться за разработку программного продукта, не зная и не понимая принципов работы и даже программирования - глупо и бессмысленно. И стыдно должно быть (это так, к слову).

Так что...

P.S. Только ты не обижайся. Вникни в то, что я написал. Хорошо?

Вопросы по базам данных Найти похожие ветки