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 µÄ ......
Òª°üº¬winsock2 ¶øÇÒÏêϸЩµÄ¡£
ÄÇЩʹÓÿؼþµÄµÄÊé±¾¾Í²»ÒªÁË£¬
Ï£ÍûÂò¹ýÕâÀàÊéµÄÅóÓÑÄÜÍÆ¼öÏÂ×Ô¼º¾õµÃ²»´íµÄ¡£
À´¹Ø×¢Ï¡£
WindowsÍøÂçÓëͨÐųÌÐòÉè¼Æ(µÚ2°æ)
À¶Æ¤µÄÊÇаæ,ËäÈ»ÊÇÖйúÈËдµÄµ«ÊǷdz ......
delphi ÊÖ¶¯×°ÔØÇý¶¯ÎļþÌáʾ£º
RROR (1058): The driver is marked as disabled (Start=4) in its service database entry.
ÊDz»ÊÇÕâ¸öÇý¶¯±ØÐèÒªÓÃINFÀ´°²×°¡£¡£ÓÃ×Ô´øµÄINFÀ´×°ÊÇÕý³£µÄ¡£ÓÃÊÖ¶¯×°ÔؾÍÌáʾÈçÉÏ¡ ......
delphi 2007 + access 2007 +odbc +TADODataset,TADOConnection,TADOCommand
//ɾ³ýÊý¾Ý
procedure TCDSSelectTools.DeleteMachine(byMachineID: string);
tmpCmd := TADOCommand.Create(ni ......
×î½ü»»Á˼ҹ«Ë¾£¬ÓôÃÆµÄÊǹØÓÚDelphiµÄÎÊÌ⣬¹«Ë¾Ö®Ç°ÓõÄÒ²ÊÇD°æDelphi7ÆóÒµ°æµÄ¡£ºóÀ´±»ËÍÁËÂÉʺ¯ÒԺ󣬾ÍÇ¿ÖÆ¸ÄÓÃDelphi7¸öÈ˰棬¾ç˵Õâ¸ö°æ±¾ÊÇÃâ·Ñ°æ£¬»òÕß˵ºÜ±ãÒË£¬Èç¹û²é³öÀ´£¬¾ÍÂò¸öºÃÁË¡£ÕâÏ¿ɺ᣿àÁËÎ ......