I've been using this type of code to pull out a single value from my SQL database but I can't help thinking that there's a simple command I'm not using:
strSQL = "SELECT MAX(Stage) FROM Visits WHERE ScheduleRef = 22"
FinalStage = dl.getPRISMdata(strSQL).Tables(0).Rows(0).Item(0)
Public Function getPRISMdata(ByVal strSQL As String) As DataSet
Dim conn As New SqlConnection(ConnectionStringPRISM)
Dim ds As New DataSet
Dim da As New SqlDataAdapter(strSQL, ConnectionStringPRISM)
It's the tables(0).rows(0).item(0) that bothers me. It works, but should I be doing something different here? Something more efficient in the function perhaps?