- Get link
- X
- Other Apps
Public Function RetornaQQCoisaAsDataSet(ByVal intID As Integer) As DataSet
Dim str As New StringBuilder
Dim strResultado As New StringBuilder
Dim cmd As New SqlCommand
Dim conn As New SqlConnection
conn.ConnectionString = ConfigurationManager.ConnectionStrings("xxConnectionString").ConnectionString
cmd.Connection = conn
str.Append(" SELECT [id] ")
str.Append(" ,[Nome] ")
str.Append(" FROM [TB_XXX] ")
str.Append(" where id = @id ")
cmd.CommandText = str.ToString
cmd.Parameters.Clear()
cmd.CommandType = CommandType.Text
cmd.Parameters.Add(New SqlParameter("@id", SqlDbType.Int)).Value = intID
conn.Open()
Dim Adapter As New SqlDataAdapter(cmd)
Dim ds As New DataSet
Adapter.Fill(ds)
conn.Close()
conn.Dispose()
Adapter.Dispose()
cmd.Dispose()
Return ds
End Function
Dim str As New StringBuilder
Dim strResultado As New StringBuilder
Dim cmd As New SqlCommand
Dim conn As New SqlConnection
conn.ConnectionString = ConfigurationManager.ConnectionStrings("xxConnectionString").ConnectionString
cmd.Connection = conn
str.Append(" SELECT [id] ")
str.Append(" ,[Nome] ")
str.Append(" FROM [TB_XXX] ")
str.Append(" where id = @id ")
cmd.CommandText = str.ToString
cmd.Parameters.Clear()
cmd.CommandType = CommandType.Text
cmd.Parameters.Add(New SqlParameter("@id", SqlDbType.Int)).Value = intID
conn.Open()
Dim Adapter As New SqlDataAdapter(cmd)
Dim ds As New DataSet
Adapter.Fill(ds)
conn.Close()
conn.Dispose()
Adapter.Dispose()
cmd.Dispose()
Return ds
End Function
Comments