NOTES与关系数据库互相更新代码,Domino代码库,德仔网

代码语言

代码分类

【Domino】 NOTES与关系数据库互相更新

作者:dezai / 发布于2014/8/5/ 1111


	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

评论列表

本站所提供的代码，版权归原作者所有，若有侵犯作者版权，请与我们联系，我们将立即删除或修改。谢谢!
本站所有代码发布及提供者。

试试其它关键字

　NOTES　

同语言下

可能有用的

dezai贡献的其它代码(1065)