none
VB6,急用为什么引用Microsoft DAO 3.6 Compatibility Library后不能正常运行了! RRS feed

  • 问题

  •  

    '引用Microsoft DAO 2.5/3.51 Compatibility Library
    '用于建立Access数据库文件
    Public Function CreateDbase(ByVal VarFileName As String, ByVal VarPassword As String) As Boolean
       'On Error GoTo CreateDBaseError
      
       '定义数据库文件
       Dim VarWorkspace As Workspace
       Dim VarDbase As Database
       Dim VarTableDef As TableDef
       Dim VarIndex As Index
       
       Set VarWorkspace = DBEngine.Workspaces(0)
       Set VarDbase = Workspaces(0).CreateDatabase(VarFileName, dbLangGeneral & ";uid=nixianli;pwd=" & VarPassword, dbEncrypt)
       
       '01.定义单位部门编码信息表
       Set VarTableDef = VarDbase.CreateTableDef("Department")
       With VarTableDef
          .Fields.Append .CreateField("DepartmentStatus", dbInteger) '使用标识:0.未启用 1.已启用
          .Fields.Append .CreateField("DepartmentID", dbText, 6)
          .Fields.Append .CreateField("Department", dbText, 120)
       End With
       VarDbase.TableDefs.Append VarTableDef
      
       Set VarIndex = VarTableDef.CreateIndex("Department")
       With VarIndex
          .Clustered = True
          .Fields.Append .CreateField("DepartmentID")
          .IgnoreNulls = True
          .Primary = True
          .Required = True
          .Unique = True
       End With
       VarTableDef.Indexes.Append VarIndex

     

     

    为什么在引用Microsoft DAO 2.5/3.51 Compatibility Library 正常运行, 改引用Microsoft DAO 3.6 Compatibility Library后不能正常运行了!    到  .Fields.Append .CreateField("DepartmentID") 错误提示“未找到方法或数据成员。”

    2008年11月3日 2:02

答案

  • 嗷,调试发现同时引用 Microsoft ADO Ext. 2.8 for DDL and Security 了,产生冲突!

     

         另外 请教.CreateProperty 如何使用?

    2008年11月3日 8:20
  • 你好!
       CreateProperty类:
    此类支持 .NET 基础结构,但不适合在代码中直接使用。

    实现 CreateProperty 任务。使用项目文件中的 CreateProperty 元素创建并执行此任务。
             CreateProperty任务:使用传入的值来填充属性。这可以将值从一个属性或字符串复制到另一个属性或字符串。
    <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">

    <PropertyGroup>
    <SourceFilename>Module1</SourceFilename>
    <SourceFileExtension>vb</SourceFileExtension>
    </PropertyGroup>

    <Target Name="CreateProperties">

    <CreateProperty
    Value="$(SourceFilename).$(SourceFileExtension)">
    <Output
    TaskParameter="Value"
    PropertyName="NewFile" />
    </CreateProperty>

    </Target>

    </Project>

    2008年11月3日 9:22
    版主

全部回复

  • 我试了一下,没问题呀?

    2008年11月3日 3:07
    版主
  •  

    改引用Microsoft DAO 3.6 Compatibility Library后不能正常运行了!    到  .Fields.Append .CreateField("DepartmentID") 错误提示“未找到方法或数据成员。”
    2008年11月3日 5:56
  • 我就是用的dao 3.6

    2008年11月3日 7:21
    版主
  • 嗷,调试发现同时引用 Microsoft ADO Ext. 2.8 for DDL and Security 了,产生冲突!

     

         另外 请教.CreateProperty 如何使用?

    2008年11月3日 8:20
  • 你好!
       CreateProperty类:
    此类支持 .NET 基础结构,但不适合在代码中直接使用。

    实现 CreateProperty 任务。使用项目文件中的 CreateProperty 元素创建并执行此任务。
             CreateProperty任务:使用传入的值来填充属性。这可以将值从一个属性或字符串复制到另一个属性或字符串。
    <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">

    <PropertyGroup>
    <SourceFilename>Module1</SourceFilename>
    <SourceFileExtension>vb</SourceFileExtension>
    </PropertyGroup>

    <Target Name="CreateProperties">

    <CreateProperty
    Value="$(SourceFilename).$(SourceFileExtension)">
    <Output
    TaskParameter="Value"
    PropertyName="NewFile" />
    </CreateProperty>

    </Target>

    </Project>

    2008年11月3日 9:22
    版主