ado+access2000怎么判断数据库中指定的表存在否，不存在怎么处理

2002-05-19 10:08:03 179 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Palantir解密：“本体”的建模逻辑及其扩展方向上一篇重点从对现实世界建模的角度探讨了“本体”在数字化架构中的核心意义。这里借Palantir的“本体”概念、解析Palantir只是起点，目标旨在以他山之石攻玉——探索数字世界的底层架构逻辑，最终为构建自主体系提供思考。Palantir以“本体论”为核心的建模方案是否代表终极答案，不宜过早下结论，但其思路值得深入剖析。阅读详情

...全文

从零开始：用Python实现AlphaZero五子棋AI（附完整代码）本文详细介绍了如何从零开始使用Python实现AlphaZero五子棋AI。通过工程化实践，逐步构建蒙特卡洛树搜索（MCTS）、轻量化残差网络（ResNet）以及自博弈训练循环，并提供完整可运行的代码。文章旨在帮助开发者绕过复杂理论，聚焦实战，最终打造一个能够自我学习与对弈的智能体，是深度强化学习在游戏AI领域的一次完整项目实战。阅读详情

downseng

数据库(包含打印，安装，报表) 1,217 成员 55,949 内容

+ 关注 + 加入社区

切换为时间正序

topikachu 2002-05-20

打赏
举报

用openschema方法
具体请参考ado帮助
OpenSchema 方法范例
该范例使用 OpenSchema 方法显示 Pubs 数据库内每个表的名称和类型。

Public Sub OpenSchemaX()

Dim cnn1 As ADODB.Connection
Dim rstSchema As ADODB.Recordset
Dim strCnn As String

Set cnn1 = New ADODB.Connection
strCnn = "Provider=sqloledb;" & _
"Data Source=srv;Initial Catalog=pubs;User Id=sa;Password=; "
cnn1.Open strCnn

Set rstSchema = cnn1.OpenSchema(adSchemaTables)

Do Until rstSchema.EOF
Debug.Print "Table name: " & _
rstSchema!TABLE_NAME & vbCr & _
"Table type: " & rstSchema!TABLE_TYPE & vbCr
rstSchema.MoveNext
Loop
rstSchema.Close

cnn1.Close

End Sub

至于不存在,那么看你程序的目的了,或者创建一个表.或者程序报错.

funboy88 2002-05-20

打赏
举报

有一个专门判断表是否存在的语句，一时不记得啦，在SQL server 2000中可以找到,

zhengchong 2002-05-20

打赏
举报

给你写个函数，试一试
Private Function FindTable() As Boolean
Dim cn As New adoDB.Connection
Dim RS As New adoDB.Recordset

FindTable = False
If cn.State = 0 Then cn.Open ConnectStr 'ConnectStr 为连接串
If RS.State = 1 Then RS.Close
Set RS = cn.OpenSchema(adSchemaTables)
Do While Not RS.EOF
Select Case RS(2).Value
Case "MSysRelationships", "MSysQueries", "MSysObjects", "MSysModules2", "MSysModules", "MSysACEs", "MSysAccessObjects"
Case Else
If FindTableName = RS(2).Value Then
FindTable = True
Exit Function
End If
End Select
RS.MoveNext
Loop
End Function

lzj_freedom 2002-05-20

打赏
举报

dim a as tabledef
for each a in currentdb.tabledefs
if a.name=XXX then
msgbox "Find"
end if
next
好像是dao的，试试看吧。:)

lzj_freedom 2002-05-20

打赏
举报

dim a as tabledef
for each a in currentdb.tabledefs
if a.name=XXX then
msgbox "Find"
exit sub
end if
next

naomi77 2002-05-20

打赏
举报

adodc的connectstring中不是有“测试连接”吗？

oarsman 2002-05-19

打赏
举报

这个问题的一般解决方法是试着打开这个表，如果程序出错，通过errnumber对象，判断出出错的原因是表不存在，然后相应的进行处理，如果不出错，那么就可以直接用了！代码可以这样：
private sub a（）
on error goto l
打开表；
进行操作；
exit sub
l：

if err.number=表不存在的错误号（自己可以查，我记不清了！） then
错误时的处理程序
end if
end

这样就可以了！当然还有其他方法了！不过这个比较简单！

ado+access2000怎么判断数据库中指定的表存在否，不存在怎么处理

相关推荐