vba删除mysql表_利用VBA代码,如何在数据库中动态删除和建立数据表

本文详细讲解如何使用VBA动态地在Access数据库中创建和删除数据表。通过示例代码,展示了如何检查表是否存在,删除表,以及创建包含特定字段的新表。代码中关键步骤包括使用SQL的DROP TABLE和CREATE TABLE语句,以及用户交互确认。此外,还强调了关闭连接和释放内存的重要性。
摘要由CSDN通过智能技术生成

大家好,今天继续讲解VBA数据库解决方案的第14讲:如何动态的在数据库中建立数据表。我们在什么是数据库中讲解讲过,表是一种关系,那么这种关系可否能实现动态的建立呢?也就是说,我们在程序中用代码建立数据表,是否可以做到呢?为什么要提出这个问题呢?因为我们在做程序时经常会用到写数据库时要建立数据表,而手工建立确实很麻烦,我们考虑要用VBA代码去建立,其实,用代码去建立是完全可以的,也非常的简单。

实例的应用:在一个数据库mydata中已经存在了一个表”员工记录”,我们要建立另外的一个表“信息参考”,这个表中的内容是为了储存处包括各个部门的部门名称,和部门的定岗人数两个字段,我们要看看这个代码该如何完成的。代码如下:

Sub mynztableJL()

Dim cnADO, rsADO As Object

Dim strPath, myTable, strSQL As String

Set cnADO = CreateObject("ADODB.Connection")

Set rsADO = CreateObject("ADODB.Recordset")

strPath = ThisWorkbook.Path & "\mydata2.accdb"

myTable = "信息参考"

TT = False

cnADO.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strPath

Set rsADO = cnADO.OpenSchema(20, Array(Empty, Empty, myTable, Empty))

If Not rsADO.EOF Then

MsgBox "工作表已经存在,是否删除数据表?", vbInformation, "数据表判断"

strSQL = "DROP TABLE " & myTable

cnADO.Execute strSQL

TT = True

Else

MsgBox "数据表不存在,下面将建立工作表", vbInformation, "数据表判断"

End If

strSQL = "CREATE TABLE " & myTable _

& "(部门 text(20) not null,总人数 text(10) not null)"

cnADO.Execute strSQL

If TT <> True Then

MsgBox "创建数据表成功!" & vbCrLf & "数据表名称为:" & myTable, , "创建数据表"

Else

MsgBox "创建数据表重新创建成功!" & vbCrLf & "数据表名称为:" & myTable, , "创建数据表"

End If

rsADO.Close

cnADO.Close

Set rsADO = Nothing

Set cnADO = Nothing

End Sub

代码的截图:

ef6aa63b63b408ca7be2424ebd9732ea.png

代码的讲解:

1 strSQL = "DROP TABLE " & myTable

cnADO.Execute strSQL

这是通过SQL,使用 DROP 语句,删除表。

备注:通过使用 DROP 语句,可以轻松地删除索引、表和数据库。

2 Set rsADO = cnADO.OpenSchema(20, Array(Empty, Empty, myTable, Empty))

If Not rsADO.EOF Then

MsgBox "工作表已经存在,是否删除数据表?", vbInformation, "数据表判断"

strSQL = "DROP TABLE " & myTable

cnADO.Execute strSQL

TT = True

Else

MsgBox "数据表不存在,下面将建立工作表", vbInformation, "数据表判断"

End If

在上述的代码中首先要判断myTable工作表即"信息参考"的表是否存在,如果存在那么首先要删除这个已经存在的数据表,为了达到人机交互,在删除之前要征得用户的同意。

如果不存在数据表,那么会提示用户,下面将创建。

3 strSQL = "CREATE TABLE " & myTable _

& "(部门 text(20) not null,总人数 text(10) not null)"

cnADO.Execute strSQL

上述代码创建了一个myTable工作表即"信息参考"的数据表,这个工作表有两个字段,

① 部门 text(20) not null 名称为“部门”, 文本 20个字符长,不为空

② 总人数 text(10) not null名 称为“总人数”,文本 10个字符长,不为空

③ CREATE TABLE 语句用于创建数据库中的表。

语法:CREATE TABLE 表名称

(

列名称1 数据类型,

列名称2 数据类型,

列名称3 数据类型,

....

)

4 If TT <> True Then

MsgBox "创建数据表成功!" & vbCrLf & "数据表名称为:" & myTable, , "创建数据表"

Else

MsgBox "创建数据表重新创建成功!" & vbCrLf & "数据表名称为:" & myTable, , "创建数据表"

End If

上面代码中弹出对话框提示用户数据表创建成功,这里提示用户创建的过程是不同的,一种情况是原来没有此数据表是新创建的,一种情况是原先存在此工作表,被删除了,然后再创建的。这个判断是通过的一个变量TT来确认的。

5 rsADO.Close

cnADO.Close

Set rsADO = Nothing

Set cnADO = Nothing

上述代码是关闭连接,并释放内存。在代码的编写过程中。一定记着最后要关闭连接和记录集,最后还要释放内存。

下面我们看看代码的运行:

9e243fc2ffb7f4bfe0dd44c7423e2b0d.png

73ceb3d0f61c1b092dad2700a46559ff.png

如果是原先存在此数据表,则会有下面的提示:

7dc56b0704fdef79fd6e4da71d63e34b.png

b0975b99ab1d029c00bd525c5759a0eb.png

今日内容回向:

1 如何创建和删除一个数据库中的数据表?

2 创建一个数据表的字段是如何添加的?

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值