Article ID: 175868
Article Last Modified on 2/14/2005
CREATE PROCEDURE findstate @whichstate char(2) as
select * from authors where state= @whichstate
Option Explicit
Dim cn As rdoConnection
Dim qy As rdoQuery
Dim rs As rdoResultset
Dim strConnect As String
Dim n As Integer
Private Sub Command2_Click()
rs.Close
Set rs = Nothing
unload me
End Sub
Private Sub Command1_Click()
strConnect = "driver={SQL Server};server=servername;" & _
"database=pubs;Username=<username>;PWD=<strong password>;"
rdoEnvironments(0).CursorDriver = rdUseOdbc
Set cn = rdoEnvironments(0).OpenConnection( _
dsName:="", _
Prompt:=rdDriverNoPrompt, _
ReadOnly:=False, _
Connect:=strConnect)
Set qy = cn.CreateQuery("sql", _
"{call pubs.dbo.findstate(?) }")
qy.RowsetSize = 1
qy.rdoParameters(0) = "CA"
Set rs = qy.OpenResultset( _
Type:=rdOpenForwardOnly, _
LockType:=rdConcurReadOnly)
While Not rs.EOF
debug.print rs(0) & ", " & rs(1)
rs.MoveNext
Wend
End Sub
166280 DOC: T-SQL Debugger Server Setup Provides Incorrect Location
172099 PRB: T-SQL - Running Remote and Local SQL Debugging
Additional query words: kbVBp500bug kbVBp600bug kbGrpVBDB kbDSupport kbVBp
Keywords: kbbug KB175868