1: Public Shared Function getMetaData(ByVal spName As String) As String()
2: Dim sqlCon As New SqlConnection(ConfigurationManager.ConnectionStrings("lmString").ConnectionString) 3: sqlCon.Open()
4:
5: Dim sqlCmd As New SqlCommand("sp_helptext " + spName, sqlCon) 6: Dim sqlDataAdapter As New SqlDataAdapter(sqlCmd)
7: Dim dt As New DataTable
8: Dim strTempQuery As String = String.Empty
9: Dim strColumns As String()
10: Dim strCol As String = String.Empty
11:
12: sqlDataAdapter.Fill(dt)
13: If dt.Rows.Count > 0 Then
14: For Each dr As DataRow In dt.Rows
15: strTempQuery += dr.Item(0)
16: Next
17: End If
18:
19: If Not strTempQuery = "" Then
20:
21: 'Dim objRegex As New Regex("select([^<]*)from") 22:
23:
24: Dim objMatches As MatchCollection = Regex.Matches(strTempQuery, "select([^<]*)from", RegexOptions.IgnoreCase)
25:
26: For Each mymatch As Match In objMatches
27: strCol += mymatch.Groups(1).Value
28: Next
29:
30: If Not strCol = "" Then
31: strColumns = strCol.Split(",") 32: For a As Integer = 0 To strColumns.Length - 1
33: strColumns(a) = strColumns(a).Trim()
34: Next
35: End If
36: End If
37: Return strColumns
38: End Function