excel+vba+access数据库编程视频（如何用vba代码将access数据库连接求代码）

本文目录

• 如何用vba代码将access数据库连接求代码
• Access数据库怎么用VBA
• 请教怎么在access中用VBA导入excel数据到access库
• 如何在EXCEL中，用VBA实现数据自动更新到ACCESS中
• 如何将access中将数据导入excel,用VBA编程实现
• excel vba怎么编程 excel vba编程教程

如何用vba代码将access数据库连接求代码

》》.用vba连接ACESS：
Set Conn= Server.CreateObject("ADODB.Connection")
Conn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("sample.mdb")
Conn.Open
》》.用vba连接EXCEL,打开EXCEL记录集：
Set connExcel = Server.CreateObject("ADODB.Connection")
connStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath( "InputExcel\sample.xls") &";Extended Properties=’Excel 8.0;HDR=YES;IMEX=1’;"
connExcel.Open connStr
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "Select * From ", connExcel, 0, 1
》》.vba数据处理:
===============================================
用Excel+VBA+SQL Server进行数据处理
使用Excel+VBA+SQL Server进行数据处理是一种简单有效方法，掌握以下基础知识实现快速入门(掌握excel/vba/sqlserver各1%内容，你就能成为数据处理高手的:))：
一、Excel基础知识
了解工作簿(Workbook)、工作表(Worksheet)、单元格(Cell)等的基本概念，熟悉一些基本操作。
二、SQL Server基础知识
参见
1、数据库有关概念：数据库、表、记录、字段
A)数据库(Database)
B)表(Table)、记录（行，Row,Record）、字段（列，Column,Field）...
2、常见数据操作的SQL命令：select, insert , update ,delete
三、VBA基础知识：
1、基本概念。
2、基本控制结构：
·顺序结构:程序按顺序执行;
·分支结构命令:
if 条件 then
《如果条件成立执行本语句块》
end if
或：
if ... then
...
else
...
end if
或：
if ... then
...
elseif ...
...
else
...
end if
等。。
·循环结构命令：
for i=? to ??
...
next
或
do while ...
...
loop
3、在VBA中操纵对象，先理解操纵EXCEL工作表和数据库对象：
将值写入EXCEL单元格，如：thisworkbook.worksheets("sheet1").cells(1,2)=1234444
从EXCEL单元格取得数值，如：x=thisworkbook.worksheets("sheet1").cells(1,2)
数据库操作：
cn.open ...（建立数据连接对象）
rs.open ... （建立数据集对象）
x=rs("...") （读取数值）
rs.close （关闭rs）
cn.close （关闭cn）
cn.execute （执行sql语句）
...
四、例子
sub test() ’定义过程名称
Dim i As Integer, j As Integer, sht As Worksheet ’i,j为整数变量；sht 为excel工作表对象变量，指向某一工作表
Dim cn As New ADODB.Connection ’定义数据链接对象 ，保存连接数据库信息；请先添加ADO引用
Dim rs As New ADODB.Recordset ’定义记录集对象，保存数据表
Dim strCn As String ,strSQL as String ’字符串变量
strCn = "Provider=sqloledb;Server=服务器名称或IP地址;Database=数据库名称;Uid=用户登录名;Pwd=密码;" ’定义数据库链接字符串
’下面的语句将读取数据表数据，并将它保存到excel工作表中：画两张表想像一下，工作表为一张两维表，记录集也是一张两维表
strSQL = "select 字段1,字段2 from 表名称" ’定义SQL查询命令字符串
cn.Open strCn ’与数据库建立连接，如果成功，返回连接对象cn
rs.Open strSQL, cn ’执行strSQL所含的SQL命令，结果保存在rs记录集对象中
i = 1
Set sht = ThisWorkbook.Worksheets("sheet1") ’把sht指向当前工作簿的sheet1工作表
Do While Not rs.EOF ’当数据指针未移到记录集末尾时，循环下列操作
sht.Cells(i, 1) = rs("字段1") ’把当前记录的字段1的值保存到sheet1工作表的第i行第1列
sht.Cells(i, 2) = rs("字段2") ’把当前字段2的值保存到sheet1工作表的第i行第2列
rs.MoveNext ’把指针移向下一条记录
i = i + 1 ’i加1，准备把下一记录相关字段的值保存到工作表的下一行
Loop ’循环
rs.Close ’关闭记录集，至此，程序将把某数据表的字段1和字段2保存在excel工作表sheet1的第1、2列，行数等于数据表的记录数
’下面的语句将读取excel工作表数据，并将之简单计算后存入数据库，这里使用上面程序中的一些变量
’假设分别读取工作表sheet1第5行至第500行的第8列和第9列已存在的数据，然后将它们相乘，并将积存入数据库的某个表
strSQL="" ’清空上面定义的变量
for i=5 to 500 ’循环开始，i从5到500
strSQL=strSQL & "insert into 表名(字段) values(" & sht.cells(i,8)*sht.cells(i,9) & ") ;" ’构造SQL命令串
next
’至此生成一串SQL命令串，保存的内容大概为：insert into 表名(字段) values(数值1);insert into 表名(字段) values(数值2);...
cn.execute strSQL ’执行该SQL命令串，如果SQL命令没有错误，将在数据库中添加501个记录;也可以用rs.open strSQL,cn 执行
cn.close ’关闭数据库链接,释放资源
end sub
=====================================
》》.听说可以用一条语句实现记录集导入excel表，而且不是用循环的，不知道是真是假，等待高手的回答。

Access数据库怎么用VBA

最近有不少的Access用户们，会询问小编数据库使用VBA的操作，今日在这篇文章内小编就为你们带来了Access数据库使用VBA的操作方法。
Access数据库使用VBA的操作方法
1、打开Access数据库，如图所示。
2、点击“数据库工具”选项卡中“VisualBasic”，如图所示。
3、在弹出的VBA界面，先选择数据库，然后点击右键，选择“插入”，“模块”，不同于excel中的VBA，Access中的VBA代码需要放置于模块中，如图所示。
4、在模块中输入VBA代码，并点击“运行子程序”，如图所示。
5、这样，所输入的VBA代码就会在Access数据库中运行，如图所示。
Access|

请教怎么在access中用VBA导入excel数据到access库

下面是我自己写的读取Excel文件内容写入Sql数据库的代码，和写入Access完全一样的。
比较简单，可用，测试过了
记得给分阿，以身相许就算了
’通用对话框打开文件
CommonDialog1.CancelError = False
CommonDialog1.Filter = "XLS|*.XLS "
CommonDialog1.FileName = " "
CommonDialog1.ShowOpen
ExcelName = CommonDialog1.FileName
If ExcelName = " " Then Exit Sub
’创建一个Excel应用对象
Set xlsApp = CreateObject( "Excel.Application ")
’指定要打开的文档
Set xlsWorkbooks = xlsApp.Workbooks.Open(ExcelName)
’指定要打开的工作表
Set xlsWorksheets = xlsWorkbooks.Worksheets(1)
’读取文件标题项内容
dr_KCMC = Trim(xlsWorksheets.Cells(7, 2))
....
Do
’读取文件内容
dr_XSXH = Trim(xlsWorksheets.Cells(i, 2))
dr_XSXM = Trim(xlsWorksheets.Cells(i, 3))
dr_KCCJ = Trim(xlsWorksheets.Cells(i, 4))
If dr_JLXH = " " Or dr_XSXH = " " Or dr_XSXM = " " Then
Exit Do
End If
rsXSCJ.AddNew
rsXSCJ.Fields( "xsxh ").Value = dr_XSXH
rsXSCJ.Fields( "xsxm ").Value = dr_XSXM
.....
rsXSCJ.Update
RecordCount1 = RecordCount1 + 1
i = i + 1
Loop While (dr_JLXH 《》 " " And dr_XSXH 《》 " " And dr_XSXM 《》 " " And dr_XSXM 《》 " ")

如何在EXCEL中，用VBA实现数据自动更新到ACCESS中

