Takenoff Labs

Lotus Notes/Domino に関する Tips や、クラシックの名曲などを紹介します

[Notes/Domino] Lotus Script から RDB のデータをやりとりする

旧コンテンツで結構人気だった、Lotus Script から RDB に接続する方法をまとめて転記します。最近、全然 RDB 関係の仕事をしていないから、最新バージョンで動くのかどうか解りませんが、まぁ参考程度に。(ってか、ほとんど VB と同じやり方ですけど(^^; )


Dim dao As Variant
Dim ws As Variant
Dim mdb As Variant
Dim rs As Variant
Dim s As String

'Access2000,2002,2003: DAO.DBEngine.36
'Access2007: DAO.DBEngine.120 ?
Set dao = CreateObject("DAO.DBEngine.35")

Set mdb = dao.Workspaces(0).OpenDatabase("MDBのファイルパス")
Set ws = dao.CreateWorkspace("ODBC""ユーザー名","パスワード",1)
Set mdb = ws.OpenDatabase("接続文字列", False, True, "ODBC;UID=ユーザー名;PWD=パスワード")

Set rs = mdb.OpenRecordset("SELECT文")
If rs.EOF = False Then
	s = rs.Fields("列名").value
End If

Set rs = nothing
Set mdb = nothing
Set dao = nothing


Dim con As Variant
Dim rs As Variant
Dim s as String

Set con = CreateObject("ADODB.Connection")

'Access2000,2002,2003: Microsoft.Jet.OLEDB.4.0
'Access2007: Microsoft.ACE.OLEDB.12.0 ?
Call con.Open("Provider=Microsoft.Jet.OLEDB.3.51; Data Source = ファイルパス;")
Call con.Open("DSN=接続文字列;UID=ユーザー名;PWD=パスワード")

con.CursorLocation = 3

Set rs = con.Execute("SELECT文")
If rs.EOF = False Then
	s = rs.Fields("列名").Value
End If

Call rs.Close
Set rs = Nothing
Set con = Nothing

Oracle Objects for OLE (OO4O) (要 Oracle Client)

Dim ss As Variant
Dim db As Variant
Dim ds As Variant
Dim s As String

Set ss = CreateObject("OracleInProcServer.XOraSession")
Set db = ss.DbOpenDatabase("接続文字列","ユーザー名/パスワード",0&)
Set ds = db.DbCreateDynaset("SELECT文", &H4&)

If ds.EOF = False Then
	s = ds.Fields("列名").Value
End If

Set db = Nothing
Set ds = Nothing
Set ss = Nothing
1 Star2 Stars3 Stars4 Stars5 Stars (No Ratings Yet)






<a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <s> <strike> <strong>

For spam filtering purposes, please copy the number 5224 to the field below: