新手求教，help!

[newmankind]

一个向SQL数据库自动添加数据的程序
与数据库显示都很没有问题，可是为什么我的
SQL语句老出错，搞了两天了
郁闷
请大家指教，谢谢！！
interface

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

type
TForm1 = class(TForm)
ADOQuery1: TADOQuery;
DBGrid1: TDBGrid;
DataSource1: TDataSource;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
i,j,k,m,n:Integer;
const
ho:array[0..4] of pchar=('红','绿','黄','白','蓝');
pe:array[0..4] of pchar=('狗','鸟','鱼','马','猫');
dr:array[0..4] of pchar=('茶','咖啡','牛奶','啤酒','水');
ci:array[0..4] of pchar=('PALL','DUN','BLEN','BLUE','PRIN');
na:array[0..4] of pchar=('英国','瑞典','丹麦','挪威','德国');

begin
for i:=0 to 4 do begin
if i=5 then break;
for j:=0 to 4 do begin
if j=5 then break;
for k:=0 to 4 do begin
if k=5 then break;
for m:=0 to 4 do begin
if m=5 then break;
for n:=0 to 4 do begin
if n=5 then
break;
with ADOQuery1 do
begin
if Active then Close;
SQL.Clear;
SQL.Add('INSERTINTO northwind.dbo.problem (house,pet,drink,cigarette,nationality) VALUES (" "," "," "," "," ")');
ExecSQL; Open 。
end;
end;
end;
end;
end;
end;
end;
end.

[cll007]

if j=5 then break; //首先，几个 i,j,k,m,n都没用
use northwind

INSERT INTO northwind.dbo.table1 (d,begindate,pay) VALUES (34,'2004-01-01',32)
select * from table1 //insert into 之间需要空格

[newmankind]

源码是这样的
刚才发的错了
大哥能帮忙改一下么，贴出来么，
unit zhili;

interface

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

type
TForm1 = class(TForm)
ADOQuery1: TADOQuery;
DBGrid1: TDBGrid;
DataSource1: TDataSource;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
i,j,k,m,n:Integer;
const
ho:array[0..4] of pchar=('红','绿','黄','白','蓝');
pe:array[0..4] of pchar=('狗','鸟','鱼','马','猫');
dr:array[0..4] of pchar=('茶','咖啡','牛奶','啤酒','水');
ci:array[0..4] of pchar=('PALL','DUN','BLEN','BLUE','PRIN');
na:array[0..4] of pchar=('英国','瑞典','丹麦','挪威','德国');

begin
for i:=0 to 4 do begin
if i=5 then break;
for j:=0 to 4 do begin
if j=5 then break;
for k:=0 to 4 do begin
if k=5 then break;
for m:=0 to 4 do begin
if m=5 then break;
for n:=0 to 4 do begin
if n=5 then
break;
with ADOQuery1 do
begin
if Active then Close;
SQL.Clear;
SQL.Add('INSERT INTO northwind.dbo.problem (house,pet,drink,cigarette,nationality) VALUES (ho[i],pe[j],dr[k],ci[m],na[n])');
ExecSQL;
end;
end;
end;
end;
end;
end;
end;
end.

[cll007]

//测试所用表
create table problem
(
house varchar (20),
pet varchar (20),
drink varchar (20),
cigarette varchar (20),
nationality varchar (20),

)
select * from problem
---------
程序代码
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, StdCtrls;
const
ho:array[0..4] of pchar=('红','绿','黄','白','蓝');
pe:array[0..4] of pchar=('狗','鸟','鱼','马','猫');
dr:array[0..4] of pchar=('茶','咖啡','牛奶','啤酒','水');
ci:array[0..4] of pchar=('PALL','DUN','BLEN','BLUE','PRIN');
na:array[0..4] of pchar=('英国','瑞典','丹麦','挪威','德国');
type
TForm1 = class(TForm)
ADOConnection1: TADOConnection; //要先指定其ConnectiongString属性
ADOQuery1: TADOQuery;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
i,j,k,m,n:Integer;
begin
for i:=0 to 4 do
for j:=0 to 4 do
for k:=0 to 4 do
for m:=0 to 4 do
for n:=0 to 4 do
with ADOQuery1 do
begin
if Active then Close;
SQL.Clear;

SQL.Add('INSERT INTO problem (house,pet,drink,cigarette,nationality) ');
SQL.Add('VALUES ('+QuotedStr(ho[i])+','+QuotedStr(pe[j])+','+
QuotedStr(dr[k])+','+QuotedStr(ci[m])+','+
QuotedStr(na[n])+')');
ExecSQL;
end;
end;

end.

[cll007]

建议Pchar改成String类型

[newmankind]

万分感谢！
大哥

[newmankind]

如何结贴呢？

[pandarus]

打开你的贴子/点管理/输入密码给分!

[insert2003]

密码就是你的登录密码：P