ODBC联接后无法修改和新增表内容，是啥原困呢?

snryga

Private Sub 创建_Click()
    Dim cnn As String
    Dim dbs As Object   
    Dim tdf As Object   
    Set dbs = CurrentDb
        strConnect = "ODBC;DRIVER=SQL Server" & _
                 ";SERVER=******" & _
                 ";DATABASE=YB" & _
                 ";UID=sa" & _
                 "WD=******"


    Set tdf = dbs.CreateTableDef("passwd")  
    tdf.Connect = strConnect
    tdf.SourceTableName = "passwd"   
    dbs.TableDefs.Append tdf
    Set dbs = Nothing
    Set tdf = Nothing
    Application.RefreshDatabaseWindow  
    MsgBox "创建成功，请查看表"
End Sub

roych

话说，设置主键了吗？印象中需要设置了主键才允许增删改的。如果用command的话，可能还需要用到userclient的光标

snryga

谢谢