我需要从数据库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
取出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
还是看看资料吧SQL不能同时在两个表中同时提取数据。
但这两个表要是有联系那就可以了。aaa、bbb是两个不同的表但它们之间是通过一个业户id联系的。
在aaa中叫id 在bbb中叫业户idSELECT aaa.姓名, bbb.业户简称
FROM aaa INNER JOIN
bbb ON aaa.业户id = bbb.id
"select student.SID,student.SEnabled,reginfo.EID
from student,reginfo
where student.SID=reginfo.SID
order by student.SID "