Delphi Óë ACCESSµÄ¹îÒìÏÖÏó

delphi 2007 + access 2007 +odbc +TADODataset,TADOConnection,TADOCommand


//ɾ³ýÊý¾Ý
procedure TCDSSelectTools.DeleteMachine(byMachineID: string);
  tmpCmd := TADOCommand.Create(nil);
  tmpConn := TADOConnection.Create(nil);

  tmpConn.ConnectionString := gConnectionStrSelect;
  tmpConn.Connected := true;
  tmpConn.BeginTrans;
  tmpCmd.Connection := tmpConn;
  try
    tmpCmd.CommandText := 'delete * from t_MachineInfo where sMachineID= ' + '''' + byMachineID + '''';
    tmpCmd.Execute;
    tmpCmd.Connection.CommitTrans;
  finally
    tmpCmd.Free;
    tmpConn.free;
  end;
end;

//3ÃëÖÓÄÚÖ´ÐÐÕâ¸ö¹ý³Ì¿Ï¶¨»áShowMessage
procedure TCDSSelectTools.GetMachine(byMachineID: string);
  tmpDS := TADODataset.Create(Nil);
  tmpDS.ConnectionString:= gConnectionStrSelect;
  tmpDS.CommandText:='select * from t_MachineInfo where sMachineID= ' + '''' + byMachineID + '''';
  try
    tmpDS.Open;
    if tmpDS.Recordcount>0 then
      ShowMessage(tmpDS.FieldByName('FFunModelList').AsString);  //ÕâÀﾹȻÄÜÏÔʾ³öÀ´
  finally