SQL-Abfrage: Datentyp ermitteln

Dim objConn As ADODB.Connection
Dim objRec As ADODB.Recordset
Dim strConnectionString As String
Dim strServer As String, strDb As String, strTab As String, strSQL As String
Dim j As Integer
On Error GoTo err1
strServer = glStrServer
strDb = glStrDb
strTab = glStrTab
strConnectionString = "Provider=MSDASQL.1;Driver=SQL Server;Server=" & strServer & "; _
Database=" & strDb & ";Trusted_Connection=Yes"
strSQL = "select top 1 * from " & strDb & "." & strTab
Set objConn = New ADODB.Connection
objConn.CommandTimeout = intAbfrageTimeOut
objConn.ConnectionString = strConnectionString
objConn.Open
Set objRec = New ADODB.Recordset
objRec.Open strSQL, objConn, adOpenStatic
If objRec.RecordCount = 1 Then
For j = 0 To objRec.Fields.Count - 1
ReDim Preserve strArrSpalten(j)
strArrSpalten(j) = LCase(objRec.Fields(j).Name)
Next j
End If
objConn.Close
On Error GoTo 0