岛国精品一区免费视频在线,在线无码自拍流白浆,久久亚洲精品无码播放

　Access to Sql 腳本編寫器

作者：V37　時(shí)間： 2004-11-13　文檔類型：　來自：藍(lán)色理想

更新第五版（Access可以直接導(dǎo)入SQLserver）：
修正一些bug,用多個(gè)目前流行的Access整站和論壇數(shù)據(jù)庫測(cè)試（測(cè)試最大的80M數(shù)據(jù)庫）
Exe版本可以直接導(dǎo)入到SQL數(shù)據(jù)庫，下載包含Asp 和Exe兩個(gè)版本的文件

下載：DB_CreateSqlEV1.05.rar

更新第三版：
可以生成完全創(chuàng)建新的SQL庫和登陸，并且導(dǎo)入數(shù)據(jù)的sql和 asp腳本

下載：DB_CreateSqlE(B2004-11-18).rar

------------------------------------------------------
增加第二版的 VB重寫的編譯Exe版本（可以成為一個(gè)小工具）,擺脫asp代碼運(yùn)行的不方便！

下載：MDB_CreateSQLE.rar

------------------------------------------------------
Asp版本
下載:
第一版(生成在Access下運(yùn)行的SQL和Asp):

下載：DB_CreateSql.rar

第二版(生成Access數(shù)據(jù)升遷導(dǎo)入到SQLserver的 Sql腳本
生成結(jié)果需要在SQLserver的查詢分析器里運(yùn)行，使用到dataopensource()函數(shù)):

下載：DB_CreateSqlE.rar

sql和access的腳本語法細(xì)節(jié)不一樣，所以這兩個(gè)版本是的結(jié)果是完全不同的
第二個(gè)版本可能更實(shí)用

出發(fā)點(diǎn)

因?yàn)樽鰯?shù)據(jù)庫升級(jí)程序,牽涉到建表,建索引,約束,默認(rèn)啊!表關(guān)系的!!! 暈啊!!!!!
全新寫生成數(shù)據(jù)庫結(jié)構(gòu)的Sql語句實(shí)在無比麻煩!

最好的需要是,在Access里弄好表結(jié)構(gòu)設(shè)計(jì),然后像Sql2000那樣對(duì)數(shù)據(jù)庫對(duì)象編寫Sql腳本,基于這個(gè)處發(fā)點(diǎn),所以編寫了這個(gè)小程序,專門對(duì)Access數(shù)據(jù)庫對(duì)象編寫Sql腳本，起到事半功倍的作用! 方便方便

功能簡(jiǎn)介
功能:可編寫Access數(shù)據(jù)庫的常用的主要對(duì)象,包括
表,視圖,索引,約束,包括 默認(rèn)值,主鍵,自動(dòng)編號(hào),外鍵(表關(guān)系)
編寫完自動(dòng)保存為原數(shù)據(jù)庫名+相應(yīng)擴(kuò)展的文件
Asp模式可直接生成帶表單輸入的可執(zhí)行的Asp文件,用生成的Asp文件即可生成新的數(shù)據(jù)庫
Sql模式可直接生成純Sql語句文本

實(shí)現(xiàn)思路:
用Ado 模式查詢 + Adox對(duì)象模型雙管齊下
通過編寫模式查詢的List文件(該代碼需要可另外提供),分析表結(jié)構(gòu)元素
在加上Adox細(xì)節(jié)獲取必要屬性,比如自動(dòng)編號(hào)的種子值,增長(zhǎng)量
索引集合的列的排序?qū)傩?BR>就基本實(shí)現(xiàn)了Access Sql的腳本編寫
可能更實(shí)用的是編寫成可執(zhí)行的 Asp文件,
因?yàn)?Access2000的查詢?cè)O(shè)計(jì)運(yùn)行 Sql語句實(shí)在弱智,還亂糾錯(cuò)

第一版代碼: 按海娃的提議
1.修改了一下，備注類型用回Access標(biāo)準(zhǔn)字 text char / 我一直習(xí)慣 LongText varchar

