Серверы Counter-Strike: Форумы / Delphi (Object Pascal) / Заметки

Форумы

Серверы Counter-Strike :: Форумы :: Программирование :: Delphi (Object Pascal)		<< Предыдущая тема \| Следующая тема >>
Заметки

Переход на страницу [1] 2
Модераторы: kapitowka, Agnet*, Acid Biscuit, CL0NE, ShaRhaN, McNamara, Coltovsky, HuKuToC, Jake_One, Chaos2Order

Автор

Добавил

detur

19.08.2010, 09:09

Даже мартышки играют в CS

A Hax MHe team?

ID пользователя #963

Зарегистрирован: 09.05.2009, 14:04

Сообщений: 1442
Отблагодарен: 67 раза в 58 сообщениях
Репутация: 52 Репутация темы: 0 из 0 голосов

При переносе данных из таблицы из DB2 в ORALCE. Не удаляются записи из таблицы DB2.
Решение: Создать сервис который Копирует и удаляет построчно.
Service.pas

 
unit Unit4;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, SvcMgr, Dialogs, DB,
  ADODB, IniFiles, ExtCtrls;
 
type
  TService4 = class(TService)
    ORACOnnect: TADOConnection;
    DB2Connect: TADOConnection;
    Timer1: TTimer;
    ORATable: TADOTable;
    DB2Table: TADOTable;
    procedure ServiceCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    function GetServiceController: TServiceController; override;
    { Public declarations }
  end;
 
var
  Service4: TService4;
  IniFile: TIniFile;
 
implementation
 
{$R *.DFM}
 
procedure ServiceController(CtrlCode: DWord); stdcall;
begin
  Service4.Controller(CtrlCode);
end;
 
function TService4.GetServiceController: TServiceController;
begin
  Result := ServiceController;
end;
 
procedure TService4.Timer1Timer(Sender: TObject);
label Error1;
var
  ind:boolean;
  F:TextFile;
  I,j,n: Integer;
  a,b,d,TInterval:string;
  OraDbName,OraDbLogin,OraDbPass,DB2Name,DB2Login,DB2Pass,LogPath:string;
begin
   ind:=False;
  //Загрузка из Конфиг.ини
  with TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'config.ini') do
  begin
   OraDbName:=ReadString('ORACLE','dbName',OraDbName);
   OraDbLogin:=ReadString('ORACLE','Login',OraDblogin);
   OraDbPass:=ReadString('ORACLE','Pass',OraDbPass);
 
   DB2Name:=ReadString('DB2','dbName',DB2Name);
   DB2Login:=ReadString('DB2','Login',DB2Login);
   DB2Pass:=ReadString('DB2','Pass',DB2Pass);
 
   LogPath:=ReadString('Logpath','Path',LogPath);
 
   TInterval:=ReadString('Timer','Interval',TInterval);
   Timer1.Interval:=StrToInt(TInterval)*60000;
 
  end;
  DateTimeToString(d,'yyyymmdd',now);
  AssignFile(F,LogPath+'log_'+d+'.txt');
  try
  Append(F);
  except
    Rewrite(F);
  end;
  Writeln(F,DateToStr(Now)+'  '+TimeToStr(Now)+'    ');
 
  ORACOnnect.Connected:=False;
  DB2Connect.Connected:=False;
  ORACOnnect.ConnectionString:='Provider=MSDAORA.1;Password='+OradbPass+';User ID='+ORadbLogin+';Data Source='+OraDbName+';Persist Security Info=True';
  DB2Connect.ConnectionString:='Provider=IBMDADB2;Password='+db2Pass+';User ID='+DB2Login+';Data Source='+Db2Name+';Mode=ReadWrite';
  n:=0;
  try
   ORACOnnect.Connected:=True;
   ORATable.Active;
   ORATable.Open;
   ORATable.Append;
  except
   Writeln(F,'Немає зєднання з базою Oracl');
   Ind:=True;
  end;
 
  try
   DB2Connect.Connected:=True;
   DB2Table.Active;
   DB2Table.Open;
  except
   Writeln(F,'Немає зєднання з базою DB2');
   Ind:=True;
  end;
  if ind=true then
   goto Error1;
  Writeln(F,TimeToStr(Now)+'  '+'Таблиця має '+IntToStr(DB2Table.RecordCount)+' рядків');
 
 if DB2Table.RecordCount <> 0 then
  begin
   for I := 1 to DB2Table.RecordCount do
    begin
     if ORATable.CanModify = True then
      begin
         ORATable.Edit;
         try
         ORATable.Fields[0].AsString:=DB2Table.Fields[0].Value;
         ORATable.Fields[1].AsString:=DB2Table.Fields[1].Value;
         ORATable.Fields[2].AsString:=DB2Table.Fields[2].Value;
         ORATable.Fields[3].AsDateTime:=DB2Table.Fields[3].Value;
         ORATable.Fields[4].AsInteger:=DB2Table.Fields[4].Value;
         ORATable.Fields[5].AsInteger:=DB2Table.Fields[5].Value;
         ORATable.Fields[6].AsInteger:=DB2Table.Fields[6].Value;
         except
          Writeln(F,'Невідповідність типів даних');
          ind:=true;
         end;
         if ind=true then
          goto Error1;
 
         Write(F,IntToStr(i)+'.  '+ORATable.Fields[0].AsString+' ');
         Write(F,'  '+ORATable.Fields[1].AsString+' ');
         Write(F,'  '+ORATable.Fields[2].AsString+' ');
         Write(F,'  '+INtToStr(ORATable.Fields[4].AsInteger)+' ');
         Write(F,'  '+IntToStr(ORATable.Fields[5].AsInteger)+' ');
         Writeln(F,'  '+IntToStr(ORATable.Fields[6].AsInteger)+' ');
         n:=n+1;
 
      end // ORATable.CanModify = True
     else //ORATable.CanModify = False
      begin
       Writeln(F,'Неможливо редагувати таблицю IRD_PIEXPORT  ');
       goto Error1;
      end;
 
     Try
      ORATable.Post;
     Except
      Writeln(F,'Неможливо додати запис. Можливо порушена умова унікальності ');
      Writeln(F,'--------------------------------------------------  ');
     End;
 
     Try
      DB2Table.Delete;
     Except
      Writeln(F,'Неможливо видалити таблицю з DB2 ');
     End;
     ORATable.Next;
     DB2Table.Next;
    end;
  end// if DB2Table.RecordCount <> 0
 else
  Writeln(F,TimeToStr(Now)+'  Таблиця немає записів ');
 
  Writeln(F,'До таблиці було додано '+IntToStr(n)+'   записів '+TimeToStr(Now)+'  ');
