귀하는 손님 이십니다
로그인
회원가입
  
  델마당 공식 은행계좌
  하나은행 227-910235-83607
  예금주 이상국(운영진)
프로젝트 게시판
투표게시판
델마당소개
기초부터 활용까지! 델파이 교육 - 데브기어
 광고문의 :
媛뺤쥖, 똻, 젙蹂 媛뺤쥖, 똻, 젙蹂 입니다.
글내용 - 媛뺤쥖, 똻, 젙蹂
 SQLite 웾 insert 떆 냽룄 븯 媛쒖꽑.
궗泥쒖솗
(源젣꽦)
2019-01-14 삤썑 1:24:54
카테고리: 똻
1160회 조회



등록된 파일이 없습니다.
SQLite 뿉꽌 웾쑝濡 insert 떆뿉 냽룄媛 꼫臾 뒓젮꽌 諛⑸쾿쓣 李얜뜕李 씤꽣꽬뿉꽌 李얠 諛⑸쾿엯땲떎.
SQLite 궗씠듃뿉 꽕紐낆씠 엳떎뜕뜲, 留ㅻ돱뼹쓣 뜙蹂대떎蹂대땲... ^^


var
  QueryStr: string;
  EndTime, StartTime, i: integer;
begin

  // 뿬湲곌 異붽맖.
  SQLQuery1.SQL.Text := 'PRAGMA synchronous=0';
  SQLQuery1.ExecSQL;
  // 뿬湲곌퉴吏.

  StartTime := GetTickCount;

  for i := 1 to 1000 do begin
    QueryStr := 'INSERT INTO log (date, time, matchrate)';
    QueryStr := QueryStr + 'VALUES ("2018-10-20", "14:30:20", "' + IntToStr(i) + '");';
    try
      SQLQuery1.SQL.Text := QueryStr;
      SQLQuery1.Prepared := true;

      SQLQuery1.ExecSQL();
    except
      on E: Exception do begin
        Memo1.Lines.Add('Exception raised with message: ' + E.Message);
      end;
    end;
  end;

  EndTime := GetTickCount;
  Memo1.Lines.Add('嫄몃┛ 떆媛: ' + IntToStr(EndTime - StartTime));

  // 뿬湲곌 異붽맖.
  SQLQuery1.SQL.Text := 'PRAGMA synchronous=2';
  SQLQuery1.ExecSQL;
  // 뿬湲곌퉴吏.

end;