社区
MS-SQL Server
帖子详情
lotus数据库怎么转换成SQL SERVER数据库
liaoqingpeng
2003-08-21 09:57:42
lotus数据库怎么转换成SQL SERVER数据库
谢谢
...全文
41
7
打赏
收藏
lotus数据库怎么转换成SQL SERVER数据库
lotus数据库怎么转换成SQL SERVER数据库 谢谢
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
7 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
liaoqingpeng
2003-08-28
打赏
举报
回复
up
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
打赏
举报
回复
严重关注!!
楼主的分少,我再出点
lotus
数据库
导出
SQL
Server
数据库
程序及源代码
开发思路: 使用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直接连接,本程序中用例名设置为
Lotus
OA,每次连接需要输入
lotus
密码,其他开发这里就不在介绍可以看源代码 delphi ADO控件连接自己本地的
SQL
Server
数据库
,程序下载后自己修改 软件使用: 1、配置:通过config.ini修改
LOTUS
CONN,即
Lotus
OA设置为自己的建立ODBC的名字,关系
数据库
修改DBCONN,本例中为
SQL
Server
数据库
2、启动程序,点“数据源链接”,程序连接到
lotus
数据库
和
Sql
server
数据库
设置原始表名:通过
lotus
设计程序中的试图中可以看到,大部分是fm_Main,设置创建表名用于数据导出的表 3、获取表字段,会读处
lotus
数据的所有表名,自动目标生成表创建的
sql
语句,默认字段长度都是254,如需要可以自己修改 4、点“创建表”按钮,如果已创建了不要再点这个按钮 5、点“导出数据”,程序开始自动导出数据 如果目标
数据库
是其他类型
数据库
,可自己通过配置文件config.ini中的DBCONN进行修改
lotus
导入关系
数据库
的资源一直很难找,自己的一点拙见,希望对大家有用。
lotus
利用ODBC类操作
SQL
数据库
代码--已通过
以下是俺学习参考别人有关NOTES与关系
数据库
互相操作的文档后更新的
LOTUS
SCRIPT程序代码 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
数据库
转换器
在大多数情况下,网站管理员或开发人员不需要迁移
数据库
或转换
数据库
格式。但是一旦你有这样的需求(例如,使用存储在其他
数据库
中的数据;使用不同的
数据库
引擎来存储原始数据),就必须使用第三方
数据库
转换工具来解决问题。因为将大量数据从一种
数据库
类型转换为另一种
数据库
类型是一件非常复杂和麻烦的事情。 Full Convert是一个非常强大但用户友好,通用和多功能的
数据库
转换。它支持所有流行
数据库
引擎之间的非常快速的数据转换(导入和导出)操作,包括:Microsoft Access,Microsoft Excel,dBase,FoxPro,InterBase,Firebird,
Lotus
1-2-3,MariaDB,My
SQL
,NexusDB,Oracle,Paradox,Postgre
SQL
,
SQL
Server
,
SQL
ite,文本文件等,并能够有效地处理其庞大的
数据库
文件。 完全转换可以转换和利用不同类型
数据库
的数据,这对于维护数据信息,提取数据表单,传输
数据库
内容等非常有用。无论如何,Full Convert是目前转换
数据库
最简单,最有效的方法(包括简单的数据副本和复杂的自定义要求),并为经常需要在不同
数据库
引擎之间导入和导出
数据库
文件的用户提供完整的,一个 - 停止软件解决方案
通过LS:DO实现
Lotus
Notes与
SQL
Server
的接口.pdf
通过LS:DO实现
Lotus
Notes与
SQL
Server
的接口.pdf
利用
Lotus
Domino_Notes实现
SQL
Server
数据在OA系统中发布.pdf
利用
Lotus
Domino_Notes实现
SQL
Server
数据在OA系统中发布.pdf
MS-SQL Server
34,594
社区成员
254,589
社区内容
发帖
与我相关
我的任务
MS-SQL Server
MS-SQL Server相关内容讨论专区
复制链接
扫一扫
分享
社区描述
MS-SQL Server相关内容讨论专区
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章