写如下SQL语句:
CREATE TABLE tableName
( ID SMALLINT NOT NULL,
NAME VARCHAR(9),
DEPT SMALLINT WITH DEFAULT 10,
JOB CHAR(5),
YEARS SMALLINT,
SALARY DECIMAL(7,2),
COMM DECIMAL(7,2),
BIRTH_DATE DATE)
CREATE TABLE tableName
( ID SMALLINT NOT NULL,
NAME VARCHAR(9),
DEPT SMALLINT WITH DEFAULT 10,
JOB CHAR(5),
YEARS SMALLINT,
SALARY DECIMAL(7,2),
COMM DECIMAL(7,2),
BIRTH_DATE DATE)
解决方案 »
- ehlib中dbediteh简单乘法计算问题
- 悬赏一句关于时间的sql
- 关于WINSOCK编程的两个问题
- 各位大哥大姐你们好,谁有那个关于奥运会火炬的图标?提供一下好吗?我的邮箱:[email protected]
- 大家能否帮小弟啊,急死了没有办法,谁有认识上海电信内部的人啊?
- 怎样在quickreport 中做如Dbgrid一样的表格,谢谢,在线等待
- 我想根据一个字段查询另一个子段‘select A1 from table1 where B1=’+''''+'da'+'''',我要在程序中使用select的结果,用什么控件好呢?a
- 关于TCavas作图的问题
- 关于Locate的问题
- 快来!我的IP被一个聊天室屏蔽了,我还能进去吗?
- 如何将单个的string类型的转换为char
- 如何得到两个日期间的精确差值,要求精确到秒.
procedure TForm1.Button1Click(Sender: TObject);
begin
with query1 do
begin
with sql do
begin
clear;
add('CREATE TABLE [dbo].[authors] (');
add('[au_id] [id] NOT NULL ,');
add('[au_lname] [varchar] (40) COLLATE Chinese_PRC_CI_AS NOT NULL , ');
add('[au_fname] [varchar] (20) COLLATE Chinese_PRC_CI_AS NOT NULL , ');
add('[phone] [char] (12) COLLATE Chinese_PRC_CI_AS NOT NULL , ');
add('[address] [varchar] (40) COLLATE Chinese_PRC_CI_AS NULL , ');
add('[city] [varchar] (20) COLLATE Chinese_PRC_CI_AS NULL , ');
add('[state] [char] (2) COLLATE Chinese_PRC_CI_AS NULL , ');
add('[zip] [char] (5) COLLATE Chinese_PRC_CI_AS NULL ,');
add('[contract] [bit] NOT NULL');
add(') ON [PRIMARY]');
end
ExecSQL;
end;
end;
adoc.open('Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=库名;Data Source=服务器名称或者IP');
ador:=createoleobject('adodb.RecordSet');
ador.Open('select * from 表名',adoc,3,3,0001);
/////////////////////////////////////////// adoc:=CreateOleObject('adodb.connection');
adoc.open(Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;User ID=sa;Initial Catalog=库名;Data Source=服务器名称或者IP');
ador:=createoleobject('adodb.RecordSet');
ador.Open('select * from 表名',adoc,3,3,0001);
这样就可以连接了!你试试再说!
在use 中加入comobj,activeX
你写的sql 语句如何从delphi传向dbms呢?