请教高手!有没有方法把sqlserver、access等关系数据库转换成Lotus Notes?

lxqlogo0 2002-11-20 02:51:54

...全文

71 11 打赏收藏转发到动态举报

写回复

用AI写文章

11 条回复

切换为时间正序

请发表友善的回复…

发表回复

lxqlogo0 2002-11-25

打赏
举报

可是大虾们，我找不到lei的下载阿！能告诉我哪能下载吗？？

lxqlogo0 2002-11-21

打赏
举报

to xwandxw(青春不败) 具体怎么通过odbc导数据呢？，谢谢

BillyW 2002-11-21

打赏
举报

其实就是用ODBC做中介，给出DSN就行了

BillyW 2002-11-21

打赏
举报

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
:)

xwandxw 2002-11-21