本文由 千趣源码 – qianqu 发布，转载请注明出处，如有问题请联系我们！清空数据库表命令-SQL数据库命令大全
好好活着的情况下不容易带，去世了也不会带。太过的执着会变成厚重的压力。真真正正优秀的人，明白给自4049;的内心空出室内空间，丢掉一些往日的云雾，邀约轻风明月进到自身的心里。这样的人通常比傻子更聪慧。人生何其短暂，关键的并不是纸醉金迷，反而是撇开流云，认清人生的真谛。
《VBA数据库解决方案》就是我的第二篇实例教程，第一版早已改动过去了。本实例教程坐落于初级水准，是学习培训词典后的另一个专题讲座。数据库查询是数据处理方法的神器。实例教程中详解了用ADO联接ACCDB和Excel的办法和实例实际操作。实例教程第一版的修定內容主5201;是进行全部体系文件的32位和64位Office功能测试。
本实例教程由两卷和84堂课构成。将来，实例教程的修定內容将相继发布。今日的具体内容是第十四讲:数据库查询中数据分析表的动态性删掉和创建。
第14讲:怎样在数据库查询中动态性删掉和建立数据分析表。小伙伴们好。今日，大家将再次探讨VBA数据库查询解决方法的第14讲:怎样在数据库查询中实例化数据分析表。如同我们在什么叫数据库查询中所表述的，表有一种关联，那麼这类关联能够动态性创建吗？换句话说，我们在程序流程选用编码建立数据分析表，大家能保证吗？我们在做程序流程的情况下，在撰写数据库查询的过程中常常必须创建数据分析表，可是手工制作创建的确很不便。大家考虑到应用VBA编码来搭建他们。是的，用优势搭建他们是肯定很有可能的，并且比较简单。
实例:数据库查询mydata中早已存有一个表“职工纪录”，大家必须建立另一个表“信息内容引入”。该表格中的具体内容是储存2个字段名，即每一个单位的部门名称和该单位的职工总数。大家必须看一下这一段源代码是怎么进行的。
1.实例化和删掉数据分析表的运用编程代码。
编码如下所示:
Sub mynztableJL()
做为目标的二进制代码
Dim strPath，myTable，strSQL As String
设定cnADO = CreateObject("ADODB。联接”)
设定rsADO = CreateObject("ADODB。记录集”)
strPath =此工作簿。途径&“my data 2 . accdb”
MyTable = "信息内容1442;照"。
TT =假
cnADO。Open "Provider=Microsoft。ACE . OLEDB.12.0数据库= & strPath
设定rsADO = cnADO。OpenSchema(20，二维数组(空，空，我的表，空))
要不是rsADO。随后电渗流
该电子表格早已存有，是不是要删掉该数据分析表，vbInformation，“数据分析表分辨”。
strSQL = "DROP TABLE " & myTable
cnADO。实行strSQL
TT =真
别的
MsgBox“数据分析表不会有，下一步会创建电子表格”，vbInformation，“数据分析表分辨”。
假如…便会完毕
strSQL = "CREATE TABLE " & myTable _
& "(单位文本(20)不以空，总人数文本(10)不以空)"。
cnADO。实行strSQL
假如TT是确实，那麼
MsgBox“数据分析表建立取得成功！”& vbCrLf &“数据分析表名叫:“& myTable”，建立数据分析表。
别的
MsgBox“已建立数据分析表并取得成功再次建立！”& vbCrLf &“数据分析表名叫:“& myTable”，建立数据分析表。
假如…便会完毕
rsADO。关掉
cnADO。关掉
设定rsADO =无
设定cnADO =无
尾端连接头
编码截屏:
2编码表述和完成实际效果。编码表述:
1) strSQL = "DROP TABLE " & myTable
cnADO。实行strSQL
这也是根据SQL，应用DROP句子，删除表。
留意:您还可以应用DROP句子轻轻松松删除索引，表和数据库查询。
2)设定rsADO = cnADO。OpenSchema(20，二维数组(空，空，我的表，空))
要不是rsADO。随后电渗流
该电子表格早已存有，是不是要删掉该数据分析表，vbInformation，“数据分析表分辨”。
strSQL = "DROP TABLE " & myTable
cnADO。实行strSQL
TT =真
别的
MsgBox“数据分析表不会有，下一步会创建电子表格”，vbInformation，“数据分析表分辨”。
假如…便会完毕
在上面的编码中，必须分辨myTable电子表格，即“信息内容引入”表是不是存有。假如存有，必须先删掉已经有的数据分析表。为了更好地完成人机交互技术，在删掉以前务必获得客户的允许。
要是没有数据分析表，将显示客户，并建立以下几点。
3)STrsql = " CREATE TABLE " & my TABLE _
& "(单位文本(20)不以空，总人数文本(10)不以空)"。
cnADO。实行strSQL
上边的编码建立了一个myTable电子表格，也就是“信息内容引入”的数据分析表，它有两个字段名。
①单位文本(20)名字为“单位”，文本长20字符，并不是空。
②总人数文字(10)不以空称之为“总人数”，文字长短为10字符，并不是空。
create table句子用以在数据库系统中建立一个表。
英语的语法:CREATE TABLE表名。
（
第1列基本数据类型，
第2列基本数据类型，
第3列基本数据类型，
….
)
4)假如TT为真，那麼
MsgBox“数据分析表建立取得成功！”& vbCrLf &“数据分析表名叫:“& myTable”，建立数据分析表。
别的
MsgBox“已建立数据分析表并取得成功再次建立！”& vbCrLf &“数据分析表名叫:“& myTable”，建立数据分析表。
假如…便会完毕
上边的编码中会讨厌一个提示框，提醒客户数据分析表早已建立取得成功。这儿，它提醒我们建立数据分析表的操作过程是不一样的。一种情形是原先沒有建立新的数据分析表，另一种原因是原先存有的电子表格，删掉后再建立。这一分辨被一个自变量TT所确认。
5) rsADO。关掉
cnADO。关掉
设定rsADO =无
设定cnADO =无
上边的编码是关掉联接并增加内存。在编号的环节中。记牢在最终关掉联接和记录集，并在最终增加内存。
使我们看一下编码是怎样工作中的:
如果是原来存有此数据分析表，则会出现下边的提醒：假如该数据分析表原先存有，将得出下列提醒:
