Function TForm1.ContoSQL(svr, uid, pwd, db: String): Boolean;
Const
constr='Provider=SQLOLEDB.1;Password=%s;'+
'Persist Security Info=True;'+
'User ID=%s;Initial Catalog=%s;Data Source=%s';
Begin
Result := False;
try
With ADOConnection1 Do
Begin
Connected := False;
ConnectionString := Format(constr,[pwd, uid, db, svr]);
LoginPrompt := False;
Connected := true;
Connected := False;
End;
Result := True;
except On E: Exception Do
Application.MessageBox(PChar(E.Message),'连接数据库失败!',16);
end;
End;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
If ContoSQL('127.0.0.1', 'sa', 'sa', 'Northwind') Then
Application.MessageBox(PChar('ok'),'系统提示',64);
end;
Const
constr='Provider=SQLOLEDB.1;Password=%s;'+
'Persist Security Info=True;'+
'User ID=%s;Initial Catalog=%s;Data Source=%s';
Begin
Result := False;
try
With ADOConnection1 Do
Begin
Connected := False;
ConnectionString := Format(constr,[pwd, uid, db, svr]);
LoginPrompt := False;
Connected := true;
Connected := False;
End;
Result := True;
except On E: Exception Do
Application.MessageBox(PChar(E.Message),'连接数据库失败!',16);
end;
End;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
If ContoSQL('127.0.0.1', 'sa', 'sa', 'Northwind') Then
Application.MessageBox(PChar('ok'),'系统提示',64);
end;