以下是我用了实现从Excel导数据进ACCESS的代码，你参考一下，应该就可以做出来了：（Excel和Access两个文件放一个文件夹下）
Public Sub 客户正常供价批量维护()
If Cells(4, 6) = "" Then
MsgBox "请先选择需要维护价格的系统！", vbInformation
Cells(4, 6).Select
Exit Sub
Else
Dim i As Integer, j As Integer, k As Integer, sht As Worksheet ’i,j,k为整数变量；sht 为excel工作表对象变量，指向某一工作表
Dim cn As New ADODB.Connection ’定义数据链接对象 ，保存连接数据库信息；请先添加ADO引用
Dim rs As New ADODB.Recordset ’定义记录集对象，保存数据表
Dim strCn As String, strSQL As String ’字符串变量
Dim mdbFile As String
On Error GoTo add_err
mdbFile = ActiveWorkbook.Path & "\DY_DATA.mdb"
strCn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & mdbFile ’定义数据库链接字符串
cn.Open strCn ’与数据库建立连接，如果成功，返回连接对象cn
Set rs = New ADODB.Recordset
rs.Open "dbl直营客户正常供价表", cn, adOpenKeyset, adLockOptimistic
k = Cells(4, 8) + 8
For i = 9 To k
If Cells(i, 7) = "" Then
Else
rs.AddNew
rs(1) = Cells(i, 2)
rs(2) = Cells(i, 7)
rs(3) = Cells(i, 8)

rs.Update
Cells(i, 7) = ""
Cells(i, 8) = ""

End If
Next
MsgBox "数据记录添加成功！", vbInformation
Cells(4, 6).Select
ActiveWorkbook.RefreshAll
add_exit:
Exit Sub
End If
add_err:
MsgBox Err() & vbCrLf & Error()
Resume add_exit
End Sub

如何将access中将数据导入excel,用VBA编程实现

Public Sub ImportData()
Dim mydata As String, mytable As String, SQL As String
Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
ActiveSheet.Cells.Clear
mydata = ThisWorkbook.Path & "\成绩管理.mdb" ’指定数据库
mytable = "考试成绩" ’指定数据表
’建立与数据库的连接
Set cnn = New ADODB.Connection
With cnn
.Provider = "microsoft.jet.oledb.4.0"
.Open mydata
End With
SQL = "select 班级,avg(数学) as 数学平均,avg(语文) as 语文平均," _
& "avg(物理) as 物理平均,avg(化学) as 化学平均,avg(英语) as 英语平均, " _
& "avg(体育) as 体育平均,avg(总分) as 总分平均 " _
& "from " & mytable & " group by 班级"
Set rs = New ADODB.Recordset
rs.Open SQL, cnn, adOpenKeyset, adLockOptimistic
’复制字段名
For i = 1 To rs.Fields.Count
Cells(1, i) = rs.Fields(i - 1).Name
Next i
’复制全部数据
Range("A2").CopyFromRecordset rs
rs.Close
cnn.Close
Set rs = Nothing
Set cnn = Nothing
End Sub

excel vba怎么编程 excel vba编程教程

　　excel
vba编程教程：
　　点击Windows左下方，“开始”-“程序”-“Microsoft
Office”-“Microsoft
Office
Excel
2003”，打开Excel,如下图示。
　　点击按下图所示，点击菜单“工具”-“宏”-“Visual
Basic
器”
　　然后会出现“Visual
Basic
器”窗体，如下图示
　　你已经启动了VB编程环境，这就是你的编程平台。
　　按下图所示，点击“Visual
Basic
器”中的菜单“插入”-“用户窗体”
　　接着出现“可窗体”，如下图所示
　　上图，红色框中所示为“可窗体”，你可以在上面进行可视化编程，就类似于我们现实生活中的画布，你可以在窗体上通过左侧绿色框内的“工具箱”绘制命令按钮、文字框、标签等编程控件。你也可以通过鼠标点击红色框中窗体外围的8个的操作手柄，拖动窗体的大小，直观形象的进行可视化编程。
　　红色圈内的句点就是操作手柄。当然，你也可以对窗体的显示的文字进行调整，这就需要在最左侧的属性窗口中修改它的“Caption”属性，考虑到这时编程入门，仅仅是教大家一个简单的编程流程，所以我就不多废话了。
　　接着，用鼠标单击左侧“工具箱”内的“命令按钮控件”，如下图所示