使用VBA访问ACCESS,Excel文件的方法
2007-02-08 15:54
681 查看
Access中用VBA得到和修改数据库中表数据:
ADO:
Dim rstType As ADODB.Recordset
Dim strSQL as String
Set rstType = New ADODB.Recordset
strSQL =”Select F1,F2 From Table1”
rstType.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic, adCmdText
Do While Not rstType.EOF
rstType!F1=xxx
rstType.MoveNext
Loop
DAO
Dim dbTmp As Database
Dim rstType As Recordset
Set dbTmp = CurrentDb
Set rstType = dbTmp.OpenRecordset("Select F1,F2 >From Table1", dbOpenDynaset)
Do While Not rstType.EOF
rstType.Edit
rstType.Fields("F1").Value = xxx
rstType.Update
rstType.MoveNext
Loop
读取Excel数据
ADO
Dim cnt As ADODB.Connection
Dim rsT As ADODB.Recordset
Dim sConnStrXls As String
Set cnt = New ADODB.Connection
sConnStrXls = "Provider=Microsoft.Jet.OleDb.4.0;Data Source=" & strFileName & ";Extended Properties=Excel 8.0;"
cnt.Open sConnStrXls
Set rsT = New ADODB.Recordset
With rsT
Set .ActiveConnection = cnt
.Source = "Select * f
accf
rom [SheetName$A1:W6000]"
.CursorLocation = adUseClient
.Open
End With
Do While Not rsD.EOF
‘访问某一字段
Xxx=rsT.Fields(strfldMD).Value
Loop
DAO
Dim dbTmp As DAO.Database, rsD As DAO.Recordset
Set dbTmp = OpenDatabase(strFileName, False, True, "Excel 8.0;HDR=Yes;IMEX=1;")
Set rsD = dbTmp.OpenRecordset(“Select * from [Sheet1$];”)
Do While Not rsD.EOF
‘访问某一个字段的值
Xxx= rstD.fields(“Project Name”) or xxx=rstD.fields(2)
Loop
ADO:
Dim rstType As ADODB.Recordset
Dim strSQL as String
Set rstType = New ADODB.Recordset
strSQL =”Select F1,F2 From Table1”
rstType.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic, adCmdText
Do While Not rstType.EOF
rstType!F1=xxx
rstType.MoveNext
Loop
DAO
Dim dbTmp As Database
Dim rstType As Recordset
Set dbTmp = CurrentDb
Set rstType = dbTmp.OpenRecordset("Select F1,F2 >From Table1", dbOpenDynaset)
Do While Not rstType.EOF
rstType.Edit
rstType.Fields("F1").Value = xxx
rstType.Update
rstType.MoveNext
Loop
读取Excel数据
ADO
Dim cnt As ADODB.Connection
Dim rsT As ADODB.Recordset
Dim sConnStrXls As String
Set cnt = New ADODB.Connection
sConnStrXls = "Provider=Microsoft.Jet.OleDb.4.0;Data Source=" & strFileName & ";Extended Properties=Excel 8.0;"
cnt.Open sConnStrXls
Set rsT = New ADODB.Recordset
With rsT
Set .ActiveConnection = cnt
.Source = "Select * f
accf
rom [SheetName$A1:W6000]"
.CursorLocation = adUseClient
.Open
End With
Do While Not rsD.EOF
‘访问某一字段
Xxx=rsT.Fields(strfldMD).Value
Loop
DAO
Dim dbTmp As DAO.Database, rsD As DAO.Recordset
Set dbTmp = OpenDatabase(strFileName, False, True, "Excel 8.0;HDR=Yes;IMEX=1;")
Set rsD = dbTmp.OpenRecordset(“Select * from [Sheet1$];”)
Do While Not rsD.EOF
‘访问某一个字段的值
Xxx= rstD.fields(“Project Name”) or xxx=rstD.fields(2)
Loop
相关文章推荐
- 解决SharePoint 的Excel文件, 使用本地打开Excel 2013“无法访问文件。请尝试下列方法之一”
- 多线程访问文件问题中WaitForSingleObject方法的使用,及其效率!
- 使用PHP输出CSV和EXCEL文件的简单方法
- Excel-VBA操作文件四大方法
- 在网页站点使用Ajax访问CAS保护网址时,报not allowed access错误的解决方法
- Python使用xlrd读取Excel格式文件的方法
- window平台直接访问unix中文文件路径时的变通方法,使用php发送
- 使用VBA将Excel工作表分割成多个文件
- MVC 使用FileStreamResult方法的下载excel和word文件问题
- DELPHI中使用ADO直接访问Excel数据文件
- 64位系统使用Access 数据库文件的彻底解决方法
- VBA操作文件四大方法之一--Excel对象方法
- 在DELPHI中使用ADO直接访问Excel数据文件(收藏)
- 在DELPHI中使用ADO直接访问Excel数据文件
- 关于excel->csv文件的转换需要使用宏,高分求助- VB / VBA
- EXCEL文件中的简单VB编程,基本的访问方法
- ★★Excel-VBA操作文件四大方法之二 by excelhome
- 使用POI解析excel文件方法总结
- 拒绝访问报表文件。其他程序可能正在使用它 解决方法
- Excel-VBA操作文件四大方法