请问在LS中怎么写NOTES与MYSQL数据库的连接代码?
我在MYSQL所在的服务器上创建了ODBC,名称为conndb,UID为operator,密码为password
在LS中写的主要代码是
Dim s As New notessession
Dim db As notesdatabase
Dim doc As notesdocument
Dim newdoc As notesdocument
Dim con As New ODBCConnection
Dim qry As New ODBCQuery
Dim result As New ODBCResultSet
Dim Sqlstrbh As String
Dim Sqlstrxm As String
Dim i As Integer

Dim strDepName As String
Dim strtransQuantity As String

Set db=s.currentdatabase
Set qry.Connection = con
Set result.Query = qry
Call con.ConnectTo( "conndb ", "operator ", "password ")

qry.Sql= " "
qry.SQL= "SELECT * FROM tbl_department "
result.Execute
Print result.IsEndOfData

MYSQL数据库中的tbl_department表里是有数据的，但是通过上述LS写的代码,result.IsEndOfData为TRUE.
是不是我写的连接不对呢，请各位高手指教,谢谢

[解决办法]
你先result.first()一下看看（可能不是这个方法，类似的）。
建议这种东西用JDBC，方便卫生起效快
[解决办法]
Dim qry As ODBCQuery
Dim rs As ODBCResultSet
Dim con As ODBCConnection
Set con = New ODBCConnection
Set qry = New ODBCQuery
Set rs = New ODBCResultSet
'若已连接ODBC则断开
If con.IsConnected Then con.Disconnect
If con.ConnectTo( "conndb ", "operator ", "password ") Then
Set qry.Connection = con
'提取部门信息
qry.SQL = "SELECT * FROM department "
Set rs.Query = qry
Call rs.Execute()
While Not(rs.IsEndOfData)
rs.NextRow
msgbox rs.GetValue( "id ")
Wend

Call con.Disconnect()
End If
[解决办法]
set conn=createobject( "adodb.connection ")
conn.open "Driver=Sql Server;Server=(local);UID=operator;Password=password "

set rs=createobject( "adodb.recordset ")
rs.open conn, "select * from table "
for i%=1 to rs.recordcount
print rs.field(1).value
next i%
[解决办法]
loadagain(最后一只妖怪)
good