请看以下代码:
Dim cnDBF As New ADODB.Connection
     cnDBF.Open "Provider=MSDASQL.1;Persist Security Info=False;Data Source=dBASE Files;Initial Catalog=D:\"
       strsql = "CREATE TABLE zf char(20)"
       cnDBF.Execute strsql
可以执行通过
我想将字段  zf 定义为 日期型、数值型等 代码应分别如何写

解决方案 »

  1.   

    要是表结构固定的话,直接在dbase下建好调用吧。
      

  2.   

    可以先在SQLSERVER里把表先建立好,再然后查询分析器的"生成建立脚本"。。
      

  3.   

    ADO and SQL Server 
    Mapping Data Types
    In rowsets and as parameter values, ADO represents data in Microsoft® SQL Server™ 2000 by using the following data types. The ADO enumerated constant, DataTypeEnum, specifies the data type of the Field and Parameter objects.SQL Server Data Type ADO Data Type  
    bigint -adBigInt 
    binary -adBinary 
    bit -adBoolean 
    char -adChar 
    datetime -adDBTimeStamp 
    decimal -adNumeric 
    float -adDouble 
    image -adVarbinary 
    int -adInteger 
    money -adCurrency 
    nchar -adWChar 
    ntext -adWChar 
    numeric -adNumeric 
    nvarchar -adWChar 
    real -adSingle 
    smalldatetime -adTimeStamp 
    smallint -adSmallInt 
    smallmoney -adCurrency 
    sql_variant -adVariant 
    sysname -adWChar 
    text -adChar 
    timestamp -adBinary 
    tinyint -adVarbinary 
    uniqueidentifier -adGUID 
    varbinary -adVarbinary 
    varchar -adChar 
    ADO supports consumer-requested data conversions as shown in this illustration.
      

  4.   

    还是不行啊strsql = "CREATE TABLE zf adNumeric(20)"
    cnDBF.Execute strsql
    提示: 字段定义语法错误
      

  5.   

    CREATE TABLE [ColumnMap] (
    [SourID] [tinyint] NULL CONSTRAINT [DF__ColumnMap__SourI__6501FCD8] DEFAULT (0),
    [SourAttribute] [tinyint] NULL CONSTRAINT [DF__ColumnMap__SourA__65F62111] DEFAULT (0),
    [SourTable] [varchar] (50) COLLATE Chinese_PRC_CI_AS NOT NULL ,
    [SourColumn] [varchar] (50) COLLATE Chinese_PRC_CI_AS NOT NULL ,
    [SourDataType] [varchar] (20) COLLATE Chinese_PRC_CI_AS NULL ,
    [DestTable] [varchar] (50) COLLATE Chinese_PRC_CI_AS NOT NULL ,
    [DestColumn] [varchar] (50) COLLATE Chinese_PRC_CI_AS NOT NULL ,
    [DestDataType] [varchar] (20) COLLATE Chinese_PRC_CI_AS NULL ,
    [JoinCol] [tinyint] NULL CONSTRAINT [DF__ColumnMap__JoinC__66EA454A] DEFAULT (0),
    [ConvertFun] [varchar] (200) COLLATE Chinese_PRC_CI_AS NULL ,
    [State] [char] (1) COLLATE Chinese_PRC_CI_AS NOT NULL CONSTRAINT [DF__ColumnMap__State__67DE6983] DEFAULT ('Y'),
    [ColDescription] [varchar] (100) COLLATE Chinese_PRC_CI_AS NULL ,
     CHECK ([State] = 'N' or [State] = 'Y')
    ) ON [PRIMARY]
    GO
      

  6.   

    CREATE TABLE [Region] (
    [RegionID] [int] NOT NULL ,
    [RegionDescription] [nchar] (50) COLLATE Chinese_PRC_CI_AS NOT NULL ,
    CONSTRAINT [PK_Region] PRIMARY KEY  NONCLUSTERED 
    (
    [RegionID]
    )  ON [PRIMARY] 
    ) ON [PRIMARY]
    GO
      

  7.   

    cnDBF.Execute "create table test(a datetime,b decimal(10,2))"
      

  8.   

    to  yoki(小马哥) :你测试了吗,我试了还是不行。提示: 字段定义语法错误
    我真没法了!!!!!!!!!!!