土地利用资料检索查询软件创作过程.docVIP

土地利用资料检索查询软件创作过程 　　摘要：现代办公既方便又快捷，极大提高了工作效率。本文对EXCEL格式数据导入到数据库ACCESS，按检索字段的要求，ACCESS数据库中的数据导出到EXCEL中，充分利用了ADO数据对象模型进行具体阐述。 　　关键词：EXCEL；ADO数据对象模型；EXCEL 　　中图分类号：F301.24文献标识码： A 文章编号： 　　1 引言 　　在土地利用科的资料中有如图1-1的EXCEL数据，有几千条数据，19个字段，要向政府各个部门提供不同字段的数据，检索查询数据非常繁琐，由此，我创作了一套EXCEL资料检索查询软件。 　　 　　利用科原有的数据 　　2建立 EXCEL与ACCESS的数据连接通道 　　EXCEL与ACCESS的数据连接，就是文本数据与数据库的连接 　　我是通过VB的ADO对象模型的数据访问策略实现的。 　　2.1 源程序 　　Option Explicit 　　Public rs1 As New ADODB.Recordset 　　Public rs As New ADODB.Recordset 　　Public conn1 As ADODB.Connection 　　Public cnn1 As ADODB.Connection 　　Public connstr As String 　　Public strprovider As String, strdatasource As String, strdatabasename As String 　　Public Sub adodblianjie1() 　　 strprovider = Provider=Microsoft.Jet.OLEDB.4.0; 　　strdatasource = App.Path 　　strdatabasename = \土地利用查询.mdb; 　　strdatasource = Data Source= strdatasource strdatabasename 　　 　　connstr = strprovider strdatasource 　　Set conn1 = New ADODB.Connection 　　conn1.CursorLocation = adUseClient 　　conn1.Open connstr 　　Set rs1 = New ADODB.Recordset 　　rs1.CursorLocation = adUseClient 　　rs1.CursorType = adOpenStatic 　　rs1.LockType = adLockPessimistic 　　End Sub 　　 3数据的导入 　　首先在ACCESS中把19个字段设置好，利用写好的源程序，把EXCEL数据批量导 　　源程序Option Explicit 　　Dim TuDiLiYongexcel As Object 定义Excel对象 　　Dim TuDiLiYongbook As Object 定义工作簿对象 　　Dim TuDiLiYongsheet As Object 定义工作表对象 　　Private Sub Command1_Click() 　　Set TuDiLiYongexcel = CreateObject(excel.application) 创建Excel应用程序对象 　　Set TuDiLiYongbook = TuDiLiYongexcel.workbooks.Open(d:\利用科.xls) 添加工作簿 　　Set TuDiLiYongsheet = TuDiLiYongexcel.worksheets(1) 操作的工作表1 　　TuDiLiYongexcel.Visible = False 决定excel是否可见 　　adodblianjie1 　　AdodbLjConn1 　　rs1.Source = select * from 土地 　　rs1.ActiveConnection = conn1 　　rs1.Open 　　 Dim i As Integer 　　i = 3 　　Do 　　rs1.AddNew 　　rs1.Fields(宗地编号) = Trim(TuDiLiYongsheet.Cells(i, 2)) 　　rs1.Fields(合同编号) = Trim(TuDiLiYongsheet.Cells(i, 3)) 　　rs1.Fields(土地使用权人) = Trim(TuDiLiYongsheet.Cells(i, 4)) 　　rs1