12,665
回編集
差分
ナビゲーションに移動
検索に移動
編集の要約なし
==[[Access VBA レコードの挿入]]==[[Access ]] 2000
Public Sub insertData()
Dim conn As ADODB.Connection
Dim rec As ADODB.Recordset[[R]]ecordset
Set conn = CurrentProject.Connection
Set rec = New ADODB.Recordset[[R]]ecordset
Call rec.Open("NewTableName", conn, adOpenKeyset, adLockOptimistic)
© 2006 矢木浩人
