VB6でADOを使ってAccess2000のmdbに保存するには？ (ID：82695)

名前

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

本文

こんにちわ
タイトルの件について、以下のようにコーディングしたのですが、保存が出来ません。何が原因なのでしょうか？
皆様、何卒ご教授ください。
一応、参照設定の  MADO2.8  にはチェックしてます。

Public Sub DB_Open(DBName As String)

Set AdoDBType = New ADODB.Connection
    With AdoDBType
        .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
                             & DBName & ";Persist Security Info=False"
                                'DBNameにはc:\00管理\Access\管理.mdbが入ります。
        .CommandTimeout = 10
        .Open
    End With
End Sub

===================================================
Public AdoDBType As ADODB.Connection    '別のモジュールに記述してます。
===================================================

Public Sub DB_Data_Input(DbKey As Long)
    Dim rv As Long
    Dim i As Integer
    Dim Scan As String
    Dim MyTable As ADODB.Recordset

On Error GoTo ErrorMsg
    
    Set MyTable = New ADODB.Recordset
    Scan = "select * from [テーブル] WHERE [フィールド0]= " & DbKey  & ""
     'テーブルを設定
     Call MyTable.Open(Scan, AdoDBType, adOpenDynamic, adLockOptimistic)
     
'    見つかれば
    If MyTable.EOF = True Then
        MyTable.AddNew
        MyTable!フィールド0  = ID
    End If

With frmT
        MyTable("フィールド1") = IIf(frmT.txtT(0) <> "", frmT.txtT(0), "")
        MyTable("フィールド2") = IIf(frmT.txtT(1) <> "", frmT.txtT(1), "")
    End With

MyTable.Update
    MyTable.Close
    Set MyTable = Nothing
    Exit Sub

ErrorMsg:
    MsgBox Err.Description, vbCritical Or vbSystemModal
    Exit Sub

End Sub

←解決時は質問者本人がここをチェックしてください。

戻る