حالت موضوعی | حالت خطی

m_vb66

وقتی یک مقدار پارامتری به sql server می فرستم هیچ نتیجه ای بر نمیگردونه اما وقتی یک sp بدون پارامتر رو اجرا میکنم بر نامه جواب میده لطف کنید ببینید مشکل از کد من هست یا نه

کد: 
Private Sub Command1_Click()

Dim cnn As New ADODB.Connection

Dim rs As New ADODB.Recordset

Dim cmd As New ADODB.Command

Dim prm As New ADODB.Parameter

cnn.Open " Provider = sqloledb ; Data Source=182.167.0.1 ; Initial Catalog = test", "mylogin", "pass"

If cnn.State = 1 Then

Call MsgBox("cnn is open", vbOKOnly)

End If

cmd.ActiveConnection = cnn

cmd.CommandText = "mysp" 

cmd.CommandType = adCmdStoredProc

prm.Value = "0001037403"

prm.Name = "myfield"

prm.Type = adBSTR

cmd.Parameters.Append prm

Set rs = cmd.Execute

Do While Not rs.EOF

List1.AddItem rs(0)

rs.MoveNext

Loop

rs.Close

cnn.Close

Set cnn = Nothing

Set rs = Nothing

Set cmd = Nothing

Set prm = Nothing

End Sub

prm.Type = adBSTR رو درست انتخاب کردم یا نه این رو خیلی شک دارم

حالت موضوعی \| حالت خطی چرا این sp هیچ مقداری بر نمیگردونه
نویسنده	پیام