可是在程序运行时候,sel.Adodc1.RecordSource=sql这句代码总是出错,
提示[ADODC]:没有指定记录源[ADO]:没有为命令对象设置命令
Private Sub 货物编号_Click()
If 货物编号.Locked Then Exit Sub
On Error Resume Next
Dim sel As New 数据选择
Dim sql As String
sql = "select 编号,货物名称,货物类别,货物规格 from 货物信息"
sel.Adodc1.ConnectionString = conn.ConnectionString
sel.Adodc1.RecordSource = sql
sel.Adodc1.Refresh
sel.title = "请选择入库货物"
sel.Show vbModal
If sel.result1 <> "" Then
货物编号.Text = sel.result1
Else
Exit Sub
Unload sel
End If
Unload sel
'更新货名规格与计量单位
MDImain.m_checkado.RecordSource = "select 货物名称,货物规格,计量单位 from 货物信息 where 编号=" + 货物编号.Text
MDImain.m_checkado.Refresh
货物名称.Text = MDImain.m_checkado.Recordset.Fields("货物名称").Value
货物规格.Text = MDImain.m_checkado.Recordset.Fields("货物规格").Value
单位.Text = MDImain.m_checkado.Recordset.Fields("计量单位").Value
End Sub