UC知道关于VB的程序问题
来源：百度知道 编辑：UC知道 时间：2024/05/16 09:04:16
正在学习VB，下面这段程序不懂，不知有没有高手帮忙解释一下：
Public Sub FindDir(DirName As String, path As String)
Dim Ws As Workspace
Dim Db As Database
Dim fs As Recordset
Set Ws = DBEngine.Workspaces(0)
Set Db = Ws.Databases(0)
On Error GoTo ErrorHanlder
Set fs = Db.OpenRecordset("SELECT * FROM tblCMSConfig WHERE ((tblCMSConfig.Options) = '" & DirName & "')", dbOpenDynaset)
path = fs!Value '这句应该怎么理解？
fs.close
Db.close
Exit Sub
ErrorHanlder:
Screen.MousePointer = 1
Set fs = Db.OpenRecordset("SELECT * FROM tblCMSConfig WHERE ((tblCMSConfig.Options) = '" & DirName & "')", dbOpenDynaset)
MsgBox (Err.Description & (fs!Options) & " Error")
fs.close
Db.close
End Sub
尤其是在Set fs之后的语句！
Public Sub FindDir(DirName As String, path As String)
Dim Ws As Workspace
Dim Db As Database
Dim fs As Recordset
Set Ws = DBEngine.Workspaces(0)
Set Db = Ws.Databases(0)
On Error GoTo ErrorHanlder
Set fs = Db.OpenRecordset("SELECT * FROM tblCMSConfig WHERE ((tblCMSConfig.Options) = '" & DirName & "')", dbOpenDynaset)
path = fs!Value '这句应该怎么理解？
fs.close
Db.close
Exit Sub
ErrorHanlder:
Screen.MousePointer = 1
Set fs = Db.OpenRecordset("SELECT * FROM tblCMSConfig WHERE ((tblCMSConfig.Options) = '" & DirName & "')", dbOpenDynaset)
MsgBox (Err.Description & (fs!Options) & " Error")
fs.close
Db.close
End Sub
尤其是在Set fs之后的语句！
fs!Value=fs.fields("value")
!后面的就是字段名
Set fs = Db.OpenRecordset("SELECT * FROM tblCMSConfig WHERE ((tblCMSConfig.Options) = '" & DirName & "')", dbOpenDynaset)
这个就是给定义的记录集fs赋值~
Db.OpenRecordset用来打开数据库的对象
("SELECT * FROM tblCMSConfig WHERE ((tblCMSConfig.Options) = '" & DirName & "')"用SQL语句对所连接数据库中的tblCMSConfig表进行查询操作, dbOpenDynaset)
path = fs!Value 指出要连接的数据库fs!Value的名称和路径