ASP.NET ใช้เพื่อรักษาและจัดการข้อมูลในโหมดเว็บตระหนักถึงการสร้างฐานข้อมูลการทำงานของไวยากรณ์ SQL และการนำเข้าและส่งออกข้อมูล ให้บรรณาธิการของ Foxin Technology Channel นำคุณไปยังบทความต่อไปนี้เพื่อเรียนรู้เกี่ยวกับขั้นตอนการจัดการฐานข้อมูลออนไลน์!
คลาส rlmandbcls
Private Sdbpath, Rlconn, SdbType, Sservername, Susername, Spassword
การนับสาธารณะ
คลาสย่อย class_initialize ()
sdbType = ""
สิ้นสุดย่อย
คลาสย่อย class_terminate ()
ถ้า isObject (rlconn) แล้ว
rlconn.close
ตั้งค่า rlconn = ไม่มีอะไร
สิ้นสุดถ้า
สิ้นสุดย่อย
ทรัพย์สินสาธารณะให้ dbtype (byval strvar)
sdbType = strvar
จุดสิ้นสุดของทรัพย์สิน
ทรัพย์สินสาธารณะให้ Servername (Byval Strvar)
sservername = strvar
จุดสิ้นสุดของทรัพย์สิน
ทรัพย์สินสาธารณะให้ชื่อผู้ใช้ (Byval Strvar)
susername = strvar
จุดสิ้นสุดของทรัพย์สิน
ทรัพย์สินสาธารณะปล่อยรหัสผ่าน (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 = "ผู้ให้บริการ = microsoft.jet.oledb.4.0; แหล่งข้อมูล =" & server.mappath (sdbpath)
สิ้นสุดเลือก
CheckData RLCONN, SDBPATH
จุดสิ้นสุดของทรัพย์สิน
'ตรวจสอบลิงก์ฐานข้อมูล (ชื่อตัวแปร, สตริงการเชื่อมต่อ)
Private Sub CheckData (Dataconn, Connstr)
เมื่อเกิดข้อผิดพลาดต่อไป
ตั้งค่า dataconn = server.createObject ("adodb.connection"))
dataconn.open connstr
ถ้าเอ่อแล้ว
err.lear
ตั้งค่า dataconn = ไม่มีอะไร
errmsg ("ข้อผิดพลาดการเชื่อมต่อฐานข้อมูล:" & แทนที่ (connstr, "/", "//") & ",/nplease ตรวจสอบสตริงการเชื่อมต่อเพื่อยืนยันว่าข้อมูลฐานข้อมูลที่คุณป้อนนั้นถูกต้องหรือไม่")
Response.end
สิ้นสุดถ้า
สิ้นสุดย่อย
'ตรวจสอบว่าตารางมีอยู่หรือไม่
ฟังก์ชั่น chectable (tablename)
เมื่อเกิดข้อผิดพลาดต่อไป
rlconn.execute ("เลือก * จาก" & tablename)
ถ้า err.number <> 0 แล้ว
err.clear ()
เรียก errmsg ("ข้อผิดพลาดพรอมต์:" & err.description)
chectable = false
อื่น
chectable = true
สิ้นสุดถ้า
ฟังก์ชันสิ้นสุด
'ข้อความแสดงข้อผิดพลาด (ข้อความ)
Private Sub Errmsg (MSG)
Response.write MSG
Response.flush
สิ้นสุดย่อย
-
'ปรับเปลี่ยนค่าของฟิลด์
Public Sub Upcolumn (Byval Tablename, Byval ColumnName, Byval ValueText, byval wherestr)
เมื่อเกิดข้อผิดพลาดต่อไป
ถ้า wherest <> "" แล้ว
ถ้า instr (wherest, "โดยที่") <= 0 แล้ว
wherestr = "ที่ไหน" & wherest
สิ้นสุดถ้า
อื่น
wherestr = ""
สิ้นสุดถ้า
rlconn.execute ("อัปเดต" & tablename & "set" & columnName & "=" & valuetext & "" & wherestr)
ถ้า err.number <> 0 แล้ว
เรียก errmsg ("ข้อผิดพลาดพรอมต์:" & err.description)
err.clear ()
สิ้นสุดถ้า
สิ้นสุดย่อย
'ดำเนินการคำสั่ง SQL
Public Sub Execute (STRSQL)
ตั้งค่า rscount = server.createObject ("adodb.recordset"))
เมื่อเกิดข้อผิดพลาดต่อไป
rscount = rlconn.execute (strsql)
ถ้าซ้าย (strsql, 12) = "เลือกนับ" แล้วนับ = rscount (0)
ถ้า err.number <> 0 แล้ว
เรียก errmsg ("ข้อผิดพลาดพรอมต์:" & err.description)
err.clear ()
สิ้นสุดถ้า
rscount.close
ตั้งค่า rscount = ไม่มีอะไร
สิ้นสุดย่อย
-
'เพิ่มดัชนีฟิลด์
ฟังก์ชั่นสาธารณะ AddIndex (byval tablename, byval indexname, Byval ValueText)
เมื่อเกิดข้อผิดพลาดต่อไป
rlconn.execute ("สร้างดัชนี" & indexname & "บน [" & tablename & "] ([" & valueText & "])")
ถ้า err.number <> 0 แล้ว
โทรหา errmsg ("สร้างใน" & tablename & "tablename &" tablename & "indexname &" indexname & "cause" & err.description & "โปรดแก้ไขดัชนีด้วยตนเอง")
err.clear ()
addIndex = false
อื่น
addIndex = true
สิ้นสุดถ้า
ฟังก์ชันสิ้นสุด
'ลบดัชนีตาราง
ฟังก์ชั่นสาธารณะ DelIndex (Byval Tablename, Byval IndexName)
เมื่อเกิดข้อผิดพลาดต่อไป
rlconn.execute ("Drop Space Index [" & Tablename & "]." & indexname)
ถ้า err.number <> 0 แล้ว
โทรหา errmsg ("in" & tablename & "tableDelete" & indexname & "ข้อผิดพลาดดัชนีสาเหตุ" & err.description & "โปรดลบดัชนีด้วยตนเอง")
err.clear ()
delIndex = false
อื่น
delIndex = true
สิ้นสุดถ้า
ฟังก์ชันสิ้นสุด
'เปลี่ยนคำจำกัดความของชื่อตารางตารางเพื่อตั้งค่าคอลัมน์ฟิลด์เป็นคีย์หลัก
ฟังก์ชั่นสาธารณะ addPrimaryKey (byval tablename, byval columnName)
เมื่อเกิดข้อผิดพลาดต่อไป
tablename = แทนที่ (แทนที่ (tablename, "[", ""), "]", "")
rlconn.execute ("Alter Table" & Tablename & "เพิ่มข้อ จำกัด pk _" & tablename & "คีย์หลัก (" & columnName & ")"))
ถ้า err.number <> 0 แล้ว
เรียก errmsg ("ข้อผิดพลาดเมื่อเพิ่ม" & tablename & "ฟิลด์" & columnName & "เป็นคีย์หลักเหตุผล" & err.description & "โปรดแก้ไขคุณสมบัติของฟิลด์ด้วยตนเอง")
err.clear ()
addPrimaryKey = false
อื่น
addPrimaryKey = true
สิ้นสุดถ้า
ฟังก์ชันสิ้นสุด
'เปลี่ยนคำจำกัดความของชื่อตารางตารางเพื่อลบคำจำกัดความของคีย์คอลัมน์คอลัมน์ฟิลด์ชื่อ
ฟังก์ชั่นสาธารณะ DelPrimaryKey (Byval Tablename, Byval ColumnName)
เมื่อเกิดข้อผิดพลาดต่อไป
rlconn.execute ("Alter Table" & Tablename & "Drop Space Primary Key (" & columnName & ")")
ถ้า err.number <> 0 แล้ว
เรียก errmsg ("เกิดข้อผิดพลาดในขณะที่ลบคำจำกัดความของคีย์หลัก" & tablename & "" ตาม "การถามฟิลด์" & คอลัมน์ & ", เหตุผล" & err.description & "โปรดแก้ไขคุณสมบัติของฟิลด์ด้วยตนเอง")
err.clear ()
delPrimaryKey = FALSE
อื่น
delPrimaryKey = true
สิ้นสุดถ้า
ฟังก์ชันสิ้นสุด
'ตรวจสอบว่าคีย์หลักมีอยู่หรือไม่และส่งคืนชื่อคีย์หลักของตาราง
ฟังก์ชั่น getPrimaryKey (Tablename)
เมื่อเกิดข้อผิดพลาดต่อไป
สลัว rsprimary
getPrimaryKey = ""
ตั้งค่า rsprimary = rlconn.openschema (28, อาร์เรย์ (ว่างเปล่า, ว่าง, tablename))
ถ้าไม่ใช่ rsprimary.eof แล้ว getPrimaryKey = rsprimary ("column_name")
ตั้งค่า rsprimary = ไม่มีอะไร
ถ้า err.number <> 0 แล้ว
เรียก errmsg ("ฐานข้อมูลไม่รองรับคีย์หลักสำหรับการตรวจจับตารางข้อมูล" & tablename & "เหตุผล:" & err.description)
err.clear ()
สิ้นสุดถ้า
ฟังก์ชันสิ้นสุด
-
'เพิ่มฟิลด์ใหม่
ฟังก์ชั่นสาธารณะ AddColumn (Tablename, ColumnName, ColumnType)
เมื่อเกิดข้อผิดพลาดต่อไป
rlconn.execute ("Alter Table [" & Tablename & "] เพิ่ม [" & columnName & "]" & columnType & "")
ถ้าเอ่อแล้ว
ERRMSG ("ใหม่" & tablename & "ข้อผิดพลาดในตารางโปรดสร้างฟิลด์ " & columnName & " ในฐานข้อมูลด้วยตนเองคุณลักษณะคือ " & columnType & " , เหตุผล" & err.description)
err.lear
addColumn = FALSE
อื่น
addColumn = true
สิ้นสุดถ้า
ฟังก์ชันสิ้นสุด
'เปลี่ยนฟังก์ชั่นทั่วไปของฟิลด์
ฟังก์ชั่นสาธารณะ modcolumn (tablename, columnname, columnType)
เมื่อเกิดข้อผิดพลาดต่อไป
rlconn.execute ("Alter Table [" & Tablename & "] Alter Column [" & columnName & "]" & columnType & "")
ถ้าเอ่อแล้ว
Call Errmsg ("เปลี่ยน" & tablename & "แอตทริบิวต์ฟิลด์ในตารางไม่ถูกต้องโปรดเปลี่ยนฐานข้อมูลด้วยตนเอง " & คอลัมน์ & " ฟิลด์เป็น " & คอลัมน์และ " คุณสมบัติสาเหตุ" & err.description)
err.lear
modColumn = false
อื่น
modcolumn = true
สิ้นสุดถ้า
ฟังก์ชันสิ้นสุด
'ลบฟังก์ชั่นทั่วไปของฟิลด์
ฟังก์ชั่นสาธารณะ Delcolumn (Tablename, ColumnName)
เมื่อเกิดข้อผิดพลาดต่อไป
ถ้า sdbType = "SQL" แล้ว
rlconn.execute ("Alter Table [" & Tablename & "] Drop Space คอลัมน์ [" & columnName & "]")
อื่น
rlconn.execute ("Alter Table [" & Tablename & "] Drop Space [" & columnName & "]")
สิ้นสุดถ้า
ถ้าเอ่อแล้ว
โทรหา ERRMSG ("DELETE" & TABLENAME & "ข้อผิดพลาดในตารางโปรดลบด้วยตนเอง " & คอลัมน์ & " ฟิลด์ลบสาเหตุ" & err.description)
err.lear
delcolumn = false
อื่น
delcolumn = true
สิ้นสุดถ้า
ฟังก์ชันสิ้นสุด
-
'เปิดวัตถุชื่อตาราง
RenametableConn ย่อยส่วนตัว ()
เมื่อเกิดข้อผิดพลาดต่อไป
ตั้งค่า objadoxdatabase = server.createObject ("adox.catalog")
objadoxdatabase.activeConnection = Connstr
ถ้าเอ่อแล้ว
ERRMSG ("เกิดข้อผิดพลาดเมื่อสร้างวัตถุเปลี่ยนชื่อตารางชื่อพื้นที่ที่คุณกำลังอัพเกรดไม่รองรับวัตถุนี้คุณมักจะต้องเปลี่ยนชื่อตารางด้วยตนเองเหตุผล" & err.description)
Response.end
err.lear
สิ้นสุดถ้า
สิ้นสุดย่อย
'ปิดวัตถุชื่อตาราง
Sub Private CloserenametableConn ()
ตั้งค่า objadoxdatabase = ไม่มีอะไร
conn.close
ตั้งค่า conn = ไม่มีอะไร
สิ้นสุดย่อย
'เปลี่ยนชื่อตารางฐานข้อมูลพารามิเตอร์รายการ: ชื่อตารางเก่าชื่อตารางใหม่
ฟังก์ชั่นสาธารณะ Renametable (OldName, NewName)
เมื่อเกิดข้อผิดพลาดต่อไป
โทรหา renametableConn
objadoxDatabase.Tables (OldName) .name = newName
ถ้าเอ่อแล้ว
โทรหา errmsg ("เปลี่ยนข้อผิดพลาดชื่อตารางโปรดเปลี่ยนชื่อตารางด้วยตนเองในฐานข้อมูล " & OldName & " ชื่อตารางเป็น <b>" & newname & ", เหตุผล" & err.description)
err.lear
renametable = false
อื่น
renametable = true
สิ้นสุดถ้า
โทรไปที่ CloserEnametableConn
ฟังก์ชันสิ้นสุด
'ลบฟังก์ชันทั่วไปของตาราง
ฟังก์ชั่นสาธารณะ Deltable (Tablename)
เมื่อเกิดข้อผิดพลาดต่อไป
rlconn.execute ("Drop Space Table [" & Tablename & "]")
ถ้าเอ่อแล้ว
errmsg ("ลบ" & tablename & "ข้อผิดพลาดของตารางโปรดลบตาราง " & tablename & " ด้วยตนเองในฐานข้อมูลเหตุผล" & err.description) ด้วยตนเอง
err.lear
deltable = false
อื่น
deltable = true
สิ้นสุดถ้า
ฟังก์ชันสิ้นสุด
'สร้างตารางใหม่
ฟังก์ชั่นสาธารณะ createTable (byval tablename, byval fieldlist)
สลัว strsql
ถ้า sdbType = "SQL" แล้ว
strsql = "สร้างตาราง [" & tablename & "] (" & fieldlist & ")"
อื่น
strsql = "สร้างตาราง [" & tablename & "]"
สิ้นสุดถ้า
rlconn.execute (strsql)
ถ้า err.number <> 0 แล้ว
เรียก errmsg ("ใหม่" & tablename & "ข้อผิดพลาดของตารางสาเหตุ" & err.description & "")
err.clear ()
createTetable = false
อื่น
createTable = true
สิ้นสุดถ้า
ฟังก์ชันสิ้นสุด
-
'สร้างไฟล์ฐานข้อมูล
ฟังก์ชั่นสาธารณะที่สร้างขึ้น bfile (byval dbfilename, byval savepath)
เมื่อเกิดข้อผิดพลาดต่อไป
savepath = แทนที่ (savepath, "/", "/")
ถ้าถูกต้อง (savepath, 1) <> "/" หรือขวา (savepath, 1) <> "/" จากนั้น savepath = trim (savepath) & "/"
ถ้าซ้าย (dbfilename, 1) = "/" หรือซ้าย (dbfilename, 1) = "/" จากนั้น dbfilename = trim (mid (dbfilename, 2, len (dbfilename))))))))))))))))
ถ้า dbexists (apppath () & savepath & dbfilename) แล้ว
errmsg ("ขออภัยฐานข้อมูลนี้มีอยู่แล้ว!" & apppath () & savepath & dbfilename)
createBfile = false
อื่น
Response.write apppath () & savepath & dbfilename
Dim CA
ตั้งค่า ca = server.createObject ("adox.catalog")
ถ้า err.number <> 0 แล้ว
errmsg ("ไม่สามารถสร้างได้โปรดตรวจสอบข้อความแสดงข้อผิดพลาด
"& err.number &"
"& err.description)
err.lear
createBfile = false
ฟังก์ชั่นออก
สิ้นสุดถ้า
โทร ca.create ("ผู้ให้บริการ = microsoft.jet.oledb.4.0; แหล่งข้อมูล =" & apppath () & savepath & dbfilename)
ตั้งค่า ca = ไม่มีอะไร
createBfile = true
สิ้นสุดถ้า
ฟังก์ชันสิ้นสุด
'ค้นหาว่าไฟล์ฐานข้อมูลมีอยู่จริงหรือไม่
ฟังก์ชั่นส่วนตัว dbexists (byval dbpath)
เมื่อเกิดข้อผิดพลาดต่อไป
สลัว
ตั้งค่า c = server.createObject ("adodb.connection"))
c.open "ผู้ให้บริการ = microsoft.jet.oledb.4.0; แหล่งข้อมูล =" & dbpath
ถ้า err.number <> 0 แล้ว
err.lear
dbexists = false
อื่น
dbexists = true
สิ้นสุดถ้า
ตั้งค่า c = ไม่มีอะไร
ฟังก์ชันสิ้นสุด
'ใช้เส้นทางจริงปัจจุบัน
ฟังก์ชั่นส่วนตัว apppath ()
AppPath = Server.mappath ("./")
ถ้าถูกต้อง (AppPath, 1) = "/" แล้ว
AppPath = AppPath
อื่น
AppPath = AppPath & "/"
สิ้นสุดถ้า
ฟังก์ชันสิ้นสุด
'ลบไฟล์ฐานข้อมูล
ฟังก์ชั่นสาธารณะ DELETEDBFILE (FILESPEC)
filespec = apppath () & filespec
สลัว fso
ตั้งค่า fso = createObject ("Scripting.filesystemObject")
ถ้า err.number <> 0 แล้ว
errmsg ("เกิดข้อผิดพลาดเมื่อลบไฟล์! โปรดตรวจสอบข้อความแสดงข้อผิดพลาด:" & err.number & "" & err.description & "
-
err.lear
deletedBfile = false
สิ้นสุดถ้า
ถ้า dbexists (filespec) แล้ว
โทรหา fso.deletefile (FileSpec)
deletedBfile = true
อื่น
errmsg ("เกิดข้อผิดพลาดเมื่อลบไฟล์! โปรดดูข้อความแสดงข้อผิดพลาด:" & err.number & "" & err.description & "
-
deletedBfile = false
ฟังก์ชั่นออก
สิ้นสุดถ้า
ตั้งค่า fso = ไม่มีอะไร
ฟังก์ชันสิ้นสุด
'แก้ไขชื่อฐานข้อมูล
ฟังก์ชั่นสาธารณะเปลี่ยนชื่อ BFILE (FileSpec1, FileSpec2)
FileSpec1 = AppPath () & FileSpec1: FileSpec2 = AppPath () & FileSpec2
สลัว fso
ตั้งค่า fso = createObject ("Scripting.filesystemObject")
ถ้า err.number <> 0 แล้ว
errmsg ("เกิดข้อผิดพลาดในขณะที่แก้ไขชื่อไฟล์! โปรดตรวจสอบข้อความแสดงข้อผิดพลาด:" & err.number & "" & err.description)
err.lear
RenamedBFile = FALSE
สิ้นสุดถ้า
ถ้า dbexists (filespec1) แล้ว
โทรหา fso.copyfile (filespec1, filespec2, true)
โทรหา fso.deletefile (FileSpec1)
TRANDAMEDBFILE = TRUE
อื่น
errmsg ("ไฟล์ต้นฉบับไม่มีอยู่ !!!")
RenamedBFile = FALSE
ฟังก์ชั่นออก
สิ้นสุดถ้า
ตั้งค่า fso = ไม่มีอะไร
ฟังก์ชันสิ้นสุด
'ฐานข้อมูลบีบอัด
ฟังก์ชั่นสาธารณะ compactdbfile (strdbfilename)
dim jet_conn_partial
สลัว sourceconn
DISTCONN DIM
Dim Ojetengine
หรี่
jet_conn_partial = "ผู้ให้บริการ = microsoft.jet.oledb.4.0; แหล่งข้อมูล ="
sourceconn = jet_conn_partial & apppath () & strdbfilename
destconn = jet_conn_partial & apppath () & "temp" & strdbfilename
Set OFSO = Server.CreateObject ("Scripting.FilesYstemObject")
ตั้งค่า ojetEngine = server.createObject ("Jro.jetEngine"))
กับ OFSO
ถ้าไม่ใช่.
errmsg ("ไม่พบไฟล์ฐานข้อมูล !!!")
หยุด
compactDbfile = false
ฟังก์ชั่นออก
อื่น
ถ้า. fileexists (apppath () & "temp" & strdbfilename) จากนั้น
errmsg ("ข้อผิดพลาดที่ไม่รู้จัก !!!")
.DeleteFile (AppPath () & "Temp" & strdbfilename)
compactDbfile = false
ฟังก์ชั่นออก
สิ้นสุดถ้า
สิ้นสุดถ้า
จบลงด้วย
กับ ojetengine
.CompactDatabase Sourceconn, Destconn
จบลงด้วย
OFSO.DeleteFile AppPath () & strdbfilename
OFSO.MoveFile AppPath () & "Temp" & strdbfilename, apppath () & strdbfilename
set of so = ไม่มีอะไร
ตั้งค่า ojetEngine = ไม่มีอะไร
compactDbFile = true
ฟังก์ชันสิ้นสุด
ชั้นเรียนจบ
Dim Mandb
ตั้งค่า mandb = ใหม่ rlmandbcls
-
'mandb.dbtype = "sql"
'mandb.servername = "tao-kuizu"
'mandb.username = "sa"
'mandb.password = "123456"
'mandb.dbpath = "hhstuss"
'mandb.createtable "cexo255", "ID int ไม่ใช่คีย์หลัก null ชื่อ varchar (20) ไม่ใช่ null"' สร้างตาราง (ชื่อตาราง)
'mandb.renametable "cexo255", "cexo2552"' ชื่อตาราง (ชื่อตารางเก่า, ชื่อตารางใหม่) (ใช้ส่วนประกอบ)
'mandb.deltable "cexo255"' ตารางลบ (ชื่อตาราง)
'mandb.addcolumn "cexo255", "เพศ", "varchar (2) null"' สร้างโครงสร้างตาราง (ชื่อตารางชื่อฟิลด์ประเภทข้อมูล)
'mandb.modcolumn "cexo255", "ชื่อ", "int not null"' แก้ไขโครงสร้างตาราง (ชื่อตารางชื่อฟิลด์ประเภทข้อมูลใหม่) _
'mandb.delcolumn "cexo255", "เพศ"' ลบโครงสร้างตาราง (ชื่อตารางชื่อฟิลด์)
'mandb.addindex "cexo255", "i_id", "id"' สร้างดัชนีตาราง (ชื่อตาราง, ชื่อดัชนี, ชื่อฟิลด์ดัชนี)
'mandb.delIndex "cexo255", "i_id"' ลบดัชนีตาราง (ชื่อตาราง, ชื่อดัชนี)
'mandb.addprimarykey "cexo255", "ชื่อ"' สร้างคีย์หลักของตาราง (ชื่อตารางชื่อฟิลด์คีย์หลัก)
'mandb.delprimarykey "cexo255", "name"' ลบคีย์หลักของตาราง (ชื่อตารางชื่อฟิลด์คีย์หลัก) _
'response.write mandb.getprimarykey ("cexo255")' รับคีย์หลักของตาราง (ชื่อตาราง)
'mandb.upcolumn "cexo255", "id", 12345, "name = 1"' แก้ไขค่าของฟิลด์
'mandb.execute "แทรกพื้นที่ลงใน cexo255 (id, ชื่อ) ค่า (2,2)"' เพิ่มระเบียน
'mandb.execute "อัปเดต cexo255 set id = 3 โดยที่ชื่อ = 2"' แก้ไขระเบียน
'mandb.execute "ลบพื้นที่จาก cexo255 โดยที่ชื่อ = 2"' ลบบันทึก
'mandb.execute ("เลือกนับ (*) จาก cexo255"): response.write mandb.count' จำนวนสถิติของบันทึก
'ถ้า mandb.checktable ("studinfo") จากนั้น response.write "ตาราง studinfo มีอยู่ !!!" 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", "ชื่อ", "varchar (255) ไม่ใช่ null"' สร้างโครงสร้างตาราง (ชื่อตารางชื่อฟิลด์ประเภทข้อมูล)
'mandb.modcolumn "cexo255", "ชื่อ", "int not null"' แก้ไขโครงสร้างตาราง (ชื่อตารางชื่อฟิลด์ประเภทข้อมูลใหม่)
'mandb.delcolumn "cexo255", "ชื่อ"' ลบโครงสร้างตาราง (ชื่อตารางชื่อฟิลด์)
'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 "อัปเดต cexo255 set id =' wxf 'โดยที่ id =' 789 '' 'แก้ไขระเบียน
'mandb.execute "ลบพื้นที่ออกจาก cexo255 โดยที่ id =' wxf '' 'ลบบันทึก
mandb.execute ("เลือกนับ (*) จาก cexo255"): response.write mandb.count 'จำนวนสถิติของบันทึก
'ถ้า mandb.checktable ("studinfo") จากนั้น response.write "ตาราง studinfo มีอยู่ !!!" Response.write "ตาราง studinfo ไม่มีอยู่ !!!"
-
ตั้งค่า mandb = ไม่มีอะไร
-
ข้างต้นเป็นการแนะนำขั้นตอนสำหรับการจัดการฐานข้อมูลออนไลน์ ฉันเชื่อว่าทุกคนมีความเข้าใจที่แน่นอน หากคุณต้องการทราบข้อมูลทางเทคนิคเพิ่มเติมโปรดดำเนินการต่อเพื่อให้ความสนใจกับช่องทางเทคโนโลยีใหม่ที่ไม่ถูกต้อง!