| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 604 人关注过本帖
标题:帮个忙找下这段写入数据库的程序为什么出错
只看楼主 加入收藏
aaron52088
Rank: 1
等 级:新手上路
帖 子:130
专家分:0
注 册:2007-1-24
收藏
 问题点数:0 回复次数:7 
帮个忙找下这段写入数据库的程序为什么出错

程序运行的时候每次都会出现附件里面的那个图的错误提示,
然后数据可以写入数据库表的,
所以希望大家可以帮我看看程序,是哪里出了问题的。谢谢先了。
程序如下:
procedure TForm1.Button1Click(Sender: TObject);

begin
dbgrid1.Enabled:=true;
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('insert into LongUser values(:yhID,:yhm,:cph,:syqx,:kssj,:jssj,:ckh,:lxdh)');
query1.ParamByName('yhID').AsString:=edit1.Text;
query1.ParamByName('yhm').AsString:=edit5.Text;
query1.ParamByName('cph').AsString:=edit2.Text;
query1.ParamByName('syqx').AsString:=edit6.Text;
query1.ParamByName('kssj').AsString:=edit3.Text;
query1.ParamByName('jssj').AsString:=edit7.Text;
query1.ParamByName('ckh').AsString:=edit4.Text;
query1.ParamByName('lxdh').AsString:=edit8.Text;
query1.ExecSQL;
query1.Active:=false;
query1.SQL.Clear;
query1.SQL.Add('select User-ID,User-Name,User-Cph,User-Qixian,User-Begin,User-Over,User-Ckh,User-Tel from LongUser');
query1.ExecSQL;
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
edit5.Text:='';
edit6.Text:='';
edit7.Text:='';
edit8.Text:='';
end;

搜索更多相关主题的帖子: 数据库 
2007-01-25 16:42
nongen
Rank: 5Rank: 5
来 自:网络
等 级:贵宾
威 望:17
帖 子:322
专家分:0
注 册:2006-11-25
收藏
得分:0 
query1.SQL.Add('select User-ID,User-Name,User-Cph,User-Qixian,User-Begin,User-Over,User-Ckh,User-Tel from LongUser');//这里你用了select
query1.ExecSQL;//这里你用的是execsql。不明白为什么这么用。你有什么目的?

昨天不是我的,明天不是你的,今天却是我们的。
http://www.
2007-01-25 17:31
aaron52088
Rank: 1
等 级:新手上路
帖 子:130
专家分:0
注 册:2007-1-24
收藏
得分:0 
……
是我写错了,不过写open还是一样会出现这个错误的呀

2007-01-26 10:17
基础DELPHI
Rank: 1
等 级:新手上路
帖 子:13
专家分:0
注 册:2007-1-26
收藏
得分:0 

query1.SQL.Clear;
query1.SQL.Add('insert into LongUser values(:yhID,:yhm,:cph,:syqx,:kssj,:jssj,:ckh,:lxdh)');
query1.sql.open;//1
query1.sql.append;//1
query1.ParamByName('yhID').AsString:=edit1.Text;
query1.ParamByName('yhm').AsString:=edit5.Text;
query1.ParamByName('cph').AsString:=edit2.Text;
query1.ParamByName('syqx').AsString:=edit6.Text;
query1.ParamByName('kssj').AsString:=edit3.Text;
query1.ParamByName('jssj').AsString:=edit7.Text;
query1.ParamByName('ckh').AsString:=edit4.Text;
query1.ParamByName('lxdh').AsString:=edit8.Text;
query1.post;//1
query1.Active:=false;//去掉这个试试看


query1.ExecSQL;//去掉,改成OPEN,我都是用OPEN的,你试试

2007-01-26 11:06
aaron52088
Rank: 1
等 级:新手上路
帖 子:130
专家分:0
注 册:2007-1-24
收藏
得分:0 
加上query1.sql.append;之后会出现not enough actual parameters的错误的。
谢谢你帮忙的。

2007-01-26 11:14
基础DELPHI
Rank: 1
等 级:新手上路
帖 子:13
专家分:0
注 册:2007-1-26
收藏
得分:0 
not enough actual parameters=实际参数不足
你查查参数或者SQL吧
你用的是什么数据库?MYSQL?
2007-01-26 11:36
aaron52088
Rank: 1
等 级:新手上路
帖 子:130
专家分:0
注 册:2007-1-24
收藏
得分:0 
我是用delphi自带的database desktop的,
有在Tquery1里面的tag里面添加:“select * from 我的表名”。

2007-01-29 10:32
基础DELPHI
Rank: 1
等 级:新手上路
帖 子:13
专家分:0
注 册:2007-1-26
收藏
得分:0 

有代码么?发来瞧瞧
我菜 找不到你说的
database desktop

2007-01-30 01:48
快速回复:帮个忙找下这段写入数据库的程序为什么出错
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.014243 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved