Ado怎么在SQL创建数据库[不是数据表]？谢谢

Question

sqlstr:='CREATE database 数据库名称';
With ADOQuery1 Do
    Begin
      Close;
      SQl.Clear;
      SQl.add(sqlstr);
      open;
    End;

Answer 1

创建库
1.确认你有权限,在ADO连接字符串中user name,password是关键
2.同上

Answer 2

不知道其它人是怎样做的，但我是这样做：
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;