delphi的简单问题

Question

SQL Server
select * from sysobjects where id = object_id(N'[表名称]') and OBJECTPROPERTY(id, N'IsUserTable') = 1
如果存在～～则返回表名～～

Answer 1

我是动态创建了一个表(aceess),如何出判断它是否存在?

Answer 2

if exists (select * from sysobjects
    where sysstat & 0xf = 3 and
          id = object_id('oadbo.oc_jjcd')
)

Answer 3

if exists (select * from sysobjects
    where sysstat & 0xf = 3 and
          id = object_id('tablename')
)

Answer 4

数据库是access,而且数据表示我动态创建的,有时创建之后,等条件一变又要将他删除.
也就是说随时要创建删除动态数据表

Answer 5

wwwwwwww(我我)　,别人说的是access,不是sql server

Answer 6

我有一个损招,用try  
  select * from ***
 except 
    on e: exception do....
end;

Answer 7

 table1:=Ttable.create(self);
 table1.databasename:=yourdatebasename;
 table1.tablename:=yourtablename
if table1.exists then ...

Answer 8

procedure TForm1.Button1Click(Sender: TObject);
begin
ADOConnection1.GetTableNames (memo1.Lines ,false);end;
得到所有的表名

Answer 9

procedure TForm1.Button1Click(Sender: TObject);
begin
ADOConnection1.GetTableNames (memo1.Lines ,false);end;
得到所有的表名

Answer 10

object Form1: TForm1
  Left = 192
  Top = 107
  Width = 544
  Height = 375
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Memo1: TMemo
    Left = 28
    Top = 40
    Width = 181
    Height = 205
    Lines.Strings = (
      'Memo1')
    TabOrder = 0
  end
  object Button1: TButton
    Left = 244
    Top = 228
    Width = 75
    Height = 25
    Caption = 'Button1'
    TabOrder = 1
    OnClick = Button1Click
  end
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=C:\te' +
      'st.mdb;Mode=Share Deny None;Extended Properties="";Jet OLEDB:Sys' +
      'tem database="";Jet OLEDB:Registry Path="";Jet OLEDB:Database Pa' +
      'ssword="";Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mod' +
      'e=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Tr' +
      'ansactions=1;Jet OLEDB:New Database Password="";Jet OLEDB:Create' +
      ' System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLED' +
      'B:Don'#39't Copy Locale on Compact=False;Jet OLEDB:Compact Without R' +
      'eplica Repair=False;Jet OLEDB:SFP=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 240
    Top = 136
  end
end以下是事件
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, ADODB, StdCtrls;type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    ADOConnection1: TADOConnection;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);
begin
ADOConnection1.GetTableNames  (memo1.lines,false);
end;end.