在本机上设置odbc,然后用querry 连接即可:
设置odbc,通过注册表
procedure Tdataset_.Button1Click(Sender: TObject);
var reg:tregistry;
begin
reg:=tregistry.Create;
reg.RootKey:=HKEY_CURRENT_USER;
reg.CloseKey;
if reg.OpenKey('Software\ODBC\ODBC.INI\ODBC Data Sources',true) then
begin
reg.WriteString('databasename','SQL Server');
reg.CloseKey;
end
else
form1.showtext('您没有操作系统的管理员权限');
if reg.OpenKey('Software\ODBC\ODBC.INI\WLXT',true) then
begin
reg.WriteString('Database','WLXT');
reg.WriteString('Driver','C:\WINDOWS\System32\SQLSRV32.dll');
reg.WriteString('LastUser','sa');
reg.WriteString('Server','server name');
form1.showtext('完成!请点击测试进行测试!');
button2.SetFocus;
end
else
form1.showtext('您没有操作系统的管理员权限');
button2.Enabled:=true;
reg.Free;
end;