使用ADOQuery在ACCESS中 动态建表 SQL语句报错 谁指教一下
使用ADOQuery在ACCESS中 动态建表 SQL语句报错 哪位高手指教一下
uses ADODB
procedure button1.Onclick(){
var
c1,c2:string;
begin
syff:='xs';
c1:=panel1.caption+syff+Panel3.Caption;//这里c1变量是我要定义的表名，假设这是按钮单击事件，我每单击一次按 钮就在ACCESS中新建一个表，表名不重复。
showmessage(c1);
ADOQuery1.Close;
ADOQuery1.ConnectionString:= 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\xscl1.mdb';
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Text:= 'CREATE TABLE '''+c1+''''+ //这里的SQL语句有问题说 CREATE TABLE 不能执行
'(序号 int, 工程编号 varchar(30),试样编号 varchar(30),时间 float(5),'+
'时间均根 float(5),时间对数 float(5),变形值 float(5),point0 float(5),point1 float(5),point2 float(5),'+
'point3 float(5),point4 float(5),point5 float(5),point6 float(5),point7 float(5),point8 float(5),point9 float(5),'+
'point10 float(5),point11 float(5),point12 float(5),point13 float(5),point14 float(5),point15 float(5),point16 float(5),'+
'point17 float(5),point18 float(5),point19 float(5),point20 float(5),point21 float(5),point22 float(5),point23 float(5),'+
'point24 float(5),point25 float(5),point26 float(5),point27 float(5),point28 float(5),point29 float(5),point30 float(5),'+
'point31 float(5),point32 float(5),point33 float(5),point34 float(5),point35 float(5),point36 float(5),point37 float(5),point38 float(5))';
ADOQuery1.ExecSQL;
showmessage('创建成功');
form1.ADOQuery1.Active:=true;
end;
}
出问题的就是那段SQL语句
报错时的信息如下：
Delphi exception EOleException at $1036F949
------解决方案--------------------
uses ADODB
procedure button1.Onclick(){
var
c1,c2:string;
begin
syff:='xs';
c1:=panel1.caption+syff+Panel3.Caption;//这里c1变量是我要定义的表名，假设这是按钮单击事件，我每单击一次按 钮就在ACCESS中新建一个表，表名不重复。
showmessage(c1);
ADOQuery1.Close;
ADOQuery1.ConnectionString:= 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\xscl1.mdb';
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Text:= 'CREATE TABLE '+c1+ //你组合错误，应该这样组合
'(序号 int, 工程编号 varchar(30),试样编号 varchar(30),时间 float(5),'+
'时间均根 float(5),时间对数 float(5),变形值 float(5),point0 float(5),point1 float(5),point2 float(5),'+
'point3 float(5),point4 float(5),point5 float(5),point6 float(5),point7 float(5),point8 float(5),point9 float(5),'+
'point10 float(5),point11 float(5),point12 float(5),point13 float(5),point14 float(5),point15 float(5),point16 float(5),'+
'point17 float(5),point18 float(5),point19 float(5),point20 float(5),point21 float(5),point22 float(5),point23 float(5),'+
'point24 float(5),point25 float(5),point26 float(5),point27 float(5),point28 float(5),point29 float(5),point30 float(5),'+
'point31 float(5),point32 float(5),point33 float(5),point34 float(5),point35 float(5),point36 float(5),point37 float(5),point38 float(5))';
ADOQuery1.ExecSQL;
showmessage('创建成功');
form1.ADOQuery1.Active:=true;
end;
}
------解决方案--------------------
ADOQuery1.SQL.Text:= 'CREATE TABLE '+c1+''+ //这里的SQL语句有问题说 CREATE TABLE 不能执行
'(序号 int, 工程编号 varchar(30),试样编号 varchar(30),时间 float ,'+
'时间均根 float ,时间对数 float ,变形值 float ,point0 float ,point1 float ,point2 float ,'+
'point3 float ,point4 float ,point5 float ,point6 float ,point7 float ,point8 float ,point9 float ,'+
'point10 float ,point11 float ,point12 float ,point13 float ,point14 float ,point15 float ,point16 float ,'+
'point17 float ,point18 float ,point19 float ,point20 float ,point21 float ,point22 float ,point23 float ,'+
'point24 float ,point25 float ,point26 float ,point27 float ,point28 float ,point29 float ,point30 float ,'+
uses ADODB
procedure button1.Onclick(){
var
c1,c2:string;
begin
syff:='xs';
c1:=panel1.caption+syff+Panel3.Caption;//这里c1变量是我要定义的表名，假设这是按钮单击事件，我每单击一次按 钮就在ACCESS中新建一个表，表名不重复。
showmessage(c1);
ADOQuery1.Close;
ADOQuery1.ConnectionString:= 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\xscl1.mdb';
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Text:= 'CREATE TABLE '''+c1+''''+ //这里的SQL语句有问题说 CREATE TABLE 不能执行
'(序号 int, 工程编号 varchar(30),试样编号 varchar(30),时间 float(5),'+
'时间均根 float(5),时间对数 float(5),变形值 float(5),point0 float(5),point1 float(5),point2 float(5),'+
'point3 float(5),point4 float(5),point5 float(5),point6 float(5),point7 float(5),point8 float(5),point9 float(5),'+
'point10 float(5),point11 float(5),point12 float(5),point13 float(5),point14 float(5),point15 float(5),point16 float(5),'+
'point17 float(5),point18 float(5),point19 float(5),point20 float(5),point21 float(5),point22 float(5),point23 float(5),'+
'point24 float(5),point25 float(5),point26 float(5),point27 float(5),point28 float(5),point29 float(5),point30 float(5),'+
'point31 float(5),point32 float(5),point33 float(5),point34 float(5),point35 float(5),point36 float(5),point37 float(5),point38 float(5))';
ADOQuery1.ExecSQL;
showmessage('创建成功');
form1.ADOQuery1.Active:=true;
end;
}
出问题的就是那段SQL语句
报错时的信息如下：
Delphi exception EOleException at $1036F949
------解决方案--------------------
uses ADODB
procedure button1.Onclick(){
var
c1,c2:string;
begin
syff:='xs';
c1:=panel1.caption+syff+Panel3.Caption;//这里c1变量是我要定义的表名，假设这是按钮单击事件，我每单击一次按 钮就在ACCESS中新建一个表，表名不重复。
showmessage(c1);
ADOQuery1.Close;
ADOQuery1.ConnectionString:= 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\xscl1.mdb';
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Text:= 'CREATE TABLE '+c1+ //你组合错误，应该这样组合
'(序号 int, 工程编号 varchar(30),试样编号 varchar(30),时间 float(5),'+
'时间均根 float(5),时间对数 float(5),变形值 float(5),point0 float(5),point1 float(5),point2 float(5),'+
'point3 float(5),point4 float(5),point5 float(5),point6 float(5),point7 float(5),point8 float(5),point9 float(5),'+
'point10 float(5),point11 float(5),point12 float(5),point13 float(5),point14 float(5),point15 float(5),point16 float(5),'+
'point17 float(5),point18 float(5),point19 float(5),point20 float(5),point21 float(5),point22 float(5),point23 float(5),'+
'point24 float(5),point25 float(5),point26 float(5),point27 float(5),point28 float(5),point29 float(5),point30 float(5),'+
'point31 float(5),point32 float(5),point33 float(5),point34 float(5),point35 float(5),point36 float(5),point37 float(5),point38 float(5))';
ADOQuery1.ExecSQL;
showmessage('创建成功');
form1.ADOQuery1.Active:=true;
end;
}
------解决方案--------------------
ADOQuery1.SQL.Text:= 'CREATE TABLE '+c1+''+ //这里的SQL语句有问题说 CREATE TABLE 不能执行
'(序号 int, 工程编号 varchar(30),试样编号 varchar(30),时间 float ,'+
'时间均根 float ,时间对数 float ,变形值 float ,point0 float ,point1 float ,point2 float ,'+
'point3 float ,point4 float ,point5 float ,point6 float ,point7 float ,point8 float ,point9 float ,'+
'point10 float ,point11 float ,point12 float ,point13 float ,point14 float ,point15 float ,point16 float ,'+
'point17 float ,point18 float ,point19 float ,point20 float ,point21 float ,point22 float ,point23 float ,'+
'point24 float ,point25 float ,point26 float ,point27 float ,point28 float ,point29 float ,point30 float ,'+