> The only problem for me is that it's in VB, and I'm getting really

>   rs.Open cmd, , adOpenStatic, adLockBatchOptimistic

> This is a VB call to recordset.open, using as the Source (first) argument

> The second argument is missing - the MS help says quite specifically that

> The fifth argument is also missing - MS 'imply' that the Options argument

> Now - I can replicate this in Delphi (exactly as above, plus a couple of

>   rs.Open( cmd, EmptyParam, adOpenStatic, adLockBatchOptimistic)

> It returns with the inconsistent / incompatible / missing arguments error

> And what I really want to do is get it work with *early* binding, which is

> For anyone motivated to try this out, I've discovered that the fifth

>   rs.Open( cmd, ?????, adOpenStatic, adLockBatchOptimistic,
adCmdStoredProc)

> 'cos EmptyParam doesn't work :-)

> Any ideas / thoughts?

> Roger Morton
> roger.mor...@dial.pipex.com

> ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
> Post from Alejandro Mesa in microsoft.public.data.ado on 29 February

> Create the command, add parameters, assign value to the parameters and use

> Example:

> Private Sub Command1_Click()
>   Dim cn As ADODB.Connection
>   Dim cmd As ADODB.Command
>   Dim rs As ADODB.Recordset

>   On Error GoTo ErrorHandler

>   Set cn = New ADODB.Connection
>   Set cmd = New ADODB.Command
>   Set rs = New ADODB.Recordset

>   cn.Provider = "sqloledb"
>   cn.ConnectionString = "data source=alexander;" & _

>   cmd.ActiveConnection = cn
>   cmd.CommandText = "sp_test"
>   cmd.CommandType = adCmdStoredProc

>   rs.CursorLocation = adUseClient
>   rs.Open cmd, , adOpenStatic, adLockBatchOptimistic

> ExitSub:
>   On Error Resume Next
>   rs.Close
>   cn.Close
>   Set rs = Nothing
>   Set cmd = Nothing
>   Set cn = Nothing

>   Exit Sub

> ErrorHandler:
>   MsgBox Err.Number & vbCrLf & _
>         Err.Description

>   Resume ExitSub
> End Sub
> +++++++++++++++++++++++++++++++++++++++++++++++++++++

>The only problem for me is that it's in VB, and I'm getting really frustrated trying to get Delphi to do the same thing.  The specific piece of code that I have trouble with is ostensibly very simple:

>  rs.Open cmd, , adOpenStatic, adLockBatchOptimistic

>This is a VB call to recordset.open, using as the Source (first) argument an existing command object.

>The second argument is missing - the MS help says quite specifically that you must not attempt to define a connection at this point, if you're using a commnad object as your source.

>The fifth argument is also missing - MS 'imply' that the Options argument is not used when a command object is supplied.

>Now - I can replicate this in Delphi (exactly as above, plus a couple of enclosing parentheses) with late binding.  But the following fails, with late binding:

>  rs.Open( cmd, EmptyParam, adOpenStatic, adLockBatchOptimistic)

>It returns with the inconsistent / incompatible / missing arguments error message. Why does it fail?  Isn't EmptyParam advertised as being equivalent to an optional parameter not being supplied?

>And what I really want to do is get it work with *early* binding, which is where EmptyParam would appear to be mandatory.

>For anyone motivated to try this out, I've discovered that the fifth (Options) argument, with early binding, just needs to be set to whatever the type of your command object may be - that was easy.  So the ultimate question - what does the second argument of the following early-bound call need to be?

>  rs.Open( cmd, ?????, adOpenStatic, adLockBatchOptimistic, adCmdStoredProc)

>'cos EmptyParam doesn't work :-)

>Any ideas / thoughts?

>Roger Morton
>roger.mor...@dial.pipex.com

>++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
>Post from Alejandro Mesa in microsoft.public.data.ado on 29 February

>Create the command, add parameters, assign value to the parameters and use the command object as recordset source.

>Example:

>Private Sub Command1_Click()
>  Dim cn As ADODB.Connection
>  Dim cmd As ADODB.Command
>  Dim rs As ADODB.Recordset

>  On Error GoTo ErrorHandler

>  Set cn = New ADODB.Connection
>  Set cmd = New ADODB.Command
>  Set rs = New ADODB.Recordset

>  cn.Provider = "sqloledb"
>  cn.ConnectionString = "data source=alexander;" & _                         "initial catalog=northwind;" & _                         "user id=sa;password=;"
>  cn.Errors.Clear
>  cn.Open

>  cmd.ActiveConnection = cn
>  cmd.CommandText = "sp_test"
>  cmd.CommandType = adCmdStoredProc

>  rs.CursorLocation = adUseClient
>  rs.Open cmd, , adOpenStatic, adLockBatchOptimistic

>ExitSub:
>  On Error Resume Next
>  rs.Close
>  cn.Close
>  Set rs = Nothing
>  Set cmd = Nothing
>  Set cn = Nothing

>  Exit Sub

>ErrorHandler:
>  MsgBox Err.Number & vbCrLf & _
>        Err.Description

>  Resume ExitSub
>End Sub
>+++++++++++++++++++++++++++++++++++++++++++++++++++++

> Using late-binding, have you tried leaving the parameter unspecified
> just as it is done in the VB example?

>   rs.Open( cmd, , adOpenStatic, adLockBatchOptimistic,
> adCmdStoredProc)

> Try using Unassigned rather than EmptyParam
> Jason Swager