seeco1234
سه شنبه 05 خرداد 1388, 14:33 عصر
با سلام به همه
این سورس یک عدد که شماره پرسنلی است را میگیرد و مشخصات آن شخص را select میکند:
یه sp-select دارم در sql با این مضمون:
CREATE PROCEDURE .[sp_select_Personel
]
@Pid int
AS
Select tblPersonel.nPersonelId,tblPersonel.cPersonelNo
.
.
Where tblPersonel.nPersonelId=@Pid
GO
و حالا سورس vb به شکل زیر:
Dim strinput As String
Dim cmd1 As New ADODB.Command
Set cmd1 = New ADODB.Command
'
cmd1.ActiveConnection = ConnStr
cmd1.CommandType = adCmdStoredProc
cmd1.CommandText = "sp_select_Personel"
strinput = grdPersonel.TextMatrix(grdPersonel.RowSel, grdPersonel.ColIndex("nPersonelId
"))
'
cmd1.Parameters.Append cmd1.CreateParameter("Pid", adVarChar, adParamInput, 6,
strinput)
Set rsPersonel = cmd1.Execute
'
If Not rsPersonel.EOF Then
.
.
.
من احتمالا در خط پارامتر ها مشکل دارم چون رکوردی بر نمیگرداند
متشکر از راهنمایی بچه ها
این سورس یک عدد که شماره پرسنلی است را میگیرد و مشخصات آن شخص را select میکند:
یه sp-select دارم در sql با این مضمون:
CREATE PROCEDURE .[sp_select_Personel
]
@Pid int
AS
Select tblPersonel.nPersonelId,tblPersonel.cPersonelNo
.
.
Where tblPersonel.nPersonelId=@Pid
GO
و حالا سورس vb به شکل زیر:
Dim strinput As String
Dim cmd1 As New ADODB.Command
Set cmd1 = New ADODB.Command
'
cmd1.ActiveConnection = ConnStr
cmd1.CommandType = adCmdStoredProc
cmd1.CommandText = "sp_select_Personel"
strinput = grdPersonel.TextMatrix(grdPersonel.RowSel, grdPersonel.ColIndex("nPersonelId
"))
'
cmd1.Parameters.Append cmd1.CreateParameter("Pid", adVarChar, adParamInput, 6,
strinput)
Set rsPersonel = cmd1.Execute
'
If Not rsPersonel.EOF Then
.
.
.
من احتمالا در خط پارامتر ها مشکل دارم چون رکوردی بر نمیگرداند
متشکر از راهنمایی بچه ها