[原创]关于Notes与关系数据库的问题。

szgamer

你好。想请教一个问题。我希望将 Sql server2000中的数据导入到 Notes数据
库中，写了如下的一段代码，SQL数据库中的字段有 nvarchar,date,int,text等类
型，结果发现只有text类型的值可以得到，其他的值均不能得到，用 msgbox显示时为
-1或 false。我的Notes是R5，如能帮忙解决，真是万分感谢。

Sub Click(Source As Button)

Dim con As New odbcconnection
Dim qry As New odbcquery
Dim res As New odbcresultset

Dim session As New notessession
Dim db As notesdatabase
Dim doc As notesdocument
Set db=session.currentdatabase

If con.connectto("standard") Then
Set qry.connection=con
qry.sql= "select * from stdtemp where rowid>=1100 and rowid<1170
"
Set res.query=qry
res.execute
If res.isresultsetavailable=True Then

Set doc=db.createdocument
doc.form="main topic"

res.firstrow

doc.serial_no=res.getvalue("serial")
doc.number=res.getvalue("no")
doc.stdno=res.getvalue("standno")
doc.stdname=res.getvalue("name")
doc.stdtype=res.getvalue("subno")
doc.stdorg=res.getvalue("org")
doc.stdstatus=res.getvalue("status")
doc.remark=res.getvalue("note")
doc.subject=res.getvalue("name")

Call doc.save(True,False)

Do
Set doc=db.createdocument
doc.form="main topic"

res.nextrow

doc.serial_no=res.getvalue("serial")
doc.number=res.getvalue("no")
doc.stdno=res.getvalue("standno")
doc.stdname=res.getvalue("name")
doc.stdtype=res.getvalue("subno")
doc.stdorg=res.getvalue("org")
doc.stdstatus=res.getvalue("status")

doc.remark=res.getvalue("note")
doc.subject=res.getvalue("name")
Call doc.save(True,False)


Loop Until res.isendofdata
End If
Else
Messagebox("Could not connect to database server")
End If
End Sub