CN101369282A - 一种多数据库应用系统 - Google Patents
一种多数据库应用系统 Download PDFInfo
- Publication number
- CN101369282A CN101369282A CNA2008102012116A CN200810201211A CN101369282A CN 101369282 A CN101369282 A CN 101369282A CN A2008102012116 A CNA2008102012116 A CN A2008102012116A CN 200810201211 A CN200810201211 A CN 200810201211A CN 101369282 A CN101369282 A CN 101369282A
- Authority
- CN
- China
- Prior art keywords
- database
- module
- data
- access
- ftp
- Prior art date
- Legal status (The legal status is an assumption and is not a legal conclusion. Google has not performed a legal analysis and makes no representation as to the accuracy of the status listed.)
- Pending
Links
Images
Landscapes
- Information Retrieval, Db Structures And Fs Structures Therefor (AREA)
Abstract
本发明涉及一种多数据库应用系统，包括多个数据库应用子系统、数据存储系统，所述的多个数据库应用子系统均与数据存储系统网络连接。与现有技术相比，本发明节约了开发成本，为现有系统资源的共享提供了一条简捷、低成本的道路。
Description
技术领域
本发明涉及多数据库应用，特别是涉及一种多数据库应用系统。
背景技术
目前大多数新开发的多种数据库应用系统基本上都使用WNADO封装技术或者使用JDBC，并对JDBC进行封装以便达到无视底层是何种数据库的目的。但是对于已经各自存在的在使用中的应用系统，由于当时使用的开发软件的局限性，使用以上两种方法实现多数据库共存于一个应用系统就不可行。
发明内容
本发明所要解决的技术问题就是为了克服上述现有技术存在的缺陷而提供一种多数据库应用系统。
本发明的目的可以通过以下技术方案来实现：一种多数据库应用系统，其特征在于，包括多个数据库应用子系统、数据存储系统，所述的多个数据库应用子系统均与数据存储系统网络连接。、
所述的数据存储系统采用FTP服务器。
所述的多个数据库应用子系统为总公司处理子系统、分公司处理子系统、分公司财务主管处理子系统。
所述的总公司处理子系统包括ORACLE数据库、账务基本数据作成模块、第一账务数据维护模块、第一报表输出模块、第一账务数据打包压缩模块、第一FTP传动模块，所述的ORACLE数据库、账务基本数据作成模块、第一账务数据维护模块和第一报表输出模块依次连接，所述的ORACLE数据库、第一账务数据打包压缩模块和第一FTP传送模块依次连接，所述的第一报表输出模块还与ORACLE数据库连接，所述的第一FTP传送模块还与FTP服务器网络连接。
所述的分公司处理子系统包括SQL SERVER数据库、接收账务数据一、第二账务数据维护模块、第二报表输出模块、第二账务数据打包压缩模块、第二FTP传送模块，所述的SQL SERVER数据库、接收账务数据一、第二账务数据维护模块和第二报表输出模块依次连接，所述的SQL SERVER数据库、第二账务数据打包压缩模块和第二FTP传送模块依次连接，所述的第二报表输出模块还与SQLSERVER数据库连接，所述的第二FTP传送模块还与FTP服务器网络连接。
所述的分公司财务主管处理子系统包括ACCESS数据库、接收账务模块二、第三报表输出模块，所述的接收账务模块二、第三报表输出模块均与ACCESS数据库连接。
所述的总公司处理子系统采用创建对象的方法实现连接：
从ini文件中读取数据库用户名sConnect及主机名Host，采用如下方法连接：
Set G_OraSession＝CreateObject(“oracleinprocserver xorasession”)，
Set G_OraDB＝G_OraSession OpenDatabase(Host，sConnect，ORADB_DEFAULT)
采用如下的相应方法废除连接：
Set G_OraSession＝Nothing；
ORACLE数据库的更新，删除，追加等操作，由以下方法实现：
G_OraDB.DBExecuteSQL StrSql‘StrSql数据库操作语句。
所述的分公司处理子系统采用IP地址方式实现SQL SERVER数据库的连接：
从ini文件中读取SQL SERVER数据库服务器的IP地址(strIP)，数据库名(strDB)，用户名(strUser)和密码(strPwd)后，用如下方法连接：
Public FunctionMSDE_IpConnect(ip_address As String)As Integer
OnErrorGoTo err_MSDE_IpConnect
SetMsdeCn＝New ADODB.Connection
MsdeCn.ConnectionString＝＂Provider＝sqloledb；Data
Source＝＂+st r Ip+
＂；Network Library＝DBMSSOCN；Initial Catalog＝”+
strDB+”；UserID＝”+
strUser+”；Password＝”+strPw d+”；＂
MsdeCn.Open
MSDE_IpConnect＝True
Exit Funct ion
err_MSDE_IpConnect:
MSDE_IpConnect＝False
End Function
采用以下相应方法结束连接：
Public SubMSDE_DisConnect()
IfMsdeCn.State＝＂1＂Then
MsdeCn.Close
End If
MsdeCn.ConnectionSt ring＝＂＂
Exit Sub
End Sub
用创建ADODB.Recordset对象的方法访问SQL SERVER的数据：
Dim Rs As ADODB.Recordset
Set Rs＝New ADODB.Recordset’St rSql为数据库访问语句
Rs.Open StrSql，MsdeCn，adOpenStatic，adLockOptimistic
利用打开的ADODB.Recordset对象可以方便的实现数据的更新操作：
例如数据更新：
Rs.Fields(＂KUBUN＂).Value＝更新值
Rs.Update
例如记录追加：
Rs.AddNew
Rs.Fields(＂KUBUN＂).Value＝更新值
Rs.Update。
所述的分公司财务主管处理子系统采用ACCESS数据库名创建ACCESS数据库的连接：
Public Function Access_Connect(connectPath As String)
As Integer
On Error GoTo Connect_Err
Set AccessCn＝New ADODB.Connection
AccessCn.ConnectionSt ring＝＂Provider＝Microsoft.Jet.
OLEDB.4.0；Data Source＝＂+connectPath
AccessCn.Open
Access_Connect＝T rue
Exit Function
Connect_Err:
Access_Connect＝False
End Function
采用如下的相应方法结束连接：
Public Sub Access_DisConnect()
AccessCn.Close
End Sub
对ACCESS数据库的操作可以采用类似于SQLSERVER数据库的操作方法：
如对数据的访问：
Dim access_rst AsADODB.Recordset
Set access_rst＝New ADODB.Recordset’StrSql为数据库访问语句access_rst.Open StrSql，AccessCn，adOpenStatic，ad2LockOptimistic；其他数据库更新，追加，删除语句也类似。
本系统通过以下方法实现异地数据库之间数据流动：
FTP服务器的连接：
Private Function FtpConnect(ip_addressAs String，user As String，pwd As String)AsLong
Dimlng INet AsLong
DimlngInetconn AsLong
On Error GoTo Err_F tpConnect
建立互联网连接lng INet＝InternetOpen(vbNullString，0，vbNullString，vbNullString，0&)
利用用户名，密码，FTP服务器的IP地址，与该FTP服务器连接
lngInetconn＝InternetConnect(lng INet，ip_address，0，user，pwd，1，0，0)
Iflng Inetconn<>0 Then
FtpConnect＝lng Inetconn
Exit Function
End If
FtpConnect＝0
Exit Function
FtpPutFile函数，将要传送的文件传至FTP服务器上，利用以上函数，实现一次FTP文件传送：
If FtpPutFile(lng Inetconn，指定文件名，IN TERN ET_FLAG_TRANSFER_BINARY，0)＝False
Then
Msgbox(＂通讯失败。＂+GetSystemT ime())
End if
InternetCloseHandle函数，结束FTP服务器连接：
InternetCloseHandle lng Inetconn
InternetCloseHandle lng INet。
与现有技术相比，本发明节约了开发成本，为现有系统资源的共享提供了一条简捷、低成本的道路。
附图说明
图1为本发明的原理图；
图2为本发明的实施例的原理图。
具体实施方式
下面结合附图对本发明作进一步说明。
如图1、2所示，一种多数据库应用系统，包括多个数据库应用子系统1、数据存储系统2，所述的多个数据库应用子系统1均与数据存储系统2网络连接。
所述的数据存储系统2采用FTP服务器；所述的多个数据库应用子系统为总公司处理子系统3、分公司处理子系统4、分公司财务主管处理子系统5；所述的总公司处理子系统3包括ORACLE数据库30、账务基本数据作成模块31、第一账务数据维护模块32、第一报表输出模块33、第一账务数据打包压缩模块34、第一FTP传动模块35，所述的ORACLE数据库30、账务基本数据作成模块31、第一账务数据维护模块32和第一报表输出模块33依次连接，所述的ORACLE数据库30、第一账务数据打包压缩模块34和第一FTP传送模块35依次连接，所述的第一报表输出模块33还与ORACLE数据库30连接，所述的第一FTP传送模块35还与FTP服务器网络连接；所述的分公司处理子系统4包括SQL SERVER数据库40、接收账务数据一41、第二账务数据维护模块42、第二报表输出模块43、第二账务数据打包压缩模块44、第二FTP传送模块45，所述的SQL SERVER数据库40、接收账务数据一41、第二账务数据维护模块42和第二报表输出模块43依次连接，所述的SQL SERVER数据库40、第二账务数据打包压缩模块42和第二FTP传送模块45依次连接，所述的第二报表输出模块43还与SQL SERVER数据库40连接，所述的第二FTP传送模块45还与FTP服务器网络连接；所述的分公司财务主管处理子系统5包括ACCESS数据库50、接收账务模块二51、第三报表输出模块52，所述的接收账务模块二51、第三报表输出模块52均与ACCESS数据库50连接；
所述的总公司处理子系统采用创建对象的方法实现连接：
从ini文件中读取数据库用户名sConnect及主机名Host，采用如下方法连接：
Set G_OraSession＝CreateObject(“oracleinprocserver xorasession”)，
Set G_OraDB＝G_OraSession OpenDatabase(Host，sConnect，ORADB_DEFAULT)
采用如下的相应方法废除连接：
Set G_OraSession＝Nothing；
ORACLE数据库的更新，删除，追加等操作，由以下方法实现：
G_OraDB.DBExecuteSQL StrSql‘StrSql数据库操作语句；
所述的分公司处理子系统采用IP地址方式实现SQL SERVER数据库的连接：
从ini文件中读取SQL SERVER数据库服务器的IP地址(strIp)，数据库名(strDB)，用户名(strUser)和密码(strPwd)后，用如下方法连接：
Public FunctionMSDE_IpConnect(ip_address As String)As Integer
OnErrorGoTo err_MSDE_IpConnect
SetMsdeCn＝New ADODB.Connection
MsdeCn.ConnectionString＝＂Provider＝sqloledb；Data
Source＝＂+st r Ip+
＂；Network Library＝DBMSSOCN；Initial Catalog＝”+
strDB+”；UserID＝”+
strUser+”；Password＝”+strPw d+”；＂
MsdeCn.Open
MSDE_IpConnect＝True
Exit Function
err_MSDE_IpConnect:
MSDE_IpConnect＝False
End Function
采用以下相应方法结束连接：
Public SubMSDE_DisConnect()
IfMsdeCn.State＝＂1＂Then
MsdeCn.Close
End If
MsdeCn.ConnectionSt ring＝＂＂
Exit Sub
End Sub
用创建ADODB.Recordset对象的方法访问SQL SERVER的数据：
Dim Rs As ADODB.Recordset
Set Rs＝New ADODB.Recordset’St rSql为数据库访问语句
R s.Open StrSql，MsdeCn，adOpenStatic，adLockOptimistic
利用打开的ADODB.Recordset对象可以方便的实现数据的更新操作：
例如数据更新：
Rs.Fields(＂KUBUN＂).Value＝更新值
Rs.Update
例如记录追加：
Rs.AddNew
Rs.Fields(＂KUBUN＂).Value＝更新值
Rs.Update。
所述的分公司财务主管处理子系统采用ACCESS数据库名创建ACCESS数据库的连接：
Public Function Access_Connect(connectPath As String)
As Integer
On Error GoTo Connect_Err
Set AccessCn＝New ADODB.Connection
AccessCn.ConnectionSt ring＝＂Provider＝Microsoft.Jet.
OLEDB.4.0；Data Source＝＂+connectPath
AccessCn.Open
Access_Connect＝T rue
Exit Function
Connect_Err:
Access_Connect＝False
End Function
采用如下的相应方法结束连接：
Public Sub Access_DisConnect()
AccessCn.Close
End Sub
对ACCESS数据库的操作可以采用类似于SQLSERVER数据库的操作方法：
如对数据的访问：
Dim access_rst AsADODB.Recordset
Set access_rst＝New ADODB.Recordset’StrSql为数据库访问语句access_rst.Open StrSql，AccessCn，adOpenStatic，ad2LockOptimistic；其他数据库更新，追加，删除语句也类似；
本系统通过以下方法实现异地数据库之间数据流动：
FTP服务器的连接：
Private Function FtpConnect(ip_addressAs String，user As String，pwd As String)AsLong
Dimlng INet AsLong
DimlngInetconn AsLong
On Error GoTo Err_F tpConnect
建立互联网连接lng INet＝InternetOpen(vbNullString，0，vbNullString，vbNullString，0&)
利用用户名，密码，FTP服务器的IP地址，与该FTP服务器连接
lngInetconn＝InternetConnect(lng INet，ip_address，0，user，pwd，1，0，0)
Iflng Inetconn<>0Then
FtpConnect＝lng Inetconn
Exit Function
End If
FtpConnect＝0
Exit Function
FtpPutFile函数，将要传送的文件传至FTP服务器上，利用以上函数，实现一次FTP文件传送：
If FtpPutFile(lng Inetconn，指定文件名，IN TERN ET_FLAG_TRANSFER_BINARY，0)＝False
Then
Msgbox(＂通讯失败。＂+GetSystemT ime())
End if
InternetCloseHandle函数，结束FTP服务器连接：
InternetCloseHandle lng Inetconn
InternetCloseHandle lng INet。
实施例
如图2，本实施例以一基于VB的商贸公司的账务管理系统为例。本实施例包括总公司的业务处理子系统、各分公司的业务处理子系统以及各分公司财务主管的业务处理子系统。
首先总公司的业务处理子系统每月底根据所有分公司的基本销售数据定时的做成当月的帐务基本数据，并在此基础上进行帐务数据的维护和报表输出等其他处理；然后根据各分公司的营销内容，总公司将相应的数据以MDB的格式打包压缩，再以FTP方式上传至相应分公司的FTP服务器。其次各分公司的主要处理是定期接收总公司的当月数据，对分公司的帐务数据进行更新，并在此基础上进行数据维护和报表输出，每月月底将当月帐务数据以FTP方式上传至分公司的FTP服务器。最后各分公司财务主管的主要处理是定期接收并保存分公司当月的帐务数据，一般对此数据不进行更改，只是输出所需的报表。原始系统中有三种数据库：ORACLE数据库、SQL SERVER数据库或ACCESS数据库。
在总公司处理子系统中，使用ORACLE数据库，由帐务基本数据作成模块生成当月的基本帐务数据，并由帐务数据维护模块及报表输出模块实现总公司用户的数据维护和报表制作。同时由帐务数据打包压缩模块将当月的帐务数据以FTP方式上传至各相应分公司的FTP服务器，供各分公司读取。
在分公司处理子系统中，使用SQL SERVER数据库，首先由接收帐务数据模块定期的从FTP服务器下载当月的基本帐务数据，各分公司用户通过帐务数据维护模块及报表输出模块进行本地的帐务数据维护和报表制作。最终的帐务数据通过帐务数据打包压缩模块仍以FTP方式上传至分公司的FTP服务器，供该分公司的财务主管读取。
在分公司财务主管处理子系统中，使用ACCESS数据库，主要是接收帐务数据模块从FTP服务器获取当月的帐务数据，制作帐务报表。
本实施例为了实现在不同用户的不同数据库类型之间传送，更新数据，需要对不同数据库采用不同的连接操作方式，从而实现异构数据库的数据共享。
a)ORACLE数据库
采用创建对象的方法实现连接：
从ini文件中读取数据库用户名sConnect及主机名Host，采用如下方法连接：
Set G_OraSession＝CreateObject(“oracleinprocserver xorasession”)
Set G_OraDB＝G_OraSession OpenDatabase(Host，sConnect，ORADB_DEFAULT)
采用如下的相应方法废除连接：
Set G_OraSession＝Nothing
ORACLE数据库的更新，删除，追加等操作，由如下方法实现：
G_OraDB.DBExecuteSQL StrSql‘StrSql数据库操作语句
b)SQL SERVER数据库
采用IP地址方法实现SQL SERVER数据库的连接。
从ini文件中读取SQL SERVER数据库服务器的IP地址(strIP)，数据库名(strDB)，
用户名(strUser)和密码(strPwd)后，用如下方法连接：
Public FunctionMSDE_IpConnect(ip_address AsString)As Integer
OnErrorGoTo err_MSDE_IpConnect
SetMsdeCn＝New ADODB.Connection
MsdeCn.ConnectionString＝＂Provider＝sqloledb；Data
Source＝＂+st r Ip+
＂；Network Library＝DBMSSOCN；Initial Catalog＝”+
strDB+”；UserID＝”+
strUser+”；Password＝”+strPw d+”；＂
MsdeCn.Open
MSDE_IpConnect＝True
Exit Funct ion
err_MSDE_IpConnect:
MSDE_IpConnect＝False
End Function
采用如下的相应方法结束连接：
Public SubMSDE_DisConnect()
IfMsdeCn.State＝＂1＂Then
MsdeCn.Close
End If
MsdeCn.ConnectionSt ring＝＂＂
Exit Sub
End Sub
用创建ADODB.Recordset对象的方法访问SQL SERVER的数据：
Dim Rs As ADODB.Recordset
Set Rs＝New ADODB.Recordset’St rSql为数据库访问
语句
Rs.Open StrSql，MsdeCn，adOpenStatic，adLockOptimistic
利用打开的ADODB.Recordset对象可以方便的实现数据的更新操作。
例如数据更新：
Rs.Fields(＂KUBUN＂).Value＝更新值
Rs.Update
例如记录追加：
Rs.AddNew
Rs.Fields(＂KUBUN＂).Value＝更新值
Rs.Update
c)ACCESS数据库
利用ACCESS数据库名创建ACCESS数据库的连接：
Public Function Access_Connect(connectPath As String)
As Integer
On Error GoTo Connect_Err
Set AccessCn＝New ADODB.Connection
AccessCn.ConnectionSt ring＝＂Provider＝Microsof t.Jet.
OLEDB.4.0；Data Source＝＂+connectPath
AccessCn.Open
Access_Connect＝T rue
Exit Function
Connect_Err:
Access_Connect＝False
End Funct ion
采用如下的相应方法结束连接：
Public Sub Access_DisConnect()
AccessCn.Close
End Sub
对ACCESS数据库的操作可以采用类似于SQLSERVER数据库的操作方法。
如对数据的访问：
Dim access_rst AsADODB.Recordset
Set access_rst＝New ADODB.Recordset’StrSql为数据库访问语句access_rst.Open StrSql，AccessCn，adOpenStatic，ad2LockOptimistic；其他数据库更新，追加，删除语句也类似。
异地数据库之间数据流动的实现：
本系统的处理中，需要在总公司与各分公司，分公司与财务主管之间进行数据的传送，系统设计采用FTP方式实现数据传送。
FTP传送过程包括：建立FTP服务器的连接，文件的传送，结束FTP服务器连接。
功能实现时利用了一系列A P I函数：
--InternetOpen函数，用于打开互联网连接；
--InternetConnect函数，通过互联网与特定的FTP服务器进行连接；
由以上两个函数实现FTP服务器的连接功能：
Private Function FtpConnect(ip_addressAs String，user As String，pwd As String)AsLong
Dimlng INet AsLong
DimlngInetconn AsLong
On Error GoTo Err_F tpConnect
建立互联网连接lng INet＝InternetOpen(vbNullString，0，vbNullString，vbNullString，0&)
利用用户名，密码，FTP服务器的IP地址，与该FTP服务器连接
lngInetconn＝InternetConnect(lng INet，ip_address，0，user，pwd，1，0，0)
If lng Inetconn<>0Then
FtpConnect＝lng Inetconn
Exit Function
End If
FtpConnect＝0
Exit Function
FtpPutFile函数，将要传送的文件传至FTP服务器上，利用以上函数，实现一次FTP传送
If FtpPutFile(lng Inetconn，指定文件名，IN TERN ET_FLAG_TRANSFER_BINARY，0)＝False Then
Msgbox(＂通讯失败。＂+GetSystemT ime())
End if
InternetCloseHandle函数，结束FTP服务器连接；
利用以上函数，终止一次FTP连接：
InternetCloseHandle lng Inetconn
InternetCloseHandle lng INet。
Claims (10)
1.一种多数据库应用系统，其特征在于，包括多个数据库应用子系统、数据存储系统，所述的多个数据库应用子系统均与数据存储系统网络连接。、
2.根据权利要求1所述的一种多数据库应用系统，其特征在于，所述的数据存储系统采用FTP服务器。
3.根据权利要求2所述的一种多数据库应用系统，其特征在于，所述的多个数据库应用子系统为总公司处理子系统、分公司处理子系统、分公司财务主管处理子系统。
4.根据权利要求3所述的一种多数据库应用系统，其特征在于，所述的总公司处理子系统包括ORACLE数据库、账务基本数据作成模块、第一账务数据维护模块、第一报表输出模块、第一账务数据打包压缩模块、第一FTP传动模块，所述的ORACLE数据库、账务基本数据作成模块、第一账务数据维护模块和第一报表输出模块依次连接，所述的ORACLE数据库、第一账务数据打包压缩模块和第一FTP传送模块依次连接，所述的第一报表输出模块还与ORACLE数据库连接，所述的第一FTP传送模块还与FTP服务器网络连接。
5.根据权利要求3所述的一种多数据库应用系统，其特征在于，所述的分公司处理子系统包括SQL SERVER数据库、接收账务数据一、第二账务数据维护模块、第二报表输出模块、第二账务数据打包压缩模块、第二FTP传送模块，所述的SQL SERVER数据库、接收账务数据一、第二账务数据维护模块和第二报表输出模块依次连接，所述的SQL SERVER数据库、第二账务数据打包压缩模块和第二FTP传送模块依次连接，所述的第二报表输出模块还与SQL SERVER数据库连接，所述的第二FTP传送模块还与FTP服务器网络连接。
6.根据权利要求3所述的一种多数据库应用系统，其特征在于，所述的分公司财务主管处理子系统包括ACCESS数据库、接收账务模块二、第三报表输出模块，所述的接收账务模块二、第三报表输出模块均与ACCESS数据库连接。
7.根据权利要求4所述的一种多数据库应用系统，其特征在于，所述的总公司处理子系统采用创建对象的方法实现连接：
从ini文件中读取数据库用户名sConnect及主机名Host，采用如下方法连接：
Set G_OraSession＝CreateObject(“oracleinprocserver xorasession”)，
Set G_OraDB＝G_OraSession OpenDatabase(Host，sConnect，ORADB_DEFAULT)
采用如下的相应方法废除连接：
Set G_OraSession＝Nothing；
ORACLE数据库的更新，删除，追加等操作，由以下方法实现：
G_OraDB.DBExecuteSQL StrSql‘StrSql数据库操作语句。
8.根据权利要求4所述的一种多数据库应用系统，其特征在于，所述的分公司处理子系统采用IP地址方式实现SQL SERVER数据库的连接：
从ini文件中读取SQL SERVER数据库服务器的IP地址(strIP)，数据库名(strDB)，用户名(strUser)和密码(strPwd)后，用如下方法连接：
Public FunctionMSDE_IpConnect(ip_address As String)As Integer
OnErrorGoTo err_MSDE_IpConnect
SetMsdeCn＝New ADODB.Connection
MsdeCn.ConnectionString＝＂Provider＝sqloledb；Data
Source＝＂+st r Ip+
＂；Network Library＝DBMSSOCN；Initial Catalog＝”+
strDB+”；UserID＝”+
strUser+”；Password＝”+strPw d+”；＂
MsdeCn.Open
MSDE_IpConnect＝True
Exit Function
err_MSDE_IpConnect：
MSDE_IpConnect＝False
End Function
采用以下相应方法结束连接：
Public SubMSDE_DisConnect()
IfMsdeCn.State＝＂1＂Then
MsdeCn.Close
End If
MsdeCn.ConnectionSt ring＝＂＂
Exit Sub
End Sub
用创建ADODB.Recordset对象的方法访问SQL SERVER的数据：
Dim Rs As ADODB.Recordset
Set R s＝New ADODB.Recordset’St rSql为数据库访问语句
R s.Open StrSql，MsdeCn，adOpenStatic，adLockOptimistic
利用打开的ADODB.Recordset对象可以方便的实现数据的更新操作：
例如数据更新：
Rs.Fields(＂KUBUN＂).Value＝更新值
Rs.Update
例如记录追加：
Rs.AddNew
R s.Fields(＂KUBUN＂).Value＝更新值
R s.Update。
9.根据权利要求4所述的一种多数据库应用系统，其特征在于，所述的分公司财务主管处理子系统采用ACCESS数据库名创建ACCESS数据库的连接：
Public Function Access_Connect(connectPath As String)
As Integer
On Error GoTo Connect_Err
Set AccessCn＝New ADODB.Connection
AccessCn.ConnectionSt ring＝＂Provider＝Microsoft.Jet.
OLEDB.4.0；Data Source＝＂+connectPath
AccessCn.Open
Access_Connect＝T rue
Exit Function
Connect_Err：
Access_Connect＝False
End Function
采用如下的相应方法结束连接：
Public Sub Access_DisConnect()
AccessCn.Close
End Sub
对ACCESS数据库的操作可以采用类似于SQLSERVER数据库的操作方法：
如对数据的访问：
Dim access_rst AsADODB.Recordset
Set access_rst＝New ADODB.Recordset’StrSql为数据库访问语句access_rst.Open StrSql，AccessCn，adOpenStatic，ad2LockOptimistic；其他数据库更新，追加，删除语句也类似。
10.根据权利要求2所述的一种多数据库应用系统，其特征在于，本系统通过以下方法实现异地数据库之间数据流动：
FTP服务器的连接：
Private Function FtpConnect(ip_addressAs String，user As String，pwd As String)AsLong
Dimlng INet AsLong
DimlngInetconn AsLong
On Error GoTo Err_F tpConnect
建立互联网连接lng INet＝InternetOpen(vbNullString，0，vbNullString，vbNullString，0&)
利用用户名，密码，FTP服务器的IP地址，与该FTP服务器连接
lngInetconn＝InternetConnect(lng INet，ip_address，0，user，pwd，1，0，0)
Iflng Inetconn<>0Then
FtpConnect＝lng Inetconn
Exit Function
End If
FtpConnect＝0
Exit Function
FtpPutFile函数，将要传送的文件传至FTP服务器上，利用以上函数，实现一次FTP文件传送：
IfFtpPutFile(lng Inetconn，指定文件名，IN TERN ET_FLAG_TRANSFER_BINARY，0)＝False
Then
Msgbox(＂通讯失败。＂+GetSystemT ime())
End if
InternetCloseHandle函数，结束FTP服务器连接：
InternetCloseHandle lng Inetconn
InternetCloseHandle lng INet。
Priority Applications (1)
| Application Number | Priority Date | Filing Date | Title |
|---|---|---|---|
| CNA2008102012116A CN101369282A (zh) | 2008-10-15 | 2008-10-15 | 一种多数据库应用系统 |
Applications Claiming Priority (1)
| Application Number | Priority Date | Filing Date | Title |
|---|---|---|---|
| CNA2008102012116A CN101369282A (zh) | 2008-10-15 | 2008-10-15 | 一种多数据库应用系统 |
Publications (1)
| Publication Number | Publication Date |
|---|---|
| CN101369282A true CN101369282A (zh) | 2009-02-18 |
Family
ID=40413097
Family Applications (1)
| Application Number | Title | Priority Date | Filing Date |
|---|---|---|---|
| CNA2008102012116A Pending CN101369282A (zh) | 2008-10-15 | 2008-10-15 | 一种多数据库应用系统 |
Country Status (1)
| Country | Link |
|---|---|
| CN (1) | CN101369282A (zh) |
Cited By (5)
| Publication number | Priority date | Publication date | Assignee | Title |
|---|---|---|---|---|
| CN101876980A (zh) * | 2009-04-30 | 2010-11-03 | 中兴通讯股份有限公司 | 数据库管理方法和数据库系统 |
| CN102629264A (zh) * | 2012-03-07 | 2012-08-08 | 浪潮集团山东通用软件有限公司 | 一种在异构数据库系统中实现数据共享并生成财务凭证的方法 |
| CN103475723A (zh) * | 2013-09-16 | 2013-12-25 | 浪潮电子信息产业股份有限公司 | 一种集团财务管理方法 |
| CN104766238A (zh) * | 2014-10-23 | 2015-07-08 | 国家电网公司 | 基于神经元和云部署的价税计算引擎系统及其方法 |
| CN106878146A (zh) * | 2016-12-29 | 2017-06-20 | 广东电网有限责任公司信息中心 | 一种基于社交网络服务渠道的电费电子发票统一开具的方法 |
-
2008
- 2008-10-15 CN CNA2008102012116A patent/CN101369282A/zh active Pending
Cited By (5)
| Publication number | Priority date | Publication date | Assignee | Title |
|---|---|---|---|---|
| CN101876980A (zh) * | 2009-04-30 | 2010-11-03 | 中兴通讯股份有限公司 | 数据库管理方法和数据库系统 |
| CN102629264A (zh) * | 2012-03-07 | 2012-08-08 | 浪潮集团山东通用软件有限公司 | 一种在异构数据库系统中实现数据共享并生成财务凭证的方法 |
| CN103475723A (zh) * | 2013-09-16 | 2013-12-25 | 浪潮电子信息产业股份有限公司 | 一种集团财务管理方法 |
| CN104766238A (zh) * | 2014-10-23 | 2015-07-08 | 国家电网公司 | 基于神经元和云部署的价税计算引擎系统及其方法 |
| CN106878146A (zh) * | 2016-12-29 | 2017-06-20 | 广东电网有限责任公司信息中心 | 一种基于社交网络服务渠道的电费电子发票统一开具的方法 |
Similar Documents
| Publication | Publication Date | Title |
|---|---|---|
| US6360266B1 (en) | Object-oriented distributed communications directory system | |
| US5548726A (en) | System for activating new service in client server network by reconfiguring the multilayer network protocol stack dynamically within the server node | |
| CN1949763B (zh) | 共享信息服务器系统 | |
| US5594921A (en) | Authentication of users with dynamically configurable protocol stack | |
| US6804671B1 (en) | Pluggable tablespaces for database systems | |
| US6604104B1 (en) | System and process for managing data within an operational data store | |
| US9037667B2 (en) | Unified message management method and system | |
| CN107465692B (zh) | 统一用户身份认证方法、系统以及存储介质 | |
| US6363375B1 (en) | Classification tree based information retrieval scheme | |
| US8312285B2 (en) | Global profile management method and system | |
| CN101369282A (zh) | 一种多数据库应用系统 | |
| US9606995B2 (en) | Cloud based master data management system with remote data store and method therefor | |
| CN103608810A (zh) | 使用来自外部数据源的数据来丰富数据库查询响应 | |
| US20120173679A1 (en) | Adaptation method, adapter and adapter system for network service communication | |
| US9600486B2 (en) | File system directory attribute correction | |
| CN101799826A (zh) | 一种基于虚拟视图的网络化数据共享系统及方法 | |
| CN106656650A (zh) | 业务测试环境的生成方法和系统、业务测试的方法、装置和系统 | |
| US6549901B1 (en) | Using transportable tablespaces for hosting data of multiple users | |
| CN102663009A (zh) | 一种支持企业用户数据私有化的web服务集成方法 | |
| CN101442558A (zh) | 一种为p2sp网络提供索引服务的方法和系统 | |
| CN1753020A (zh) | 应用于互联网电子交易整合的系统及其方法 | |
| CN105071975A (zh) | 数据传输和分发的方法及系统 | |
| US11003789B1 (en) | Data isolation and security system and method | |
| CN106649181B (zh) | 一种用于钻完井现场同时集成wits数据和witsml数据的方法 | |
| CN106294842A (zh) | 一种数据交互方法、平台及分布式文件系统 |
Legal Events
| Date | Code | Title | Description |
|---|---|---|---|
| C06 | Publication | ||
| PB01 | Publication | ||
| C10 | Entry into substantive examination | ||
| SE01 | Entry into force of request for substantive examination | ||
| C02 | Deemed withdrawal of patent application after publication (patent law 2001) | ||
| WD01 | Invention patent application deemed withdrawn after publication |
Application publication date: 20090218 |