SQLConnection链接数据库的方法

SQLConnection链接数据库代码如下：

 

procedure TForm1.Button2Click(Sender: TObject); 
begin 
  SQLConnection1.ConnectionName := 'MSSQLConnection'; 
  SQLConnection1.Params.Clear; 
  SQLConnection1.Params.Add('DriverName=MSSQL'); 
  SQLConnection1.Params.Add('HostName=192.168.21.110'); 
  SQLConnection1.Params.Add('DataBase=zbdb'); 
  SQLConnection1.Params.Add('User_Name=sa'); 
  SQLConnection1.Params.Add('Password=sa'); 
  SQLConnection1.Params.Add('Blobsize=-1'); 
  SQLConnection1.GetDriverFunc := 'getSQLDriverMSSQL'; 
  SQLConnection1.LibraryName := 'dbexpmss.dll'; 
  SQLConnection1.VendorLib := 'oledb'; 
  SQLConnection1.LoginPrompt := false; 
  SQLConnection1.Connected := false; 
  try 
    SQLConnection1.Connected := true; 
    showmessage('联接成功'); 
  except 
    showmessage('联接失败'); 
  end; 
end;