MORTEZA66
پنج شنبه 25 مهر 1387, 12:08 عصر
سلام به همگي
من يه برنامه دارم كه قراره تعدادي از اون در چند شعبه از يه شركت تعاوني نصب بشه اين شركت يه سايت داره كه بايد از اطلاعات تمامي اين شعبه ها استفاده كنه يعني اطلاعات از شعبه ها به سايت ارسال شه.
من ميدونم كه بايد از Replication استفاده كنم و از هر كيم ميپرسم فقط همينو ميگه و بس ! در انجام عمل Replication چه با اكسس و چه با SQLServer هم مشكلي ندارم به صورت دستي! فقط نميدونم چطور بايد براي عمل Synchronization با وي بي دات نت كدنويسي كنم! البته با اكسس يه چيزايي بلدم و ميتونم اون رو براي حالت Direct يعني حالتي كه دو ديتابيس روي يه كامپيوتر باشند انجام بدم اما وقتي اونو ميگذارم روي InternetMode و آدرس سايت رو به عنوان Target ميدم خطاي خيلي معروف "Invalid HTTP Address" ميده كه نميدونم چيكارش كنم و اينم ميدونم كه نيازي به آدرس كامل در اون قسمت نيست و فقط كافيه نام سرور رو داد
اينم كدهام
Dim jro_rep As JRO.Replica
Dim cnn1 As ADODB.Connection
Dim strCnn As String
jro_rep = New JRO.Replica
'Replica:
strCnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + …
cnn1 = New ADODB.Connection
cnn1.Open(strCnn)
jro_rep.ActiveConnection = cnn1
'
Dim secConn As New ADODB.Connection
'connect to access database over internet server
Dim strconstring As String = "Provider=MS Remote;Remote Server=http://127.0.0.1;Remote Provider=Microsoft.Jet.OLEDB.4.0;Data Source=ftp://localhost/db/new_MASKAN.mdb;Persist Security Info=False"
secConn.Open(strconstring, "", "")
MsgBox("SUCCESS CONNECTED TO SECONDRY DATABASE")
'main problem in this part
jro_rep.Synchronize("http://LocalHost", _
Global.JRO.SyncTypeEnum.jrSyncTypeImpExp, _
Global.JRO.SyncModeEnum.jrSyncModeInternet)
cnn1.Close()
MsgBox("Replication done successed")
لطفا اگه كسي چيزي به ذهنش ميرسه بگه
همچنين اگه كد نويسي اون رو با SQLSERVER 2005 هم بلديد بازم فرقي نميكنه
فقط خوهشا اگه كسي چيزي به ذهنش مي رسه بگه چون بدجوري توگل گير كردم
اين لينك رو هم خوندم واسه اينكه ديگه كسي اينو نده
http://msdn.microsoft.com/en-us/library/bb226708.aspx
من يه برنامه دارم كه قراره تعدادي از اون در چند شعبه از يه شركت تعاوني نصب بشه اين شركت يه سايت داره كه بايد از اطلاعات تمامي اين شعبه ها استفاده كنه يعني اطلاعات از شعبه ها به سايت ارسال شه.
من ميدونم كه بايد از Replication استفاده كنم و از هر كيم ميپرسم فقط همينو ميگه و بس ! در انجام عمل Replication چه با اكسس و چه با SQLServer هم مشكلي ندارم به صورت دستي! فقط نميدونم چطور بايد براي عمل Synchronization با وي بي دات نت كدنويسي كنم! البته با اكسس يه چيزايي بلدم و ميتونم اون رو براي حالت Direct يعني حالتي كه دو ديتابيس روي يه كامپيوتر باشند انجام بدم اما وقتي اونو ميگذارم روي InternetMode و آدرس سايت رو به عنوان Target ميدم خطاي خيلي معروف "Invalid HTTP Address" ميده كه نميدونم چيكارش كنم و اينم ميدونم كه نيازي به آدرس كامل در اون قسمت نيست و فقط كافيه نام سرور رو داد
اينم كدهام
Dim jro_rep As JRO.Replica
Dim cnn1 As ADODB.Connection
Dim strCnn As String
jro_rep = New JRO.Replica
'Replica:
strCnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + …
cnn1 = New ADODB.Connection
cnn1.Open(strCnn)
jro_rep.ActiveConnection = cnn1
'
Dim secConn As New ADODB.Connection
'connect to access database over internet server
Dim strconstring As String = "Provider=MS Remote;Remote Server=http://127.0.0.1;Remote Provider=Microsoft.Jet.OLEDB.4.0;Data Source=ftp://localhost/db/new_MASKAN.mdb;Persist Security Info=False"
secConn.Open(strconstring, "", "")
MsgBox("SUCCESS CONNECTED TO SECONDRY DATABASE")
'main problem in this part
jro_rep.Synchronize("http://LocalHost", _
Global.JRO.SyncTypeEnum.jrSyncTypeImpExp, _
Global.JRO.SyncModeEnum.jrSyncModeInternet)
cnn1.Close()
MsgBox("Replication done successed")
لطفا اگه كسي چيزي به ذهنش ميرسه بگه
همچنين اگه كد نويسي اون رو با SQLSERVER 2005 هم بلديد بازم فرقي نميكنه
فقط خوهشا اگه كسي چيزي به ذهنش مي رسه بگه چون بدجوري توگل گير كردم
اين لينك رو هم خوندم واسه اينكه ديگه كسي اينو نده
http://msdn.microsoft.com/en-us/library/bb226708.aspx