Question

在VB中 如何 判断SQL中是否有该表

Dim cn As adodb.Connection
Private Sub Command1_Click()
sql = "CREATE TABLE [dbo].[CC] (" & " [ID] [int] NOT NULL ,PRIMARY KEY(ID))"
cn.Execute sql
MsgBox "ok"
End Sub

Private Sub Form_Load()
Set cn = New adodb.Connection
If cn.State = adStateOpen Then cn.Close
With cn
.ConnectionTimeout = 10
.Provider = "sqloledb"
.ConnectionString = "data source=192.168.1.108,1433;Network Library=DBMSSOCN;initial catalog=test;user id=sa;password=12345"
.Open
End With
End Sub

这段代码是我 连上 sql数据 单击 comm1后 在 test数据中 新建了一个 叫 CC的表 并在 表中添加了一个列名 为ID 类型为 INT

我现在想知道 如何 在 生成此表前 做一个判断

判断一下 此表 是否存在 若不存在 则生成 若存在 则 msgbox 下
ahhacker86 的方法 没头没脑的 看不明白

Freely2006 的方法 复制进去后 告诉我 select 缺少表达式

我实在不明白。。能不能 详细点说说

-----------------------------------------------------------------------------

Dim rb As ADODB.Recordset
Set rb = New ADODB.Recordset
With rb
Set .ActiveConnection = cn
.CursorLocation = adUseClient
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open "select * from sysobjects where name='CC' "
If rb.RecordCount >= 1 Then
MsgBox "存在表"
Else
MsgBox "无表"
End If
.Close
End With
好了 我自己解决了

可代码中的

.CursorLocation = adUseClient
.CursorType = adOpenKeyset
.LockType = adLockOptimistic

这3行 分别是什么意思呢？

Answer 1

参考
http://topic.csdn.net/t/20030604/17/1876180.html

rs.CursorLocation = adUseClient
就是代表使用客户端光标,和他对应的是 rs.CursorLocation = adUseServer 服务端光标
---------------------------
看一下,比我解释的清楚
CursorLocation 属性
设置或返回游标服务的位置。
设置和返回值
设置或返回可设置为以下某个常量的长整型值。
常量 说明
adUseNone 没有使用游标服务。（该常量已过时并且只为了向后兼容才出现）。
adUseClient 使用由本地游标库提供的客户端游标。本地游标服务通常允许使用的许多功能可能是驱动程序提供的游标无法使用的，因此使用该设置对于那些将要启用的功能是有好处的。AdUseClient 具有向后兼容性，也支持同义的 adUseClientBatch。
adUseServer 默认值。使用数据提供者的或驱动程序提供的游标。这些游标有时非常灵活，对于其他用户对数据源所作的更改具有额外的敏感性。但是，Microsoft Client Cursor Provider（如已断开关联的记录集）的某些功能无法由服务器端游标模拟，通过该设置将无法使用这些功能。
说明
该属性允许在可用于提供者的各种游标库中进行选择。通常，可以选择使用客户端游标库或位于服务器上的某个游标库。
该属性设置仅对属性已经设置后才建立的连接有影响。更改 CursorLocation 属性不会影响现有的连接。
对于 Connection 或关闭的 Recordset 该属性为读/写，而对打开的 Recordset 该属性为只读。
由 Execute 方法返回的游标继承该设置。Recordset 将自动从与之关联的连接中继承该设置。
远程数据服务用法 当用于客户端 (ADOR) Recordset 或 Connection 对象时，只能将 CursorLocation 属性设置为 adUseClient。
------------------------
CursorType
Recordset对象Open方法的CursorType参数表示将以什么样的游标类型启动数据，包括adOpenForwardOnly、adOpenKeyset、adOpenDynamic及adOpenStatic，分述如下：
--------------------------------------------------------------
常数 常数值 说明
--------------------------------------------------------------
adOpenForwardOnly 0 缺省值，启动一个只能向前移动的游标（Forward Only）。
adOpenKeyset 1 启动一个Keyset类型的游标。
adOpenDynamic 2 启动一个Dynamic类型的游标。
adOpenStatic 3 启动一个Static类型的游标。
--------------------------------------------------------------
以上几个游标类型将直接影响到Recordset对象所有的属性和方法，以下列表说明他们之间的区别。
--------------------------------------------------------------
Recordset属性 adOpenForwardOnly adOpenKeyset adOpenDynamic adOpenStatic
--------------------------------------------------------------
AbsolutePage 不支持 不支持 可读写 可读写
AbsolutePosition 不支持 不支持 可读写 可读写
ActiveConnection 可读写 可读写 可读写 可读写
BOF 只读 只读 只读 只读
Bookmark 不支持 不支持 可读写 可读写
CacheSize 可读写 可读写 可读写 可读写
CursorLocation 可读写 可读写 可读写 可读写
CursorType 可读写 可读写 可读写 可读写
EditMode 只读 只读 只读
只读
EOF 只读 只读 只读
只读
Filter 可读写 可读写 可读写 可读写
LockType 可读写 可读写 可读写 可读写
MarshalOptions 可读写 可读写 可读写 可读写
MaxRecords 可读写 可读写 可读写 可读写
PageCount 不支持 不支持 只读 只读
PageSize 可读写 可读写 可读写 可读写
RecordCount 不支持 不支持 只读 只读
Source 可读写 可读写 可读写 可读写
State 只读 只读 只读 只读
Status 只读 只读 只读 只读
AddNew 支持 支持 支持 支持
CancelBatch 支持 支持 支持 支持
CancelUpdate 支持 支持 支持 支持
Clone 不支持 不支持
Close 支持 支持 支持 支持
Delete 支持 支持 支持 支持
GetRows 支持 支持 支持 支持
Move 不支持 支持 支持 支持
MoveFirst 支持 支持 支持 支持
MoveLast 不支持 支持 支持 支持
MoveNext 支持 支持 支持 支持
MovePrevious 不支持 支持 支持 支持
NextRecordset 支持 支持 支持 支持
Open 支持 支持 支持 支持
Requery 支持 支持 支持 支持
Resync 不支持 不支持 支持 支持
Supports 支持 支持 支持 支持
Update 支持 支持 支持 支持
UpdateBatch 支持 支持 支持 支持
--------------------------------------------------------------
其中NextRecordset方法并不适用于Microsoft Access数据库。

LockType
Recordset对象Open方法的LockType参数表示要采用的Lock类型，如果忽略这个参数，那么系统会以Recordset对象的LockType属性为预设值。LockType参数包含adLockReadOnly、adLockPrssimistic、adLockOptimistic及adLockBatchOptimistic等，分述如下：
-------------------------------------------------------------
常数 常数值 说明
--------------------------------------------------------------
adLockReadOnly 1 缺省值，Recordset对象以只读方式启动，无法运行AddNew、Update及Delete等方法
adLockPrssimistic 2 当数据源正在更新时，系统会暂时锁住其他用户的动作，以保持数据一致性。
adLockOptimistic 3 当数据源正在更新时，系统并不会锁住其他用户的动作，其他用户可以对数据进行增、删、改的操作。
adLockBatchOptimistic 4 当数据源正在更新时，其他用户必须将CursorLocation属性改为adUdeClientBatch才能对数据进行增、
删、改的操作。

Answer 2

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[表名]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)

MSSQL中可以使用这个来判断表是否存在！

Answer 3

有个简单的方法
用要创建的表先来个查询，用on error 语句获得错误，有错误说明没有表，就创建，没有错误说明有表，就msgbox

Answer 4

and exists(select * from Table)