vb excel 导入 access

来源：百度知道 编辑：UC知道 时间：2024/05/10 15:08:15
1、我的access表中有20个字段，excel中有两列，第一列是职工姓名，第二列是房租，access中有1000多条记录。
2、我的问题是根据excel职工姓名，找到相应access记录，把房租改写为excel房租数值。
3、access并不是所有的人都有房租。
我看了这篇文章，问题已解决。谢谢大家！！！
http://www.vbzy.com/article/show.asp?id=1
不知道分怎么分？苦啊！！

先用一个sql把excel导入到access中 下面是个例子

sSQL = "select * into PH from [Excel 8.0;DATABASE=" & appdisk & "PH.xls;].[Sheet1$]"

然后就很简单了 直接写sql语句按照姓名连接update一下房租

先把excel改了 没有房租数值的相应的改成0
然后导入

分别用ado控件连接excel和access

画4个text.前两个绑定excel,后两个绑定access

然后判断就行了,做一个循环for i= 1 to adodc2.Recordset.RecordCount
判断 if text1.text=text3.text then
把 excel的内容写进access
text4.text=text2.text
adodc1.updata
else
判断下一条
adodc2.recordset.movenext
end if

然后判断excel中的每一条，直到判断完

很简单的一个问题！也有点麻烦！看代码吧！记得给分呀！
Private Sub Command1_Click()
Text1.Text = App.Path & "\123.xls" 'EXCEL文件
Text2.Text = App.Path & "\123.mdb" '数据库
Text3.Text = "sheet1"
Text4.Text = "sheet1"
Data1.DatabaseName = App.Path & "\1