.Connect出现的问题

iron

以下代码运行到"tdf.Connect = strcon"出现"无效的操作"(3219)
请各位前辈指点，谢谢
　　Dim dbs As Database
　　Dim tdf As TableDef
　　Dim strcon As String
　　Dim ii As Integer
　　Set dbs = OpenDatabase(TablePath, False, False, "WD=" & TablePassword)
　　
　　Set tdf = dbs.TableDefs(dtblname)

　　strcon = ";DATABASE=" & TablePath
　　If Len(TablePassword) > 0 Then strcon = strcon & "; PWD=" & TablePassword


　　tdf.Connect = strcon

zhengjialon

参考这个示例，可能是参数不正确。

Connect、SourceTableName 属性示例 (MDB)

以下示例在指定的数据库中创建一个 TableDef 对象，然后设置该对象的 Connect 和 SourceTableName 属性，并将该对象追加到 TableDefs 集合。

Sub ConnectSource()
    Dim dbs As Database, tdf As TableDef

    ' 返回对当前数据库的引用。
    Set dbs = CurrentDb
    ' 新建 TableDef 对象。
    Set tdf = dbs.CreateTableDef("DXAuthor")
    ' 将 Paradox 表 Author 附加于数据库 C:\PDX\Publish 中。
    tdf.Connect = "aradox 4.X;Database=C:\PDX\Publish"
    tdf.SourceTableName = "Author"
    dbs.TableDefs.Append tdf
    Set dbs = Nothing
End Sub

iron

还是不行，是不是引用出了问题？

zhengjialon

只要引用了DAO3。6，且优先是在ADO之上就不会是引用的问题。

iron

解决了，谢谢