Αυτό που θέλω να κάνω είναι σε ένα βήμα να
1)Διαβάσω ένα set εγγραφών
2)Να το μαρκάρω σαν exported
3)Nα το εισάγω σε μία Export βάση
Παρατήρησε ότι 'κόβω' το transaction στο τέλος (ContextUtil.SetAbort() 
και
Το Update στον SQL server γίνεται Rollback ενώ το Insert στη Sybase
'επιτυνγχάνει' ...
O ίδιος ακριβώς κώδικας με SQL server και στις δύο μεριές δουλεύει μια χαρά
(γίνονται κανονικά το Rollback )
Ιδού :
Τα connection strings :
SQL Server
<add key="MasterConnectionString" value="Server=192.168.1.102,1433;Network Library=DBMSSOCN;Initial Catalog=SINP MASTER DB;User ID=sa;Password=;Min Pool Size=5;Max Pool Size=60;Connect Timeout=30;" />
Sybase Asa server (demo)
<add key="ExportServerConnectionString" value="DatabaseName=TEST;UID=DBA;PWD=SQL" /> <Description("Exports data from SQL Server database to the Export Sybase database"), _
AutoComplete(
False)> _ Public Sub ExportFuelPriceChangesToSybase(ByVal SQLServerConnectionString As String, ByVal ExportServerConnectionString As String) _
Implements IMid.ExportFuelPriceChangesToSybase
Dim SQL_Server_Connection As New SqlConnection(SQLServerConnectionString)
Dim Export_Sybase_Server_Connection As New iAnywhere.Data.AsaClient.AsaConnection(ExportServerConnectionString)
Dim MyAdapter As New SqlDataAdapter
Dim MyDataset As New DataSet
Dim MyCommmand As New SqlCommand
Dim MarkCommand As New SqlCommand
Dim ExportCommand As New iAnywhere.Data.AsaClient.AsaCommand
Dim Counter As Integer
Dim TotalRows As Integer
Try SQL_Server_Connection.Open()
Export_Sybase_Server_Connection.Open()
With MyCommmand
.Connection = SQL_Server_Connection
.CommandType = CommandType.StoredProcedure
.CommandText = "spSelectPricechanges"
End With With MarkCommand
.Connection = SINP_SQL_Server_Connection
.CommandType = CommandType.StoredProcedure
.CommandText = "spMarkExportedPriceChanges"
End With With ExportCommand
.Connection = Export_Sybase_Server_Connection
.CommandType = CommandType.StoredProcedure
.CommandText = "spInsertPriceChange"
End With With MyAdapter
.SelectCommand = MyCommmand
.Fill(MyDataset, "PriceChanges")
End With TotalRows = MyDataset.Tables(0).Rows.Count - 1
If Not TotalRows = 0 Then
Dim ExportedWhen As DateTime = Now
For Counter = 0 To TotalRows
With MarkCommand
'********** Pass parameters **********
.ExecuteNonQuery()
End With With ExportCommand
'********** Pass parameters **********
.ExecuteNonQuery()
End With Next End If ContextUtil.SetAbort()
Catch Ex As Exception ContextUtil.SetAbort()
Finally MyCommmand.Dispose()
MarkCommand.Dispose()
ExportCommand.Dispose()
MyAdapter.Dispose()
MyDataset.Dispose()
With SQL_Server_Connection
.Close()
.Dispose()
End With With Export_Sybase_Server_Connection
.Close()
.Dispose()
End With End Try End Sub
Πάνος Αβραμίδης