记账软件版1楼: 以下这个过程,运行时,老是提示from 子句出错,请各位指教:

procedure TF_arrange_database.Button2Click(Sender: TObject);
var
v_text: string;
v_name: string;
begin
with adoquery2 do
begin
close;
sql.Clear;
v_text := ＇＇select * from :t_table ＇＇;
sql.Add(v_text);
Parameters.ParamByName(＇＇t_table＇＇).Value := ＇＇ c_bmxx ＇＇;
open;
end;
end;

2楼: procedure TF_arrange_database.Button2Click(Sender: TObject);
var
v_text: string;
v_name: string;
begin
with adoquery2 do
begin
close;
sql.Clear;
v_text := ＇＇select * from ＇＇+v_text;
open;
end;
end; 如管家婆软件价格

3楼: c_bmxx是表的名字吗？
直接Select * from c_bmxx呢

4楼: 把sql语句放到with语句的外面（sql语句与adoquery2无关），应该可以解决问题。

5楼: 回:XUEXI666
c_bmxx是表的名字吗？
直接Select * from c_bmxx呢

这个语句行,但是我想对数据库的所有表逐一显示,所以需要用参数显示
===================================================================
===================================================================
回:qreportmaker
v_text := ＇＇select * from ＇＇+v_text;

6楼: SQL里面表名字不能用参数传的。把表名拼到ＳＱＬ里面吧。

记账软件版7楼: 哦？如果要用呢？应该如何写？望指教

8楼: 采纳了jennykiller的方法
procedure TF_arrange_database.Button2Click(Sender: TObject);
var
v_text1: string;
v_text2: string;
begin
with adoquery1 do
begin
close;
sql.Clear;
v_text1 := ＇＇select name from msysobjects ＇＇;
v_text1 := v_text1 + ＇＇where left(name,1)<>＂~＂ and left(name,4)<>＂msys＂ and type=1 ＇＇; //用left(name,4),不用leftstr(name,4)
v_text1 := v_text1 + ＇＇order by name＇＇;
sql.Add(v_text1);
open;
end;
with adoquery2 do
begin
while not adoquery1.Eof do
begin
try
close;
sql.Clear;

v_text2 := ＇＇select top 100 * from ＇＇ + adoquery1.fieldbyname(＇＇name＇＇).AsString; //from table 用不了参数,目前只能用此方法2006-2-8
sql.Add(v_text2);
open;
adoquery1.Next;
showmessage(adoquery1.fieldbyname(＇＇name＇＇).AsString +＇＇ok＇＇);
except
showmessage(adoquery1.fieldbyname(＇＇name＇＇).AsString + ＇＇出错!＇＇);
adoquery1.Next;
end;

end;
end;
end;

9楼: 在OPEN前，需要Prepared

10楼: 以下这个过程,运行时,老是提示from 子句出错,请各位指教:

procedure TF_arrange_database.Button2Click(Sender: TObject);
var
v_text: string;
v_name: string;
begin
with adoquery2 do
begin
close;
sql.Clear;
v_text := ＇＇select * from :t_table ＇＇ + ＇＇ c_bmxx ＇＇;
sql.Add(v_text);
open;
end;
end;

11楼: procedure TF_arrange_database.Button2Click(Sender: TObject);
var
v_text: string;
v_name: string;
begin
with adoquery2 do

begin
close;
sql.Clear;
v_text := ＇＇select * from 表名 where 字段=:t_table ＇＇;
sql.Add(v_text);
Parameters.ParamByName(＇＇t_table＇＇).Value := ＇＇ c_bmxx ＇＇;
open;
end;
end;

12楼: procedure TF_arrange_database.Button2Click(Sender: TObject);
var
v_text: string;
v_name: string;
begin
with adoquery2 do
begin
close;
sql.Clear;
v_text := ＇＇select * from ＇＇ + ＇＇ c_bmxx ＇＇;
sql.Add(v_text);
open;
end;
end;




回:XUEXI666
c_bmxx是表的名字吗？
直接Select * from c_bmxx呢

这个语句行,但是我想对数据库的所有表逐一显示,所以需要用参数显示
===================================================================
===================================================================
回:qreportmaker
v_text := ＇＇select * from ＇＇+v_text;

＂我想对数据库的所有表逐一显示,所以需要用参数显示＂这名话我不明白，你想逐一显示是全部都显示还是想做一个通用的查询，对任何表都可以做查询操作？ 如管家婆软件报价