ASP.NETは、データベースの作成、SQL構文の操作、およびデータのインポートとエクスポートの作成を実現するために、Webモードでデータを維持および管理するために使用されます。 Foxin Technology Channelの編集者が次の記事にアクセスして、オンラインデータベース管理の手順について学びましょう！
クラスrlmandbcls
プライベートSDBPATH、RLCONN、SDBTYPE、SSERVERNAME、SUSERNAME、SPASSWORD
パブリックカウント
private sub class_initialize（）
sdbtype = ""
End Sub
private sub class_terminate（）
isobject（rlconn）の場合
rlconn.close
rlconn =何も設定しません
ifを終了します
End Sub
公共財産dbtype（byval strvar）
sdbtype = strvar
プロパティを終了します
公共財産let servername（byval strvar）
sservername = strvar
プロパティを終了します
公共財産let username（byval strvar）
susername = strvar
プロパティを終了します
公共財産LETパスワード（byval strvar）
Spassword = strvar
プロパティを終了します
'データベースパスを設定します
公共財産dbpath（byval strvar）
sdbpath = strvar
ケースSDBTYPEを選択します
ケース「SQL」
strserver = sservername 'データベースサーバー名
struid = susername 'ログインアカウント
strsapwd = spassword 'ログインパスワード
strdbname = sdbpath 'データベース名
sdbpath = "driver = {sql server}; server ="＆strserver＆ "; uid ="＆struid＆ "; pwd ="＆strsapwd＆ "; database ="＆strdbname
ケース「アクセス」、「」
sdbpath = "provider = microsoft.jet.oledb.4.0; data source ="＆server.mappath（sdbpath）
[選択]を終了します
CheckData rlconn、sdbpath
プロパティを終了します
'データベースリンクを確認します（変数名、接続文字列）
プライベートサブチェックダタ（データコン、コナストル）
エラーの再開時に次に再開します
set dataconn = server.createObject（ "adodb.Connection"）
dataconn.open connstr
エラーの場合
err.clear
DataConn = Nothingを設定します
errmsg（ "データベース接続エラー："＆leplage（connst、 "/"、 "//"）＆ "、/n接続文字列を確認して、入力したデータベース情報が正しいかどうかを確認します。
Response.End
ifを終了します
End Sub
'テーブルが存在するかどうかを確認してください
function checktable（tablename）
エラーの再開時に次に再開します
rlconn.execute（ "select * from"＆tableName）
err.number <> 0の場合
err.clear（）
errmsg（ "エラープロンプト："＆err.description）を呼び出す
CheckTable = false
それ以外
CheckTable = true
ifを終了します
エンド関数
'エラーメッセージ（メッセージ）
プライベートサブエルムスグ（MSG）
Response.write msg
Response.Flush
End Sub
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'フィールドの値を変更します
public sub upcolumn（byval tablename、byval columnname、byval valueText、byval wherestr）
エラーの再開時に次に再開します
wherestr <> "" then
If strust（wherestr、 "where"）<= 0 then
wherestr = "where"＆herestr
ifを終了します
それ以外
wherestr = ""
ifを終了します
rlconn.execute（ "update"＆tablename＆ "set"＆columnname＆ "＆"＆valuetext＆ "＆wherestr）
err.number <> 0の場合
errmsg（ "エラープロンプト："＆err.description）を呼び出す
err.clear（）
ifを終了します
End Sub
'SQLステートメントを実行します
public sub execute（strsql）
rscount = server.createObject（ "adodb.recordset"）を設定します
エラーの再開時に次に再開します
rscount = rlconn.execute（strsql）
左の場合（strsql、12）= "select count" tell count = rscount（0）
err.number <> 0の場合
errmsg（ "エラープロンプト："＆err.description）を呼び出す
err.clear（）
ifを終了します
rscount.close
rscount = Nothingを設定します
End Sub
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'フィールドインデックスを追加します
パブリック関数addindex（byval tablename、byval indexname、byval valueText）
エラーの再開時に次に再開します
rlconn.execute（ "index"＆indexName＆ "on ["＆tablename＆ "]（["＆valueText＆ "]）"）
err.number <> 0の場合
errmsg（ "create in"＆tablename＆ "tablename＆" tablename＆ "indexname＆" indexname＆ "cause"＆err.description＆ "indexを手動で変更してください"）
err.clear（）
addindex = false
それ以外
addindex = true
ifを終了します
エンド関数
'テーブルインデックスを削除します
パブリック関数delindex（byval tablename、byval indexname）
エラーの再開時に次に再開します
rlconn.execute（ "ドロップスペースインデックス["＆tableName＆ "]。"＆indexName）
err.number <> 0の場合
errmsg（ "in"＆tablename＆ "tabledelete"＆indexname＆ "index error、courd"＆err.description＆ "indexを手動で削除してください。"）を呼び出します。
err.clear（）
delindex = false
それ以外
delindex = true
ifを終了します
エンド関数
'テーブルタブネームの定義を変更して、フィールド列名を主キーとして設定する
パブリック関数addprimarykey（byval tablename、byval columnname）
エラーの再開時に次に再開します
tableName = cheplage（leplage（tablename、 "["、 ""）、 "]、" "）
rlconn.execute（ "alter table"＆tablename＆ "constraint pk _"＆tablename＆ "primary key（"＆columnname＆ "）"）
err.number <> 0の場合
errmsg（ ""＆tablename＆ "field"＆columnName＆ "をプライマリキー、理由"＆err.description＆ "＆"フィールドプロパティを手動で変更してください "を追加するときのエラー。
err.clear（）
AddPrimaryKey = false
それ以外
addprimarykey = true
ifを終了します
エンド関数
'テーブルタブネームの定義を変更して、フィールド列のプライマリキーの定義を削除する
パブリック関数delprimarykey（byval tablename、byval columnname）
エラーの再開時に次に再開します
rlconn.execute（ "alter table"＆tablename＆ "ドロップスペースプライマリキー（"＆columnName＆ "）"）
err.number <> 0の場合
call errmsg（ "プライマリキーの定義"＆tablename＆ ""の定義を削除しながらエラーが発生しました。
err.clear（）
delprimarykey = false
それ以外
delprimarykey = true
ifを終了します
エンド関数
「主キーが存在するかどうかを確認し、テーブルの主要な名前を返します
関数getPrimaryKey（TableName）
エラーの再開時に次に再開します
dim rsprimary
getPrimaryKey = ""
rsprimary = rlconn.openschema（28、array（empty、empty、tablename）を設定します）
rsprimary.eofではない場合、getPrimaryKey = rsprimary（ "column_name"）
rsprimary = Nothingを設定します
err.number <> 0の場合
call errmsg（ "データベースは、データテーブルを検出するための主要なキーをサポートしていません"＆tablename＆ "。理由："＆err.description）
err.clear（）
ifを終了します
エンド関数
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'新しいフィールドを追加します
パブリック関数addcolumn（tablename、columnname、columntype）
エラーの再開時に次に再開します
rlconn.execute（ "table ["＆tableName＆ "] add ["＆columnName＆ ""＆columnType＆ ""）
エラーの場合
errmsg（ "new"＆tableName＆ "フィールドエラーテーブルに、 "＆columnName＆ " field in the Database、属性は"＆columnType＆ " 、Reason"＆err.descriptionを手動で作成してください。
err.clear
addcolumn = false
それ以外
addcolumn = true
ifを終了します
エンド関数
'フィールドジェネリック関数を変更します
public function modcolumn（tablename、columnname、columntype）
エラーの再開時に次に再開します
rlconn.execute（ "table ["＆tablename＆ "] alter column ["＆columnname＆ ""＆columnType＆ ""）
エラーの場合
errmsg（ "change"＆tablename＆ "テーブル内のフィールド属性が正しくありません。データベース" ＆columnName＆ " fieldを手動で変更してください。
err.clear
modcolumn = false
それ以外
modcolumn = true
ifを終了します
エンド関数
'フィールドジェネリック関数を削除します
パブリック関数delcolumn（tablename、columnname）
エラーの再開時に次に再開します
sdbtype = "sql"の場合
rlconn.execute（ "table ["＆tablename＆ "]ドロップスペース列["＆columnName＆ "]"）
それ以外
rlconn.execute（ "table ["＆tablename＆ "]ドロップスペース["＆columnName＆ "]"）
ifを終了します
エラーの場合
errmsg（ "delete"＆ tablename ＆ "フィールドエラーをテーブル内の削除してください。
err.clear
delcolumn = false
それ以外
delcolumn = true
ifを終了します
エンド関数
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'テーブル名オブジェクトを開きます
プライベートサブルナメタブルコン（）
エラーの再開時に次に再開します
objadoxdatabase = server.createObject（ "adox.catalog"）を設定します
objadoxdatabase.activeconnection = connstr
エラーの場合
errmsg（ "変更テーブル名オブジェクトを作成するときにエラーが発生しました。アップグレードしているスペースはこのオブジェクトをサポートしません。テーブル名を手動で変更する必要がある可能性が最も高くなります。
Response.End
err.clear
ifを終了します
End Sub
'テーブル名オブジェクトを閉じます
プライベートサブcloserenametableconn（）
objadoxdatabaseを設定=何も設定しません
conn.close
conn =何も設定しません
End Sub
'データベーステーブル名、エントリパラメーターを変更：古いテーブル名、新しいテーブル名
Public FunctionNamatable（OldName、NewName）
エラーの再開時に次に再開します
Renametableconnに電話してください
objadoxdatabase.tables（oldname）.name = newname
エラーの場合
errmsgを呼び出す（「テーブル名のエラーを変更する」、データベースのテーブル名を手動で変更してください"＆oldname＆" table name to <b> "＆newname＆"、reason "＆err.description）
err.clear
変更可能= false
それ以外
変更可能= true
ifを終了します
CloserEnametableconnを呼び出します
エンド関数
'テーブルの一般的な関数を削除します
パブリック関数デルタブル（TableName）
エラーの再開時に次に再開します
rlconn.execute（ "ドロップスペーステーブル["＆tableName＆ "]"）
エラーの場合
errmsg（ "delete"＆tableName＆ "テーブルエラー、 「＆tablename＆" Table in the Database、Reason "＆err.descriptionを手動で削除してください）
err.clear
deltable = false
それ以外
deltable = true
ifを終了します
エンド関数
'新しいテーブルを作成します
パブリック関数createTable（byval tablename、byvalフィールドリスト）
dim strsql
sdbtype = "sql"の場合
strsql = "Create Table ["＆tableName＆ "]（"＆fieldlist＆ "）"
それ以外
strsql = "テーブルの作成["＆tablename＆ "]"
ifを終了します
rlconn.execute（strsql）
err.number <> 0の場合
call errmsg（ "new"＆tablename＆ "table error、cause"＆err.description＆ ""）
err.clear（）
createTable = false
それ以外
createTable = true
ifを終了します
エンド関数
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'データベースファイルを作成します
public function createdbfile（byval dbfilename、byval savepath）
エラーの再開時に次に再開します
savepath = cheplage（savepath、 "/"、 "/"）
正しい場合（SavePath、1）<> "/"またはright（SavePath、1）<> "/" then SavePath = trim（SavePath）＆ "/"
左の場合（dbfileName、1）= "/"または左（dbfileName、1）= "/" then dbfileName = trim（mid（dbfileName、2、len（dbfilename）））
dbexists（apppath（）＆savepath＆dbfilename）の場合
errmsg（「申し訳ありませんが、このデータベースはすでに存在しています！」＆apppath（）＆savepath＆dbfilename）
createdbfile = false
それ以外
respons.write apppath（）＆savepath＆dbfilename
薄暗いCA
ca = server.createObject（ "adox.catalog"）を設定します
err.number <> 0の場合
errmsg（ "確立できません。エラーメッセージを確認してください
「＆err.Number＆」
「＆err.description）
err.clear
createdbfile = false
出口機能
ifを終了します
ca.create（ "provider = microsoft.jet.oledb.4.0; data source ="＆apppath（）＆savepath＆dbfilename）に電話する
CA =何も設定しません
createdbfile = true
ifを終了します
エンド関数
'データベースファイルが存在するかどうかを見つけます
プライベート機能dbexists（byval dbpath）
エラーの再開時に次に再開します
薄暗い
c = server.createObject（ "adodb.connection"）を設定します
c.pen "provider = microsoft.jet.oledb.4.0; data source ="＆dbpath
err.number <> 0の場合
err.clear
dbexists = false
それ以外
dbexists = true
ifを終了します
C =何も設定しません
エンド関数
'現在の本当の道を進んでください
プライベート機能AppPath（）
apppath = server.mappath（ "./"）
正しい場合（apppath、1）= "/" then
apppath = apppath
それ以外
apppath = apppath＆ "/"
ifを終了します
エンド関数
'データベースファイルを削除します
パブリック関数deletedbfile（fileSpec）
fileSpec = apppath（）＆fileSpec
薄暗いfso
fso = createObject（ "Scripting.filesystemObject"）
err.number <> 0の場合
errmsg（ "ファイルを削除するときにエラーが発生しました！エラーメッセージを確認してください："＆err.number＆ ""＆err.description＆ "
「）
err.clear
deletedBfile = false
ifを終了します
dbexists（fileSpec）の場合
fso.deletefile（fileSpec）に電話してください
deletedbfile = true
それ以外
errmsg（ "ファイルを削除するときにエラーが発生しました！エラーメッセージを表示してください："＆err.number＆ ""＆err.description＆ "
「）
deletedBfile = false
出口機能
ifを終了します
FSO =何も設定しません
エンド関数
'データベース名を変更します
パブリック関数renamedbfile（fileSpec1、fileSpec2）
fileSpec1 = apppath（）＆fileSpec1：fileSpec2 = apppath（）＆fileSpec2
薄暗いfso
fso = createObject（ "Scripting.filesystemObject"）
err.number <> 0の場合
errmsg（ "ファイル名の変更中にエラーが発生しました！エラーメッセージを確認してください："＆err.number＆ "＆err.description）
err.clear
renamedbfile = false
ifを終了します
dbexists（fileSpec1）の場合
fso.copyfile（fileSpec1、fileSpec2、true）に電話する
fso.deletefile（filespec1）に電話してください
renamedbfile = true
それ以外
errmsg（ "ソースファイルは存在しません!!!"）
renamedbfile = false
出口機能
ifを終了します
FSO =何も設定しません
エンド関数
'圧縮データベース
パブリック関数compactdbfile（strdbfilename）
dim jet_conn_partial
Dim Sourceconn
DIM DESTCONN
薄暗いojetengine
dimso
jet_conn_partial = "provider = microsoft.jet.oledb.4.0; data source ="
sourceconn = jet_conn_partial＆apppath（）＆strdbfilename
destconn = jet_conn_partial＆apppath（）＆ "temp"＆strdbfilename
ofso = server.createObject（ "scripting.filesystemObject"）
ojetengine = server.createObject（ "jro.jetengine"）を設定します
ofsoと
そうでない場合は、fileexists（apppath（）＆strdbfilename）
errmsg（ "データベースファイルが見つかりません!!!"）
停止
compactdbfile = false
出口機能
それ以外
.fileexists（apppath（）＆ "temp"＆strdbfilename）の場合
errmsg（ "不明なエラー!!!"）
.deletefile（apppath（）＆ "temp"＆strdbfilename）
compactdbfile = false
出口機能
ifを終了します
ifを終了します
で終わります
ojetengineで
.compactdatabase sourceconn、destconn
で終わります
ofso.deletefile apppath（）＆strdbfilename
ofso.movefile apppath（）＆ "temp"＆strdbfilename、apppath（）＆strdbfilename
ofso =何もありません
ojetengine = Nothingを設定します
compactdbfile = true
エンド関数
エンドクラス
Dim Mandb
Mandb = new rlmandbclsを設定します
'// ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- -
'mandb.dbtype = "sql"
'mandb.servername = "tao-kuizu"
'mandb.username = "sa"
'mandb.password = "123456"
'mandb.dbpath = "hhstuss"
'mandb.createtable "cexo255"、 "id int not nullプライマリキー、名前varchar（20）not null"'作成テーブルの作成（テーブル名）
'mandb.renametable "cexo255"、 "cexo2552"'テーブル名（古いテーブル名、新しいテーブル名）（コンポーネントを使用）
'mandb.deltable "cexo255"'テーブルの削除（テーブル名）
'mandb.addcolumn "cexo255"、 "sex"、 "varchar（2）null"'テーブル構造の作成（テーブル名、フィールド名、データタイプ）
'mandb.modcolumn "cexo255"、 "name"、 "int not null"'テーブル構造（テーブル名、フィールド名、新しいデータ型）_の変更
'mandb.delcolumn "cexo255"、 "sex"'テーブル構造を削除する（テーブル名、フィールド名）
'mandb.addindex "cexo255"、 "i_id"、 "id"'テーブルインデックスの作成（テーブル名、インデックス名、インデックスフィールド名）
'mandb.delindex "cexo255"、 "i_id"'テーブルインデックスを削除する（テーブル名、インデックス名）
'mandb.addprimarykey "cexo255"、 "name"'テーブルを作成するプライマリキー（テーブル名、プライマリキーフィールド名）
'mandb.delprimarykey "cexo255"、 "name"'テーブルプライマリキー（テーブル名、プライマリキーフィールド名）_を削除する_
'Response.write mandb.getprimarykey（ "cexo255"）'テーブルの主キーを取得する（テーブル名）
'mandb.upcolumn "cexo255"、 "id"、12345、 "name = 1"'フィールドの値を変更する
'mandb.execute "cexo255（id、name）値（2,2）にスペースを挿入します"'レコードを追加します
'mandb.execute "update cexo255 set id = 3 where name = 2"'レコードを変更する
'mandb.execute "cexo255からスペースを削除するname = 2"'削除レコード
'mandb.execute（ "Cexo255"からcount（*）を選択）：response.write mandb.count'統計記録数
'Mandb.Checktable（ "Studinfo"）の場合、Response.Write "Studinfoテーブルが存在します!!!" else response.write "Studinfoテーブルは存在しません!!!」
'// ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- -
'// ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- -
mandb.dbtype = "アクセス"
mandb.dbpath = "test.mdb"
'mandb.createdbfile "test2.mdb"、 "' 'データベースの作成（データベース名、パスの保存）
'mandb.deletedbfile（ "test2.mdb"）'削除データベース（データベース名）
'mandb.renamedbfile "test2.mdb"、 "test3.mdb"'ドメイン名（古いデータベース名、新しいデータベース名）
'mandb.compactdbfile（ "test3.mdb"）'圧縮データベース（データベース名）
'mandb.createtable "dw"、 ""'テーブルの作成（テーブル名）
'mandb.renametable "dw"、 "dw2"'テーブル名（古いテーブル名、新しいテーブル名）（コンポーネントを使用）_
'mandb.deltable "dw"'削除テーブル（テーブル名）
'mandb.addcolumn "cexo255"、 "name"、 "varchar（255）not null"'テーブル構造を作成（テーブル名、フィールド名、データタイプ）
'mandb.modcolumn "cexo255"、 "name"、 "int not null"'テーブル構造の変更（テーブル名、フィールド名、新しいデータ型）
'mandb.delcolumn "cexo255"、 "name"'テーブル構造を削除する（テーブル名、フィールド名）
'mandb.addindex "cexo255"、 "userid"、 "id"'テーブルインデックスの作成（テーブル名、インデックス名、インデックスフィールド名）
'mandb.delindex "cexo255"、 "userid"'テーブルインデックスを削除（テーブル名、インデックス名）_
'mandb.addprimarykey "cexo255"、 "id"'テーブルプライマリキー（テーブル名、プライマリキーフィールド名）を作成する
'mandb.delprimarykey "cexo255"、 "id"'テーブルプライマリキー（テーブル名、プライマリキーフィールド名）_を削除する_
'Response.write mandb.getprimarykey（ "cexo255"）'テーブルの主キーを取得する（テーブル名）
'mandb.upcolumn "cexo255"、 "id"、 "12345"、 "id =' 12 '"'フィールドの値を変更する
'mandb.execute "cexo255（id）値（' 789 '）にスペースを挿入します"'レコードを追加します
'mandb.execute "update cexo255 set id =' wxf 'where id =' 789 '"'レコードを変更する
'mandb.execute "cexo255からスペースを削除するid =' wxf '"'削除レコード
mandb.execute（ "Cexo255"からcount（*）を選択）：response.write mandb.count '統計記録数
'Mandb.Checktable（ "Studinfo"）の場合、Response.Write "Studinfoテーブルが存在します!!!" else response.write "Studinfoテーブルは存在しません!!!」
'// ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- -
mandb = Nothingを設定します
％>
上記は、オンラインデータベース管理の手順の紹介です。誰もが特定の理解を持っていると思います。より多くの技術情報を知りたい場合は、間違った新しいテクノロジーチャネルに注意を払い続けてください！