1700416319
rst.MoveNext
1700416320
1700416321
If rst.EOF Then
1700416322
1700416323
rst.MoveLast
1700416324
1700416325
End If
1700416326
1700416327
ShowRecordset
1700416328
1700416329
End Sub
1700416330
1700416331
‘Recordset显示Recordset中的内容
1700416332
1700416333
Private Sub ShowRecordset()
1700416334
1700416335
txtCustomer.Text=rst.Fields(0)
1700416336
1700416337
txtAddress.Text=rst.Fields(1)
1700416338
1700416339
txtPhone.Text=rst.Fields(2)
1700416340
1700416341
txtItems.Text=rst.Fields(3)
1700416342
1700416343
txtUnitPrice.Text=rst.Fields(4)
1700416344
1700416345
txtSales.Text=rst.Fields(5)
1700416346
1700416347
End Sub
1700416348
1700416349
‘Recordset设置Recordset中的数据
1700416350
1700416351
Private Sub SetRecordset()
1700416352
1700416353
rst.Fields(0)=txtCustomer.Text
1700416354
1700416355
rst.Fields(1)=txtAddress.Text
1700416356
1700416357
rst.Fields(2)=txtPhone.Text
1700416358
1700416359
rst.Fields(3)=txtItem.Text
1700416360
1700416361
rst.Fields(4)=txtUnitPrice.Text
1700416362
1700416363
rst.Fields(5)=txtSales.Text
1700416364
1700416365
End Sub
1700416366
1700416367
1700416368
[
上一页 ]
[ :1.700416319e+09 ]
[
下一页 ]