ali190
چهارشنبه 05 مرداد 1390, 20:30 عصر
با سلام و عرض خسته نباشید
من در دیتابیس SQL Server ام یک select sp ساده به شرح زیر دارم نام aaa : sp
CREATE PROCEDURE aaa
@a varchar(50)
AS
select * from table3
where a=@a
GO
حالا میخوام از طریق vb6 این sp رو اجرا و RecordCount کنم
Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim cmd As ADODB.Command
Dim strconnect As String
Public SQLQuery As String
Private Sub Command1_Click()
Set cmd = New ADODB.Command
cmd.ActiveConnection = con
cmd.CommandType = adCmdStoredProc
cmd.CommandText = "aaa"
cmd.Parameters.Append cmd.CreateParameter("a", adVarChar, adParamInput, 50, Text1.Text)
Set rs = cmd.Execute
MsgBox rs.RecordCount
Set cmd.ActiveConnection = Nothing
End Sub
Private Sub Form_Load()
strconnect = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=milad;Data Source=."
con.Open strconnect
End Sub
ولی همش هنگام RecordCount مقدار 1- را دریافت میکنم
ممنون میشم کمکم کنید
یاعلی
من در دیتابیس SQL Server ام یک select sp ساده به شرح زیر دارم نام aaa : sp
CREATE PROCEDURE aaa
@a varchar(50)
AS
select * from table3
where a=@a
GO
حالا میخوام از طریق vb6 این sp رو اجرا و RecordCount کنم
Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim cmd As ADODB.Command
Dim strconnect As String
Public SQLQuery As String
Private Sub Command1_Click()
Set cmd = New ADODB.Command
cmd.ActiveConnection = con
cmd.CommandType = adCmdStoredProc
cmd.CommandText = "aaa"
cmd.Parameters.Append cmd.CreateParameter("a", adVarChar, adParamInput, 50, Text1.Text)
Set rs = cmd.Execute
MsgBox rs.RecordCount
Set cmd.ActiveConnection = Nothing
End Sub
Private Sub Form_Load()
strconnect = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=milad;Data Source=."
con.Open strconnect
End Sub
ولی همش هنگام RecordCount مقدار 1- را دریافت میکنم
ممنون میشم کمکم کنید
یاعلی