Procedure Or Function Sp_MSupdatesysmergearticles Has Too Many Arguments Specified.

Hi,

I've been on this one all day - and now tearing my hair out. I have a large SQL2005 database (migrated from SQL2000) which I'm trying to replicate using a VB6 front end.

The application and database concerned have been working with no problems using merge replication for the last 5 years - however, I now need to port to SQL 2005.

In the VB6 app, I'm using the SQLMerge9 control to handle the replication side of things. The code I'm using is exactly as per the code which works under SQL 2000, however, I'm getting an error message "Procedure or function sp_MSupdatesysmergearticles has too many arguments specified." when I try to initialize the subscription.

I've seen one other item on the web with this problem, and this was someone trying to replicate a 2005 client with a 2000 server. I'm using SQL2005 both ends with merge replication -the replication is set up for SQL2005 clients only, and the database (which incidentally is being created on the subscriber correctly) is in SQL2005 compatibility mode.

Any help would be gratefully appreciated - I haven't got much hair left now.

The code I'm using is as follows:

 

On Error GoTo Err_Handler
 
    Set SQLMergeCtl = New SQLMerge
    Dim strSQL As String
    Dim cnn As ADODB.Connection

      ' add subscriber
    strSQL = "EXEC sp_dropsubscriber '[subscriber name]'"
    Set cnn = New ADODB.Connection
    cnn.Open [connection string]

    strSQL = "EXEC sp_addsubscriber '[machine name]', 0 , '[user name]', '[password]', @security_mode = 0"
    On Error Resume Next
    cnn.Execute strSQL
   
    If Err <> 0 Then
        MsgBox Error
    End If
   
    strSQL = "sp_dropmergesubscription @publication = '[publication name], @subscriber = '[machine name]', @subscriber_db = '[subscriber database name]', @subscription_type = 'pull'"
    cnn.Execute strSQL
    If Err <> 0 Then
        MsgBox Error
    End If
   
   
    On Error GoTo Err_Handler
    cnn.Close
    Set cnn = Nothing

    SQLMergeCtl.Publisher = [publisher name]
    
    SQLMergeCtl.PublisherSecurityMode = DB_AUTHENTICATION
    SQLMergeCtl.PublisherDatabase = [database name] 
    SQLMergeCtl.Publication = [publication name]
    SQLMergeCtl.PublisherLogin = [user name] 
    SQLMergeCtl.PublisherPassword = [password]
    
    SQLMergeCtl.DistributorSecurityMode = DB_AUTHENTICATION
    SQLMergeCtl.Distributor = [distributor name - actually same as the publisher]
    SQLMergeCtl.DistributorLogin = [user name]
    SQLMergeCtl.DistributorPassword =[password]

    
    SQLMergeCtl.Subscriber = [local machine name]
    SQLMergeCtl.SubscriberSecurityMode = DB_AUTHENTICATION
    SQLMergeCtl.SubscriberLogin = [local user name]
    SQLMergeCtl.SubscriberPassword =[local password]
    SQLMergeCtl.SubscriberDatabase = [local database name]
    SQLMergeCtl.SubscriptionType = PULL
    SQLMergeCtl.ProfileName =[profile name]

 
    On Error Resume Next
    SQLMergeCtl.AddSubscription CREATE_DATABASE, NONE
    If Err <> 0 Then
        <--snip-->
    End If
        
    On Error GoTo Err_Handler
    SQLMergeCtl.Initialize    
    'Run
    SQLMergeCtl.Run
    'Terminate
    SQLMergeCtl.Terminate    

   <--snip-->
          code here to add merge agent removed for brevity - it's not getting this far anyway
   <--snip>

 

Exit_Handler:
     Exit Sub
Err_Handler:
    MsgBox Error
      Resume Exit_Handler