德爾福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 ;