Paul post about stored procedure problems in repliacation

Tech-Archive recommends: Speed Up your PC by fixing your registry



Lost my question =). I seriously think there is something wrong with adodb
thats causing this.

Wrapper stored procedure with @working directory hardcoded (works)
=======================================================================
If I write a wrapper stored procedure for "sp_adddistpublisher" and don't
pass any parameters but hard code the "@working directory" the code runs and
executes ok.

Set cmd = New ADODB.Command
cmd.ActiveConnection = cn

cmd.CommandText = "adddistpublishertest"
cmd.CommandType = adCmdStoredProc
cmd.Execute

Wrapper stored procedure with @working directory being passed in (fails)
=======================================================================
If I run the following wrapper code and I don't hardcode the "@working
directory" in the procedure it doesn't work (pass @workingdirectory in):

' This code is a wrapper of the sp_adddistpublisher stored procedure. Takes
@testworking_directory and passes it to sp_adddistpublisher

Set cmd = New ADODB.Command
cmd.ActiveConnection = cn

cmd.CommandText = "adddistpublishertest"
cmd.CommandType = adCmdStoredProc

cmd.Parameters.Append cmd.CreateParameter("@testworking_directory",
adVarChar, adParamInput, 255)
cmd("@testworking_directory") = "\\BUSHWACKER\C$\Program Files\Microsoft SQL
Server\MSSQL\REPLDATA"
cmd.Execute

Initial stored procedure sp_adddistpublisher that fails on working directory
=======================================================================

Set cmd = New ADODB.Command
cmd.ActiveConnection = cn

cmd.CommandText = "sp_adddistpublisher"
cmd.CommandType = adCmdStoredProc
cmd.Parameters.Append cmd.CreateParameter("@publisher", adVarChar,
adParamInput, 255)
cmd.Parameters.Append cmd.CreateParameter("@distribution_db", adVarChar,
adParamInput, 255)
cmd.Parameters.Append cmd.CreateParameter("@security_mode", adInteger,
adParamInput)
cmd.Parameters.Append cmd.CreateParameter("@working_directory", adVarChar,
adParamInput, 255)
cmd.Parameters.Append cmd.CreateParameter("@trusted", adVarChar,
adParamInput, 255)
cmd.Parameters.Append cmd.CreateParameter("@thirdparty_flag", adInteger,
adParamInput)

cmd("@publisher") = "BUSHWACKER"
cmd("@distribution_db") = "distribution"
cmd("@security_mode") = 1
cmd("@working_directory") = "\\BUSHWACKER\C$\Program Files\Microsoft SQL
Server\MSSQL\REPLDATA"
cmd("@trusted") = "false"
cmd("@thirdparty_flag") = 0


Other stored procedure that gives a similar problem
========================================================
If I write a wrapper stored procedure and pass the path it gives the same
problem. I think this could be an issue with ado classes that I reference
in my vb. I continued on in the project and found out this is occuring on
another stored procedure. I don't want to expand the debugging we have to
do. But its taking my focus off of the stored procedure being the problem
and blaming it on the vb.


' Add merge publication
Set cmd = New ADODB.Command
cmd.ActiveConnection = cn2

