lotus数据库怎么转换成SQL SERVER数据库

liaoqingpeng 2003-08-21 09:57:42

lotus数据库怎么转换成SQL SERVER数据库
谢谢

...全文

36 7 打赏收藏转发到动态举报

写回复

用AI写文章

7 条回复

切换为时间正序

请发表友善的回复…

发表回复

liaoqingpeng 2003-08-28

打赏
举报

zjcxc 元老 2003-08-21

打赏
举报

据我所知,lotus数据库是非关系型数据库,直接转换应该不行.

是否能转成文本这个问题,你到lotus版去问一下,如果能转成文本,就能转到SQL数据库中.

liaoqingpeng 2003-08-21

打赏
举报

lotus能转成文本吗?能转成文本就没有问题了.
=========================================
我也是想知道呀，因为我对LOTUS不熟悉，现在要帮客户迁移数据

liaoqingpeng 2003-08-21

打赏
举报

分不是问题，解决了再开送分帖，谢谢关注。

liaoqingpeng 2003-08-21

打赏
举报

分不是问题，解决了再开送分帖，谢谢关注。

CrazyFor 2003-08-21

打赏
举报

lotus能转成文本吗?能转成文本就没有问题了.

lxf31 2003-08-21

打赏
举报

严重关注！！
楼主的分少，我再出点

开发思路：使用ADO通过ODBC链接进行Louts数据读取，在建立一个与SQL server数据库相连的ADO，将读取数据写入SQL server数据库。安装环境：首先安装lotus_notes853_win_SC（lotus客户端软件）然后安装LOTUS_NOTES_SQL_853_W32_CIC6PEN（顺序好像有关系，win8.1安装64位不能正常使用，一定要安装32位的） 数据库连接：先通过lotus客户端软件连接登陆成功，需要admin.id文件通过ODBC 数据源(32 位) 添加 Lotus Notes SQL Driver(*.nsf)数据源，选择自己的loust数据库文件.nsf delphi ADO控件通过ODBC Drivers直接连接，本程序中用例名设置为LotusOA，每次连接需要输入lotus密码，其他开发这里就不在介绍可以看源代码 delphi ADO控件连接自己本地的SQL Server数据库，程序下载后自己修改软件使用： 1、配置：通过config.ini修改LOTUSCONN，即LotusOA设置为自己的建立ODBC的名字，关系数据库修改DBCONN，本例中为SQLServer数据库 2、启动程序，点“数据源链接”，程序连接到lotus数据库和Sql server数据库 设置原始表名：通过lotus设计程序中的试图中可以看到，大部分是fm_Main，设置创建表名用于数据导出的表 3、获取表字段，会读处lotus数据的所有表名，自动目标生成表创建的sql语句，默认字段长度都是254，如需要可以自己修改 4、点“创建表”按钮，如果已创建了不要再点这个按钮 5、点“导出数据”，程序开始自动导出数据如果目标数据库是其他类型数据库，可自己通过配置文件config.ini中的DBCONN进行修改 lotus导入关系数据库的资源一直很难找，自己的一点拙见，希望对大家有用。

