KONDO-NETいい掲示板 By KLEB Ver 1.0.0

KLEB KONDO-NETいい掲示板

メンバーリスト　会員登録　ログイン
いい掲示板 - 掲示板一覧 - ソフト開発塾
ソフト開発（VB VC Perl PHPなど)に、関わるＱＡなど
現在、作成中につきこの板からは投稿・返信できません。
しかし、なんでも掲示板からは、投稿できます。

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