我现在要做一个程序,用SQL Server数据库,其中要用到sybase数据库中的部分数据,sybase数据库的数据又是经常变化的,我用什么方法来保证两个数据库的数据同步?
解决方案 »
- datagrid 里的数据导入到EXCEL ,怎么设置某个单元格的高度和宽度
- ImageCombo1控件如何显示出ImageList1控件中的图标?
- 关于窗体Show的问题
- datagrid输出列问题!来者有分!在线等急!
- 请教:关于ActiveX控件提问!谢谢!:)
- ++++++++++ 一个简单的VB问题 ++++++++++
- 有谁知道在数据库查询时出现的'94'类的错误?
- 有哪个有vb对串口操作的程序原代码和资料?万分火急!
- 请问各位仁兄仁弟,我有一问题要请教大家
- 怎么用 Open ... For Binary 打不开网络驱动器的文件
- 请教VBA查找后面各项参数的作用
- 如何得到“滘”这样的汉字拼音?
SQL SERVER有大量的文档参考~~~~~
79720699(大地勇士):能不能讲清楚点,或给个实例。DTS包??
我抓几张图给你吧~~我以前在与ORACLE9i中测试成功~
我也做了一个,是每天定时运行。把主要代码给大家看一下,可以做个参考。大家也可以提下意见。
Public cnSyb As New ADODB.Connection
Public cnSql As New ADODB.Connection
Public rsSyb As New ADODB.Recordset
Public rsSql As New ADODB.RecordsetPublic Sub trunSySql()
Dim SybFieStr(19) As String
Dim SybFieDat(5) As Date
Dim SybFieLon(2) As Long
cnSyb.Open "driver={Sybase System 11};srvr=ZZ-R8YUK4KWVSGX;uid=sa;db=master"
cnSql.Open "driver={sql server};server=127.0.0.1;uid=kmycgis;pwd=martin80048112;database=cgkmycgis;"
Set rsSyb.ActiveConnection = cnSyb
rsSyb.CursorType = adOpenStatic
rsSyb.LockType = adLockOptimistic
Set rsSql.ActiveConnection = cnSql
rsSql.CursorType = adOpenStatic
rsSql.LockType = adLockOptimistic
rsSyb.Open "select * from qq"
rsSql.Open "select * from ww"
rsSyb.MoveFirst
Do Until rsSyb.EOF
rsSql.AddNew
For i = 0 To rsSyb.Fields.Count - 1
rsSql.Fields(i) = rsSyb.Fields(i)
Next
rsSyb.MoveNext
Loop
rsSql.Update
End Sub
你的DTS好像对Sybase不支持.对其它的数据库我也听过说可用.就是发布和订阅嘛