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

KLEB KONDO-NETいい掲示板

メンバーリスト　会員登録　ログイン

いい掲示板 - 掲示板一覧 - ソフト開発塾

ソフト開発（VB VC Perl PHPなど)に、関わるＱＡなど

現在、作成中につきこの板からは投稿・返信できません。
しかし、なんでも掲示板からは、投稿できます。

修正

投稿者名	メールアドレス公開レス通知
投稿題名
投稿内容	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

---KONDO-NET.GR.JP---