請教各位
我寫了一段程式,但是在我按下ADD按鈕時,CPU就滿載了,能幫我看看是哪裡錯了嗎,
Private Sub Form_Load()
ConnStr = "provider=microsoft.jet.oledb.4.0;" & _
"data source = " & App.Path & "\Main.mdb"
Conn.Open ConnStr
sql = "Select * From Product Where AE003 = '1' Order By AE001"
rs.CursorLocation = adUseClient
rs.Open sql, Conn, adOpenKeyset, adLockPessimistic
Set DataGrid1.DataSource = rs
End Sub
Private Sub cmdAdd_Click()
rs.AddNew
rs("AE001") = AE001
rs("AE002") = AE002
rs.Update
End Sub
謝謝各位
我寫了一段程式,但是在我按下ADD按鈕時,CPU就滿載了,能幫我看看是哪裡錯了嗎,
Private Sub Form_Load()
ConnStr = "provider=microsoft.jet.oledb.4.0;" & _
"data source = " & App.Path & "\Main.mdb"
Conn.Open ConnStr
sql = "Select * From Product Where AE003 = '1' Order By AE001"
rs.CursorLocation = adUseClient
rs.Open sql, Conn, adOpenKeyset, adLockPessimistic
Set DataGrid1.DataSource = rs
End Sub
Private Sub cmdAdd_Click()
rs.AddNew
rs("AE001") = AE001
rs("AE002") = AE002
rs.Update
End Sub
謝謝各位
全站熱搜
留言列表