mit unten stehendem Code erzeuge ich ein Array, welches alle Spaltennamen einer SQL-Server-Tabelle enthällt. Klappt prima. Gibt es eine Möglichkeit, auch den Datentyp abzufragen (und in das Array als zweite Spalte aufzunehmen)?
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