用lotus如何连Access？

fengyi999 2003-02-09 01:34:52

告诉我用odbc的具体步骤吗，还有之后用到的(代理中）lotus语言，高分相送，不够还可以加！我的是BS的！

...全文

27 5 打赏收藏转发到动态举报

写回复

用AI写文章

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

fengyi999 2003-03-28

打赏
举报

1111

fengyi999 2003-02-15

打赏
举报

give

fengyi999 2003-02-15

打赏
举报

give

luzg402 2003-02-09

打赏
举报

ODBC是 Open Database Connectivity的简称，它提供了数据库连接的比较通用的接口。
打开控制面板中的ODBC数据源,选择ms Access database，指定一个Access数据库文件所在目录。按步骤就可以了。

LOTUS SCRIPT例子：
This agent executes an SQL query and displays some of the field information about each field in the result set.

Uselsx "*LSXODBC"

Sub Initialize
Dim con As New ODBCConnection
Dim qry As New ODBCQuery
Dim result As New ODBCResultSet
Dim msg As String
Dim fieldInfo As Variant
Set qry.Connection = con
Set result.Query = qry
con.ConnectTo("ATDB")
qry.SQL = "SELECT * FROM STUDENTS"
result.Execute
For i = 1 To result.NumColumns
fieldInfo = result.FieldInfo(i)
msg = "Field info:" & Chr(10)
msg = msg & Chr(10) & "Table name: " & _
fieldInfo(DB_INFO_TABLENAME)
If fieldInfo(DB_INFO_READONLY) = DB_READONLY Then
msg = msg & Chr(10) & "Read-only"
Elseif fieldInfo(DB_INFO_READONLY) = _
DB_READWRITE Then
msg = msg & Chr(10) & "Read-write"
Else
msg = msg & Chr(10) & _
"Read-only status unknown"
End If
msg = msg & Chr(10) & "Display size: " & _
fieldInfo(DB_INFO_DISPLAYSIZE)
msg = msg & Chr(10) & "Length: " & _
fieldInfo(DB_INFO_LENGTH)
msg = msg & Chr(10) & "Native data type: " & _
fieldInfo(DB_INFO_NATIVE_DATATYPE)
msg = msg & Chr(10) & "Precision: " & _
fieldInfo(DB_INFO_PRECISION)
Messagebox msg,, i & " " & result.FieldName(i)
Next
result.Close(DB_CLOSE)
con.Disconnect
End Sub

fengyi999 2003-02-09