分享一下我老师大神的人工智能教程。零基础!通俗易懂!风趣幽默!还带黄段子!希望你也加入到我们人工智能的队伍中来!https://blog.csdn.net/jiangjunshow
' *******************************************************************************
' 目的:ADO操作Excel例子
' 输入参数:
' 返回结果:
' 注意事项:
' 作者:陈能技(http://itestware.com)
' 日期:2008-7-7
' *******************************************************************************
TestADOExcel
Sub TestADOExcel
' 创建ADO
Set conn= createobject("ADODB.Connection")
' 打开链接
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:/CNJ/QNAP自动化测试项目/MyTest/ADOExcel/Data/ADOExcel.xls;Extended Properties=Excel 8.0"
' 查询
sql= "SELECT * FROM [ADOExcel$]"
Set RecSet = conn.Execute(sql)
RecSet.MoveFirst
While Not RecSet.EOF
Msgbox RecSet.Fields("username").Value & " , " & RecSet.Fields("password").Value
RecSet.MoveNext
Wend
' 插入
sql = "insert into [ADOExcel$] Values('aaa','bbb')"
conn.Execute(sql)
' 更新
sql = "update [ADOExcel$] set [password]='hello world' where [username]='allen' "
conn.Execute(sql)
' 关闭链接
conn.close
End Sub
分享一下我老师大神的人工智能教程。零基础!通俗易懂!风趣幽默!还带黄段子!希望你也加入到我们人工智能的队伍中来!https://blog.csdn.net/jiangjunshow