Question

SQL数据库程序应用题

设物资台帐数据表的结构为（物资编码、物资名称、计量单位、期初库存），其中text1为控件数组，text1(0)、text1(1)、text1(2)、text1(3)、text1(4)分别表示物流编码、物资名称、单价、期初库存、期初金额。进入界面后，用户输入所有数据后，点击“保存”按钮后，将结果插入到物资台帐数据表中。请补充完成下列程序代码。

Private Sub Command1_Click()
'声明一个记录集对象
Dim ADOrs As New Recordset
'将记录集对象与已建立的数据库联接对象ADOcn绑定
ADOrs.ActiveConnection=ADOcn
'第一步：在数据表中查询是否存在关键字相同的记录
（1）拼写查询字符串
strSQL=“_A_”
（2）执行查询语句
_B_ strSQL
‘第二步：如果关键字重复，则退出程序
If Not _C_ Then
MsgBox"记录已存在，不能继续增加"
Exit Sub
End If
’第三步：将结果插入到物资台帐数据表中
strSQL="Insert Into 物资台帐（物资编码，物资名称，计量单位，但见，期初库存)"
strSQL=strSQL+"Values("+Text1(0)+","+Text1(1)+","+Combo1.Text+","
strSQL=strSQL+Text1(2)+","+Text1(3)+")"
_D_ strSQL
End Sub

分别写出A、B、C、D四个空格的语句，A比较长

Answer 1

A: select 物资编码，物资名称 from 物资台帐 where 物资编码="+Text1(0)+" or "物资名称="+Text1(1)+")

B: ADOrs.Open strSQL

C: ADOrs!=null

B: ADOrs.Execute

希望可以帮到你啦！