请帮我看看如下一段代码错在哪里？ (0分)

B

billson

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-14

• #1

With DataModule1.ADOQuery1 do
begin
close;
sql.Clear;
sql.Add('select FAccountName from TBas_Account where FAccountName='''
+txtUser.Text+'''');
open;
If Not Eof Then frmPub.ShowMessage('存在该用户，无法添加用户!')
else
begin
insert();
Recordset.Fields.Item['FAccountName'].Value :=txtUser.Text;
Recordset.Fields.Item['FAccountPwd'].Value :=txtPwd.Text;
UpdateRecord;
end;
end;

 

土

土土

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-14

• #2

With DataModule1.ADOQuery1 do
begin
close;
sql.Clear;
sql.Add('select FAccountName,faccountpwd from TBas_Account where FAccountName='''
+txtUser.Text+'''');
open;
If Not Eof Then frmPub.ShowMessage('存在该用户，无法添加用户!')
else
begin
insert();
Recordset.Fields.Item['FAccountName'].Value :=txtUser.Text;
Recordset.Fields.Item['FAccountPwd'].Value :=txtPwd.Text;
UpdateRecord;
end;
end;

 

B

billson

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-14

• #3

to 豆豆：
什么意思啊？

 

F

fant

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-14

• #4

With DataModule1.ADOQuery1 do
begin
close;
sql.Clear;
**** sql.Add('select FAccountName from TBas_Account where FAccountName='+''''
+txtUser.Text+'''');
open;
If Not Eof Then frmPub.ShowMessage('存在该用户，无法添加用户!')
else
begin
insert();
Recordset.Fields.Item['FAccountName'].Value :=txtUser.Text;
Recordset.Fields.Item['FAccountPwd'].Value :=txtPwd.Text;
UpdateRecord;
end;
end;

 

L

Leong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-14

• #5

当用到EOF时，是否要先要first;再while not eof then begin....next;end;呢？
仅供参考！

 

B

billson

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-14

• #6

我现在想插入一个新行，如果while not eof then没有达到要求啊

 

B

billson

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-14

• #7

这个问题看起来不难啊，请各位delphier出出手吧

 

B

billson

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-14

• #8

。。。。

 

土

土土

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-14

• #9

什么错误提示的？

 

B

billson

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-14

• #10

错误的行在以下几行：
insert();
Recordset.Fields.Item['FAccountName'].Value :=txtUser.Text;
Recordset.Fields.Item['FAccountPwd'].Value :=txtPwd.Text;
UpdateRecord;

是报EOF或BOF的错误，是不是insert不对？

 

福

福利彩票

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-14

• #11

这样试试吧：
With DataModule1.ADOQuery1 do
begin
close;
sql.Clear;
**** sql.Add('select FAccountName from TBas_Account where FAccountName='+''''
+txtUser.Text+'''');
open;
first; //Add
If Not Eof Then frmPub.ShowMessage('存在该用户，无法添加用户!')
else
begin
{
insert();
Recordset.Fields.Item['FAccountName'].Value :=txtUser.Text;
Recordset.Fields.Item['FAccountPwd'].Value :=txtPwd.Text;
UpdateRecord;
}
sql.clear;
sql.add('insert into tablename values('''+ txtUser.Text +''','''+ txtPwd.Text +'''');
EXECSQL;
end;
end;

 

N

NoSwing

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-14

• #12

似乎是Delphi的那个Bug

 

土

土土

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-14

• #13

to noswing
你的select 后少了个字段facontpwd

 

B

billson

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-14

• #14

是的，不过后来我在SQL语句中加上了该字段后，仍然报错

 

F

fredsu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-15

• #15

估计你没在ADOQuery1设永久性字段

 

B

book523

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-15

• #16

你的语句没问题，一点问题都没有！！！！！！！！！！
你把ado升级到最高版本，问题就解决了，这是delphi的ado封装的问题（只要
adoquery的记录为空，再用时就出现这个问题）
或者用bde问题也可解决！！
你看看办吧！

 

填

填海精卫

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-15

• #17

建议：
With DataModule1.ADOQuery1 do
begin
close;
sql.Clear;
sql.Add('select FAccountName from TBas_Account where FAccountName='''
+txtUser.Text+'''');
open;
If Not Empty Then //
frmPub.ShowMessage('存在该用户，无法添加用户!')
else begin
close;
sql.Clear;
sql.add('insert into tablename values('''+ txtUser.Text +''','''+ txtPwd.Text +'''');
EXECSQL;
end;
end;

 

B

billson

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-15

• #18

后来我把程序也改成了“填海精卫”所建议的那样，能顺利通过，但我不想使用sql语句来
插入记录，想通过使用Recordset集来实现这种操作，不知有没有好的方法？