Проблема с добавлением записи в базу

← →
leonidus (2008-01-31 20:37) [0]

Есть база в аксесе, доступ к ней получаю через ADO.
Делаю так:

const
ConnStr = "Provider=%s;Data Provider=%s;Data Source=%s";
Provider="MSDataShape.1";
DataProvider="Microsoft.Jet.OLEDB.4.0";

var
db_path:string;

begin
db_path:=edit27.Text;

if not ADOConnection1.Connected then
ADOConnection1.ConnectionString := Format(ConnStr, [Provider,
DataProvider, db_path]);

ADODataSet1.Open;

ADODataSet1.Append;
ADODataSet1.FieldByName("header").AsString:="hello";
ADODataSet1.Post;

ADODataSet1.Close;
end;

На строчке "ADODataSet1.Open;" получаю ошибку "ADODataSet1: Missing CommandText property"

← →
Anatoly Podgoretsky © (2008-01-31 20:42) [1]

Ну и где оно?

← →
leonidus (2008-01-31 20:45) [2]

Анатолий подскажите где грабли.

← →
Правильный_Вася (2008-01-31 21:55) [3]

> ADODataSet1: Missing CommandText property

заполнить бы не мешало запросец-то

← →
palva © (2008-01-31 21:59) [4]

> Missing CommandText property
Не указали SQL-запрос или что-там надо по обстоятельствам.

← →
leonidus (2008-01-31 23:01) [5]

так изначально база-то пустая, мне ее нужно заполнить...

← →
Плохиш © (2008-01-31 23:09) [6]

> leonidus (31.01.08 23:01) [5]
> так изначально база-то пустая, мне ее нужно заполнить

И третий раз, для начала надо запрос составить и записать его в свойство CommandText компонента ADODataSet1.

Если и сейчас не дошло, то меняй профессию.

var
AdoCommand: TAdoCommand;
begin
AdoCommand := TAdoCommand.Create(nil);
try
AdoCommand.ConnectionString := GetConnectionString;
AdoCommand.CommandText := "Тут SQL запрос";
AdoCommand.Execute;
finally
AdoCommand.Free;
end;
end;

> DVM © (31.01.08 23:30) [7]

Ваш код не работает. Ругается token not found Тут.
Впредь приводите работающий код, чтобы мы не напрягались отладкой, т.е. вообще...

← →
leonidus (2008-02-02 13:22) [9]

всем спасибо, разобрался.

Проблема с добавлением записи в базу Найти похожие ветки