问题描述
怎么把notes开发的系统中的数据存储到sql-server中????
解决方案
解决方案二:
方法有很多种
解决方案三:
用LEI就可以
解决方案四:
SubClick(SourceAsButton)OnErrorGotoErrorHandleDimwsAsNewNotesUIWorkspaceDimsessionAsNewNotesSessionDimdbAsNotesDatabaseDimviewAsNotesViewDimcolumnAsNotesViewColumnDimdocAsNotesDocumentDimConnAsVariantDimEmpRSAsVariantDimDBConStrAsStringDimSQLCmdAsStringDimAllUsersAsStringConstadStateOpen=1ConstadCmdText=1ConstadCmdTable=2ConstadOpenStatic=3ConstadLockOptimistic=3Setdb=session.CurrentDatabaseSetview=db.GetView("测试视图")Setdoc=view.Getfirstdocument()WhileNotdocIsNothingMessageboxdoc.CompanyName(0)Messageboxdoc.ContactName(0)Messageboxdoc.ContactTitle(0)Messageboxdoc.Address(0)Messageboxdoc.City(0)Messageboxdoc.Region(0)Messageboxdoc.PostalCode(0)Messageboxdoc.Country(0)Messageboxdoc.Phone(0)Messageboxdoc.Fax(0)Messageboxdoc.HomePage(0)DBConStr="Provider=SQLOLEDB.1;PersistSecurityInfo=True"&_";DataSource=.;UserId=sa;Password=yhl1990131;ConnectTimeout=10;"&_"InitialCatalog=Test;"SetConn=CreateObject("ADODB.Connection")Conn.Open(DBConStr)SetEmpRS=CreateObject("ADODB.Recordset")EmpRS.Open"[Test].[dbo].[Suppliers]",Conn,1,3,adCmdTable'第四个变量等于3表示新增、修改或删除数据,如果等于1表示读取EmpRS.AddNewEmpRS("CompanyName").value=doc.CompanyName(0)EmpRS("ContactName").value=doc.ContactName(0)EmpRS("ContactTitle").value=doc.ContactTitle(0)EmpRS("Address").value=doc.Address(0)EmpRS("City").value=doc.City(0)EmpRS("Region").value=doc.Region(0)EmpRS("PostalCode").value=doc.PostalCode(0)EmpRS("Country").value=doc.Country(0)EmpRS("Phone").value=doc.Phone(0)EmpRS("Fax").value=doc.Fax(0)EmpRS("HomePage").value=doc.HomePage(0)EmpRS.UpdateSetdoc=view.GetNextDocument(doc)WendEmpRS.CloseConn.CloseSetEmpRS=NothingSetConn=NothingExitSubErrorHandle:Msgbox"数据写入SQLError"&Error&"错误行:"&Cstr(Erl)EndSub