PDA

Vollständige Version anzeigen : ExcelXP DatenTyp einer MsSQL_Server Tabelle auslesen


Walter_Lehmann
18.02.2008, 19:23
Wie kann ich den Datentyp einer Tabelle auslesen, wenn ich mit DAO und per ODBC
auf einen MsSQL-Server 2000 gehe.

In Access mach ich es z.B so, wie im Code, das geht unter Excel schon deshalb nicht, weil man ja nicht sagen kann CurrentDB.




Function SeeDatentyp(ByRef TblName As String, ByRef FldName As String) As String

Dim fld As Field
Dim tbl As TableDef
Dim db As Database

On Error GoTo myError

Set tbl = db.TableDefs(tblName)

For Each fld In tbl.Fields
If tblName = fld.Name Then
SeeDatentyp= FieldTypeToString(fld.Type)
End If
Next

Exithere:
Exit Function

myError:
MsgBox "" & Err.Number & " " & Err.Description
Resume Exithere

Exit Function

KarMulholand
19.02.2008, 13:13
Hi walter,
ich hab hier was, das sollte helfen

For Each f In rs.Fields
Debug.Print f.Name & " maps to " & GetJetTypeString(f.Type) & "."
Next f

Die Function GetJetTypeString findest Du hier
http://support.microsoft.com/kb/214854/de