unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, DBTables;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Query1: TQuery;
Database1: TDatabase;
Memo1: TMemo;
Label1: TLabel;
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
try
with Query1 do
begin
close; //在修改SQL语句前先关闭与数据库的连接
SQL.clear; //清空SQL语句
SQL.Add('Create Database newdata on'); //(添加SQL语句)创建数据库
SQL.Add('(Name = SSS, Filename = "f:\db2010\newdata.mdf")');
ExecSQL; //执行SQL语句
end;
Application.MessageBox('创建成功','提示',mb_ok);
Except
Application.MessageBox('创建失败','提示',mb_ok);
close;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Label1.Caption:='使用代码创建数据库';
Database1.AliasName:='DB2010'; //Database1是数据源组件,这里指定数据库别名一般是指向已经注册好的ODBC数据源'DB2010'
Database1.DatabaseName:='DB2010'; //指定数据库的名称,可以任意(也可以为空)
Database1.Params.Add('User name=sa'); //用户名
Database1.Params.Add('Password='); //口令
Query1.DatabaseName:='DB2010'; //Query1是数据集组件,这里指定数据库的名称一般是也是指向已经注册好的ODBC数据源'DB2010'
end;
end.
应用程序要访问SQLServer2000,首先必须用ODBC管理器预先注册好的数据源(例如名为'DB2010'的数据源),根据数据源'DB2010',建立起ODBC与具体数据库(SQLServer2000)的联系。这样,只要应用程序将数据源名提供给ODBC,ODBC就能建立起与相应数据库(SQLServer2000)的连接。