Option Explicit
Private cn As ADODB.Connection
Private rs As ADODB.Recordset
Private Sub Form_Load()
' データベースに接続
Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\WORK\2000Book.mdb"
cn.Open
' レコードセットを取得
Set rs = New ADODB.Recordset
With rs
.ActiveConnection = cn
.CursorLocation = adUseServer
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Properties("IRowsetIdentity") = True 'コメントを外すとデータを表示できます
.Open "SELECT * FROM 本", , , , adCmdText
End With
' データグリッド コントロールに取得したレコードセットを表示
Set DataGrid1.DataSource = rs
End Sub
投稿日:2003/01/29 16:04
投稿者:近藤
返信 引用返信 修正 削除