asl := Tstringlist.Create ;
asl.Clear ;
asl.Add ('Driver Name= MSSQL');
asl.Add ('Server Name=' + svrname);
asl.Add ('Database Name=' + Dname);
asl.Add ('User Name=' + Username);
asl.Add ('sqlqrymode=Local');
asl.Add ('ENABLE BCD=FALES');
asl.Add ('MAX QUERY TIME=300');
asl.Add ('BATCH COUNT=200');
asl.Add ('TDS PACKET SIZE=4096'); if not Session.IsAlias ('aaJ') then
begin
try
Session.AddAlias ('aaJ','MSSQL',ASL);
finally
asl.Free ;
end;
end
else if Session.IsAlias ('aaJ') then
begin
try
Session.ModifyAlias ('aaJ',ASL);
finally
asl.Free ;
end;
end;
Application.CreateForm(TDm, Dm); with Dm.dataBase do
begin
IF Connected = true then
Connected := false; aliasname := 'aaJ';
params.Clear ;
params.Add ('server name=' + svrname);
params.Add ('database name=' + Dname);
params.Add ('user name=' + lname);
params.Add ('password=' + lword);
params.Add ('connect timeout = 5');
loginprompt := false;
keepconnection := true; try
Connected := true;
except
application.MessageBox (pchar('无法启动数据库,请检查数据服务器是否已经启动!'),Pchar('错误'),mb_ok);
application.Terminate ;
exit;
end;
end;
asl.Clear ;
asl.Add ('Driver Name= MSSQL');
asl.Add ('Server Name=' + svrname);
asl.Add ('Database Name=' + Dname);
asl.Add ('User Name=' + Username);
asl.Add ('sqlqrymode=Local');
asl.Add ('ENABLE BCD=FALES');
asl.Add ('MAX QUERY TIME=300');
asl.Add ('BATCH COUNT=200');
asl.Add ('TDS PACKET SIZE=4096'); if not Session.IsAlias ('aaJ') then
begin
try
Session.AddAlias ('aaJ','MSSQL',ASL);
finally
asl.Free ;
end;
end
else if Session.IsAlias ('aaJ') then
begin
try
Session.ModifyAlias ('aaJ',ASL);
finally
asl.Free ;
end;
end;
Application.CreateForm(TDm, Dm); with Dm.dataBase do
begin
IF Connected = true then
Connected := false; aliasname := 'aaJ';
params.Clear ;
params.Add ('server name=' + svrname);
params.Add ('database name=' + Dname);
params.Add ('user name=' + lname);
params.Add ('password=' + lword);
params.Add ('connect timeout = 5');
loginprompt := false;
keepconnection := true; try
Connected := true;
except
application.MessageBox (pchar('无法启动数据库,请检查数据服务器是否已经启动!'),Pchar('错误'),mb_ok);
application.Terminate ;
exit;
end;
end;
例:
query1.close;
query1.sql.clear;
query1.sql.add(sql);
query1.open/execsql;
例:
query1.close;
query1.sql.clear;
query1.sql.add(sql);
query1.open/execsql;
加个Table/query控件即可啊