dm.ADOConnection1.ConnectionString:='Provider=SQLOLEDB.1;Password='+Trim(SuiEdit2.Text)+';Persist Security Info=True;User ID='+''''+Trim(SuiEdit1.Text)+''''+';Initial Catalog=yaopin;Data Source='+''''+Trim(SuiCombobox2.Text)+''''+';Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Use Encryption for Data=False;Tag with column collation when possible=False';当输入正确的sql server 2000服务器名时可以连接.
测是:当输入一个错误的sql server 2000的服务器名提示出错,然后输入一个正确服务器名还是出错谁知道为什么.
测是:当输入一个错误的sql server 2000的服务器名提示出错,然后输入一个正确服务器名还是出错谁知道为什么.
就是说每次启动程序时都可以重新设置sql server 2000服务器名
dm.ADOConnection1.active := true;
except
//error
end;是不是这么严正的?
然后关闭程序.