2.按字段的在表中的順序來編寫，這樣重建腳本時(shí)就保證一致了
測(cè)試比較：將原始數(shù)據(jù)庫編寫的sql 與該sql腳本重建的數(shù)據(jù)庫再次編寫的 sql比較一致

代碼拷貝框
<% @ LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <%Option Explicit response.buffer=true Response.Expires = -1 Response.AddHeader "Pragma","no-cache" Response.AddHeader "cache-ctrol","no-cache" %><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML> <HEAD> <TITLE>MiniAcces Editor1.0part2 Access SQL腳本編寫器(V37 PaintBlue.Net 2004 Acp Code)</TITLE> <META NAME="Generator" CONTENT="EditPlus"> <META NAME="Author" CONTENT="V37"> <META NAME="Keywords" CONTENT="PaintBlue.Net,PaintBlue"> <META NAME="Description" CONTENT="PaintBlue.Net"> <style> table{ color: #000000; font-size: 9pt; FONT-FAMILY: "Tahoma","MS Shell Dlg"; } td { color: #000000; font-size: 9pt; }table{ color: #000000; font-size: 9pt; FONT-FAMILY: "Tahoma","MS Shell Dlg"; } body { color: #000000; font-size: 9pt; } </style> </HEAD> <body bgCOLOR=eeeeee text="#000000" leftmargin="0" marginwidth="100%" topmargin="0" bottommargin="20"> <% dim enMode dim DB_Name,ExtName,FileName dim rs,CONN,CONNstr DB_Name="/coosel2.0/data/mydb.mdb" DB_Name=questStr("DB_Name") FileName=questStr("DB_Name") enMode=questStr("enMode") if not isnumeric(enMode) then enMode=0 if DB_Name<>"" then enMode=clng(enMode) if enMode=0 then ExtName=".Sql" else ExtName=".Asp" end if Call openDB(DB_Name) Call CreateSQL(DB_Name,enMode) else if DB_Name="" then DB_Name="data/mydb.mdb" Call Main() end if Sub MAIN() %> <style> .titlebar { FONT-WEIGHT: bold; FONT-SIZE: 12pt; FILTER: dropshadow(color=#333333, offx=1, offy=2); WIDTH: 100%; COLOR: #ffffff; FONT-FAMILY: Tahoma,Verdana, Arial, sans-serif; POSITION: relative; TOP: 1px } </style> <FORM METHOD=POST ACTION="?action=1" Name=DBform> <TABLE width="100%" cellspacing=0 border=0> <TR bgcolor=#D4D0C8> <TD align=center height=32><a href=http://www.paintblue.net/ target=_blank><img src=http://www.paintblue.net/bbs/images/TitleLogo.gif border=0></a></td><td><span class=titlebar><font color=#ffffff><b>MiniAccess Editor V1.0 P2 (Access 腳本編寫器)</b></font></span></TD> <td></td></TR> <TABLE align=center width="100%" cellspacing=1 cellpadding=3 border=0> </TABLE> <TABLE align=center width="100%" cellspacing=1 cellpadding=3 border=0> <TR bgcolor=#a4c0d8><TD align=right height=10></TD><TD></TD></TR> <TR bgcolor=#D4D0C8> <TD align=right><span id=a>編寫模式</span></TD> <TD> <INPUT TYPE="radio" NAME="enMode" value="0" <%if enMode=0 then response.write "checked" end if%> >Sql文本 <INPUT TYPE="radio" NAME="enMode" value="1" <%if enMode=1 then response.write "checked" end if%> >Asp代碼 </TD> </TR> <TR bgcolor=#D4D0C8> <TD align=right width=250>數(shù)據(jù)庫路徑</TD> <TD><INPUT TYPE="text" NAME="DB_Name" value="<%=DB_Name%>" style="width:70%;"> </TD> </TR> <TR bgcolor=#a4c0d8><TD align=right height=10></TD><TD></TD></TR> <TR > <TD height=38></TD> <TD bgcolor=#D4D0C8>  <INPUT TYPE="submit" value=" 確定 " style="width:80;"></TD> </TR> <TR > <TD height=38></TD> <TD bgcolor=#D4D0C8>   <li><<簡(jiǎn)介>> <li>功能:可編寫Access數(shù)據(jù)庫的常用的主要對(duì)象,包括 <br>    <b>表,視圖,索引,約束,包括默認(rèn)值,主鍵,自動(dòng)編號(hào),外鍵</b>(表關(guān)系) <li>編寫完自動(dòng)保存為原數(shù)據(jù)庫名+相應(yīng)擴(kuò)展的文件 <li>Asp模式可直接生成帶表單輸入的可執(zhí)行的Asp文件,用生成的Asp文件即可生成新的數(shù)據(jù)庫 <li>Sql模式可直接生成純Sql語句文本</li><br><br></TD> </TR> </Table> </FORM> <% End SUB '====MiniAcces Editor1.0part2 Access SQL腳本編寫器(V37 PaintBlue.Net 2004 Acp Code)========= SUB openDB(DB_Name) if inStr(DB_Name,":/")=0 and inStr(DB_Name,":\")=0 then DB_Name=server.mappath(DB_Name) end if Set CONN = Server.CreateObject("ADODB.CONNection") on error resume next CONN.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&DB_Name if err.number<>0 then rw "數(shù)據(jù)庫打開失敗,錯(cuò)誤為:"&err.description,0 err.clear else Set rs=Server.CreateObject("adodb.recordSet") end if End SUB SUB CreateSQL(DB_Name,exec) '創(chuàng)建模式 'exec = 0 : 生成SQL語句 'exec = 1 : 生成Asp程序 dim tbls,tabsArr,ub,I,TtempStr,TtempStrHead dim TableStr if exec=1 then TtempStrHead="<"&"% @ LANGUAGE=""VBSCRIPT""%"&">"&vbcrlf TtempStrHead=TtempStrHead&"<"&"%Option Explicit"&vbcrlf TtempStrHead=TtempStrHead&"response.buffer=true"&vbcrlf&vbcrlf TtempStrHead=TtempStrHead&"'========================================================================="&vbcrlf&"'Access 數(shù)據(jù)庫 SQL 腳本生成 by MiniAccess Edit V1.0 P2(V37 PaintBlue.Net 2004 Asp Code)"&vbcrlf&"'========================================================================="&vbcrlf&vbcrlf end if if instr(DB_Name,":\")=0 and instr(DB_Name,":/")=0 then DB_Name=Server.MapPath(DB_Name) end if CONNstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DB_Name Set CONN = Server.CreateObject("ADODB.Connection") CONN.Open CONNstr '編寫CONN對(duì)象 if exec=1 then TtempStr="SUB CreateDB(DB_Name)"&vbcrlf TtempStr=TtempStr&"DIM CONN"&vbcrlf TtempStr=TtempStr&"Set CONN=Server.CreateObject(""ADODB.Connection"")"&vbcrlf TtempStr=TtempStr&"CONN.open ""Provider=Microsoft.Jet.OLEDB.4.0;Data Source=""&DB_Name"&vbcrlf&vbcrlf end if '編寫表/索引對(duì)象 Set tbls=CONN.openSchema(20) 'adSchemaPrimaryKeys tbls.Filter =" TABLE_TYPE='TABLE' " '篩選出有默認(rèn)值，但允許null的列 while Not tbls.eof TableStr=TableStr&"|"&tbls("TABLE_Name") tbls.movenext wend tbls.filter=0 tbls.close set tbls=nothing TableStr=mid(TableStr,2) if TableStr<>"" then tabsArr=split(TableStr,"|") ub=ubound(tabsArr) for I=0 to ub if exec=1 then TtempStr=TtempStr&"'["&tabsArr(I)&"]:"& vbcrlf TtempStr=TtempStr&CreatTableSql(tabsArr(I),exec)&vbcrlf&vbcrlf next end if '編寫表關(guān)系 if TableStr<>"" then TtempStr=TtempStr&CreatForeignSql(exec) '編寫視圖 TtempStr=TtempStr&CreatViewSql(exec) if exec=1 then TtempStr=replace(TtempStr,">","""&chr(62)&""") TtempStr=replace(TtempStr,"<","""&chr(60)&""") TtempStr=TtempStr&"End SUB"& vbcrlf&vbcrlf TtempStr=TtempStr&" call CreateMDB()"&vbcrlf TtempStr=TtempStr&"SUB Main()"&vbcrlf TtempStr=TtempStr&" Response.write(""<center><FORM METHOD=POST><input name=DB_Name Value="""""&Server.Htmlencode(DB_Name)&""""" style=""""width:70%;""""><br><INPUT TYPE=submit name=CreateDB Value=創(chuàng)建數(shù)據(jù)庫></FORM></center>"")"&vbcrlf TtempStr=TtempStr&"End SUB" & vbCrlf& vbCrlf TtempStr=TtempStr& "SUB CreateMDB()" & vbCrlf TtempStr=TtempStr& " dim cat,NewDB_Name" & vbCrlf TtempStr=TtempStr& " NewDB_Name=request(""DB_Name"")" & vbCrlf TtempStr=TtempStr& " if NewDB_Name<>"""" then" & vbCrlf TtempStr=TtempStr& " if instr(NewDB_Name,"":\"")=0 and instr(NewDB_Name,"":/"")=0 then" & vbCrlf TtempStr=TtempStr& " NewDB_Name=Server.MapPath(NewDB_Name)" & vbCrlf TtempStr=TtempStr& " end if " & vbCrlf TtempStr=TtempStr& " set cat=Server.CreateObject(""ADOX.Catalog"") " & vbCrlf TtempStr=TtempStr& " cat.Create ""Provider=Microsoft.Jet.OLEDB.4.0;Data Source=""&NewDB_Name" & vbCrlf TtempStr=TtempStr& " set cat=nothing " & vbCrlf TtempStr=TtempStr& " CreateDB(NewDB_Name)" & vbCrlf TtempStr=TtempStr& " response.write vbcrlf&""OK""" & vbCrlf TtempStr=TtempStr& " else" & vbCrlf TtempStr=TtempStr& " set cat=nothing " & vbCrlf TtempStr=TtempStr& " call main()" & vbCrlf TtempStr=TtempStr& " end if" & vbCrlf TtempStr=TtempStr& "End SUB" TtempStr=TtempStrHead&TtempStr&vbcrlf&"%"&">" end if call Ados_Write(TtempStr,DB_Name&ExtName,"gb2312") rw "<br><img width=100 height=0>"&DB_Name&"的SQL腳本編寫完成",1 rw "<img width=100 height=0>已經(jīng)保存文件為<b><font color=blue>"&DB_Name&ExtName&"</font></b>[<a href=?>返回</a>]:",1 rw "<center><textarea style=""width:70%;height:500px;"" wrap=""off"">"&server.Htmlencode(TtempStr)&"</textarea></center>",1 End SUB function CreatViewSql(exec) dim cols dim FKtable,PK_cols,FK_cols,tmpStr,tmpStr1,VIEW_DEFINITION Set cols=CONN.openSchema(23) cols.filter=0 while not cols.eof tmpStr1="" VIEW_DEFINITION=replace(cols("VIEW_DEFINITION"),chr(13),"") VIEW_DEFINITION=replace(VIEW_DEFINITION,chr(10)," ") tmpStr1="Create view ["&cols("TABLE_NAME")&"] As "&VIEW_DEFINITION&"" if exec=1 then tmpStr1="CONN.execute("""&tmpStr1&""")" tmpStr=tmpStr&vbcrlf&tmpStr1 cols.movenext wend cols.close set cols=nothing CreatViewSql=tmpStr End Function function CreatTableSql(byval tableName,exec) dim cols dim TmpStr Set cols=CONN.openSchema(4) dim splitchar,splitchar1 if exec=1 then splitchar="""" splitchar1="""&_" else splitchar="" splitchar1="" end if cols.filter="Table_name='"&tableName&"'" if cols.eof then exit function end if dim cat,autoclumn,n,chkPrimaryKey n=0 ' 編寫表腳本 autoclumn=GetAutoincrementCoulmnT(tableName) if exec=1 then TmpStr="CONN.execute(""CREATE TABLE ["&tableName&"] (""&_"& vbcrlf else TmpStr="CREATE TABLE ["&tableName&"] ("& vbcrlf end if dim autoclumnStr,columnStr if autoclumn<>"" then autoclumnStr= " "&splitchar&"["& autoclumn &"] integer IDENTITY (1,"&GetIncrement(tableName,autoclumn)&") not null" end if n=0 do n=n+1 cols.filter="Table_name='"&tableName&"' and ORDINAL_POSITION="&n if cols.eof then exit do if n>1 then TmpStr=TmpStr&"," & splitchar1 & vbcrlf if autoclumn=cols("Column_name") then TmpStr=TmpStr & autoclumnStr else TmpStr=TmpStr & " "&splitchar&"["& cols("Column_name") &"] "& lcase(datatypeStr(cols("DATA_TYPE"),cols("CHARACTER_MAXIMUM_LENGTH")))& defaultStr(cols("DATA_TYPE"),cols("COLUMN_DEFAULT"),exec) & nullStr(cols("IS_NULLABLE")) end if cols.movenext loop TmpStr=TmpStr & splitchar1 & vbcrlf &" "&splitchar&")" cols.close if exec=1 then TmpStr=TmpStr&""")" end if '' 編寫表腳本 ' autoclumn=GetAutoincrementCoulmnT(tableName) ' if exec=1 then ' TmpStr="CONN.execute(""CREATE TABLE ["&tableName&"] (""&_"& vbcrlf ' else ' TmpStr="CREATE TABLE ["&tableName&"] ("& vbcrlf ' end if ' if autoclumn<>"" then ' TmpStr=TmpStr & " "&splitchar&"["& autoclumn &"] integer IDENTITY (1,"&GetIncrement(tableName,autoclumn)&") not null" ' n=n+1 ' end if ' ' cols.filter="Table_name='"&tableName&"' and column_name<>'"&autoclumn&"'" ' while not cols.eof ' if n>0 then TmpStr=TmpStr&"," & splitchar1 & vbcrlf ' TmpStr=TmpStr & " "&splitchar&"["& cols("Column_name") &"] "& lcase(datatypeStr(cols("DATA_TYPE"),cols("CHARACTER_MAXIMUM_LENGTH")))& defaultStr(cols("DATA_TYPE"),cols("COLUMN_DEFAULT"),exec) & nullStr(cols("IS_NULLABLE")) ' cols.movenext ' n=n+1 ' wend ' TmpStr=TmpStr & splitchar1 & vbcrlf &" "&splitchar&")" ' cols.close ' if exec=1 then ' TmpStr=TmpStr&""")" ' end if ' 編寫索引腳本 dim InxArr,i,kstr,j,tmpStr1 InxArr=getInxArr(tableName) Set cols=CONN.openSchema(12) for i=0 to ubound(InxArr) cols.filter="Table_name='"&tableName&"' and index_name='"&InxArr(i)&"'" kstr="" tmpStr1="" if Not isForeignIndex(tableName,InxArr(i)) then '外鍵索引不進(jìn)行編寫 while not cols.eof kstr=kstr&",["&cols("column_name")&"] "&GetInxDesc(TableName,InxArr(i),cols("column_name")) cols.movenext wend tmpStr1=tmpStr1&"CREATE " if isUnique(TableName,InxArr(i)) then tmpStr1=tmpStr1&"Unique " tmpStr1=tmpStr1&"INDEX ["&InxArr(i)&"] on ["&tableName&"]("&mid(kstr,2)&")" if isPrimaryKey(TableName,InxArr(i)) then tmpStr1=tmpStr1&" with Primary" if exec=1 then tmpStr1="CONN.execute("""&tmpStr1&""")" tmpStr=tmpStr&vbcrlf&tmpStr1 end if next cols.close cols.filter=0 CreatTableSql=TmpStr End function function CreatForeignSql(exec) dim cols dim FKtable,PK_cols,FK_cols,tmpStr,tmpStr1 Set cols=CONN.openSchema(27) cols.filter="PK_NAME<>Null" while not cols.eof tmpStr1="" tmpStr1="ALTER TABLE ["&cols("FK_TABLE_NAME")&"] "&_ "Add CONSTRAINT ["&cols("FK_NAME")&"] "&_ "FOREIGN KEY (["&cols("FK_COLUMN_NAME")&"]) REFERENCES "&_ "["&cols("PK_TABLE_NAME")&"] (["&cols("PK_COLUMN_NAME")&"]) " if cols("UPDATE_RULE")="CASCADE" then tmpStr1=tmpStr1&"ON UPDATE CASCADE " if cols("DELETE_RULE")="CASCADE" then tmpStr1=tmpStr1&"ON DELETE CASCADE " if exec=1 then tmpStr1="CONN.execute("""&tmpStr1&""")" tmpStr=tmpStr&vbcrlf&tmpStr1 cols.movenext wend cols.filter=0 cols.close set cols=nothing CreatForeignSql=tmpStr End Function '判斷是否是外鍵索引 Function isForeignIndex(TableName,indexName) dim cols Set cols=CONN.openSchema(27) cols.filter="FK_TABLE_Name='"&TableName&"' and FK_NAME='"&indexName&"'" if Not cols.eof then isForeignIndex=true else isForeignIndex=false end if End Function '取得索引列的排序?qū)傩?function GetInxDesc(TableName,indexName,ColumnName) dim cat set cat=Server.CreateObject("ADOX.Catalog") cat.ActiveCONNection =CONNstr if cat.Tables(""&TableName&"").Indexes(""&indexName&"").Columns(""&ColumnName&"").SortOrder=2 then GetInxDesc="Desc" else GetInxDesc="" end if set cat=nothing end function '取得列數(shù)組 function getColumArr(tableName) dim cols,arr(),n redim arr(-1) n=0 redim arr(n) set cols=CONN.openSchema(4) cols.filter="Table_Name='"&tableName&"'" while not cols.eof redim Preserve arr(n) arr(n)=cols("column_name") cols.movenext n=n+1 wend cols.filter=0 cols.close set cols=nothing getColumArr=arr end function '取得索引數(shù)組 function getInxArr(tableName) dim cols,arr(),n,tmpCol redim arr(-1) n=0 set cols=CONN.openSchema(12) cols.filter="Table_Name='"&tableName&"'" while not cols.eof if cols("index_name")<>tmpCol then redim Preserve arr(n) arr(n)=cols("index_name") n=n+1 end if tmpCol=cols("index_name") cols.movenext wend cols.filter=0 cols.close set cols=nothing getInxArr=arr end function function isUnique(TableName,IndexName) dim cols set cols=CONN.openSchema(12) cols.filter="Table_Name='"&TableName&"' and Index_Name='"&IndexName&"' and UNIQUE=True" if not cols.eof then isUnique=true else isUnique=false end if cols.filter=0 cols.close set cols=nothing end function function isPrimaryKey(TableName,IndexName) dim cols set cols=CONN.openSchema(12) cols.filter="Table_Name='"&TableName&"' and Index_Name='"&IndexName&"' and PRIMARY_KEY=True" if not cols.eof then isPrimaryKey=true else isPrimaryKey=false end if cols.filter=0 cols.close set cols=nothing end function function getPrimaryKey(tableName,columnName) dim cols Set cols=CONN.openSchema(12) cols.filter="Table_Name='"&tableName&"' and Column_Name='"&columnName&"' and PRIMARY_KEY=True" if not cols.eof then getPrimaryKey=cols("INDEX_NAME") 'isPrimaryKey=true else getPrimaryKey="" 'isPrimaryKey=false end if cols.filter=0 cols.close set cols=nothing end function Function GetIncrement(tableName,columnName) dim cat set cat=Server.CreateObject("ADOX.Catalog") cat.ActiveCONNection =CONNstr GetIncrement=cat.Tables(""&TableName&"").Columns(""&columnName&"").Properties("Increment") set cat=nothing end function Function GetSeed(tableName,columnName) dim cat set cat=Server.CreateObject("ADOX.Catalog") cat.ActiveCONNection =CONNstr GetSeed=cat.Tables(""&TableName&"").Columns(""&columnName&"").Properties("Seed") set cat=nothing end function '通用,內(nèi)部屬性取得自動(dòng)編號(hào)，對(duì)SQLserver Access都可以 Function GetAutoincrementCoulmnT(TableName) dim i rs.open "select * from ["&TableName&"] where 1=0",CONN,0,1 for i=0 to rs.fields.count-1 //if rs(i).Properties("isAutoIncrement")=True then if rs(i).Properties("isAutoIncrement")=True then GetAutoincrementCoulmnT=rs(i).name rs.close exit function end if next rs.close End function function datatypeStr(DATA_TYPE,CHARACTER_MAXIMUM_LENGTH) select case DATA_TYPE case 130 if CHARACTER_MAXIMUM_LENGTH=0 then datatypeStr="Text" 'LongText else datatypeStr="char("&CHARACTER_MAXIMUM_LENGTH&")" 'varchar() end if case 17 datatypeStr="tinyint" case 2 datatypeStr="Smallint" case 3 datatypeStr="integer" case 4 datatypeStr="real" 'or /同意詞 float4 case 5 datatypeStr="float" 'or /同意詞 float8 case 6 datatypeStr="money" 'or /同意詞 CURRENCY case 7 datatypeStr="datetime" case 11 datatypeStr="bit" case 72 datatypeStr="UNIQUEIDENTIFIER" 'or /同意詞 GUID case 131 datatypeStr="DECIMAL" 'or /同意詞 DEC case 128 datatypeStr="BINARY" 'or /同意詞 DEC end select 'AUTOINCREMENT end function function defaultStr(DATA_TYPE,COLUMN_DEFAULT,exec) if isNull(COLUMN_DEFAULT) then defaultStr="" exit function end if dim splitchar if exec=1 then splitchar="""""" else splitchar="""" end if select case DATA_TYPE case 130 if left(COLUMN_DEFAULT,1)="""" and right(COLUMN_DEFAULT,1)="""" then COLUMN_DEFAULT=mid(COLUMN_DEFAULT,2,len(COLUMN_DEFAULT)-2) end if COLUMN_DEFAULT=replace(COLUMN_DEFAULT,"""",splitchar) defaultStr=" Default "&splitchar & COLUMN_DEFAULT & splitchar case 128 defaultStr=" Default 0x"&COLUMN_DEFAULT&"" 'or /同意詞 DEC case else defaultStr=" Default "&COLUMN_DEFAULT&"" end select end function function nullStr(IS_NULLABLE) if IS_NULLABLE then nullStr="" else nullStr=" not null " end if end function '斷點(diǎn)調(diào)試 num=0 中斷 Sub rw(str,num) dim istr:istr=str dim inum:inum=num response.write str&"<br>" if inum=0 then response.end end sub SUB CreateMDB() '改配置表名和列名 dim cat,NewDB_Name NewDB_Name=request("DB_Name") if NewDB_Name<>"" then if instr(NewDB_Name,":\")=0 and instr(NewDB_Name,":/")=0 then NewDB_Name=Server.MapPath(NewDB_Name) end if set cat=Server.CreateObject("ADOX.Catalog") cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&NewDB_Name set cat=nothing CreateDB(NewDB_Name) response.write vbcrlf&"OK" else set cat=nothing call main() end if End SUB '=============================編寫access sql 腳本============// Function questStr(Str) Str=request(Str) Str=replace(Str,"'","") Str=Replace(Str,Chr(0),"") Str=Replace(Str," ","") questStr=Str End Function Function Ados_Read(FileName,CharsetType) dim adosText Ados_Read="" if instr(FileName,":\")=0 and instr(FileName,":/")=0 then FileName=Server.mappath(FileName) end if set adosText=Server.CreateObject("ADODB.Stream") adosText.mode=3 adosText.type=2 'textStream adosText.charset=""&CharsetType&"" adosText.open adosText.loadFromFile FileName Ados_Read=adosText.ReadText() adosText.close set adosText=nothing End Function SUB Ados_Write(TextString,FileName,CharsetType) dim adosText if instr(FileName,":\")=0 and instr(FileName,":/")=0 then FileName=Server.mappath(FileName) end if set adosText=Server.CreateObject("ADODB.Stream") adosText.mode=3 adosText.type=2 'textStream adosText.charset=""&CharsetType&"" adosText.open adosText.setEos adosText.WriteText(TextString) adosText.SaveToFile FileName,2 adosText.close set adosText=nothing End SUB %> <hr size=1> <center>Create by <a >V37 PaintBlue.Net 極點(diǎn)視覺</a> 2004-11-12</center> <hr size=1> <br> <br> </BODY> </HTML>
[Ctrl+A 全部選擇然后拷貝]

(版權(quán): PaintBlue.Net | blueidea.com)
2004-11-12 V37
Ps:轉(zhuǎn)載請(qǐng)注明出處!

出處：藍(lán)色理想
責(zé)任編輯：藍(lán)色

作者文章

Access to Sql 腳本編寫器

CooSel V1.5b2 Web站點(diǎn)管理系統(tǒng)

用ASP實(shí)現(xiàn)ASP文件的運(yùn)行

象 DEV-Club 那樣的彩色校驗(yàn)碼

保存WEB圖像或頁面到本地的類


關(guān)鍵字搜索	常規(guī)搜索	推薦文檔
熱門搜索：CSS Fireworks 設(shè)計(jì)比賽網(wǎng)頁制作 web標(biāo)準(zhǔn) 用戶體驗(yàn) UE photoshop Dreamweaver Studio8 Flash 手繪 CG

站點(diǎn)最新

站點(diǎn)最新列表

周大�！熬�•自然”設(shè)計(jì)大賽開啟

國際體驗(yàn)設(shè)計(jì)大會(huì)7月將在京舉行

中國國防科技信息中心標(biāo)志征集

云計(jì)算如何讓安全問題可控

云計(jì)算是多數(shù)企業(yè)唯一擁抱互聯(lián)網(wǎng)的機(jī)會(huì)

阿里行云

云手機(jī)年終巨獻(xiàn)，送禮標(biāo)配299起

阿里巴巴CTO王堅(jiān)的"云和互聯(lián)網(wǎng)觀"

1499元買真八核云OS雙蛋大促

首屆COCO桌面手機(jī)主題設(shè)計(jì)大賽

欄目最新

欄目最新列表

扣代碼工具——捕獲者2.0

扣代碼工具——捕獲者

CSS 3.0 參考手冊(cè)(中文版)

WebRebuild第三屆年會(huì)資料

復(fù)雜背景摳毛羽三則(電子書)

第三屆D2資料分享

搜索引擎優(yōu)化基礎(chǔ)知識(shí)PPT

WAP2.0知識(shí)分享PPT

文字點(diǎn)陣化的應(yīng)用

開源ASP博客程序Cmder V2.0

中文字幕二区_国产精品免费在线观看_黄色网站观看_人人草人人澡_日本真实娇小xxxx