Ado怎么在SQL创建数据库[不是数据表]？谢谢
另外，Ado创建的SQL数据库怎么能包含[时间标识]TimeStamp的？
问题点数：20、回复次数：5Top
1 楼cg1120（代码最优化－§惟坚韧者始能遂其志§）回复于 2002-06-13 18:22:55 得分 5
sqlstr:='CREATE database 数据库名称';
With ADOQuery1 Do
Begin
Close;
SQl.Clear;
SQl.add(sqlstr);
open;
End;
Top
2 楼hnsyf（鱼片儿）回复于 2002-06-13 18:26:39 得分 0
只能Up了。Top
3 楼robbot（曾记否）回复于 2002-06-13 18:38:37 得分 5
创建库
1.确认你有权限,在ADO连接字符串中user name,password是关键
2.同上Top
4 楼ymfmm（ymfmm）回复于 2002-06-13 20:16:50 得分 10
不知道其它人是怎样做的，但我是这样做：
1、先连接到Master数据库，然后：
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from sysdatabases');
adoquery1.SQL.Add('where name=:database');
adoquery1.Parameters.ParamValues['database']:=edit4.Text;/数据库名称
adoquery1.Open;
if adoquery1.RecordCount>=1 then //如果数据库已经存在
begin
if messagedlg('数据库名为：“'+edit4.text+'”的数据库已经存在， 是否删除该数据库？',mtInformation,[mbYes,mbNo],0)=mrYes then
begin
try
panel2.Caption:='正在删除同名数据库，请稍后！';
form1.Refresh;
panel2.Refresh;
sq:='drop database '+edit4.Text;
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add(sq);
adoquery1.ExecSQL;
except
panel2.Caption:='删除数据库时出错！';
messagedlg('无法删除该数据库，该数据库正在使用！',mtError,[mbYes],0);
abort;
end;
end
else
begin
panel2.Caption:='该数据库名已经存在！';
form1.Refresh;
panel2.Refresh;
abort;
end;
end;
//********************创建数据库*******************
panel2.Caption:='正在创建数据库！';
form1.Refresh;
panel2.Refresh;
sq:='create database '+edit4.Text;
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add(sq);
try
adoquery1.ExecSQL;
except
panel2.Caption:='创建数据库时出现错误!';
messagedlg(panel2.caption,mtError,[mbYes],0);
end;
Top
5 楼gselec（海宏）回复于 2002-06-13 21:30:45 得分 0
谢谢各位了！Top
