delphi7运行提示“*”附近有语法错误？

Question

procedure TForm1.Button1Click(Sender: TObject);Var strB :String;//定义变量"strB"begin strB:='water.sf'+StringReplace(ComboBox1.Text,'-','',[rfReplaceAll]); ADOQuery1.SQL.Clear; ADOQuery1.Parameters.Clear; ADOQuery1.SQL.Add('Select yhno as 序号 * from'); ADOQuery1.SQL.Add(strB); ADOQuery1.SQL.Add('where yhno='); ADOQuery1.SQL.Add(Edit1.Text); ADOQuery1.Parameters; ADOQuery1.open; Button1.Enabled:=false;end;

请高收指点！

Answer 1

 不看别的行，就看这一行：

ADOQuery1.SQL.Add('Select yhno as 序号 * from');

实际生成的SQL语句是这样的：

Select yhno as 序号 * from

很显然，这样的SQL语句就是错的，*前面少了逗号。

另外，从上面你的代码里猜，貌似还有问题，from 后面的表名在哪里？是“water.sf”这里的东西吗？

建议，你把这个SQL语句，输出显示出来，自己执行一下这个SQL语句。

追问

首先谢谢了，这个问题已经解决了，但是现在有新的问题了：
我现在连接数据库成功了，内容也可以查询出来了。我想把查询到的内容导出来，那么接下来就该写XML了，但是我怎么都跳不到XML格式中去，老是提示：顶元素无效？请问该怎么办？谢谢！