文章目录
导出步骤
Database --> Generate Database --> Directory --> File name;
设置路径和文件名
(快捷键:Ctrl+G)
然后碰到一个问题
报错Table code maximum length
解决办法
调整两个参数:
1.Database --> Edit Current DBMS… -->Script --> Object --> MaxConstLen --> value
2.Database --> Edit Current DBMS… -->Script --> Object --> Table --> Maxlen --> value
调成255一步到位,随便设,够用就行
字段超限Key constraint name maximum length is liited to xx charcters
看网上好像还有人碰到字段超限的情况,解决方法一样,再改个column里的maxlen就行
导出的sql文件没有注释
表preview里面没有代码注释
步骤:
Tools --》 Execute Commands --》 Edit/Run Script…
(快捷键:Ctrl + Shift + X)
在弹出的窗口中输入以下代码,然后run一下就好了
Option Explicit
ValidationMode = True
InteractiveMode = im_Batch
Dim mdl ' the current model
' get the current active model
Set mdl = ActiveModel
If (mdl Is Nothing) Then
MsgBox "There is no current Model "
ElseIf Not mdl.IsKindOf(PdPDM.cls_Model) Then
MsgBox "The current model is not an Physical Data model. "
Else
ProcessFolder mdl
End If
' This routine copy name into comment for each table, each column and each view
' of the current folder
Private sub ProcessFolder(folder)
Dim Tab 'running table
for each Tab in folder.tables
if not tab.isShortcut then
Dim col ' running column
for each col in tab.columns
'把列name和comment合并为comment
col.comment= col.name
next
end if
next
Dim view 'running view
for each view in folder.Views
if not view.isShortcut then
view.comment = view.name
end if
next
' go into the sub-packages
Dim f ' running folder
For Each f In folder.Packages
if not f.IsShortcut then
ProcessFolder f
end if
Next
end sub