delphi 连接sqlite数据库，insert报错
可以添加数据，但是点添加后会报.access violation at address 0049AB84 in module
源码
procedure Tstudent.add_buttonClick(Sender: TObject);
var
sqlstr:string;
begin
if (id_edit.Text='') and (username_edit.Text='') then
begin
application.MessageBox('请输入完整数据信息','添加出错',0);
id_edit.SetFocus;
exit;
end;
with ASQLite3Query1 do
begin
close;
sql.clear;
sql.add('insert into student values(:id,:username,:telephone,:address,:state)');
ASQLite3Query1.Params.ParamByName('id').Value:=strtoint(id_edit.Text);
ASQLite3Query1.Params.ParamByName('username').Value:=username_edit.Text;
ASQLite3Query1.Params.ParamByName('telephone').Value:=strtoint(phone_edit.Text);
ASQLite3Query1.Params.ParamByName('address').Value:=address_edit.Text;
ASQLite3Query1.Params.ParamByName('state').Value:=state_edit.Text;
execSQL;
showmessage(ASQLite3Query1.SQL.Text);
end;
end;
是这段代码的问题吗？你先加个断点看看，好像不是这段代码的问题！应该是哪个模块出问题了！
楼主的那个也不行
{{----}
相关问答：
接收到的文本内容是ucs2编码格式，请问怎样转换成中文
按我的理解，UCS-2是字符集，具体的编码有UTF-8，UTF-16 (LE/BE)等。
如果你用Delphi 2009及以上版本，可以看看TEncoding类。
btw. 你说的转换成中文是啥意� ......
procedure RunFunction;
type
TFunc = function(A: Integer): Integer;stdcall; //这里根据DLL里面函数的声明修改
var
......
返回的内容是如下代码,怎么能渠道2b?
<p class="text1">1a </p>
<p class="text1">2b </p>
<p class="text1">3c </p>
<p cl ......
请问Delphi有树形控件吗？
怎样使用？
Ttreeview
treeview.items.addchild(nil(上级节点),'案发时发'(text));
raize 控件包里面有，csdn有下载的
查帮助TTreeView和TNode两个类
TTreeView ......
最近换了家公司，郁闷的是关于Delphi的问题，公司之前用的也是D版Delphi7企业版的。后来被送了律事函以后，就强制改用Delphi7个人版，剧说这个版本是免费版，或者说很便宜，如果查出来，就买个好了。这下可好。苦了� ......
