Помогите пожалуйста перевести код 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
|
Спасибо !!! |
)