如题
解决方案 »
- cnwizards 一个安装程序,一个源代码 请问源代码有什么用
- 使用DLL函数调用窗体的问题
- 文件关联所碰到的问题100分等待
- 请问在delphi中如何连接oralce数据库?(在线)
- 菜鸟问题:那位给个关于ADO操作数据库的例程啊?
- 挑战性问题:(版主、高手请进)Object Pascal中可以把一类声明为另一个类的友元类?同时两个类不在同一个Unit中;
- 程序出错时,自己写的一个捕获异常,弹出一个对话框,我用的是MessageBox,但是我发觉用户不用点击对话框中的确定按钮也可以进行其他窗口
- 寻李维的四套delphi电子书,在哪儿下?每套20分,第一个正确的给分
- 关于treeview的问题,第一次发贴,希望大家多给予解答,谢谢。
- 这关系到delphi程序员的命运与前途。请快进入!!!!!!
- ★★如何更改inputbox中信息内容部分的字体,及如何约束输入的类型?
- 初学菜鸟 !!参数问题!!!
Clear;
showmessage(sql);看有没有错误就行了
可以肯定是sql的语法错误
var
i:integer;
begin
if ADOQ_sel.FieldByName(Column.FieldName).FieldKind =fkData then
begin
for i:=0 to dbgMaster.Columns.Count-1 do
begin
if dbgMaster.Columns[i]<>Column then
begin
if (copy(dbgMaster.Columns[i].Title.Caption,1,2)='▲') or (copy(dbgMaster.Columns[i].Title.Caption,1,2)='▼') then
dbgMaster.Columns[i].Title.Caption:=copy(dbgMaster.Columns[i].Title.Caption,3,length(dbgMaster.Columns[i].Title.Caption));
end else
begin
if copy(Column.Title.Caption,1,2)='▲' then
begin
ADOQ_sel.Sort:=Column.FieldName+' DESC';
Column.Title.Caption:='▼'+copy(Column.Title.Caption,3,length(dbgMaster.Columns[i].Title.Caption));
end else
begin
ADOQ_sel.Sort:=Column.FieldName+' ASC';
if copy(Column.Title.Caption,1,2)='▼' then
Column.Title.Caption:='▲'+copy(Column.Title.Caption,3,length(dbgMaster.Columns[i].Title.Caption))
else Column.Title.Caption:='▲'+Column.Title.Caption;
end;
end;
end;
end;
end;
ADOQuery.SQL.Add('SELECT * FROM 表一 ORDER BY '+Column.FieldName);
ADOQuery.sql.clear;
ADOQuery.SQL.Add('SELECT * FROM 表一 ORDER BY '+Column.FieldName);
ADOQuery.open出错误说:ORDER BY 语法错误
中的Column.FieldName是否为空,或表中不存在该字段;