Текущий архив: 2004.01.05;
Скачать: CL | DM;

Вниз

Вставка новой записи   Найти похожие ветки 

← →
iWorm ©   (2003-12-09 02:32) [0]

Здравтствуйте,
существует проэкт

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
ExtCtrls, DBCtrls, StdCtrls, Mask, DB, ADODB, Grids, DBGrids;

type
TForm1 = class(TForm)
ADOQuery1: TADOQuery;
Memo1: TMemo;
Button1: TButton;
DBGrid3: TDBGrid;
DataSource1: TDataSource;
Memo2: TMemo;
Button2: TButton;
procedure FormShow(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormShow(Sender: TObject);
begin
memo1.Lines.Clear;
memo1.Lines.Assign(Adoquery1.SQL);
Adoquery1.Open;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
adoquery1.Close;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if Adoquery1.Active then Adoquery1.Close;
Adoquery1.SQL.Clear;
Adoquery1.SQL.Assign(memo1.Lines);
Adoquery1.Open;
end;

end.

есть талбичка в базе "Tab" в ней одно поле "a" (все без кавычек), БД и талбичка создана в MS Access 2000
в Memo, изначально, записано:
select * from tab, все проходит, однако, стоит написать:
insert into tab values("rg") то запрос не проходит...
Выводит ошибку со след. пояснением:
"Текущий проводник не поддерживает возврат нескольких наборов записей в результате одной операции"
Я понимаю, что дело в том, что я делаю что-то не правильно, но что - не пойму, вот. Если кому не лень поясните, пожалуйста. И, если можно, какой-нибудь ресурс по ADO, да и по SQL тоже было бы неплохо:).
Спасибо.

---

← →
iWorm ©   (2003-12-09 02:41) [1]

Елки-палки. Во заглючило та:( Adoquery1.ExecSQL; и всего делов та... А про ресурсы с ADO или с SQL в силе:)))
Спасибо.

---

Страницы: 1 вся ветка

Текущий архив: 2004.01.05;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.022 c