VPF::Перевод кода на Delphy в C++ Builder - Форум программистов

TaAren

Дата 13.1.2007, 12:10 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 12.1.2007

Репутация: нет
Всего: нет

Помогите пожалуйста перевести код c Delphy на C++ Builder:

Код


Sub SetFieldDescription(ByVal TableName As String, ByVal FieldName As String, ByVal FieldDescription As String)
    Dim DB As DAO.Database
    Dim tbl As DAO.TableDef
    Dim fld As DAO.Field
    
    Set DB = CurrentDb()
    Set tbl = DB.TableDefs(TableName)
    Set fld = tbl.Fields(FieldName)
    
    On Error GoTo err_
    fld.Properties("Description") = FieldDescription
    
    Exit Sub
    
err_:
    If Err.Number = 3270 Then
        fld.Properties.Append fld.CreateProperty("Description", dbText, FieldDescription)
    Else
        Err.Raise Err.Number, Err.Source, Err.Description, Err.HelpFile, Err.HelpContext
    End If
End Sub

Спасибо !!!

TaAren

Дата 13.1.2007, 16:06 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 12.1.2007

Репутация: нет
Всего: нет

Я прогнал это Basic

Код


Sub SetFieldDescription(ByVal TableName As String, ByVal FieldName As String, ByVal FieldDescription As String)
    Dim DB As DAO.Database
    Dim tbl As DAO.TableDef
    Dim fld As DAO.Field
    
    Set DB = CurrentDb()
    Set tbl = DB.TableDefs(TableName)
    Set fld = tbl.Fields(FieldName)
    
    On Error GoTo err_
    fld.Properties("Description") = FieldDescription
    
    Exit Sub
    
err_:
    If Err.Number = 3270 Then
        fld.Properties.Append fld.CreateProperty("Description", dbText, FieldDescription)
    Else
        Err.Raise Err.Number, Err.Source, Err.Description, Err.HelpFile, Err.HelpContext
    End If
End Sub

Тогда с Basic в C++ Builder.

Crash512

Дата 13.1.2007, 20:29 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 61
Регистрация: 12.9.2006

Репутация: нет
Всего: нет

"GoTo" в Билдере отсутствует, как факт... Такое не переводят...

szz

Дата 13.1.2007, 20:43 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1289
Регистрация: 31.5.2005
Где: Moscow, Jerusalem

Репутация: 1
Всего: 33

Цитата

"GoTo" в Билдере отсутствует

Это кто тебе рассказал?

--------------------

Цитата(SelenIT @ 14.3.2008, 01:58)

Я ра улез
Тру кря ве бе льчиряршобетспо. В тыкро.

Greeen

Дата 13.1.2007, 22:25 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 710
Регистрация: 13.8.2006
Где: Петербург

Репутация: нет
Всего: 18

Цитата(Crash512 @ 13.1.2007, 20:29

)

"GoTo" в Билдере отсутствует, как факт

ты ж думай что пишешь..

--------------------

Подпись больше не нужна

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| C++ Builder \| Следующая тема »