ACEESS数据库字段类型搜集整理测试通过

FORM表单里的下拉选项框

<select name="RsType<%=i%>"  size="1" id="RsType<%=i%>">
          <option value="AutoIncrement" <% if i=0 then response.Write("selected")%>>自动编号</option>
          <option value="varchar" <% if i>0 then response.Write("selected")%>>文本</option>
    <option value="text">text</option>
    <option value="nchar">nchar</option>
    <option value="nvarchar">nvarchar</option>
    <option value="String">String</option>
    <option value="memo">备注</option>
    <option value="bit">bit位</option>
    <option value="smallint">smallint2字节</option>
    <option value="tinyint">tinyint</option>
    <option value="int">int4字节</option>
    <option value="Guid">同步复制ID</option>
    <option value="uniqueidentifier">uniqueidentifier</option>                        
    <option value="integer">长整型整数</option>
    <option value="Long">Long</option>
          <option value="short">整型整数</option>
    <option value="real">单精度型整数</option>
    <option value="Single">Single</option>
          <option value="double">双精度型整数</option>
    <option value="float">float</option>          
          <option value="double">字节型整数</option>
          <option value="NUMERIC">小数numeric</option>
          <option value="datetime">日期/时间</option>
    <option value="smalldatetime">smalldatetime</option>
          <option value="date">日期</option>
          <option value="time">时间</option>
          <option value="Currency">货币</option>
    <option value="money">money</option>
    <option value="smallmoney">smallmoney</option>
          <option value="YesNo">是/否</option>
    <option value="image">image</option>
    <option value="Hyperlink">超链接</option>
          <option value="OLEObject">OLE对象</option>  
    </select>

ASP处理代码

sql=""
RsName=cstr(trim(request("RsName"&i)))
RsType=cstr(trim(request("RsType"&i)))
RsLenth=trim(request("RsLenth"&i))
RsNull=cstr(trim(request("RsNull"&i)))
RsDefault=cstr(trim(request("RsDefault"&i)))

select case RsType
'Boolean、Integer、Long、Currency、Single、Double、Date、String 和 Variant（默认））。 

case  "AutoIncrement"
sql=sql&RsName&" AutoIncrement "&RsNull&","

case  "bit" '未通过
sql=sql&RsName&" bit NOT NULL "
 if RsDefault<>"" and RsDefault="1" then
 sql=sql&"  default 1,"
 else
 sql=sql&" default 0,"
 end if
 
case  "Boolean" '未通过
sql=sql&RsName&" Boolean NOT NULL "
 if RsDefault<>"" and RsDefault="Yes" then
 sql=sql&"  default 1,"
 elseif RsDefault<>"" and RsDefault="True" then
 sql=sql&"  default 1,"
 elseif RsDefault<>"" and RsDefault<>"0" then
 sql=sql&"  default 1,"
 else
 sql=sql&" default 0,"
 end if

case "String"
 if RsLenth="" then
 sql=sql&RsName&" String(50) "&RsNull
 else
 sql=sql&RsName&" String("&cint(RsLenth)&") "&RsNull
 end if
 if RsDefault<>"" then
 sql=sql&"  default '"&RsDefault&"',"
 else
 sql=sql&","
 end if
 
case "varchar"
 if RsLenth="" then
 sql=sql&RsName&" varchar(50) "&RsNull
 else
 sql=sql&RsName&" varchar("&cint(RsLenth)&") "&RsNull
 end if
 if RsDefault<>"" then
 sql=sql&"  default '"&RsDefault&"',"
 else
 sql=sql&","
 end if

case "nvarchar"
 if RsLenth="" then
 sql=sql&RsName&" nvarchar(50) "&RsNull
 else
 sql=sql&RsName&" nvarchar("&cint(RsLenth)&") "&RsNull
 end if
 if RsDefault<>"" then
 sql=sql&"  default '"&RsDefault&"',"
 else
 sql=sql&","
 end if

