1:
2:
3:
4:
5:

INSERT INTO tabelle
(ID, FELD)
VALUES
(1, 'BLA'),
(2, 'BLUBB');                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

      try
       conquery.Params.Clear;
       conquery.Sql.Text := 'INSERT INTO URLSourceTable(PARENTID, URL, URLSOURCE) VALUES (:PARENTID, :URL, :URLSOURCE)';
       conquery.ParamByName('PARENTID').AsInteger := FCurrentID;
       conquery.ParamByName('URLSOURCE').AsString := FURLSource.DataString;
       conquery.ParamByName('URL').AsString := FCurrentURL;
       conquery.ExecSql;
       conquery.Close;
      except
       on E : Exception do
        if DomainCrawler.LOGMode = lmFile then
         DomainCrawler.WriteToLOGFile('CoreEngine Error 100080 (UrlworkerExecute - Update URLSourceTable) - [' + IntToStr(ThreadID) + '] - ' + E.Message);
      end;                    

1:

conquery.Sql.Text := 'INSERT INTO URLSourceTable(PARENTID, URL, URLSOURCE) VALUES (:PARENTID, :URL, :URLSOURCE)';                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

  //außerhalb der schleife
  conquery.Sql.Text := 'INSERT INTO URLSourceTable(PARENTID, URL, URLSOURCE) VALUES (:PARENTID, :URL, :URLSOURCE)';
....

//innerhalb der schleife

       conquery.ParamByName('PARENTID').AsInteger := FCurrentID;
       conquery.ParamByName('URLSOURCE').AsString := FURLSource.DataString;
       conquery.ParamByName('URL').AsString := FCurrentURL;
       conquery.ExecSql;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:

 // general options
  con.LoginPrompt := false;
  con.ConnectionDefName := ConDefName;
  // Tx options
  //con.TxOptions.Isolation := xiSnapshot;
  con.TxOptions.ReadOnly := false;
  con.TxOptions.AutoCommit := true;
  con.TxOptions.AutoStart := true;
  con.TxOptions.AutoStop := true;
  //con.TxOptions.DisconnectAction := xdCommit;
  // update options
  con.UpdateOptions.ReadOnly := false;
  con.UpdateOptions.EnableInsert := true;
  con.UpdateOptions.EnableUpdate := true;
  con.UpdateOptions.EnableDelete := false;
  con.UpdateOptions.RequestLive := true;
  con.UpdateOptions.UpdateMode := upWhereKeyOnly;
  con.UpdateOptions.UpdateChangedFields := true;
  con.UpdateOptions.CheckRequired := false;
  con.UpdateOptions.CheckReadOnly := false;
  con.UpdateOptions.CheckUpdatable := true;
  //con.UpdateOptions.RefreshMode := rmOnDemand;
  //con.UpdateOptions.LockMode := lmPessimistic;
  con.UpdateOptions.LockWait := true;
  //con.UpdateOptions.LockPoint := lpImmediate;
  // ressource options
  con.ResourceOptions.CmdExecMode := amBlocking;
  con.ResourceOptions.MacroExpand := false;
  con.ResourceOptions.CmdExecTimeout := 60000;
  con.ResourceOptions.DirectExecute := true;
  // error handler
  con.OnError := FBConOnErrorHandler;
  con.connected := true;
  {$IFDEF CONNECTIONINTERFACEMONITORING}
   con.ConnectionIntf.Tracing := True;
  {$ENDIF}
  // set query options and add connection
  conquery.Connection := con;
  // general options
  conquery.CachedUpdates := false;
  // fetch options
  //conquery.FetchOptions.Mode := fmOnDemand;
  conquery.FetchOptions.AutoClose := false;
  // update options
  conquery.UpdateOptions.ReadOnly := false;
  conquery.UpdateOptions.EnableInsert := true;
  conquery.UpdateOptions.EnableUpdate := true;
  conquery.UpdateOptions.EnableDelete := false;
  conquery.UpdateOptions.RequestLive := true;
  conquery.UpdateOptions.UpdateMode := upWhereKeyOnly;
  conquery.UpdateOptions.UpdateChangedFields := true;
  conquery.UpdateOptions.CheckRequired := false;
  conquery.UpdateOptions.CheckReadOnly := false;
  conquery.UpdateOptions.CheckUpdatable := true;
  //conquery.UpdateOptions.RefreshMode := rmOnDemand;
  //conquery.UpdateOptions.LockMode := lmPessimistic;
  conquery.UpdateOptions.LockWait := true;
  //conquery.UpdateOptions.LockPoint := lpImmediate;
  // ressource options
  conquery.ResourceOptions.CmdExecMode := amBlocking;
  conquery.ResourceOptions.MacroExpand := false;
  conquery.ResourceOptions.CmdExecTimeout := 60000;
  conquery.ResourceOptions.DirectExecute := true;
  // error handler
  conquery.OnPostError := FBOnPostErrorHandler;
  conquery.OnEditError := FBOnEditErrorHandler;
  conquery.OnError := FBOnErrorHandler;                    

1:

  conAddParentURLQuery.Sql.Text := 'INSERT INTO ParentURLTable(PID, URL) VALUES (:PID, :URL)';                    

1:
2:
3:
4:
5:
6:
7:
8:
9:

   try
    conAddParentURLQuery.ParamByName('PID').AsInteger := FCurrentID;
    conAddParentURLQuery.ParamByName('URL').AsString := AddURL;
    conAddParentURLQuery.ExecSql;
   except
    on E: Exception do
     if DomainCrawler.LOGMode = lmFile then
      DomainCrawler.WriteToLOGFile('CoreEngine Error 100020 (AddItemToDataBase - Insert ParentURLTable) - [' + IntToStr(ThreadID) + '] - ' + E.Message + ' | ' + AddURL + ' | ' + FCurrentURL);
   end;