以下是我的程式碼
-----------------------------------------------
Private Sub Command3_Click()
Dim cnn1 As New ADODB.Connection
Dim rstRoySched As New ADODB.Recordset
cnn1.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db1.mdb;Mode=ReadWrite;Persist Security Info=False"
rstRoySched.CursorType = adOpenKeyset
rstRoySched.LockType = adLockOptimistic
rstRoySched.Open "機台表", cnn1
Cls
rstRoySched.MoveFirst
For i = 1 To rstRoySched.RecordCount
Print rstRoySched!機台號碼; rstRoySched!起始時間
rstRoySched.MoveNext
Next i
rstRoySched.Delete
rstRoySched.UpdateBatch

rstRoySched.Close
cnn1.Close
End Sub
-------------------------------------
請問:
1.如何把 Now 寫入假如 rstRoySched!機台號碼=5 的 rstRoySched!起始時間
2.如何把假如 rstRoySched!機台號碼=10 這筆資料刪除
ps rstRoySched!機台號碼 不重複
db1.mdb for access 2000
arrow
arrow
    全站熱搜

    vbqa 發表在 痞客邦 留言(0) 人氣()