oracle俺不大用,但是sqlserver下是没有问题的,所以俺觉着oracle也问题不大。sqlserver下是这么使用的,建立一个dsn,然后从excel中连接就可以了,部分代码如下:
Public startline As Integer '数据起始行
Public endline As Integer '数据终止行
Public bankcard As String '银行卡号列
Public studentno As String '学生学号列
Sub pk()
'本过程的作用为根据学号从SqlServer数据库中取出对应的银行卡号到指定的数据列
Dim myxh As String '暂存select查询中的学号
Dim querystring As String '存储select查询语句
Dim cellrange As String '指定查询出的卡号应放置的单元格位置
Dim id As Integer '用于打开一个数据连接
Worksheets(1).Activate
Application.ScreenUpdating = False '关闭屏幕自动更新
id = SQLOpen("DSN=xssfw")
UserForm1.Show '显示参数指定窗口
For i = startline To endline
myxh = Cells(i, studentno)
querystring = "select kh from xszd where xh='" & myxh &"'"
SQLExecQuery id, querystring
Setoutput = Range(bankcard & CStr(i)) '指定输出位置
'默认下SQLRetrieve的返回值中含有标题行,因此将对应的参数设置为False
SQLRetrieve id, output, , , False, False, False
Next
sqlclose id
End Sub
俺也是刚刚学习,还请高手们多多指点。