VB中未找到方法或数据成员

来源:百度知道 编辑:UC知道 时间:2024/05/24 15:01:36
Dim myCon As New ADODB.Connection
Dim myRs As New ADODB.Recordset
Private Sub Command1_Click()
Dim ygbh, ygxm, cqts, qjts, cdhztts, kgts, jbcs As String
ygbh = Text1.text
ygxm = Text2.text
cqts = Text3.text
qjts = Text6.text
cdhztts = Text4.text
kgts = Text7.text
jbcs = Text5.text
If Trim(ygbh) = "" Or Trim(ygxm) = "" Or Trim(cqts) = "" Or Trim(qjts) = "" Or Trim(cdhztts) = "" Or Trim(kgts) = "" Or Trim(jbcs) = "" Then

MsgBox "基本设置资料不能为空,请填写完整!"
Exit Sub
End If

myCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=考勤表.mdb;"
myRs.Open "select * from 考勤表 where 员工编号= '" & Trim(Text1.text) & "' and 员工姓名='" & Trim(Text2.text) & "' and 出勤天数='" & Trim(Text3.text) & "' and 请假天数='" & Trim(Text6.text) & "' and 迟到或早退天数='&quo

哪行报错?

main_kqgl_ygkqxxtj.Adodc1.Refresh
是另外个窗体上的控件吧?
你要先load这个窗体才行

多数是数据表中没这一列...可能是你填错了,调试吧,很好找到的错误

唉,是那条语句啊,怎么不说明呢