在线急求ado连线设置 100分找用友财务软件价格

销售管理软件版1楼: 我想通过ado连接数据库用ADOCONNECTION 和ADOQUERY 请问怎么设置？
数据库为SQL SERVER ？

拜托了，以前没用过ADO

2楼: 静态连接还是动态的如用友财务软件价格

3楼: 静态

4楼: 1.ADOCONNECTION，選擇BUILD,然后選擇SQL SERVER配置完成后，
把ADOCONNECTION的LOGINPROMPT=TRUE,COMMECTED=TRUE。
2.把ADOQUERY1的CONNECTION=ADOCONNECTION,然后在SQL里輸入你想要的SQL語句,
最后把ACTIVE=TRUE既可。

5楼: strConnection := ＇＇Provider=SQLOLEDB.1; ＇＇;
strConnection := strConnection + ＇＇ Persist Security Info=True;＇＇;
strConnection := strConnection + ＇＇ User ID=＇＇ + strUserName + ＇＇; ＇＇;
strConnection := strConnection + ＇＇ Password=＇＇ + strPassword + ＇＇; ＇＇;

strConnection := strConnection + ＇＇ Initial Catalog=＇＇ + strDatabaseName + ＇＇; ＇＇;
strConnection := strConnection + ＇＇ Data Source=＇＇ + strServerName;
//Provider=SQLOLEDB.1;Persist Security Info=False;User ID=liu;Initial Catalog=TEST;Data Source=USONY
try
//ADOConnection1.LoginPrompt:=false;
ADOConnection1.Close;
ADOConnection1.ConnectionString := strConnection;
ADOConnection1.Open;
if ADOConnection1.Connected = true then
begin
ADOQuery.Connection :=ADOConnection1
end;

6楼: const
ADOSTR=＇＇Provider=SQLOLEDB.1;Persist Security Info=False;User ID=%s;Password=%s;＇＇+
＇＇Initial Catalog=%s;Data Source=%s＇＇;
function TDM.TestConnected(UserName, Password, ServerName,
DBBase: String): Boolean;
begin
//if ADObase.Connected then
// begin
// Result:=True;
// Exit;
// end;
ADObase.Connected:=False;
ADObase.ConnectionString:=Format(ADOSTR,[UserName,Password,DBbase,ServerName]);
try
ADObase.Connected:=True;
Result:=True;
except
ADObase.Connected:=False;
Result:=False;
end;
end;