打字猴:1.700416228e+09
1700416228
1700416229   con.Open
1700416230
1700416231 End Sub
1700416232
1700416233 ‘处理“录入”按钮单击事件
1700416234
1700416235 Private Sub cmdCreate_Click()
1700416236
1700416237   rst.AddNew
1700416238
1700416239   SetRecordset
1700416240
1700416241   rst.Update
1700416242
1700416243 End Sub
1700416244
1700416245 ‘处理“获取”按钮单击事件
1700416246
1700416247 Private Sub cmdRetrieve_Click()
1700416248
1700416249   If rst.State=adStateOpen Then
1700416250
1700416251 rst.Close
1700416252
1700416253   End If
1700416254
1700416255   rst.Open “SELECT 顾客姓名,住址,电话号码,商品名称,单价,销售量”&_
1700416256
1700416257   “FROM 顾客表,商品表,销售记录”&_
1700416258
1700416259   “AND 销售记录表.顾客ID=顾客表.顾客ID”&_
1700416260
1700416261   “AND 销售记录表.商品ID=商品表.商品ID”&_
1700416262
1700416263   con,adOpenKeyset,adLockOptimistic
1700416264
1700416265   If rst.RecordCount>0 Then
1700416266
1700416267 rst.MoveFirst
1700416268
1700416269 ShowRecordset
1700416270
1700416271   Else
1700416272
1700416273 MsgBox “找不到符合条件的数据!”,vbInformation,“”
1700416274
1700416275   End If
1700416276
1700416277 End Sub
[ 上一页 ]  [ :1.700416228e+09 ]  [ 下一页 ]