日韩性视频-久久久蜜桃-www中文字幕-在线中文字幕av-亚洲欧美一区二区三区四区-撸久久-香蕉视频一区-久久无码精品丰满人妻-国产高潮av-激情福利社-日韩av网址大全-国产精品久久999-日本五十路在线-性欧美在线-久久99精品波多结衣一区-男女午夜免费视频-黑人极品ⅴideos精品欧美棵-人人妻人人澡人人爽精品欧美一区-日韩一区在线看-欧美a级在线免费观看

歡迎訪問 生活随笔!

生活随笔

當前位置: 首頁 > 运维知识 > 数据库 >内容正文

数据库

execl用宏查询mysql_关于EXCEL能否用宏直接连到oracle数据库然后取数据

發布時間:2024/8/1 数据库 35 豆豆
生活随笔 收集整理的這篇文章主要介紹了 execl用宏查询mysql_关于EXCEL能否用宏直接连到oracle数据库然后取数据 小編覺得挺不錯的,現在分享給大家,幫大家做個參考.

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

俺也是剛剛學習,還請高手們多多指點。

總結

以上是生活随笔為你收集整理的execl用宏查询mysql_关于EXCEL能否用宏直接连到oracle数据库然后取数据的全部內容,希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯,歡迎將生活随笔推薦給好友。