case "nchar"
 if RsLenth="" then
 sql=sql&RsName&" nchar(50) "&RsNull
 else
 sql=sql&RsName&" nchar("&cint(RsLenth)&") "&RsNull
 end if
 if RsDefault<>"" then
 sql=sql&"  default '"&RsDefault&"',"
 else
 sql=sql&","
 end if

case "text"
 if RsLenth="" then
 sql=sql&RsName&" text(50) "&RsNull
 else
 sql=sql&RsName&" text("&cint(RsLenth)&") "&RsNull
 end if
 if RsDefault<>"" then
 sql=sql&"  default '"&RsDefault&"',"
 else
 sql=sql&","
 end if

case "memo"
  if RsDefault<>"" then
  sql=sql&RsName&" memo "&"  default '"&RsDefault&"',"
  else
  sql=sql&RsName&" memo "&RsNull&","
  end if
  
case "integer"
  if RsLenth="" then
  sql=sql&RsName&" integer "&RsNull
  else
  sql=sql&RsName&" integer("&RsLenth&") "&RsNull
  end if
  if RsDefault<>"" then
  sql=sql&"  default "&RsDefault&","
  else
  sql=sql&","
  end if
case "float"
  if RsLenth="" then
  sql=sql&RsName&" float "&RsNull
  else
  sql=sql&RsName&" float("&RsLenth&") "&RsNull
  end if
  if RsDefault<>"" then
  sql=sql&"  default "&RsDefault&","
  else
  sql=sql&","
  end if

case "tinyint"
  if RsLenth="" then
  sql=sql&RsName&" tinyint "&RsNull
  else
  sql=sql&RsName&" tinyint("&RsLenth&") "&RsNull
  end if
  if RsDefault<>"" then
  sql=sql&"  default "&RsDefault&","
  else
  sql=sql&","
  end if
case "smallint"
  if RsLenth="" then
  sql=sql&RsName&" smallint "&RsNull
  else
  sql=sql&RsName&" smallint("&RsLenth&") "&RsNull
  end if
  if RsDefault<>"" then
  sql=sql&"  default "&RsDefault&","
  else
  sql=sql&","
  end if
case "int"
  if RsLenth="" then
  sql=sql&RsName&" int "&RsNull
  else
  sql=sql&RsName&" int("&RsLenth&") "&RsNull
  end if
  if RsDefault<>"" then
  sql=sql&"  default "&RsDefault&","
  else
  sql=sql&","
  end if  
    
case "Long"
  if RsLenth="" then
  sql=sql&RsName&" Long "&RsNull
  else
  sql=sql&RsName&" Long("&RsLenth&") "&RsNull
  end if
  if RsDefault<>"" then
  sql=sql&"  default "&RsDefault&","
  else
  sql=sql&","
  end if
    
case "number"
  if RsLenth="" then
  sql=sql&RsName&" number "&RsNull
  else
  sql=sql&RsName&" number("&RsLenth&") "&RsNull
  end if
  if RsDefault<>"" then
  sql=sql&"  default "&RsDefault&","
  else
  sql=sql&","
  end if
  
case "short"
  if RsLenth="" then
  sql=sql&RsName&" short "&RsNull
  else
  sql=sql&RsName&" short("&RsLenth&") "&RsNull
  end if
  if RsDefault<>"" then
  sql=sql&"  default "&RsDefault&","
  else
  sql=sql&","
  end if
  
  
case "Single"
  if RsLenth="" then
  sql=sql&RsName&" Single "&RsNull
  else
  sql=sql&RsName&" Single("&RsLenth&") "&RsNull
  end if
  if RsDefault<>"" then
  sql=sql&"  default "&RsDefault&","
  else
  sql=sql&","
  end if
    
case "double"
  if RsLenth="" then
  sql=sql&RsName&" double "&RsNull
  else
  sql=sql&RsName&" double("&RsLenth&") "&RsNull
  end if
  if RsDefault<>"" then
  sql=sql&"  default "&RsDefault&","
  else
  sql=sql&","
  end if
  
