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 conn.Open() Dim da As New SqlDataAdapter(strSQL, ConnectionStringPRISM) da.Fill(ds) Return ds End Function
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?