如何在VB里提取lotus的数据,或者把LOTUS 的数据倒入SQLSERVER数据库阿?

sunnihao 2003-10-15 12:47:26
如何在VB里提取lotus的数据,或者把LOTUS 的数据倒入SQLSERVER数据库阿?急
...全文
49 10 打赏 收藏 转发到动态 举报
写回复
用AI写文章
10 条回复
切换为时间正序
请发表友善的回复…
发表回复
yuge1002 2003-10-23
  • 打赏
  • 举报
回复
1
duke5939 2003-10-21
  • 打赏
  • 举报
回复
可以使用ADO或调用windows API来配置client的ODBC.
jycz 2003-10-21
  • 打赏
  • 举报
回复
Domino R6 呢
wqqwqq 2003-10-20
  • 打赏
  • 举报
回复
用lei就可以搞定
zhanyunpeng 2003-10-18
  • 打赏
  • 举报
回复
做一个代理程序,将你的通过ODBC访问关系数据库的代码写在这个代理程序里

在客户端脚本中用Set notesAgent = notesDatabase.GetAgent( agentName$ )的方法定义出这个代理程序,

再用代理程序对象的 status = notesAgent.RunOnServer()的方法运行这个代理程序,让这段代理程序在服务器上运行。

这样的话不就是可以在服务器上配置一次ODBC了吗。。。
NickSam 2003-10-16
  • 打赏
  • 举报
回复
请问ODBC在服务器上配置一次就可以是怎么实现的啊,
我这里是CS模式,每个客户端好像都要配置啊,
你是怎么做到的啊?
ibm123 2003-10-15
  • 打赏
  • 举报
回复
在VB中引用NOTES32.TLB与DOMOBJ.tlb文件

然后在vb中可使用LotusScript代码。

Dim Session As New Domino.NotesSession

Dim PublicNotesDb As New Domino.NotesDatabase

Dim View As New NotesView

Session.Initialize

Set PublicNotesDb = Session.GetDatabase("SERVER", "Names.nsf")

If PublicNotesDb Is Nothing Then

……

end if
zhanyunpeng 2003-10-15
  • 打赏
  • 举报
回复
ODBC也可以在服务器上配置一次的!!!
NickSam 2003-10-15
  • 打赏
  • 举报
回复
有没有不要ODBC的啊,如果是ODBC,如果是CS模式的话,
每个客户端都要配ODBC数据源吧,这样比较麻烦啊?

有没有JDBC的例子啊。
cnhxjtoa 2003-10-15
  • 打赏
  • 举报
回复
下面的程序从帮助里抄出来的,用ODBC, 我用过很好用的
Uselsx "*LSXODBC"
Dim con As ODBCConnection
Dim qry As ODBCQuery
Dim result As ODBCResultSet
Dim firstName As String
Dim lastName As String
Dim msg As String

Sub Initialize
Set con = New ODBCConnection
Set qry = New ODBCQuery
Set result = New ODBCResultSet
Set qry.Connection = con
Set result.Query = qry
con.ConnectTo("ATDB")
qry.SQL = "SELECT * FROM STUDENTS"
If Not result.Execute Then
Messagebox result.GetExtendedErrorMessage,, _
result.GetErrorMessage
Exit Sub
End If
REM Display result set properties after Execute
Call DisplayResultSetProperties
msg = "Student names:" & Chr(10)
Do
result.NextRow
firstName = result.GetValue("FIRSTNAME", firstName)
lastName = result.GetValue("LASTNAME", lastName)
msg = msg & Chr(10) & firstName & " " & lastName
Loop Until result.IsEndOfData
Messagebox msg,, "Student Names"
REM Display result set properties after processing
REM result set
Call DisplayResultSetProperties
result.Close(DB_CLOSE)
con.Disconnect
End Sub

Sub DisplayResultSetProperties
If result.IsResultSetAvailable Then
If result.NumRows = DB_ROWSUNKNOWN Then
rows$ = "Not determined yet"
Else
rows$ = Cstr(result.NumRows)
End If
Messagebox _
"NumColumns = " & result.NumColumns & Chr(10) & _
"NumRows = " & rows$ & Chr(10) & _
"IsBeginOfData = " & result.IsBeginOfData & _
Chr(10) & "IsEndOfData = " & result.IsEndOfData & _
Chr(10) & "CurrentRow = " & result.CurrentRow,, _
"Result set properties"
Else
Messagebox "Result set not available",, _
"No result set"
End If
End Sub

535

社区成员

发帖
与我相关
我的任务
社区描述
企业开发 Exchange Server
社区管理员
  • 消息协作社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