|
|
| |
|
|
| | Попробуй вставить
Debug.Print "" & Type1
Debug.Print "" & Type2
получишь
10
20
т.е. твоя функция возвращает значения правильно. | |
| |
| |
| |
|
|
| | Это то понятно. Мне надо как-то получить вместо 10(20) "Type1" ("Type2") | |
| |
| |
| |
|
|
| | табличку сделай типа справочника (ну или массив)
в зависимости от того что юзаешь (DAO или ADO) в ней и посмотришь
или вот например
Function GetDataTypeEnum(lngDataTypeEnum As Long) As String
'Given ADO data-type constant, returns readable constant name.
Dim strReturn As String
Select Case lngDataTypeEnum
Case 0: strReturn = "adEmpty"
Case 16: strReturn = "adTinyInt"
Case 2: strReturn = "adSmallInt"
Case 3: strReturn = "adInteger"
Case 20: strReturn = "adBigInt"
Case 17: strReturn = "adUnsignedTinyInt"
Case 18: strReturn = "adUnsignedSmallInt"
Case 19: strReturn = "adUnsignedInt"
Case 21: strReturn = "adUnsignedBigInt"
Case 4: strReturn = "adSingle"
Case 5: strReturn = "adDouble"
Case 6: strReturn = "adCurrency"
Case 14: strReturn = "adDecimal"
Case 131: strReturn = "adNumeric"
Case 11: strReturn = "adBoolean"
Case 10: strReturn = "adError"
Case 132: strReturn = "adUserDefined"
Case 12: strReturn = "adVariant"
Case 9: strReturn = "adIDispatch"
Case 13: strReturn = "adIUnknown"
Case 72: strReturn = "adGUID"
Case 7: strReturn = "adDate"
Case 133: strReturn = "adDBDate"
Case 134: strReturn = "adDBTime"
Case 135: strReturn = "adDBTimeStamp"
Case 8: strReturn = "adBSTR"
Case 129: strReturn = "adChar"
Case 200: strReturn = "adVarChar"
Case 201: strReturn = "adLongVarChar"
Case 130: strReturn = "adWChar"
Case 202: strReturn = "adVarWChar"
Case 203: strReturn = "adLongVarWChar"
Case 128: strReturn = "adBinary"
Case 204: strReturn = "adVarBinary"
Case 205: strReturn = "adLongVarBinary"
Case Else:
strReturn = "Unknown DataTypeEnum of " & lngDataTypeEnum _
& " found."
End Select
GetDataTypeEnum = strReturn
End Function | |
| |
| |
| |
|
|
| | Спасип :)
Хочется выдернуть название именно из пользовательского определения... 
К слову: функция уже есть. Но это реальное дублирование информации. И меняя пользовательский тип, ф-ция изменения не подхватит... Вот что плохо.  | |
| |
| |
| |
|
|
| | Замени Enum на что-нить другое. Класс,например.
Enum - ы и предназначены для того, чтобы оперировать не с числовыми данными, а с текстовыми определениями.
Так наглядлней в коде. | |
| |
| |
| |
|
|
| | Ок, спасипп за идею :)  | |
| |
| |
| |
|
|
| | Я кстате тоже както натолкнулся на факт что мне потребовалось название переменной
и понял так что образ хранится гдето в памяти исполняемого файла
уже и не припомню ...есть какая-то функция API считывающая байтовый участок
только надо точно указывать параметры, и принимающее значение | |
| |
| |
| |
|
|
| | Хм, спасибо за-на-водочку  | |
| |
| |
