Форум: "Базы";
Текущий архив: 2004.01.05;
Скачать: [xml.tar.bz2];
Вниз
Вставка новой записи Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.016 c
