cnn1.ConnectionString = "driver={SQL Server};" & _
"server=server;uid=userer;pwd=12345;database=qwe"
'server 为:SqlServer名称
'uid为:Sql用户名
'pwd为:用户口令
'database为:数据库名
cnn1.ConnectionTimeout = 30
cnn1.CursorLocation = adUseClient
cnn1.Open
"server=server;uid=userer;pwd=12345;database=qwe"
'server 为:SqlServer名称
'uid为:Sql用户名
'pwd为:用户口令
'database为:数据库名
cnn1.ConnectionTimeout = 30
cnn1.CursorLocation = adUseClient
cnn1.Open
with adoconn do //adoconnection控件
begin
Close;
LoginPrompt :=false;
ConnectionString :='Provider=SQLOLEDB.1;'
+'Persist Security Info=False;'
+'User ID=sa;'
+'password=111111;'
+'Initial Catalog=FFFF;'
try
Open;
Connected:=true;
server_conn:=true; //表示连接是否成功
except
server_conn:=false;
free;
end;
end;测试还可以用的