德尔福SQL插入到语句错误

Question

qryreg.SQL.Add('Insert into RegistreerTB'); 
qryreg.SQL.add('Name , Surname, E-mail, Password)'); 
qryreg.SQL.Add('Values ('+quotedstr(edtname.Text)+','+quotedstr(edtsname.Text)+','+quotedstr(edtemail.Text)+','+quotedstr(edtpassuse.Text)+')'); 
qryreg.ExecSQL ; 
qryreg.SQL.Text := 'Select * from RegistreerTB'; 
qryreg.Open ; 

这是代码即时通讯使用ATM与德尔福即时通讯试图从编辑框保存数据到我的数据库。错误即时得到是EOELeException“INSERT INTO声明”

TY提前

Answer 1

您的问题是在第一线。我在下面做了更正。你需要一个左括号。

qryreg.SQL.Add('Insert into RegistreerTB ('); 
qryreg.SQL.Add('Name , Surname, E-mail, Password)'); 
qryreg.SQL.Add('Values ('+quotedstr(edtname.Text)+','+quotedstr(edtsname.Text)+','+quotedstr(edtemail.Text)+','+quotedstr(edtpassuse.Text)+')'); 
qryreg.ExecSQL ; 
qryreg.SQL.Text := 'Select * from RegistreerTB'; 
qryreg.Open ; 

看看，如果这个工程

qryreg.SQL.Add("Insert into RegistreerTB ("); 
qryreg.SQL.Add("Name , Surname, E-mail, Password)"); 
qryreg.SQL.Add("Values ('"+edtname.Text+"','"+edtsname.Text +"','"+edtemail.Text+"','"+edtpassuse.Text +"')"); 
qryreg.ExecSQL ; 
qryreg.SQL.Text := "Select * from RegistreerTB"; 
qryreg.Open ; 

Answer 2

1. 可能是你有你的第一行之前调用qryreg.SQL.Clear。
2. 为什么不使用参数？

Answer 3

由于John's answer指出，您需要在VALUES之前的列名称周围有括号。您需要确保所有列名都是有效的SQL标识符。如果它们不是，如E-mail的情况，则需要根据数据库的语法规则引用或转义它们。例如，MySQL使用严重口音，Microsoft SQL使用括号，Oracle和Postgresql使用引号。

Answer 4

由于oodesigner指出，更好的方法是使用参数。我不知道你在找什么教科书，但鉴于该代码是不是真的最好的做法（这是最糟糕的不是任何做法，至少它使用QuotedStr而不是'''' + edtname.Text + ''''其失败，你使用类似澳第一次奥康纳，并允许SQL注入攻击

使用的参数和假设SQL Server语法按照Rob的answe，并假设TADOQuery（基于EOLEException）的代码会是这样的：

qryreg.SQL.Add('Insert into RegistreerTB'); 
qryreg.SQL.Add('(Name , Surname, [E-mail], Password)'); //SQL Server syntax with square brackets 

// OR qryreg.SQL.Add('(Name , Surname, "E-mail", Password)'); //Oracle/Postgres syntax with double quotes 
// OR qryreg.SQL.Add('(Name , Surname, `E-mail`, Password)'); //MySQL syntax with grave accent 

qryreg.SQL.Add('Values :Name, :Surname, :Email, :Password)'); 

qryreg.Parameters.ParamByName('Name').Value := edtName.Text; 
qryreg.Parameters.ParamByName('Surname').Value := edtSName.Text; 
qryreg.Parameters.ParamByName('Email').Value := edtEmail.Text; 
qryreg.Parameters.ParamByName('Password').Value := edtPassUse.Text; 

qryreg.ExecSQL; 
qryreg.SQL.Text := 'Select * from RegistreerTB'; 
qryreg.Open ;