VB查找sqlserver中是否存在某张表，不存在则创建

最新推荐文章于 2024-04-26 09:11:45 发布

Fanstorm丶

最新推荐文章于 2024-04-26 09:11:45 发布

阅读量2.2k

点赞数 1

分类专栏： VB6 文章标签： vb 查找表表是否存在创建表 sql server

本文链接：https://blog.csdn.net/wf824284257/article/details/53439280

版权

VB6 专栏收录该内容

24 篇文章 3 订阅

订阅专栏

VB查找sqlserver中是否存在某张表

cn是adodb.connection对象，已经打开了数据库，现在查找数据库内是否存在名字是lblu.caption的表，如果不存在，则创建

    Dim rs As New ADODB.Recordset
    strsql = "select * from sys.tables where name = '" & lblu.Caption & "'"
    rs.Open strsql, cn, 3, 3

    If rs.RecordCount = 0 Then
        strsql = "create table " & lblu.Caption & " (friend nvarchar(20) primary key)"
        cn.Execute (strsql)
        MsgBox "创建表成功"
    End If
    rs.Close