作者：乔山办公网日期：
返回目录：excel表格制作
1.要下载一个对应你数据库的驱动包,如 sqlserver2008.java；
2.然后写个连接数据库的类.如JDBC.(连接数据库方法有很多种, 按照技术来分zd,首先学会JDBC连接数据库,然后连接池,然后框架技术Hibernate.)
每个数据库的表对应回一张实体类,实体类是干什么用的?
1.用它可以答OOP的思想的去操作数据库. (增删改查), 表中的字段就封装成实体类里面的一个属性. 如表里是name char(10),那么实体类对应的是private String name;
2.用户登录Web输入帐号,密码, 通过各种方法可以获取到用户输入的数据.;
3.封装到实体类;
4.用JDBC提供对数据库操作的API;
5.调用方法.写入数据库。
Dim conn As New ADODB.Connection
connStr = "Driver={SQL Server};DataBase=test;Server=(local);UID=sa;PWD=123"
conn.Open connStr '连接数zhidao据回库
Dim rs As New Recordset
sql = "select * from a" '查看表答a
rs.Open sql, conn, 3, 3
if Not rs.EOF then
For iCols = 0 To rs.fields.Count - 1
Sheets(1).Cells(1, iCols + 1).Value = rs.fields(iCols).Name
Next iCols
Sheets(1).Cells(2, 1).CopyFromRecordset rs
endif
以下是我用了实现从Excel导数据进ACCESS的代码，你参考一下，应该就可以做出来了：（7a64e78988e69d83331Excel和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
excel是一个自由表，一个EXCEL的工作薄就是一个数据库，它里面的每一张来表就是数据库的表，你可象操作表一样对其进行查询等操作，它里面的列就是数据库的字段，行就是记录，因此你可以按数据库的架构来组建数据，只是你如果你组建的数据不符合数据库的规则，在查询时不能源得到时相应的结果。因此在EXCEL中不存在创建数据库。但对存在的数据可以引用。当满足条件A、B、C、D……时引用是可以的，但如果是在EXCEL中直接引用是不行的，一种是用VBA利用ADO访问EXCEL，在查询时把A、B、C、D几个条件按SQL语法写进查询语句中，引用返回的记录集，一种是利用函数把满足A、B、C、D的记录筛选出zhidao来，然后再引用。