OleDbDataAdapterについて (ID:115852)

名前

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

本文

MDBファイルは作成でき、接続に成功しましたが、
データが入っていませんでした。(TT)

あと、VB6で
Dim objMDB As DAO.Database
Dim objTDEF As DAO.TableDef
Dim objFLD As DAO.Field
なっていますが、VB.NETのソースに変える場合は、どのように変更すればいいでしょうか?

それともう一つ、VB6のソースをVB.NETに変えているのですけれど、エラーが発生してしまいます。
原因はなんでしょうか?

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim objMDB As DAO.Database
        Dim objTDEF As DAO.TableDef
        Dim objFLD As DAO.Field
        Dim objRset As Object
        Dim strSQL As String
        Dim intI As Integer

'MDBの作成
        objMDB = DAODBEngine_definst.CreateDatabase("C:\TEST.MDB", DAO.LanguageConstants.dbLangJapanese, DAO.DatabaseTypeEnum.dbVersion30)
        Listbox1.Items.Add("CreateDatabase")

'作成確認
        If Dir("C:\TEST.MDB") = "" Then
            MsgBox("MDB作成失敗")
        End If

'MDBのOPEN
        objMDB = DAODBEngine_definst.OpenDatabase("C:\TEST.MDB", False)
        Listbox1.Items.Add("OpenDatabase")

'テ-ブル作成
        objTDEF = objMDB.CreateTableDef("TBL1")
        ListBox1.Items.Add("CreateTableDef")

'項目生成
        objFLD = objTDEF.CreateField("Fld1", DAO.DataTypeEnum.dbText, 10)
        objTDEF.Fields.Append(objFLD)
        ListBox1.Items.Add("CreateField Fld1")

objFLD = objTDEF.CreateField("Fld2", DAO.DataTypeEnum.dbText, 10)
        objTDEF.Fields.Append(objFLD)
        ListBox1.Items.Add("CreateField Fld2")

objMDB.TableDefs.Append(objTDEF)
        ListBox1.Items.Add("TableDefs.Append")

'データINSERT
        For intI = 1 To 5
            strSQL = "INSERT into TBL1 (Fld1,Fld2) values ('" & Format(intI, "0000000000") & "','AAAAAA');"
            Call objMDB.Execute(strSQL, DAO.RecordsetTypeEnum.dbOpenDynaset)
        Next
        ListBox1.Items.Add("Executeメソッドで5件INSERT")
        ListBox1.Items.Add("***********************")

'データ抽出
        strSQL = "Select * from TBL1;"
        objRset = objMDB.OpenRecordset(strSQL, DAO.RecordsetTypeEnum.dbOpenDynaset)
        MsgBox("objRset.type=" & objRset.type)
        MsgBox("objRset.name=" & objRset.name)
        MsgBox("objRset.RecordCount=" & objRset.RecordCount)
        MsgBox("objRset.Fields.Count=" & objRset.Fields.Count)
        Do Until objRset.EOF
            ListBox1.Items.Add("Fld1=" & objRset.Fields.Item("Fld1").VALUE & " Fld2=" & objRset.Fields.Item("Fld2").VALUE)
            '& " Fld2=" & objRset!Fld2)
            objRset.MoveNext()
        Loop

End Sub

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

戻る