由Excel学生成绩单创建Access数据库

excel 导入导出access数据库(winform)//从excel导入到数据库。

OleDbConnection conExcel = new OleDbConnection();try{OpenFileDialog openFile = new OpenFileDialog();//打开文件对话框。

openFile.Filter = ("Excel 文件(*.xls)|*.xls");//后缀名。

if (openFile.ShowDialog() == DialogResult.OK){string filename = openFile.FileName;int index = stIndexOf("\\");//截取文件的名字filename = filename.Substring(index + 1);conExcel.ConnectionString = "Provider=Microsoft.Jet.Oledb.4.0;Data Source=" + Application.StartupPath + "\\Appdata.mdb";//将excel导入access//distinct :删除excel重复的行.//[excel名].[sheet名] 已有的excel的表要加$//where not in : 插入不重复的记录。

string sql = "insert into 用户表select distinct * from [Excel 8.0;database=" + filename + "].[用户表$] where 记录编号not IN (select 记录编号from 用户表)";OleDbCommand com = new OleDbCommand(sql, conExcel);conExcel.Open();com.ExecuteNonQuery();MessageBox.Show("导入数据成功","导入数据", MessageBoxButtons.OK, rmation );}}catch (Exception ex){MessageBox.Show(ex.ToString());}finally{conExcel.Close();}//导出到excel操作。

如何将Excel的数据写入到Accees？Aceess 是微软出品的桌面关系型数据库，也是在Office 大礼包中的套件之一，和大名鼎鼎的 Excel 不同；Access 主要承担了数据存储和SQL 查询的功能，需要的数据技能要更为结构化与进阶；总体来说，Excel 的强项在于灵活的分析数据，它的基本对象的单元格Cell；而 Access 的基本对象是Record,是一种结构化的数据形式，可以方便的存储及查询数十万级别的数据。

下面和大家分享一下，如何使用 VBA 将 Excel 和 Access 进行连接，并将数据写到 Access 数据库中；01 引入 Microsoft ActiveX Data Objects 6.0 Library在菜单栏工具->引入->找到Microsoft ActiveX Data Objects 6.0 Library,勾选引入02 在 Access 新建一个表•打开 Access 创建-表•右键左侧表名称 -> 设计视图•重命名表•设置需要的字段•右键打开的表名称 -> 保存•结果如图，我们需要记住表，以及字段名称03 在 Excel VBA 内写连接代码Sub Demo()Dim conn As ADODB.ConnectionSet conn = New ADODB.Connectiondatapath = ThisWorkbook.Path & "\Demo.accdb"With conn.Provider = "microsoft.ace.oledb.12.0".Open datapathEnd WithMsgBox "连接数据库成功！"End Sub我们需要先声明数据库连接对象ADODB.Connection；然后设置数据库路径：ThisWorkbook.Path是表明是当前文件夹路径，然后使用连字符&连接"\Demo.accdb"形成完整的数据库文件路径；点击运行，连接成功：04 在 Excel VBA 内写 SQL 代码我们可以将工作表的B1和B2单元格的内容，作为变量传入SQL语句我们需要向数据库写入数据，需要使用 SQL 代码:Insert Into语句Sql = "Insert Into Demo(姓名,年龄) Values('" & Sheet1.Cells(2, 1).Value & "','" & Sheet1.Cells(2, 2).Value & "')"其中第一段字符串，使用连字符将变量连接起来时，中间有个英文逗号'05 完整示例代码Sub Demo()Dim conn As ADODB.ConnectionSet conn = New ADODB.Connectiondatapath = ThisWorkbook.Path & "\Demo.accdb"With conn.Provider = "microsoft.ace.oledb.12.0".Open datapathEnd With'MsgBox "连接数据库成功！"Sql = "Insert Into Demo(姓名,年龄) Values('" & Sheet1.Cells(2, 1).Value & "','" & Sheet1.Cells(2, 2).Value & "')"conn.Execute (Sql)End Sub今天的教程，主要学习了：如何从Excel连接Access数据库，并写入数据；大家都学会了吗？。

在EXCEL中操作ACCESS数据库(发表时间: 2007-3-3117:29:00)【评论】【打印】【字体：大中小】本文链接：http://blog.pfan/otot/24443.html 复制链接分享到： 0标签:excel vba access mdb为了便于管理手中的一大堆联系厂家的联系方式，我建立了一个ACCESS的数据库文件（TEST.MDB（表名：telephone）），把所有的客户信息存在数据库里面。

但是由于操作ACCESS数据库很不方便，我平时又习惯使用EXCEL，所以便想做一个EXCEL文件，能够与这个数据库文件连接起来，实现对数据的搜索、添加功能。

于是使用VBA。

当然首先是建立一个空白的EXCEL，并在里面针对数据库的各个字段标题建立标题。

