如何在 VB5.0 中用程序新建一个表（FoxPro 2.6）？

Question

'这可以作为一个单独的模块
Attribute VB_Name = "NewFox"Public Function NewFoxPro(Path as String,Name as String)
Dim dbsNorthwind As Database
Dim tdfNew As New TableDef
Dim Path As String
    
Set dbsNorthwind = OpenDatabase(Path, True, False, "FoxPro 2.6;")
Set tdfNew = dbsNorthwind.CreateTableDef(Name)tdfNew.Fields.Append tdfNew.CreateField("Filed1", dbText, 12)
tdfNew.Fields.Append tdfNew.CreateField("Filed2", dbText, 12)dbsNorthwind.TableDefs.Append tdfNewEnd Function

Answer 1

'这可以作为一个单独的模块
Attribute VB_Name = "NewFox"Public Function NewFoxPro(Path as String,Name as String)
Dim dbsNorthwind As Database
Dim tdfNew As New TableDef
    
Set dbsNorthwind = OpenDatabase(Path, True, False, "FoxPro 2.6;")
Set tdfNew = dbsNorthwind.CreateTableDef(Name)tdfNew.Fields.Append tdfNew.CreateField("Filed1", dbText, 12)
tdfNew.Fields.Append tdfNew.CreateField("Filed2", dbText, 12)dbsNorthwind.TableDefs.Append tdfNewEnd Function 

Answer 2

谢谢了，加分！再请看一下：
http://www.csdn.net/expert/topic/119/119497.shtm