一个关于listbox和ado的问题：

Question

do while not rsstu.eof   
   rsstu.MoveFirst  //前面几行是为了连到数据库。
   If rsstu(0) = s Then
       rsstu(8) = False
       rsstu.Update
   End If           //找到数据库里的内容并修改，
   rsstu.movenext
loop
Text1.Text = rsstu(0)

Answer 1

i = List1.ListIndex
s = List1.List(i)
s = Left$(s, 18)
s = RTrim$(s)        //前面部分是为了取出list1中的前几个字符。
Dim rsstu As New ADODB.Recordset
rsstu.CursorLocation = adUseClient
rsstu.CursorType = adOpenKeyset
rsstu.LockType = adLockPessimistic
rsstu.Open "select * from studentinfo ", wxmserver
   rsstu.MoveFirst  //前面几行是为了连到数据库。
   while rsstu.eof<>true
        If rsstu(0) = s Then 
           rsstu(8) = False
           rsstu.Update
        End If           //找到数据库里的内容并修改，
        rsstu.movenext
   wend
   Text1.Text = rsstu(0)