如：打开VBA编辑器，添加三个模块：模块1：（从数据库取得全部数据，并显示到EXCEL文件中）Public Sub Getmdb()Dim cmd As StringDim oAss As Objectconnstr = "DBQ=D:\test.mdb;DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"Set oAss = CreateObject("ADODB.connection")oAss.Open connstrcmd = "SELECT * FROM telephone ORDER BY id DESC"Set rs = oAss.Execute(cmd)btop = 4bleft = 2ast = "A" & btop & ":Z1000"Range(ast).ClearContentsDo While Not rs.EOFbtop = btop + 1Cells(btop, bleft + 2) = rs("姓名")Cells(btop, bleft + 3) = rs("公司")Cells(btop, bleft + 4) = rs("座机")Cells(btop, bleft + 5) = rs("手机")Cells(btop, bleft + 6) = rs("传真")rs.movenextLooprs.CloseWorksheets(1).addcomEnd Sub模块2：（从数据库中搜索符合指定名字或者公司名字的项目）Public Sub Serchmdb(ByVal so, si, st As String)Dim cmd As StringDim oAss As Objectconnstr = "DBQ=D:\test.mdb;DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"Set oAss = CreateObject("ADODB.connection")oAss.Open connstrcmd = "SELECT * FROM telephone WHERE " + si + " like " + st + "%" + so + "%" + stOn Error GoTo 0Set rs = oAss.Execute(cmd)btop = 4bleft = 2btop = btop + 1ast = "A" & btop & ":Z1000"Range(ast).ClearContentsDo While Not rs.EOFCells(btop, bleft + 2) = rs("姓名")Cells(btop, bleft + 3) = rs("公司")Cells(btop, bleft + 4) = rs("座机")Cells(btop, bleft + 5) = rs("手机")Cells(btop, bleft + 6) = rs("传真")btop = btop + 1rs.movenextLooprs.CloseEnd Sub模块3：（网数据库中添加数据的函数）Public Sub Addmdb(ByVal atype, aname, acomp, ajob, aphone, amobil, afax, aemail As String)Dim cmd As StringDim oAss As Objectconnstr = "DBQ=D:\test.mdb;DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"Set oAss = CreateObject("ADODB.connection")oAss.Open connstrcmd = "INSERT INTO telephone ( 姓名,公司,职位,座机,手机,传真)" cmd = cmd + " VALUES ('" + aname + "','" + acomp + "','" + ajob + "','" + aphone + "','" + amobil + "','" + afax + "'')"On Error GoTo 0oAss.Execute (cmd)End Sub在sheet1中添加以下内容：Dim so, si, st As StringPrivate Sub ComboBox1_Change()（在EXCEL页面中添加ComboBox1控件，用于指定搜索项目名称）aa = ComboBox1.ListIndexIf aa < 0 Thensi = ""Elsesi = ComboBox1.List(aa)End IfIf si <> "id" Thenst = "'"Elsest = ""End IfEnd SubPrivate Sub CommandAdd_Click()（在EXCEL页面中添加一个“添加项目”按钮，以及一系列的输入框，用于往数据库中添加内容）Dim aname, acomp, ajob, aphone, amobil, afax As Stringaname = TextName.Textacomp = TextComp.Textajob = TextJob.Textaphone = TextPhone.Textamobil = TextMobil.Textafax = TextFax.TextAddmdb atype, aname, acomp, ajob, aphone, amobil, afax, aemail Serchmdb acomp, "公司", "'"End IfEnd SubPrivate Sub CommandButton1_Click()（在EXCEL中添加搜索输入框和“搜索”按钮，点击后开始搜索数据库）so = TextBox1.TextIf si = "" Thensi = ComboBox1.List(0)End IfIf si <> "id" Thenst = "'"Elsest = ""End IfSerchmdb so, si, stEnd SubPublic Sub addcom()（ComboBox1控件里面原来是空白的，需要在页面打开的时候往里面放入搜索的项目名称）With ComboBox1.Clear.AddItem "姓名".AddItem "公司".AddItem "座机".AddItem "手机".AddItem "传真".Text = .List(0)si = .List(0)End WithEnd Sub在ThisWorkBook中，添加：Private Sub Workbook_Open()（在页面打开时执行以下函数，也就是往ComboBox1中添加内容）Sheet1.addcomEnd Sub至此，执行就完成所要的功能了，还差一点就是删除数据的功能，暂时很少用，就懒得编了。

WPS零教程数据表的数据导出为AccessWPS Office是一款功能强大的办公软件套件，其中包括文字处理、演示文稿和电子表格等多个应用程序。

在WPS Office中，数据表是一种非常常用的工具，用于管理和处理大量数据。

而将数据导出为Access数据库是一种常见的需求，方便进行更深入的数据分析和管理。

本文将为您介绍如何在WPS表格中将数据导出为Access数据库。

一、准备工作在导出数据之前，您需要确保您的电脑已经安装了WPS Office和Access数据库软件。

如果没有安装，请根据您的需要自行下载安装。

二、打开WPS表格打开WPS Office软件，在主界面选择“表格”应用程序。

如果您已经有一个数据表格需要导出，可以直接打开该文件；如果没有，可以新建一个数据表格。

三、选择导出数据在打开的数据表格中，选择您想要导出的数据范围。

可以通过鼠标点击并拖动的方式选中需要导出的数据区域，也可以通过键盘上的方向键进行选择。

四、导出为Access数据库选择导出的数据范围后，单击工具栏上的“数据”选项卡，在下拉菜单中选择“导出到其他格式”选项。

接下来，将会弹出一个对话框，您需要在这个对话框中完成设置。

首先，在左侧选择“数据库文件”选项，并在右侧选择“Access数据库文件”作为导出格式。

随后，点击右侧“浏览”按钮，选择您希望将数据导入的Access数据库文件。

然后，选择导入数据的目标表格名称，并点击“确定”按钮。

五、完成导出在完成导出设置后，点击对话框底部的“导出”按钮，WPS表格将会自动将选中的数据导出到您指定的Access数据库文件中。

六、在Access中打开导出的数据表现在，您可以打开Access数据库软件，导入刚刚导出的数据表。

在Access中，选择“外部数据”选项卡，然后点击“Access”按钮。

在弹出的对话框中，选择导入的数据库文件，然后点击“确定”按钮。

Access将会导入WPS表格导出的数据表，并在数据库中显示。