Delphi7向Access数据库文本字段插入空值的方法

2017-10-25 19:09:22来源:CSDN作者:hncsl人点击

分享
procedure TDM.AccessInsertLog(SUserName, SContent: string; CKind: Char);var  S: string;begin   S := 'insert into [syslog]([syslog_ctype], [syslog_vccontent], [syslog_vcname], [syslog_dtdate])' +      ' values (:kind, :content, :name , :date) ';    try    with ADOShareCommand do    begin       CommandType := cmdText;      CommandText := S;      Parameters[0].Value := CKind;      Parameters[0].SIZE := 1;      if SContent= EmptyStr then        Parameters[1].Value := EmptyStr      else      begin        Parameters[1].Value := SContent;        Parameters[1].SIZE := Length(sMark);      end;      Parameters[2].Value := SUserName;      Parameters[2].SIZE := Length(SUserName);      Parameters[3].Value := Now;       Execute;    end;  except    on E: Exception do      ShowMessage(e.message);  end;end;
这里注意, 如对EmptyStr(‘’) 空字符串使用
Parameters[1].SIZE := Length(sMark);那么会提示错误。

最新文章

123

最新摄影

闪念基因

微信扫一扫

第七城市微信公众平台