rst.Open strsql, db, adOpenKeyset, adLockOptimistic
PrivateSubForm_Load()strsql="SELECT*FROMbtemptableA"ConenctToDatabaserst.Openstrsql,d...
Private Sub Form_Load()
strsql = "SELECT * FROM btemptableA"
ConenctToDatabase
rst.Open strsql, db, adOpenKeyset, adLockOptimistic
If rst.RecordCount() = 0 Then
'clearfield
hidebutton
Else
showbutton
rst.MoveFirst
filltext
End If
End Sub
运行后出现连接到数据库出错！这是什么原因啊！
ConenctToDatabase 连接到数据库！ 展开
strsql = "SELECT * FROM btemptableA"
ConenctToDatabase
rst.Open strsql, db, adOpenKeyset, adLockOptimistic
If rst.RecordCount() = 0 Then
'clearfield
hidebutton
Else
showbutton
rst.MoveFirst
filltext
End If
End Sub
运行后出现连接到数据库出错！这是什么原因啊！
ConenctToDatabase 连接到数据库！ 展开
展开全部
ConenctToDatabase是一个函数或者过程吗？
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
