Question

别人写的 VB程序 我怎么知道 rs.Fields(2) = Trim(Text1.Text)在数据库里面对应的字段

别人写的 VB程序 我怎么知道 rs.Fields(2) = Trim(Text1.Text)在数据库里面对应的字段
Private Sub Command1_Click()
Dim ConStr As String
Dim rs As ADODB.Recordset
Dim cn As ADODB.Connection

Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
ConStr = "Provider=SQLOLEDB.1;User ID=111;Initial Catalog=Text;Data Source=(local);password="
cn.CursorLocation = adUseClient

cn.Open ConStr

If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Or Text4.Text = "" Or Text5.Text = "" Then
MsgBox "请输入完整的注册信息！！", vbExclamation + vbDefaultButton1, "新用户注册系统"
Text1.SetFocus
Exit Sub
ElseIf Trim(Text2.Text) <> Trim(Text3.Text) Then
MsgBox "两次输入的密码不一致！", vbExclamation + vbDefaultButton1, "新用户注册系统"
Text2.SetFocus
Exit Sub
End If
rs.Open "Select * from commonuser where 员工工号='" & Trim(Text1.Text) & "'", cn, adOpenKeyset, adLockPessimistic
If rs.RecordCount <> 0 Then
MsgBox "用户ID已经存在！", vbExclamation + vbDefaultButton1, "新用户注册系统"
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text1.SetFocus
Text1.SelLength = Len(Text1.Text)
Text1.SelStart = 0
Exit Sub
Else
rs.AddNew
rs.Fields(2) = Trim(Text1.Text)
rs.Fields(3) = Trim(Text4.Text)
rs.Fields(5) = Trim(Text2.Text)
rs.Fields(4) = Trim(Text5.Text)
rs.UpdateBatch
MsgBox "注册成功！！", vbInformation + vbDefaultButton1, "新用户注册系统"
End If

End Sub

Answer 1

rs.Fields(2)-------2表示以零开始的索引，2表示第三个字段，具体是你sql语句中包含的第三个字段。

Answer 2

看里面的sql语句可以判断一下，Select * from commonuser where 员工工号='" & Trim(Text1.Text) 。从这一段可以知道rs.Fields(2)=Trim(Text1.Text)对应的自动应该是员工工号，所在的字段索引应该是2.就是说对应的是commonuser表的第三个字段。

Answer 3

commonuser 表中的第2个字段。

Answer 4

rs.AddNew
Debug.Print rs.Fields(2).Name