Function used to get a single item of information from a table, given a valid query
Example...
Code:
Dim Last_Name as String = GetSingleField("SELECT LastName FROM Clients WHERE ID = '" & Client.ID & "'")
Code:
Public Function GetSingleField(SqlStr As String, ConnString as String) As String
Dim sAnswer As String = ""
Dim myCommand As SqlCommand
Dim myreader As SqlDataReader
Using myConnection As New SqlConnection(ConnString)
myConnection.Open()
myCommand = New SqlCommand(SqlStr.ToString, myConnection)
myreader = myCommand.ExecuteReader
If myreader.HasRows Then
myreader.Read()
Return myreader(0).ToString
Else
Return ""
End If
myreader.Close()
myCommand.Dispose()
End Using
Return sAnswer
End Function