我需要从数据库wxmserver的两个表studentinfo,reginfo 中
取出SID , SEnabled 和  EID 。
我写了如下代码,但是通不过,,,大家有更好的办法吗?
Dim rsstu As New ADODB.Recordset
rsstu.CursorLocation = adUseClient
rsstu.CursorType = adOpenKeyset
rsstu.LockType = adLockPessimistic
List1.Clear
rsstu.Open "select student.SID,student.SEnabled,reginfo.EID
      from studentinfo,reginfo 
      where student.SID=reginfo.SID
      order by SID ", wxmserver
Do While Not rsstu.EOF
   List1.AddItem rsstu("SID") & Space(13 - LenB(StrConv(rsstu("SID"), vbFromUnicode))) & IIf(rsstu("SEnabled"), "允许", "禁止") & Space(3) & rsstu("EID") & Space(25 - LenB(StrConv(rsstu("EID"), vbFromUnicode)))
   rsstu.MoveNext
Loop
rsstu.Close

解决方案 »

  1.   

    你写的SQL语句本身就不对
    还是看看资料吧SQL不能同时在两个表中同时提取数据。
    但这两个表要是有联系那就可以了。aaa、bbb是两个不同的表但它们之间是通过一个业户id联系的。
    在aaa中叫id 在bbb中叫业户idSELECT aaa.姓名, bbb.业户简称
    FROM aaa INNER JOIN
          bbb ON aaa.业户id = bbb.id
      

  2.   

    你试试下面的怎么样
    "select student.SID,student.SEnabled,reginfo.EID
          from student,reginfo 
          where student.SID=reginfo.SID
          order by student.SID "