关于插入记录提示类型不匹配的有关问题
关于插入记录提示类型不匹配的问题
procedure TfrmExcel.CreateTmpTable;
begin
with tblTmp do
begin
Active := False;
TableName := MakeTempFileName;
with FieldDefs do
begin
Clear;
Add( 'CONTENT ', ftString, 254, False);
Add( 'MEMO ', ftString, 254, False);
end;
CreateTable;
Open;
end;
end;
////////////////
with qrySMSExs do //利用query
begin
DatabaseName := DM.Database1.DatabaseName;
Sql.Clear;
Sql.Add( 'insert into SMS(ID, INX, CONTENT,MEMO) ');
Sql.Add( 'values (:ID, :INX , :CONTENT, :MEMO) ');
ParamByName( 'ID ').AsString := CATALOG_ID ;
ParamByName( 'INX ').AsInteger := INX ;
showmessage(tblTmp.FieldByName( 'CONTENT ').AsString);
showmessage(tblTmp.FieldByName( 'MEMO ').AsString);
ParamByName( 'CONTENT ').AsString := tblTmp.FieldByName( 'CONTENT ').AsString;
ParamByName( 'MEMO ').AsString := tblTmp.FieldByName( 'CONTENT ').AsString;
// ParamByName( 'CONTENT ').AsString := tblTmp.FieldValues[ 'CONTENT '] ;
// ParamByName( 'MEMO ').AsString := tblTmp.FieldValues[ 'MEMO '];
ExecSQL;
end ;
ExecSQL时 为何提示类型不匹配,而下边这段代码又可以正常插入数据
with tblFromExcel do //利用表
procedure TfrmExcel.CreateTmpTable;
begin
with tblTmp do
begin
Active := False;
TableName := MakeTempFileName;
with FieldDefs do
begin
Clear;
Add( 'CONTENT ', ftString, 254, False);
Add( 'MEMO ', ftString, 254, False);
end;
CreateTable;
Open;
end;
end;
////////////////
with qrySMSExs do //利用query
begin
DatabaseName := DM.Database1.DatabaseName;
Sql.Clear;
Sql.Add( 'insert into SMS(ID, INX, CONTENT,MEMO) ');
Sql.Add( 'values (:ID, :INX , :CONTENT, :MEMO) ');
ParamByName( 'ID ').AsString := CATALOG_ID ;
ParamByName( 'INX ').AsInteger := INX ;
showmessage(tblTmp.FieldByName( 'CONTENT ').AsString);
showmessage(tblTmp.FieldByName( 'MEMO ').AsString);
ParamByName( 'CONTENT ').AsString := tblTmp.FieldByName( 'CONTENT ').AsString;
ParamByName( 'MEMO ').AsString := tblTmp.FieldByName( 'CONTENT ').AsString;
// ParamByName( 'CONTENT ').AsString := tblTmp.FieldValues[ 'CONTENT '] ;
// ParamByName( 'MEMO ').AsString := tblTmp.FieldValues[ 'MEMO '];
ExecSQL;
end ;
ExecSQL时 为何提示类型不匹配,而下边这段代码又可以正常插入数据
with tblFromExcel do //利用表