最近2018中文字幕在日韩欧美国产成人片_国产日韩精品一区二区在线_在线观看成年美女黄网色视频_国产精品一区三区五区_国产精彩刺激乱对白_看黄色黄大色黄片免费_人人超碰自拍cao_国产高清av在线_亚洲精品电影av_日韩美女尤物视频网站

RELATEED CONSULTING
相關(guān)咨詢
選擇下列產(chǎn)品馬上在線溝通
服務(wù)時間:8:30-17:00
你可能遇到了下面的問題
關(guān)閉右側(cè)工具欄

新聞中心

這里有您想知道的互聯(lián)網(wǎng)營銷解決方案
oracle怎么連vba Oracle怎么連接

想請教一個用vba連接oracle的問題

你寫的代碼是連接你電腦當?shù)氐臄?shù)據(jù)庫,而你需要連接的應(yīng)該是同一局域網(wǎng)的服務(wù)器的數(shù)據(jù)庫吧~!你應(yīng)該還要寫上數(shù)據(jù)庫所在的ip地址

克井網(wǎng)站制作公司哪家好,找創(chuàng)新互聯(lián)建站!從網(wǎng)頁設(shè)計、網(wǎng)站建設(shè)、微信開發(fā)、APP開發(fā)、自適應(yīng)網(wǎng)站建設(shè)等網(wǎng)站項目制作,到程序開發(fā),運營維護。創(chuàng)新互聯(lián)建站于2013年開始到現(xiàn)在10年的時間,我們擁有了豐富的建站經(jīng)驗和運維經(jīng)驗,來保證我們的工作的順利進行。專注于網(wǎng)站建設(shè)就選創(chuàng)新互聯(lián)建站

請嘗試一下:

CONNSTR = "Provider=MSDAORA.1;Password=密碼;User ID=用戶名;Data Source=數(shù)據(jù)庫ip地址;Persist Security Info=True"

CONN.Open CONNSTR

如何vba連接oracle

VBA連接oracle數(shù)據(jù)庫

小 'システム共通変數(shù)

Public ORA_SE As Object 'Oracleのセッションオブジェクト

Public ORA_DB As Object 'Oracleの接続オブジェクト

'******************************************************************************

' ????????名 : Ora_Connect

' 概要 : Oracle接続

' ?????? : なし

' 說明 :Oracleへの接続を行う

'******************************************************************************

'Public Sub Ora_Connect()

Public Function Ora_Connect()

Dim rt As Integer

On Error GoTo err

Set ORA_SE = CreateObject("OracleInProcServer.XOraSession")

'Set ORA_DB = ORA_SE.OpenDatabase("數(shù)據(jù)庫連接詞", "用戶名/密碼", 0)

Set ORA_DB = ORA_SE.OpenDatabase("combcm", "combcm/combcm", 0)

Exit Function

err:

End Function

'******************************************************************************

' ????????名 : Ora_DisConnect

' 概要 : Oracle切斷

' ?????? : なし

' 說明 : Oracleの切斷を行う

'******************************************************************************

'Public Sub Ora_DisConnect()

Public Function Ora_DisConnect()

Set ORA_SE = Nothing

Set ORA_DB = Nothing

End Function

Public Function getData()

'該當なし

If OraDynaset.EOF = True Then

Set OraDynaset = Nothing

Exit Function

Else

'2004/03/06 add rec_cntを2して2行目から書き出す

'rec_cnt = 2

'Do While Not OraDynaset.EOF

'For row_cnt = 0 To OraDynaset.Fields.Count - 1

' Cells(rec_cnt, row_cnt + 1).Value = OraDynaset(row_cnt).Value

'Next row_cnt

'2004/11/26 クリップボードを介した方法でスピードアップ対応。

'從數(shù)據(jù)庫中取出數(shù)據(jù)

OraDynaset.CopyToClipboard

Cells(2, 1).Select

ActiveSheet.Paste

rec_cnt = OraDynaset.RecordCount

'OraDynaset.DbMoveNext

'rec_cnt = rec_cnt + 1

'Loop

End If

end function

excel VBA 連數(shù)據(jù)庫 oracle

Sub connect_數(shù)據(jù)庫()

Dim strconnt As String

Set connt = New ADODB.Connection

Dim rs As Object

Set rs = New ADODB.Recordset

Dim sevip, Db, user, pwd As String

'設(shè)服務(wù)器地址、所連數(shù)據(jù),及登錄用戶密碼

sevip = "****"

Db = "****"

user = "****"

pwd = "****"

strconnt = "DRIVER={Microsoft ODBC for Oracle};Password=apps;User ID=apps;Data Source=demo" '

connt.ConnectionString = strconnt

connt.Open

End Sub


網(wǎng)頁名稱:oracle怎么連vba Oracle怎么連接
本文網(wǎng)址:http://fisionsoft.com.cn/article/hhsihe.html