Lỗi "Operation must use an updateable query"

[nguyennb]

Tôi viết một thử tục insert dữ liệu

 Dim cnn As New ADODB.Connection
 Dim cmd As New ADODB.Command
 Dim vtSql$

    '' - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    '' Create a connection
    cnn.Open DbConnection
    
    vtSql = "insert into table1 Values('3','4') "
    cmd.CommandText = vtSql
    cmd.ActiveConnection = cnn
    cmd.Execute

Khi thực thi câu lệnh thì bị lỗi
"Operation must use an updateable query"
Cái lỗi này lúc xuất hiện, lúc không. Ai giúp mình với

 

[dat2007]

Bạn sửa lại đoạn Code trên như sau

Dim cnn As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim vtSql$ As String
    '' - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    '' Create a connection
    cnn.Open DbConnection
    
    vtSql = "insert into table1 Values('3','4') "
    cmd.CommandText = vtSql
    cmd.ActiveConnection = cnn
    cmd.Execute RecordsAffected:=lRecordsAffected, Options:=adCmdText Or adExecuteNoRecords

Hoặc nếu bạn viết Code trên trong Access thì bạn phải sửa lại trong mục Option -> Edit/Find: bỏ các mục chọn trong Confirm

 

[nguyennb]

Vẫn bị lỗi

Mình đã sửa nhưng vẫn báo lỗi.
Đây là File bị lỗi

 

[dat2007]

Tốt nhất bạn Post file lên, nói như bạn thì khó xác định chính xác lỗi

 

[nguyennb]

Mình gửi lên cái file này, mong mọi người giúp đỡ

 

[dat2007]

Lỗi là đúng vì bạn đã Insert cùng một giá trị vào cùng 1 trường làm PrimaryKey do đó trường này sẽ không chấp nhận giá trị nhập vào (vì bị trùng )