Error1: Writeln(F,'--------------------------------------------------  ');
  Close(F);
  ORATable.Close;
  DB2Table.close;
 
 
end;
 
end.
 

Config.ini

Наверх

detur

19.08.2010, 09:20

Даже мартышки играют в CS

A Hax MHe team?

ID пользователя #963

Зарегистрирован: 09.05.2009, 14:04

Сообщений: 1442
Отблагодарен: 67 раза в 58 сообщениях
Репутация: 52

При загрузке большого количества данных в TDBLookUpComboBox, невозможно выбрать нужный из-за глюка самого бокса.
Лучше использовать стандартный ComboBox.

Первый вариан кода загрузки данных с использованием ADOQuery. Непонятно как работает и лучше не использовать.

ComboBox.ItemIndex :=
        ComboBox.Items.IndexOf(ADOQuery.Lookup(
                      sqlCategoryCF,
                      ADOStorProc1.FieldByName('mail_ctg_code').AsString,
                      sqlCategoryNF));

Второй вариант. Лучше тем, что можна вносить изменения в запрос и БД.

ADOStoredProc1.Open;
 for i:=1 to ADOStoredProc1.RecordCount do
 begin
  ComboBox1.Items.Add(ADOStoredProc1.FieldByName('NAME_OPZ').AsString);
  ADOStoredProc1.Next;
 end;

Наверх

kapitowka

19.08.2010, 10:42

FreeBSD The Power To Serve

STEAM_0:0:34602107

[RAT]

ID пользователя #1

Зарегистрирован: 01.01.1970, 02:00

Сообщений: 3245
Отблагодарен: 222 раза в 166 сообщениях
Репутация: 61

Кстати ORALCE умеет подключать ДБ2 ивыполнять к ней запросы как буд-то это его собственные таблицы, Мулька называется гетерогенные сервисы, если не ошибаюсь.

[ Редактирование 19.08.2010, 10:42 ]

-------------------------------------------------------
Правила сервера

Банлист

Наверх

Сообщение отблагодарили: 1 раз(а)

kapitowka

19.08.2010, 10:49

FreeBSD The Power To Serve

STEAM_0:0:34602107

[RAT]

ID пользователя #1

Зарегистрирован: 01.01.1970, 02:00

