不支持`~
很多SQL语句都不支持`~
解决方案 »
- nmftp上传问题
- 请教函数SHFileOpStruct的那些参数的意思!
- Winsock使用的问题请大家帮忙
- 帮忙看看代码,不知道这个错误该怎么改?
- 关于dbgrid的修改问题!!!!高手帮忙!!
- 我写的三层模型程序,采用MultiInstance和Apartment模式,可是有问题,请各位多帮忙!急用!!
- 如何通過一個可執行程序傳遞參數給另一個可執行程序﹐另一程序再根據傳過來的值做相應動作﹖
- adoQuery执行Open的时候提示"无效的授权说明",ADOConn连接SQL2005
- 在dbgrid数值字段内输入23.36.36时就出错,不知道应该怎么解决
- 奇怪,borland的开发能力这么强,为什么几乎没有一个象office那样流行的应用软件呢?如果它的应用软件很多,就不会象现在这样穷了吧?
- 如何实现CheckListBox中的几个记录的颜色与其它的不同(标识重点项),欢迎改过此控件的高手提供代码,谢谢!
- SOS:求助水晶報表(crystal report)封裝問題
batchmove 空件是不是好用 ,是不是可以
SQL: 你的选择的SQL语句
TblName:into 的表的名称
功能:将你的选择结果放进tblname表中
uses BDE,DBTables;
procedure Qry2Tbl( SQL,TblName: string);
var
hStmt: hDBIStmt;
hQryCur, hNewCur: hDBICur;
iRecCount: LongInt;
begin
hQryCur := nil;
hNewCur := nil;
hStmt := nil;
try
Check(DbiQAlloc(FDataM.DataBase1.Handle, qrylangSQL, hStmt));
Check(DbiQPrepare(hStmt, PChar(SQL)));
Check(DbiQExec(hStmt, @hQryCur));
Check(DbiQInstantiateAnswer(hStmt, hQryCur, PChar(TblName), szPARADOX,
True, @hNewCur));
Check(DbiGetRecordCount(hNewCur, iRecCount));
//Result := iRecCount; finally
if (hStmt <> nil) then
Check(DbiQFree(hStmt));
if (hNewCur <> nil) then
Check(DbiCloseCursor(hNewCur));
end;
end;