怎样创建两个表数据库-一个数据库可以创建几个数据表

【分享成果怎样创建两个表数据库,随喜正能量】所有的失败都是为成功做准备。抱怨和泄气,只能阻碍成功向自己走来的步伐。放下抱怨,心平气和地接受失败,无疑是智者的姿态。抱怨无法改变现状,拼搏才能带来希望。真的金子,只要自己不把自己埋没,只要一心想着闪光,就总有闪光的那一天。

《VBA数据库解决方案》教程是怎样创建两个表数据库我推出第二套教程,目前已经是第一版修订了。这套教程定位于中级,是学完字典后的另一个专题讲解。数据库是数据处理的利器,教程中详细介绍了利用ADO连接ACCDB和EXCEL的 *** 和实例操作,教程第一版的修订内容主要是完成所有程序文件的32位和64位OFFICE系统测试。

这套教程共两册,八十四讲,今后一段时间会给大家陆续推出修订后的教程内容。今日的内容是第22讲:根据工作表数据生成数据库

怎样创建两个表数据库

第二十二讲 根据工作表数据,生成数据库中新的数据表

大家好今日我们继续讲解VBA数据库解决方案的第22讲:如何利用工作表数据,生成数据库新的数据表。在之前的讲解中我们讲了很多把数据从数据表中导出到工作表的 *** ,今日我们讲解如何把数据由工作表存储到数据库中的数据表。

为什么要有这样的操作呢怎样创建两个表数据库?我们举个实例:如果您是一个部门的销售人员,每月的销售数据是一个EXCEL表格,如果可以把这些数据放到数据库中,这样会更方便的实现查找和统计。为什么要借助数据库呢?EXCEL不可以吗?当然,理论上是可以的,但实际不推荐。把数据保存在EXCEL中,容易误操作,而且当数据量大的时候,EXCEL的操作远比数据库操作要慢。这是我多年工作经验的体会。所以我们在学习的时候,该更新自己知识结构的要及时更新。比如有的朋友的EXCEL还是2003版本的甚至是2000版本的,还是建议怎样创建两个表数据库你尽快的升级吧。

1 应用场景的具体分析

言归正传,我们还是研究如何实现上述的逆运算的过程。实例:在我的EXEL表格中有一份19年2月份的销售记录,我要新建立一个数据表保存它。EXCEL工作表内容如下截图:

怎样创建两个表数据库

导入的数据表名称为“19年销售情况”,下面我们看看如何能实现这个过程。

2 将工作表中的数据导入到数据表中的代码及代码解读

由于可能的 *** 很多,我要一个一个的给大家讲解,或许有的朋友会说,怎么不用那种 *** 啊?对的,你的 *** 也可以,或许我在后续的文章中会讲到你的方案,不要紧,先看我的思路,代码:

Sub mynz_22() '第22讲 如何利用工作表数据,生成数据库新的数据表

Dim cnADO, rsADO As Object

Dim strPath, strSQL, strTable As String

Set cnADO = CreateObject("ADODB.Connection")

Set rsADO = CreateObject("ADODB.Recordset")

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

strTable = "19年销售情况"

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

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

'如果存在这个数据表,那么删除

If Not rsADO.EOF Then

strSQL = "DROP TABLE " & strTable

cnADO.Execute strSQL

End If

'按工作表创建数据表

strSQL = "SELECT * INTO " & strTable _

& " FROM [Excel 12.0;Database=" _

& ThisWorkbook.FullName & ";].[" & ActiveSheet.Name & "$]"

cnADO.Execute strSQL

MsgBox "已经将工作表数据生成新数据表。", vbInformation, "数据表创建"

rsADO.Close

cnADO.Close

Set rsADO = Nothing

Set cnADO = Nothing

End Sub

代码截图:

怎样创建两个表数据库

代码解读:

1):

Dim cnADO, rsADO As Object

Dim strPath, strSQL, strTable As String

Set cnADO = CreateObject("ADODB.Connection")

Set rsADO = CreateObject("ADODB.Recordset")

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

strTable = "19年销售情况"

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

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

上述代码用于创建ADO对象和连接,不清楚的朋友要回过头看看我之前的讲解,这段代码其实是相对固定的,朋友可以作为固定的格式来利用,很多类似的地方都是如此的。

2 ):

'如果存在这个数据表,那么删除

If Not rsADO.EOF Then

strSQL = "DROP TABLE " & strTable

cnADO.Execute strSQL

End If

这段代码我加了注释是如果存在这个数据表,那么删除,具体的解释我也不再多说,我之前都有详细的讲解

3 ):

'按工作表创建数据表

strSQL = "SELECT * INTO " & strTable _

& " FROM [Excel 12.0;Database=" _

& ThisWorkbook.FullName & ";].[" & ActiveSheet.Name & "$]"

cnADO.Execute strSQL

SELECT INTO 语句:

SELECT INTO 语句从一个表中选取数据,然后把数据插入另一个表中。

SQL SELECT INTO 语法

①把所有的列插入新表:

SELECT * INTO new_table_name [IN externaldatabase] FROM old_tablename

②只把希望的列插入新表:

SELECT column_name(s) INTO new_table_name [IN externaldatabase] FROM old_tablename

4) rsADO.Close

cnADO.Close

Set rsADO = Nothing

Set cnADO = Nothing

上述代码用于关闭连接和释放内存。

下面我们看运行的结果:

怎样创建两个表数据库

今日内容回向:

1 如何把EXCEL数据备份到数据表中?

2 通过以前的学习你是否还有他的设想,可以实现把数据表中的数据备份到数据库的表中?

本讲内容参考程序文件:VBA与数据库操作(第一册).xl ***

怎样创建两个表数据库

我20多年的VBA实践经验,全部浓缩在下面的各个教程中:

怎样创建两个表数据库

发布于 2024-06-14 16:06:07
收藏
分享
海报
0 条评论
50
目录

    0 条评论

    本站已关闭游客评论,请登录或者注册后再评论吧~