|
' ----------------------------------------------------
' Connection オブジェクト作成
Set OpenDB = CreateObject("ADODB.Connection")
' ----------------------------------------------------
' 接続文字列作成
strConnection = "Provider=SQLOLEDB;Data Source=サーバ名;"
strConnection = strConnection & "Initial Catalog=DB名;"
strConnection = strConnection & "User ID=sa;"
strConnection = strConnection & "Password=;"
' ----------------------------------------------------
' DB 接続
On Error Resume Next
OpenDB.Open strConnection
If Err.Number <> 0 Then
Set OpenDB = Nothing
MsgBox (Err.Description)
Exit Sub
End If
On Error GoTo 0
' ----------------------------------------------------
' Recordset オブジェクト作成
Set rs = CreateObject("ADODB.Recordset")
' ----------------------------------------------------
' 選択科目一覧 SQL 文字列作成
SqlQuery = "select * from テーブル名 order by 名称"
rs.Open SqlQuery, OpenDB
nIdx = 0
Do While Not rs.EOF
Me.Refresh
Combo2.AddItem (rs.Fields("名称").Value)
Combo2.ItemData(nIdx) = rs.Fields("コード").Value
nIdx = nIdx + 1
' 次データの読込み
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
OpenDB.Close
Set OpenDB = Nothing
| |