۲۷-اسفند-۱۳۸۷, ۱۶:۱۷:۳۰
وقتی یک مقدار پارامتری به sql server می فرستم هیچ نتیجه ای بر نمیگردونه اما وقتی یک sp بدون پارامتر رو اجرا میکنم بر نامه جواب میده لطف کنید ببینید مشکل از کد من هست یا نه
prm.Type = adBSTR رو درست انتخاب کردم یا نه این رو خیلی شک دارم
کد:
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