cmd.CommandText = "sp_addmergepublication"
cmd.CommandType = adCmdStoredProc
cmd.Parameters.Append cmd.CreateParameter("@publication", adVarChar,
adParamInput, 255)
cmd.Parameters.Append cmd.CreateParameter("@description", adVarChar,
adParamInput, 255)
cmd.Parameters.Append cmd.CreateParameter("@retention", adInteger,
adParamInput)
cmd.Parameters.Append cmd.CreateParameter("@sync_mode", adVarChar,
adParamInput, 255)
cmd.Parameters.Append cmd.CreateParameter("@allow_push", adVarChar,
adParamInput, 255)
cmd.Parameters.Append cmd.CreateParameter("@allow_pull", adVarChar,
adParamInput, 255)
cmd.Parameters.Append cmd.CreateParameter("@allow_anonymous", adVarChar,
adParamInput, 255)
cmd.Parameters.Append cmd.CreateParameter("@enabled_for_internet",
adVarChar, adParamInput, 255)
cmd.Parameters.Append cmd.CreateParameter("@centralized_conflicts",
adVarChar, adParamInput, 255)
cmd.Parameters.Append cmd.CreateParameter("@dynamic_filters", adVarChar,
adParamInput, 255)
cmd.Parameters.Append cmd.CreateParameter("@snapshot_in_defaultfolder",
adVarChar, adParamInput, 255)
cmd.Parameters.Append cmd.CreateParameter("@compress_snapshot", adVarChar,
adParamInput, 5)
cmd.Parameters.Append cmd.CreateParameter("@ftp_port", adInteger,
adParamInput)
cmd.Parameters.Append cmd.CreateParameter("@ftp_login", adVarChar,
adParamInput, 255)
cmd.Parameters.Append cmd.CreateParameter("@conflict_retention", adInteger,
adParamInput)
cmd.Parameters.Append cmd.CreateParameter("@keep_partition_changes",
adVarChar, adParamInput, 255)
cmd.Parameters.Append cmd.CreateParameter("@allow_subscription_copy",
adVarChar, adParamInput, 255)
cmd.Parameters.Append cmd.CreateParameter("@allow_synctoalternate",
adVarChar, adParamInput, 255)
cmd.Parameters.Append cmd.CreateParameter("@add_to_active_directory",
adVarChar, adParamInput, 255)
cmd.Parameters.Append cmd.CreateParameter("@max_concurrent_merge",
adInteger, adParamInput)
cmd.Parameters.Append
cmd.CreateParameter("@max_concurrent_dynamic_snapshots", adInteger,
adParamInput)

cmd("@publication") = "test"
cmd("@description") = "Merge publication of test"
cmd("@retention") = 0
cmd("@sync_mode") = "native"
cmd("@allow_push") = "true"
cmd("@allow_pull") = "true"
cmd("@allow_anonymous") = "true"
cmd("@enabled_for_internet") = "false"
cmd("@centralized_conflicts") = "true"
cmd("@dynamic_filters") = "false"
cmd("@snapshot_in_defaultfolder") = "true"
cmd("@compress_snapshot") = "true"
cmd("@ftp_port") = 21
cmd("@snapshot_in_defaultfolder") = "true"
cmd("@ftp_login") = "anonymous"
cmd("@conflict_retention") = 14
cmd("@keep_partition_changes") = "false"
cmd("@allow_synctoalternate") = "false"
cmd("@add_to_active_directory") = "false"
cmd("@max_concurrent_merge") = 0
cmd("@max_concurrent_dynamic_snapshots") = 0

cmd.Execute

Sam
www.lunafurniture.com
Online Furniture, bedrooms, livingrooms


.



Relevant Pages

  • Error with Command.Append
    ... I have an ASP form on my website where a visitor enters information. ... The stored procedure works most of the time, ... cmd.Parameters.Append cmd.CreateParameter("@fname", adVarChar, ... adParamInput, 100, trim)) ...
    (microsoft.public.dotnet.framework.aspnet)
  • Re: Update table
    ... I am trying to pass the PatientID parameter to the ProcPatientUpdate ... Procedure to call the stored procedure ... .Parameters.Append .CreateParameter("@PFirstName", adVarChar, ... adParamInput, 25, Me.PFirstName.Value) ...
    (microsoft.public.sqlserver.programming)
  • Re: Update table
    ... I am trying to pass the PatientID parameter to the ProcPatientUpdate ... Procedure to call the stored procedure ... .Parameters.Append .CreateParameter("@PFirstName", adVarChar, ... adParamInput, 25, Me.PFirstName.Value) ...
    (microsoft.public.sqlserver.programming)
  • How do you call a stored procedure that returns a value?
    ... Set adoParam = New ADODB.Parameter ... Set adoParam = .CreateParameter("@FiscalYear", adVarChar, ... adParamInput, Len, FiscalYear) ... 'Brackets must surround stored procedure names with spaces ...
    (microsoft.public.access.modulesdaovba)
  • Re: Recordset aus Command-Objekt wird nicht geöffnet
    ... Public cmdSuche As New ADODB.Command ... .ActiveConnection = cnDBConn ... .Parameters.Append .CreateParameter("@strtblName", adVarChar, ... adVarChar, adParamInput, 50, NZ) ...
    (microsoft.public.de.vb.datenbank)