vb SQL 对象Refresh的方法IAdodc失败
PrivateSubText1_KeyPress(KeyAsciiAsInteger)Dimii=Trim(Text1.Text)IfKeyAscii=13ThenIfi...
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim i
i = Trim(Text1.Text)
If KeyAscii = 13 Then
If i <> "" Then
Adodc1.RecordSource = "select * from 工票表 where 员工编号= i"
Adodc1.Refresh
Adodc1.Recordset.Fields("姓名") = Label1.Caption
Adodc1.Recordset.Fields("工种") = Label2.Caption
End If
End If
End Sub 展开
Dim i
i = Trim(Text1.Text)
If KeyAscii = 13 Then
If i <> "" Then
Adodc1.RecordSource = "select * from 工票表 where 员工编号= i"
Adodc1.Refresh
Adodc1.Recordset.Fields("姓名") = Label1.Caption
Adodc1.Recordset.Fields("工种") = Label2.Caption
End If
End If
End Sub 展开
2个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询