Excel处理SQL数据库教程
- 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
Excel处理SQL数据库教程
我们可以用Excel来处理SQl数据库,这样可以加快开发步伐。Excel 有很强的显示效果,打印控制也比较简单,是计算机上必备的软件。我们通过下面的步骤,一步步的学习如何通过Excel来控制和开发简单的程序。作为一个入门的教程,力求从最简单的步骤开始。学习本教程要求已经具备了比较初步的vba编程经验。
步骤一:打开Excel后,进入microsoft visual basic 编辑器(ALT+F11)步骤二:引用ADO。方法是在vb编辑器中点击菜单栏中的“工具”菜单——“引用”,
找到这项,勾选上。
我们对于数据库的操作基本最基本的操作就是“增加”,“删除”,“查询”等操作。以下我们通过实例来说明。
1、如何向数据库增加记录
以下代码中红色底纹部分文字是你需要修改的,比如这里的jszxfwq 就是sql服务器名,database就是要进行处理的数据库名,本例是hszx;uid是登陆的用户名,这里是sa,pwd是登陆的密码,这里是空。例子引用的表a只有两个字段,分别是a(文本类型),b(整数类型)
Sub 增加记录()
'首先是建立连接
Dim cn As New ADODB.Connection
Dim strCn As String, sqlins As String ‘
Dim rs As New ADODB.Recordset
strCn = "Provider=sqloledb;Server=jszxfwq;Database=hszx;Uid=sa;Pwd=;"
cn.Open strCn
‘通过以上步骤就建立了一个连接,有了这个连接,表示你机器上的excel就连接上了sql所在的服务器,可以对hszx数据库进行操作了。
sqlins=”insert into a(a,b) values(‘hoo’,2)”
cn.Execute sqlins
set cn=Nothing
End Sub
运算结果如下
进一步的,如果我们使用循环,就可以将电子表格中的数据导入到SQl数据库中。由于Excel对数据的要求不是非常的严格,因此,在输入数据的时候就应当采取相应的措施才保证在导入SQL数据库的时候不至于出错。
2、如何删除数据库中已有的记录
下面就将刚才已经添加的记录进行删除,方法如下:
Sub 删除记录()
'首先是建立连接
Dim cn As New ADODB.Connection
Dim strCn As String, sqldel As String ‘
Dim rs As New ADODB.Recordset
strCn = "Provider=sqloledb;Server=jszxfwq;Database=hszx;Uid=sa;Pwd=;"
cn.Open strCn
‘通过以上步骤就建立了一个连接,有了这个连接,表示你机器上的excel就连接上了sql所在的服务器,可以对hszx数据库进行操作了。
Sqldel=”delete from a where id=1”
cn.Execute sqldel
set cn=Nothing
End Sub
删除前数据库内容
删除后数据库内容
3、如何查询数据库中的记录
查询数据库中以有的记录有两种方式,一种是通过excel的导入外部数据的功能,不需要编程就可以直接读取到数据库中的数据。一个就是直接通过读取数据集的
方式进行。下面进行逐一介绍。
1)导入外部数据:
步骤如下:点击菜单栏中的“数据”菜单,选中其中的“导入外部数据”——新建数据库查询
然后出现了以下的对话框
选择“新数据源”,然后点击确定。这里实质上就是在定义一个和sql数据库连接的过程。出现如下的对话框。
在该对话框中:请输入数据源名称是你自己输入的表示是对这个连接的一个描述。数据库类型的驱动程序选择SQL Server。然后点击“连接”按钮出现以下对话框
这里和我们刚才的这个代码进行比较
strCn = "Provider=sqloledb;Server=jszxfwq;Database=hszx;Uid=sa;Pwd=;"
驱动程序类型服务器名
用户名和密码
这里可以看到和代码相比我们只有数据库hszx没有设置,没有关系,我们点击“选项”按钮,可以看到如下对话框
这里不就是我们要设置的hszx
数据库名吗?
以上设置妥当以后,点击确定返回到了原来的对话框,好像有点点不一样啊
出现了我们刚才选定的数据库名
然后再点击确定按钮。回到最初的对话框,继续确定,打开Microsoft Query。这
个东东好像和Access有点点像啊。
把那个*号拖到下面来就出现了上图。然后按照以下方法点击将数据返回excel
点击确定
这样就读取了数据中表格的内容。待续。。。