创建新表遇到些问题

kikox277 2004-09-04 10:17:34
想用代码创建基本表
写的代码是:
procedure TfrmCreate.Button1Click(Sender: TObject);
var
newtable:tquery;
begin newtable:=tquery.create(self);
with newtable do
begin
with sql do
begin
clear;
add('create table "xin.db"');
add('(Sno int,');  
add('Sname char(8),');
add('Cno int');
add('Grade int)');
end;
execsql;
sql.clear;
sql.add('create index Sno on "xin.db"(Sno)'); 
execsql;
end;

编译时提示错误是:add('(Sno int,');------ 这行错误: [Error] Unit1.pas(84): Illegal character in input file: ' ' ($A1A1)

sql.add('create index Sno on "xin.db"(Sno)');----这行错误:[Error] Unit1.pas(91): Illegal character in input file: ' ' ($A1A1) 

不知道怎么错,请高手帮忙了,谢谢
...全文
65 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
insert2003 2004-09-04
  • 打赏
  • 举报
回复
参考

创建表:

IF EXISTS (SELECT *

FROM sysobjects

WHERE name = '表名')

BEGIN

DROP TABLE 表名

END;

CREATE TABLE 表名

(

字段ID int not null IDENTITY,

字段1 varchar(16) primary key,

字段2 varchar(100) not null,

......

字段n varchar(100) not null /*注意这里没有逗号*/

)
insert2003 2004-09-04
  • 打赏
  • 举报
回复


add('(Sno int,');  //你这后面有空格,要删掉
sql.add('create index Sno on "xin.db"(Sno)'); //同上

add('Cno int');//少了个,
改成
add('Cno int,');
insert2003 2004-09-04
  • 打赏
  • 举报
回复
add('create table "xin.db"');
=====================================
add('create table xin.db');


sql.add('create index Sno on "xin.db"(Sno)'); 
====================================================
sql.add('create index Sno on xin.db(Sno)');
kikox277 2004-09-04
  • 打赏
  • 举报
回复
add('(Sno int,');  //你这后面有空格,要删掉
sql.add('create index Sno on "xin.db "(Sno)'); //同上
我我没发现有空格啊,还是老样子.....啊

2,497

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 数据库相关
社区管理员
  • 数据库相关社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