我在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