dim myRecord作為對象
將mySQL標註為字符串
Dim strSQL作為字符串
設置myconn createobject ("adodb。連接")'來創建對象。
設置myconn createobject ("adodb。連接")'來創建對象。
私有子窗體_Load()
將mySQL標註為字符串
Dim strSQL作為字符串
設置連接字符串。
mySQL = "Provider=Microsoft。Jet . OLEDB.4.0持久安全信息= False"
mySQL = mySQL+" Data Source = " & amp；App。路徑與路徑。" \Product.mdb "
MyConn。ConnectionString = mySQL '設置連接字符串。
MsgBox mySQL
MyConn。“打開”打開連接。
我的記錄。' activeConnection = myconn '將RecordSeet的連接對象設置為Connection。
StrSQL = "select * from Products " '設置查詢字符串。
打開myRecord。
我的記錄。打開strSQL，，adOpenDynamic，adLockOptimistic
顯示數據
顯示數據
末端接頭
私有子顯示數據()
出錯時繼續下壹步
產品編號
Text1。Text = myRecord。字段(“產品ID”)。價值
產品名稱
文本2。Text = myRecord。字段(“產品名稱”)。價值
供應商編號
短信3。Text = myRecord。字段(“供應商ID”)。價值
類別號
文本4。Text = myRecord。Fields("CategoryID ")。價值
單位數量
文本5。Text = myRecord。字段(" QuantityPerUnit ")。價值
單價
文本6。Text = myRecord。字段(“單價”)。價值
庫存數量
短信7。Text = myRecord。Fields("UnitsInStock ")。價值
定貨量
文本8。Text = myRecord。字段(“UnitsOnOrder”)。價值
重新評分
文本9。Text = myRecord。字段(" ReorderLevel ")。價值
末端接頭
在按鈕點擊事件之後
私有子命令8_Click()
將記錄移動到下壹項的方法是MoveNext。
在調用MoveNext方法之前，首先需要判斷目前是否已經超過了尾記錄。
如果超出了尾記錄，再次執行MoveNext將會出錯。
如果不是我的記錄。那麽EOF
我的記錄。下壹步
其他
在尾部記錄之外，使用MoveLast恢復尾部記錄。
我的記錄。MoveLast
如果…就會結束
顯示數據
顯示數據
末端接頭
上壹個按鈕點擊事件
私有子命令7_Click()
判斷是否超出表頭記錄。
如果超出了頭記錄，再次執行MovePrevious將會出錯。
如果不是我的記錄。那就BOF吧
我的記錄。移動上壹個
其他
超過標題記錄。
使用MoveFirst恢復指向第壹條記錄。
我的記錄。MoveFirst
如果…就會結束
顯示數據
顯示數據
末端接頭
尾部記錄按鈕單擊事件
私有子命令9_Click()
調用MoveLast
我的記錄。MoveLast
顯示記錄
顯示數據
末端接頭
私有子命令5_Click()
調用Recordset對象的cancelUpdate方法取消數據保存。
我的記錄。取消更新
我的記錄。MoveFirst
顯示數據
顯示數據
末端接頭
第壹次記錄按鈕單擊事件
私有子命令6_Click()
調用MoveFirst進行移動。
我的記錄。MoveFirst
顯示記錄
顯示數據
末端接頭
私有子命令4_Click()
出錯時繼續下壹步
保存數據，需要編程實現。
產品編號
產品編號不能為空。
如果Text1。Text = " "那麽
MsgBox "產品編號不能為空！"
Text1。SetFocus
出口接頭
如果…就會結束
其他文本框也有類似判斷，此處省略。
保存產品編號
我的記錄。字段(“產品ID”)。Value = Val(Text1。正文)
保存產品名稱
我的記錄。字段(“產品名稱”)。值=文本2。文本
保存供應商編號
我的記錄。字段(“供應商ID”)。Value = Val(Text3。正文)
保存類別號
我的記錄。Fields("CategoryID ")。Value = Val(Text4。正文)
保存單位數量
我的記錄。字段(" QuantityPerUnit ")。值=文本5。文本
保存單價
我的記錄。字段(“單價”)。Value = Val(Text6。正文)
保存庫存數量
我的記錄。Fields("UnitsInStock ")。值=文本7。文本
保存訂單數量。
我的記錄。字段(“UnitsOnOrder”)。Value = Val(Text8。正文)
保存再訂購級別。
我的記錄。字段(" ReorderLevel ")。Value = Val(Text9。正文)
調用記錄集對象更新方法來保存數據。
我的記錄。更新
顯示數據
顯示數據
末端接頭