Question

有关VB中数据库连接的问题

Dim Mdl As New ADODB.Recordset
Public DBCnn As New ADODB.Connection
SQLstr = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Jet OLEDB:Database Password=111;Data Source=" & App.Path & "\mdb\ECU配置信息.mdb"
DBCnn.Open SQLstr
DBstr = "select * from ECU where PZDM='" & PZDM_Code & "'"
'打开数据集
Mdl.Open DBstr, DBCnn, adOpenStatic, adLockReadOnly
If Not (Mdl.BOF And Mdl.EOF) Then
TCM = Mdl.Fields("TCM")
ABSE = Mdl.Fields("ABS")
ESP = Mdl.Fields("ESP"）
请问这段代码是什么意思，如何去理解，特别是TCM = Mdl.Fields("TCM")
和Mdl.Open DBstr, DBCnn, adOpenStatic, adLockReadOnly这两句

Answer 1

Mdl.Open DBstr, DBCnn, adOpenStatic, adLockReadOnly

按照DBstr所指定的SQL语句打开数据库连接对象DBCnn中的某个表（ECU），并赋值给记录集对象Mdl。记录指针移动方式为adOpenStatic（可上下自由移动），读写方式为adLockReadOnly（只读）

TCM = Mdl.Fields("TCM")

把当前记录的"TCM"字段的内容（值）赋值给变量TCM。可简写为：
TCM = Mdl("TCM")

整段代码的意思，是先把指定的数据库文件（ECU配置信息.mdb）打开并建立连接，然后赋值给数据库连接对象DBCnn，再从DBCnn中根据指定的条件打开某个数据表，并把获取的记录集赋值给记录集对象Mdl，如果记录数量不为0，就把当前记录的三个字段中的值分别赋值给三个变量。