mdbへのレコード追加 (ID:80348)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 # ズバリ、ズバリ．．．あなたは丸尾くんですか？ 未確認ですが、次のような感じだと思います。 他にもクエリを使う方法などがありますが．．． Private Sub 入力_Click() Dim cn As ADODB.Connection Dim rs As ADODB.Recordset Set cn = New ADODB.Connection cn.Open "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=C:\sample.mdb;" Set rs = New ADODB.Recordset With rs .CursorType = adOpenDynamic .LockType = adLockOptimistic .Open "T_商品", cn, , , adCmdTable .AddNew .Fields("商品名") = txt商品名.Text .Fields("単価") = txt単価.Text .Update End With rs.Close: Set rs = Nothing cn.Close: Set cn = Nothing End Sub