用lotus如何连Access?

fengyi999 2003-02-09 01:34:52
告诉我用odbc的具体步骤吗,还有之后用到的(代理中)lotus语言,高分相送,不够还可以加!我的是BS的!
...全文
25 5 打赏 收藏 转发到动态 举报
AI 作业
写回复
用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
  • 打赏
  • 举报
回复
up
再加100分

536

社区成员

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

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