求lazarus链接ACCESS./MSSQL增删改等源码

猫大瞎

跟DELPHI比完全找不到北了，用哪些组件啊……ADO都木有……

cuibq

试试吧


  if ZConnection1.Connected = true then
    ZConnection1.Connected := false;

  ZConnection1.Protocol := 'mssql';
  ZConnection1.HostName := EditDbSvrIp_mssql.Text;
  ZConnection1.User := EditDbUser_mssql.text;
  ZConnection1.Password := EditDbPwd_mssql.Text;
  ZConnection1.Port := strToInt(trim(MEditDbSvrPort_mssql.Text));
  ZConnection1.LibraryLocation := ExtractFilePath(ParamStr(0)) + 'sys\NTWDBLIB.DLL';
  //ZConnection1.LibraryLocation := ExtractFilePath(ParamStr(0)) + 'sys\DBNETLIB.DLL';
  //ZConnection1.LibraryLocation := 'c:\windows\system32\dbnetlib.DLL';
  ZConnection1.Database := EditDbName_mssql.Text;

  try
    ZConnection1.Connected:=true;
    showmessage('连接成功。');
  except
    on E: Exception do
    begin
      memo1.Lines.Add(sysToUtf8(E.Message));
      showmessage(sysToUtf8(E.Message));
      exit;
    end;

  end;