Ошибка выполнения запроса

[falcon39]

Код: Выделить всё

  c:=Dbf1.RecordCount;
  i:=0;
  ProgressBar1.Max:=c;
  While i<c Do
    Begin
      Dbf1.RecNo:=i;
      sSql:='INSERT INTO tel VALUES ('+''''+Dbf1.Fields.Fields[0].AsString+''','''+Dbf1.Fields.Fields[1].AsString+''','''+Dbf1.Fields.Fields[2].AsString+''','''+Dbf1.Fields.Fields[3].AsString+''','''+Dbf1.Fields.Fields[4].AsString+''')';
      Label3.Caption:=sSql;
      SQLQuery1.SQL.Append(sSQL);
      SQLQuery1.ExecSQL;
      i:=i+1;
      ProgressBar1.Position:=i;
      Application.ProcessMessages;
    End;


Останавливается на строчке SQLQuery1.ExecSQL;

[alexs]

Код: Выделить всё

SQLQuery1.SQL.Clear;
SQLQuery1.SQL.Append(sSQL);


или

Код: Выделить всё

SQLQuery1.SQL.Text:=sSQL;


[alexs]

кстати - хорошая практика - когда делаеш INSERT запрос
перечисляй в скобках столбцы, в которые вставляеш данные
т.к. разные SQL сервера не гарантируют порядок полей именно тот, в которомы ты создавал их.