function InitADOSQLString(SName,AccName,User,Password:string):string;
var str:string;
begin
str:='';
str:=str+'Provider=SQLOLEDB.1;';
if password<>'' then
begin
str:=str+'PassWord='+Password+';';
str:=str+'Persist Security Info=True;';
end
else
str:=str+'Persist Security Info=False;';
str:=str+'User ID='+User+';';
str:=str+'Initial Catalog='+AccName+';';
str:=str+'Data Source='+SName;
result:=str;
end;
procedure TForm1OnCreate;
begin
with ADOConnection1 do
begin
Connected:=false;
ConnectionString:=InitADOSQLString('服务器名','数据库名','用户','密码');
Connected:=true;
end;
with ADOTable1 do
begin
Close;
Connection:=ADOConnection1;
TableName:='tablename';
Open;
//data process :append,edit,delete;
end;
end;
:)
1.在本地安装SQL SERVER 7.0
2.在ODBC里的"用户DSN"里添加新的DSN,设置数据库描述名为TEST,
数据库的SQL Server Group
设置数据库的Database,设置数据库的登录用户信息等
3.在Delphi的SQL Explore里设置新的Databases,
Database Driver Name设置为SQL SERVER
设置ODBC DSN为数据库DSN名TEST
这样已经可以在程序里使用这个Database了