Сообщений: 3245
Отблагодарен: 222 раза в 166 сообщениях
Репутация: 61

При загрузке большого количества данных в TDBLookUpComboBox, невозможно выбрать нужный из-за глюка самого бокса.
Лучше использовать стандартный ComboBox.

Я использовал всегда нестандартные компоненты для БД, например ehlib

-------------------------------------------------------
Правила сервера

Банлист

Наверх

Сообщение отблагодарили: 1 раз(а)

detur

19.08.2010, 12:31

Даже мартышки играют в CS

A Hax MHe team?

ID пользователя #963

Зарегистрирован: 09.05.2009, 14:04

Сообщений: 1442
Отблагодарен: 67 раза в 58 сообщениях
Репутация: 52

Мне сказали, что не изпользуем нестандартные компоненты.

Наверх

kapitowka

19.08.2010, 12:48

FreeBSD The Power To Serve

STEAM_0:0:34602107

[RAT]

ID пользователя #1

Зарегистрирован: 01.01.1970, 02:00

Сообщений: 3245
Отблагодарен: 222 раза в 166 сообщениях
Репутация: 61

ссылка по гетерогенным службам для оракла
http://www.oracle.com/global/ru/oramag/augsept2002/dev_gateway.html

-------------------------------------------------------
Правила сервера

Банлист

Наверх

Сообщение отблагодарили: 1 раз(а)

detur

19.08.2010, 13:11

Даже мартышки играют в CS

A Hax MHe team?

ID пользователя #963

Зарегистрирован: 09.05.2009, 14:04

Сообщений: 1442
Отблагодарен: 67 раза в 58 сообщениях
Репутация: 52

Насяльника говорил, что все так и организовано. Не удаляет из ДБ2 и всьо.

Наверх

detur

19.08.2010, 14:44

Даже мартышки играют в CS

A Hax MHe team?

ID пользователя #963

Зарегистрирован: 09.05.2009, 14:04

Сообщений: 1442
Отблагодарен: 67 раза в 58 сообщениях
Репутация: 52

detur написал(а) ...

При загрузке большого количества данных в TDBLookUpComboBox, невозможно выбрать нужный из-за глюка самого бокса.
Лучше использовать стандартный ComboBox.

Первый вариан кода загрузки данных с использованием ADOQuery. Непонятно как работает и лучше не использовать.

ComboBox.ItemIndex :=
        ComboBox.Items.IndexOf(ADOQuery.Lookup(
                      sqlCategoryCF,
                      ADOStorProc1.FieldByName('mail_ctg_code').AsString,
                      sqlCategoryNF));

Второй вариант. Лучше тем, что можна вносить изменения в запрос и БД.

ADOStoredProc1.Open;
 for i:=1 to ADOStoredProc1.RecordCount do
 begin
  ComboBox1.Items.Add(ADOStoredProc1.FieldByName('NAME_OPZ').AsString);
  ADOStoredProc1.Next;
 end;

TDBLookUpComboBox автоматически реагирет на изменение курсора и вызывает locate процедуры. В случае с ComboBox нужно загрузить индексы в TStringList и вызвать Locate процедуры на событие OnClick.

Если этого незнать можно трахать себе мозгу пол дня. как я)))))))).

 
 ComboList.Add(Sel_Punct_Obminu_SP.FieldByName('INDEX_OPZ').AsString);

procedure TfConsignment.CBPunkt_obmClick(Sender: TObject);
var
i:integer;
IDCombo:string;
begin
  inherited;
   i:=CBPunkt_obm.ItemIndex;
   IDCombo:=ComboList[i];
   dmConsignment.Sel_Punct_Obminu_SP.Locate('INDEX_OPZ',IDCombo,[]);
end;

Наверх

detur

26.08.2010, 09:46

Даже мартышки играют в CS

A Hax MHe team?

ID пользователя #963

Зарегистрирован: 09.05.2009, 14:04

Сообщений: 1442
Отблагодарен: 67 раза в 58 сообщениях
Репутация: 52

Кто-то знает есть ли в Оракл ограничение на количество записей в таблице?
Выполняю запрос, но больше 1 000 записей не вставляет. Сразу говорю не силен в запросах))

insert into AREA_INDEX (INDEX_OPZ,OBL_NAME)
SELECT 
  OPZ.INDEX_OPZ, 
  OPZ.NAME_OPZ || ' - ' ||AREA.OBL_NAME 
FROM
  OPZ,area
where OPZ.OBL_ID=AREA.OBL_ID
ORDER BY OPZ.NAME_OPZ
 