procedure TForm2.BitBtn2Click(Sender: TObject);var SQLCommand: String;begin SQLCommand := 'insert into userinfo(username,password,blogid) values(' + edit1.Text + ',' + edit2.Text + ',' + IntToStr(ListBox1.ItemIndex+1) + ')'; ADOCommand1.CommandText := SQLCommand; ADOCommand1.Execute;end;就这么一条简单的SQL语句，写了几个小时都没搞定哪位帮帮忙！

beginSQLCommand := ('insert into userinfo(username,password,blogid'+') values(''' + edit1.Text + ''',''' + edit2.Text + ''','''+ IntToStr(ListBox1.ItemIndex+1) + ''')'); ADOCommand1.CommandText := SQLCommand; ADOCommand1.Execute; end; 你这样试下，如果还不行的话加我QQ：254232224，你注上baidu，我也是个初学者，希望以后还能请你指导指导~~

我也遇到同样的问题，请问楼主解决了吗

字段类型。
如果是字符串请使用 QuotedStr 函数。
多看书，就不会问这种低级问题了。

一看就是字符串没有双引号。每个edit只要是字符必须加引号。这个你直接跟踪调试把sql语句打出来再在数据库执行。一下就知道哪有问题。

用QuotedStr函数吧，你少引号了，不过用引号显得乱