一个非常急的问题!!!
Option ExplicitPublic Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Public Function SqlDbase(Cnstr As String, Sqlstr As String) As Recordset
Dim Cn As New Connection
Dim Rs As New Recordset
Cn.Open Cnstr
Rs.CursorLocation = adUseClient
Rs.Open Sqlstr, Cn, adOpenDynamic, adLockOptimistic
Set SqlDbase = Rs
End Function
以上这是一个模块文件
各位能帮我写一下是什么意思吗?就是写一下注释了,我对这些是非常不懂了。
Option Explicit
Dim LogRs As Recordset
Private Sub Command1_Click()
Dim s1 As String
Dim s2 As String
s1 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\cygl.mdb;Persist Security Info=False"
s2 = "select * from 会员注册表 wher user_name='" + Text1.Text + "'and user_password ='" + Text2.Text + "'"
Set LogRs = SqlDbase(s1, s2)
'登录
If LogRs.RecordCount > 0 Then
Unload Me
zhujie.Show 1
denglu.Visible = False
Text1.Text = ""
Text2.Text = ""
Else
MsgBox ("用户名或密码错误!")
Text1.Text = ""
Text2.Text = ""
End If
End Sub
这又是一个登录窗体,这个会出错误的,调试后跳到上面的模块文件中的这一句Rs.Open Sqlstr, Cn, adOpenDynamic, adLockOptimistic --------------------编程问答-------------------- 其中几个DIM修改一下,应该是ADO的定义问题。(记住先引用ADO)
Option Explicit
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Public Function SqlDbase(Cnstr As String, Sqlstr As String) As Recordset
'建立数据集的通用模块
Dim Cn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Cn.Open Cnstr
Rs.CursorLocation = adUseClient
Rs.Open Sqlstr, Cn, adOpenDynamic, adLockOptimistic
Set SqlDbase = Rs
End Function
Option Explicit
Dim LogRs As ADODB.Recordset
'............................
补充:VB , 数据库(包含打印,安装,报表)