16,555
社区成员
发帖
与我相关
我的任务
分享
ALTER PROCEDURE [dbo].[GetcFault]
@ID nvarchar(18)
AS
BEGIN
SELECT FC_Point,FC_FaultComport,FC_Method,FC_FaultPicName
FROM FCS_cFault
WHERE FC_ID=@ID
END
Private Sub freshData()
Dim myValues(5) As String
Dim myListItem As ListViewItem
Dim Params() As SqlParameter = {}
If myDataObj.ExecuteSP("GetcFault", Params, drSqlServer) = True Then
If lstFault.Items.Count > 0 Then
lstFault.Items.Clear()
End If
While drSqlServer.Read()
myValues(0) = drSqlServer("XX").ToString()
myValues(1) = drSqlServer("XX").ToString()
myValues(2) = drSqlServer("XX").ToString()
myValues(3) = drSqlServer("XX").ToString()
myListItem = New ListViewItem(myValues)
lstFault.Items.Add(myListItem)
End While
drSqlServer.Close()
End If