Object的使用问题。提示类型不匹配

yorkjun

Set tbfTableDef = dbsDB.CreateTableDef(stgTblCasioContentTmp)
    Set fldField = tbfTableDef.CreateField("Barcode", dbDouble)
    tbfTableDef.Fields.Append fldField
    Set fldField = tbfTableDef.CreateField("CurrentSP", dbDouble)
    tbfTableDef.Fields.Append fldField

Set rst = dbsDB.OpenRecordset("TempCasioInput")
            With rst
                  ' Add new record to end of Recordset object.
                  .AddNew
                  !Barcode = Barcode
                  !CurrentSP = CurrentSP
            End With

在以上两段代码中（从别处抄的），在引用菜单中选中DAO后，总是提示“类型不匹配”而无法继续。请问是什么原因。
[em04][em04][em04]

yorkjun

在此多谢各位，问题已经解决了，我取消了引用中的“MicroSoft ActiveX Data Object Library" 和 另一个OLE的引用，就可以了，看来是ADO和DAO的问题。
原来的语句基本没有大问题。

以后多交流。

accessxiao

You may try this as below:
dim rst as dao.recordset

yorkjun

上面的都没问题，也能建立新表，但是但我打开数据集，准备添加数据时出问题。
如果前面定义 Dim rst as RecordSet,在后面写
Set rst = db.openrecordset("tblContact")
        with rst
             .addnew
时，在“Set rst....."又出现Error 13 类型不匹配，如果是定义Dim rst as RecordSets,
Error 13没有了，但是在".addnew"处又有"编译错误，method or data member not found?"

实在小弟不懂，望指教。
附：开始有问题是没有引用DAO，这个是不是也要引用什么？加入SQL语句方法，也要引用吗?

大熊

建立新表的DAO简例如下：你可参照一下（因你抄来的代码编的不是很顺畅）
Ps.建表用SQL更方便，也更快
Dim db As DAO.Database
Dim tbl As DAO.TableDef

Set db = CurrentDb
Set tbl = db.CreateTableDef("tblContact")
With tbl
    .Fields.Append .CreateField("FirstName", dbText)
    .Fields.Append .CreateField("LastName", dbText)
    .Fields.Append .CreateField("hone", dbText)
    .Fields.Append .CreateField("Notes", dbMemo)
End With
db.TableDefs.Append tbl

yorkjun

就是“TempCasioInput”

大熊

stgTblCasioContentTmp的值是什么？

yorkjun

已经有了，刚刚忘了写。出错时主要问题在下面两句
    Set fldField = tbfTableDef.CreateField("Barcode", dbDouble)

    Set rst = dbsDB.OpenRecordset("TempCasioInput")

大熊

dim dbsDB as dao.database
set dbsdb=currentdb
补上试试。