請教各位
我寫了一段程式,但是在我按下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
謝謝各位
創作者介紹
創作者 vbqa 的頭像
vbqa

小吳 VBQA 程式設計討論

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


留言列表 (2)

發表留言
  • Netjacky
  • 滿載是什麼錯誤訊息??
  • 阿斯
  • 唉呀,剛再把那些程式打進去時,竟然就不會了
    之前出現出現什麼記憶體**********Read*********0x04....(數字).....什麼的,然後我的VB就自動關閉了
    好怪喔,現在又可以了,如果再出現那個問題,我再把訊息Post上來,到時再麻煩各位了
    謝謝各位