請教各位
我寫了一段程式,但是在我按下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
謝謝各位
arrow
arrow
    全站熱搜

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