如题
解决方案 »
- 请问 delphi 6 装在 win 2008 r2 或者 win7 64 位版上能正常使用吗?
- directoryoutline和filelistbox如何关联?
- 各位高手帮忙啊:delphi中IdTCPServer如何向IdTCPClient发消息?
- 请进!~~(寻求解决方案)
- MM是什么?
- 判断一个string值是否是时间(时间string格式为04-01-01)??????????
- 三层结果,如何在客户端向数据库服务器中添加记录?
- RAVE的打印控制问题。
- 请大家继续关注:用delphi做OA问题专辑(1000分)(二):公文流转
- 对面的高手看过来............
- 高手研判:BPL中增加事务后,报访问地址违例,是什么原因?如何解决?只能给100,解决后重开新贴再送100分
- 高分悬赏!!!关于delphi编辑框输入法自动切换为默认输入法的问题?
var
SL: TStrings;
I: Integer;
S: String;
begin
Result := False;
S := UpperCase(ATableName);
SL := TStringList.Create;
try
DM.ADOConnection.GetTableNames(SL, False); //取得表名
for I := 0 to (SL.Count - 1) do
begin
if UpperCase(SL[I])= S then
begin
Result := True;
Break;
end;{if}
end;{for}
finally
SL.Free;
end;{try}
end;调用:
if MyTableExists('ATableName') then ShowMessage('已存在');
http://community.csdn.net/Expert/TopicView3.asp?id=4922716
看看這里一個是庫,,一個是表