Question

我想编写一个地址簿应用程序，并使用访问.mdb文件。我知道如何将新联系人插入数据库，但我不知道如何编辑联系人。我将我的测试项目放在AddressBookTest.zip。欢迎任何帮助

Answer 1

您的INSERT代码必须执行此操作：

      qryAux.SQL.Text:='INSERT INTO tblContacts(FirstName, LastName) VALUES( ' +
        QuotedStr(frmEd.edFirstName.Text) + ',' +
        QuotedStr(frmEd.edLastName.Text) + ')';

插入两个值是正确的。

在编辑模式下，要从DB检索值，您必须执行打开，而不是 ExecSQL 。在执行打开之后，您必须测试记录是否已找到。看到这段代码：

   qryAux.Open;

   // Finded?
   if not (qryAux.Eof) then begin
     frmEd.edFirstName.Text:=qryAux.FieldByName('FirstName').AsString;
     frmEd.edLastName.Text:=qryAux.FieldByName('LastName').AsString;
   end;

问候。

Neftalí-GermánEstévez -

Answer 2

看起来您正在使用SQL命令而不是编辑/插入/发布。因此，您需要的是UPDATE命令：

UPDATE tblContacts
SET FirstName = '''+frmEd.edFirstName.Text+''''
WHERE ID=10

要添加多个值，请使用逗号分隔，例如

SET FirstName = 'John', LastName = 'Smith'

需要帮助插入新的联系人从delphi访问mdb

2 个答案: