Delphi7 编程修改SQL表里的数据出现这样的问题

来源:百度知道 编辑:UC知道 时间:2024/04/27 20:13:33
unit Unit25;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons;

type
TmmggForm = class(TForm)
Label1: TLabel;
Edit1: TEdit;
Label2: TLabel;
Label3: TLabel;
Edit2: TEdit;
Edit3: TEdit;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
mmggForm: TmmggForm;

implementation
uses unit1,unit8;
{$R *.dfm}

procedure TmmggForm.BitBtn1Click(Sender: TObject);
var
sSql:String;
begin
if Edit2.Text=Edit3.Text then
begin
sSql:='select * from yonghu where name=''' +Edit1.Text+ '''

检查一下当时mainForm.query1的状态,极有可能由于SQL执行错误导致mainForm.query1处于关闭状态,这时引用mainForm.query1.RecordCount就会出错。

对于SQL中的敏感字如:name、password...最好用[],括起来,以避免与数据库保留字冲突

我帮了不了

刚才做了下简单的测试 没发现什么问题 - -!