La copie de code est la suivante:
<% @ Lingots = "vbscript" codepage = "936"%>
<%
iftrim (request.form ("tablename"))
'---- Paramètres pour ouvrir la connexion de la base de données
dbs = "dataSource =" + server.mappath ("database.mdb") + "; provider = microsoft.jet.oledb.4.0;"
setConn = server.createObject ("adodb.connection")
Conn.opendbs
«Définissez Adox, spécifiez la connexion
setadox = server.createObject ("adox.catalog")
Setadox.activeConnection = Conn
'Créer des attributs de table, écrivez
SetObjTable = server.createObject ("Adox.Table")
'objTable.name = "Table3"
objTable.Name = Trim (request.form ("TableName")) 'Form Get
'objTable.parentCatalog = Adox
'Définir le premier champ
setObjColumn = Server.CreateObject ("Adox.Column")
'SetObjColumn.parentCatalog = Adox
objcolumn.name = "Column1"
objcolumn.type = 202'data Type 202 représente le texte,
objcolumn.attributes = 2'1 - champs requis, 2 - non requis
objTable.columns.APPENDOBJColumn
setObjColumn = Rien'Clear les premières informations sur le terrain
'Définir le deuxième champ
setObjColumn = Server.CreateObject ("Adox.Column")
'SetObjColumn.parentCatalog = Adox
objcolumn.name = "Column2"
objcolumn.type = 3
objcolumn.attributes = 2
objTable.columns.APPENDOBJColumn
setObjColumn = rien
Adox.Tables.ApendObjTable
Setadox = rien
%>
<! Doctypehtmlpublic "- // w3c // dtdxhtml1.0transitional // en" "http://www.w3.org/tr/xhtml1/dtd/xhtml1-transitional.dtd">
<htmlxmlns = "http://www.w3.org/1999/xhtml">
<adal>
<Metahttp-Equiv = "Content-Type" Content = "Text / Html; charSet = GB2312" />
<Title> Créer des tables et des champs </TITAL>
<Styletype = "Text / CSS">
<! -
corps, td, th {
taille de police: 12px;
}
->
</ style> </-head>
<body>
<p> 'En utilisant les propriétés et les collections de l'objet <strong> colonne </strong>, vous pouvez: <br/>
«Identifiez la colonne à l'aide de la propriété Nom. <br/>
«Utilisez la propriété Type pour spécifier le type de données de la colonne. <br/>
«Utilisez l'attribut Attributs pour déterminer si la colonne est une longueur fixe ou s'il peut contenir une valeur nul. <br/>
«Utilisez la propriété définie pour spécifier la taille maximale de la colonne. <br/>
«Pour les valeurs de données numériques, utilisez la propriété NumericsCale pour spécifier la plage. <br/>
«Pour les valeurs de données numériques, utilisez la propriété de précision pour spécifier la précision maximale. <br/>
'Utilisez l'attribut parentCatalog pour spécifier le catalogue parent de la colonne. <br/>