看看错在哪里？执行到第二句SQL为什么就报错？(100分)

H

hmf9

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-14

• #1

我是想在一个数据库中创建创建两个表：
......
tb1:='create table 基本资料 (ID INT not null,编号 char(50) not null,面积 int ,单价 int) ';
tb2:='create table 明细 (ID INT not null,编号 char(50) not null,金额 int not null)';
with adoquery1 do
begin
ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+fn+';Persist Security Info=False';
close;
sql.Clear;
SQL.Text:=tb1;
execsql;
close;
sql.text:=tb2;
execsql;//运行到这里报错
end;

另外如何建立索引？

 

J

jinmen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-14

• #2

execsql换成open

 

H

hmf9

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-14

• #3

jinmen,不行

 

王

王公子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-14

• #4

sql.cear;//这要加上这句
sql.text:=tb2;
execsql;//运行到这里报错

 

O

only you

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-14

• #5

不可能啊,我试了,没有问题

 

H

hmf9

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-14

• #6

刚发现是我自己的SQL语句写错了，已经好了。
谁说说怎么建立货币型和日期型字段及如何建立索引就给分了

 

C

crazypc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-14

• #7

建立索引
create [unique][cluster] index<索引名> on <表名> (<列名>[<次序>][，<列名>[<次序>]]..)
unique 表明此索引的每一个索引值只对应唯一的数据记录
cluster 表示要建立的索引是聚簇索引
货币型 money
日期型字段 datetime

 

I

iwlx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-14

• #8

把close去掉

 

O

only you

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-15

• #9

tb1:='create table 基本资料 (ID INT not null,编号 char(50) not null,面积 int ,单价 int) ';
tb2:='create table 明细 (ID INT not null,编号 char(50) not null,金额 money not null,日期 datetime not null)';
with adoquery1 do
begin
ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+fn+';Persist Security Info=False'
close;
sql.Clear;
SQL.Text:=tb1;
execsql;
close;
sql.text:=tb2;
execsql;//运行到这里报错
end;

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-15

• #10

currency date
primary key

 

N

net_z

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-15

• #11

我是想在一个数据库中创建创建两个表：
......
tb1:='create table 基本资料 (ID INT not null,编号 char(50) not null,面积 int ,单价 int) ';
tb2:='create table 明细 (ID INT not null,编号 char(50) not null,金额 int not null)';
with adoquery1 do
begin
ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+fn+';Persist Security Info=False';
close;
sql.Clear;
SQL.Text:=tb1;
execsql;
close;
sql.clear; //<-- Add this line
sql.text:=tb2;
execsql;//运行到这里报错
end;