dim db as dao.database
dim rs as dao.Recordset
'......省略连接这一块,自己写吧StrTemp = "select * from 密码表 where id='" & text1.Text & " and mm='" & text2.Text & "';"
Set rs = db.opendatabase(StrTemp)
If Not rs.EOF Then
'进入
Else
'错误
end if
dim rs as dao.Recordset
'......省略连接这一块,自己写吧StrTemp = "select * from 密码表 where id='" & text1.Text & " and mm='" & text2.Text & "';"
Set rs = db.opendatabase(StrTemp)
If Not rs.EOF Then
'进入
Else
'错误
end if
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货