以下是俺学习参考别人有关NOTES与关系数据库互相操作的文档后更新的LOTUSSCRIPT程序代码 Set con=New ODBCConnection Set qry=New ODBCQuery Set rs=New ODBCResultSet Set qry.Connection = con Set rs.Query=qry Set ws=New notesuiworkspace Set uidoc=ws.currentdocument Dim s As New NotesSession Dim db As NotesDatabase Dim tempdoc As NotesDocument Dim StudentView As NotesView Dim j As Integer Set db=s.CurrentDatabase Set StudentView = db.GetView("($studentid)") Call con.ConnectTo("arice","","") qry.SQL="Select * From people" rs.execute rs.LastRow rs.CurrentRow = currentrow If Cstr(uidoc.fieldgettext("Saveoptions"))="0" Then '如果是新建表单 Set tempdoc=StudentView.GetDocumentByKey(Trim(uidoc.fieldgettext("Student_ID")),True)'判断是否在视图存在此学生id的表单 If Not tempdoc Is Nothing Then'如果存在 Messagebox "系统已经存在，请不要重复录入",,"警告" continue=False Exit Sub Else j = 0 For i = 1 To rs.NumRows rs.CurrentRow = i If Cstr(rs.GetValue("Cname")) = Cstr(uidoc.FieldGetText("Student_ID")) Then j = j + 1 End If Next '==============更新操作================================================== If j > 0 Then Call rs.SetValue("Student_id",Cstr(uidoc.FieldGetText("Student_ID"))) 'Messagebox "执行第一条语句" Call rs.SetValue("CName", Cstr(uidoc.fieldgettext("CName"))) 'Messagebox "执行第二条语句" Call rs.SetValue("EName", Cstr(uidoc.fieldgettext("EName"))) Call rs.SetValue("Address",Cstr(uidoc.fieldgettext("Address"))) Call rs.SetValue("Tel",Cstr(uidoc.fieldgettext("Tel"))) 'Messagebox "执行第五条语句" If rs.UpdateRow Then Messagebox "提交SQL数据库成功" 'Call uidoc.fieldsettext("Saveoptions","1") Call uidoc.Save(False,False) Else Messagebox "保存SQL数据库失败" Exit Sub End If Else Messagebox "是新增的文档，待定新增代码处理!" '====================新增保存代码========================= rs.AddRow Call rs.SetValue("Student_id",Cstr(uidoc.FieldGetText("Student_ID"))) Call rs.SetValue("CName", Cstr(uidoc.fieldgettext("CName"))) Call rs.SetValue("EName", Cstr(uidoc.fieldgettext("EName"))) Call rs.SetValue("Address",Cstr(uidoc.fieldgettext("Address"))) Call rs.SetValue("Tel",Cstr(uidoc.fieldgettext("Tel"))) If rs.UpdateRow Then Call uidoc.fieldsettext("Saveoptions","1") Call uidoc.Save(True,False) Messagebox "提交SQL数据库成功" Else Messagebox "保存SQL数据库失败" Exit Sub End If End If End If 'Messagebox "执行update条语句" Else Call rs.SetValue("Student_id",Cstr(uidoc.FieldGetText("Student_ID"))) 'Messagebox "执行第一条语句" Call rs.SetValue("CName", Cstr(uidoc.fieldgettext("CName"))) 'Messagebox "执行第二条语句" Call rs.SetValue("EName", Cstr(uidoc.fieldgettext("EName"))) Call rs.SetValue("Address",Cstr(uidoc.fieldgettext("Address"))) Call rs.SetValue("Tel",Cstr(uidoc.fieldgettext("Tel"))) 'Messagebox "执行第五条语句" If rs.UpdateRow Then Messagebox "提交SQL数据库成功" 'Call uidoc.fieldsettext("Saveoptions","1") Call uidoc.Save(True,False) Else Messagebox "保存SQL数据库失败" Exit Sub End If End If rs.Close(DB_CLOSE) con.Disconnect

在大多数情况下，网站管理员或开发人员不需要迁移数据库或转换数据库格式。但是一旦你有这样的需求（例如，使用存储在其他数据库中的数据;使用不同的数据库引擎来存储原始数据），就必须使用第三方数据库转换工具来解决问题。因为将大量数据从一种数据库类型转换为另一种数据库类型是一件非常复杂和麻烦的事情。 Full Convert是一个非常强大但用户友好，通用和多功能的数据库转换。它支持所有流行数据库引擎之间的非常快速的数据转换（导入和导出）操作，包括：Microsoft Access，Microsoft Excel，dBase，FoxPro，InterBase，Firebird，Lotus 1-2-3，MariaDB，MySQL，NexusDB，Oracle，Paradox，PostgreSQL，SQL Server，SQLite，文本文件等，并能够有效地处理其庞大的数据库文件。完全转换可以转换和利用不同类型数据库的数据，这对于维护数据信息，提取数据表单，传输数据库内容等非常有用。无论如何，Full Convert是目前转换数据库最简单，最有效的方法（包括简单的数据副本和复杂的自定义要求），并为经常需要在不同数据库引擎之间导入和导出数据库文件的用户提供完整的，一个 - 停止软件解决方案

通过LS：DO实现Lotus Notes与SQL Server的接口.pdf

利用Lotus Domino_Notes实现SQL Server数据在OA系统中发布.pdf

MS-SQL Server

34,590

社区成员

254,589

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

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

+ 用AI写文章