各位大哥,可以用语句判断数据库中的一个表存不存在吗?什么语句请指教。
解决方案 »
- VB MSHFlexGrid内求标准偏差(错误)问题,求高手解答。
- Windows時啟動時的畫面是怎樣實現的
- 请问一下webbrowser的控制
- 请教各位:部件选项里Microsoft office web components中的Spreadsheet控件如何使用?
- 关于在ActiveBar里显示MDI(子窗体)的问题
- DBGrid32.ocx这个控件怎么注册?
- vb中打印的代码如何写呀?
- 用AdoDC谢SQL的问题
- 有谁知道怎样快速的调用VB做的程序?例如:用VFP,谢谢!要快!快!快!快!快!快!快!快!
- 请问,我想用一句sql语句查出一张表中所有符合条件的纪录....
- 编一个小程序真麻烦,但终于只剩下最后一个打包的问题
- 到哪里找POP3的命令集合?
'* 名称:TableExists
'* 功能:判断表是否存在(表名)
'* 用法:TableExists(表名) adoCN是一个SQL的连接
'*********************************************************
Public Function TableExists(findTable As String) As Boolean
Dim rstSchema As New ADODB.Recordset
Set rstSchema = adoCN.OpenSchema(adSchemaTables)
rstSchema.Find "TABLE_NAME='" & findTable & "'"
If rstSchema.EOF Then
TableExists = False
Else
TableExists = True
End If
rstSchema.Close
End Function
'
'Author:lihonggen0
'Date:2003-6-19
'功能:获取access库中表的个数及表的名称
'用ado怎样实现
'工程--->引用--->Microsoft ActiveX Data Object 2.x(版本号)
'----------------------------------------------------------------------------
Private Sub Form_Load()
Dim adoCN As New ADODB.Connection '定义数据库的连接
Dim strCnn As New ADODB.Recordset
Dim I As Integer
str1 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\Northwind.MDB;Persist Security Info=False"
adoCN.Open str1
Set rstSchema = adoCN.OpenSchema(adSchemaTables)
Do Until rstSchema.EOF
If rstSchema!TABLE_TYPE = "TABLE" Then
out = out & "Table name: " & _
rstSchema!TABLE_NAME & vbCr & _
"Table type: " & rstSchema!TABLE_TYPE & vbCr
I = I + 1
End If
rstSchema.MoveNext
Loop
MsgBox I
rstSchema.Close
adoCN.Close
Debug.Print out
End Subhttp://expert.csdn.net/Expert/FAQ/FAQ_Index.asp?id=8159