case "real"
  if RsLenth="" then
  sql=sql&RsName&" real "&RsNull
  else
  sql=sql&RsName&" real("&RsLenth&") "&RsNull
  end if
  if RsDefault<>"" then
  sql=sql&"  default "&RsDefault&","
  else
  sql=sql&","
  end if
  
case "NUMERIC"
  if RsLenth="" then
  sql=sql&RsName&" NUMERIC "&RsNull
  else
  sql=sql&RsName&" NUMERIC("&RsLenth&") "&RsNull
  end if
  if RsDefault<>"" then
  sql=sql&"  default "&RsDefault&","
  else
  sql=sql&","
  end if
  
case "Replication"
  sql=sql&RsName&" Replication,"
   
case "Guid"
  sql=sql&RsName&" Guid,"
  
case "uniqueidentifier"
  sql=sql&RsName&" uniqueidentifier,"
     
case "datetime" 'Access97支持
 if RsDefault="" then
 sql=sql&RsName&" datetime "&RsNull&","
 else
 sql=sql&RsName&" datetime "&RsNull&"  default "&RsDefault&","
 end if

case "smalldatetime" 'Access97支持
 if RsDefault="" then
 sql=sql&RsName&" smalldatetime "&RsNull&","
 else
 sql=sql&RsName&" smalldatetime "&RsNull&"  default "&RsDefault&","
 end if
  
case "date"
  if RsDefault="" then
  sql=sql&RsName&" date "&RsNull&","
  else
  sql=sql&RsName&" date  "&RsNull&" default "&RsDefault&","
  end if
  
case "time"
  if RsDefault="" then
  sql=sql&RsName&" time "&RsNull&","
  else
  sql=sql&RsName&" time  "&RsNull&" default "&RsDefault&","
  end if
case "YesNo"
  if RsDefault="" then
  sql=sql&RsName&" YesNo "&RsNull&","
  else
  sql=sql&RsName&" YesNo "&RsNull&"  default "&RsDefault&","
  end if
  
case "Currency"
  if RsLenth="" then
  sql=sql&RsName&" Currency "&RsNull
  else
  sql=sql&RsName&" Currency("&RsLenth&") "&RsNull
  end if
  
  if RsDefault<>"" then
  sql=sql&"  default "&RsDefault&","
  else
  sql=sql&","
  end if
case "money"
  if RsLenth="" then
  sql=sql&RsName&" money "&RsNull
  else
  sql=sql&RsName&" money("&RsLenth&") "&RsNull
  end if   
  if RsDefault<>"" then
  sql=sql&"  default "&RsDefault&","
  else
  sql=sql&","
  end if

case "smallmoney"
  if RsLenth="" then
  sql=sql&RsName&" smallmoney "&RsNull
  else
  sql=sql&RsName&" smallmoney("&RsLenth&") "&RsNull
  end if   
  if RsDefault<>"" then
  sql=sql&"  default "&RsDefault&","
  else
  sql=sql&","
  end if

case "Variant"'未通过
  if RsDefault="" then
  sql=sql&RsName&" Variant "&RsNull&","
  else
  sql=sql&RsName&" Variant "&RsNull&"  default "&RsDefault&","
  end if
  
case "Hyperlink"
  if RsDefault="" then
  sql=sql&RsName&" OLEObject "&RsNull&","
  else
  sql=sql&RsName&" OLEObject "&RsNull&"  default "&RsDefault&","
  end if
case "OLEObject"
  if RsDefault="" then
  sql=sql&RsName&" OLEObject "&RsNull&","
  else
  sql=sql&RsName&" OLEObject "&RsNull&"  default "&RsDefault&","
  end if
case "image"
  if RsDefault="" then
  sql=sql&RsName&" image "&RsNull&","
  else
  sql=sql&RsName&" image "&RsNull&"  default "&RsDefault&","
  end if  
  
case else
response.write("<script>alert('数据类别"&RsType&"不可以识别或者暂时未完善此类别数据类型的建表功能,即将返回');location.href='CreateTable1224.asp';</script>")
response.End()
end select
sql1=sql1&sql
next
sql1=left(sql1,len(sql1)-1)&")"
response.Write(sql1)