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;
ÊÇÕâ¶Î´úÂëµÄÎÊÌâÂð£¿ÄãÏȼӸö¶Ïµã¿´¿´£¬ºÃÏñ²»ÊÇÕâ¶Î´úÂëµÄÎÊÌ⣡Ӧ¸ÃÊÇÄĸöÄ£¿é³öÎÊÌâÁË£¡
Â¥Ö÷µÄÄǸöÒ²²»ÐÐ
{{----}
Ïà¹ØÎÊ´ð£º
procedure DynArrayDelete(var A;elSize:Longint;index,Count:Integer);
var
len,MaxDelete:Integer;
P:PLongint; //4 ¸ö×ֽڵij¤ÕûÐÎÖ¸Õë
begin
P:=PLongint(A);// È¡µÄ A µÄ ......
·µ»ØµÄÄÚÈÝÊÇÈçÏ´úÂë,ÔõôÄÜÇþµÀ2b?
<p class="text1">1a </p>
<p class="text1">2b </p>
<p class="text1">3c </p>
<p cl ......
ÎҵijÌÐòÖÐÓÐÒ»¶Î¸üÐÂijһÌõ¼Ç¼µÄÓï¾ä£º
var
id:=integer;
begin
id:=strtoint(edit1.text);//edit1.textµÄÖµÒѾȡµÃ;
...
...
...
adoQuery1.sql.add('update ¼Æ»®Çåµ¥±í set ¼Æ»®ÈÕ ......
VC ¿ØÖÆ̨³ÌÐò:
#include <iostream>
using namespace std;
int main()
{
const int def_buffer = 1024 * 4;
DWORD t;
BYTE b[def_buffer];
memset(b, 0, sizeof(b));
PBYTE p;
t = GetTickC ......
×î½ü»»Á˼ҹ«Ë¾£¬ÓôÃƵÄÊǹØÓÚDelphiµÄÎÊÌ⣬¹«Ë¾Ö®Ç°ÓõÄÒ²ÊÇD°æDelphi7ÆóÒµ°æµÄ¡£ºóÀ´±»ËÍÁËÂÉʺ¯ÒԺ󣬾ÍÇ¿ÖƸÄÓÃDelphi7¸öÈ˰棬¾ç˵Õâ¸ö°æ±¾ÊÇÃâ·Ñ°æ£¬»òÕß˵ºÜ±ãÒË£¬Èç¹û²é³öÀ´£¬¾ÍÂò¸öºÃÁË¡£ÕâÏ¿ɺ᣿àÁËÎ ......