Microsoft Excel

Herbers Excel/VBA-Archiv

SQL-Abfrage: Datentyp ermitteln

Betrifft: SQL-Abfrage: Datentyp ermitteln von: Hendrik
Geschrieben am: 12.08.2014 12:27:12

Hallöchen,
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

  

Betrifft: AW: SQL-Abfrage: Datentyp ermitteln von: Hendrik
Geschrieben am: 12.08.2014 12:28:33

Sorry, Doppelposting. Bitte löschen.


 

Beiträge aus den Excel-Beispielen zum Thema "SQL-Abfrage: Datentyp ermitteln"