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


Reply With Quote
