ASP.NET wird verwendet, um Daten im Webmodus zu verwalten und zu verwalten, die Erstellung von Datenbanken, den Betrieb der SQL -Syntax sowie den Import und den Export von Daten zu verwalten. Lassen Sie sich vom Herausgeber des Foxin Technology Channel zum folgenden Artikel bringen, um die Schritte des Online -Datenbankmanagements zu erfahren!
Klasse Rlmandbcls
Private SDBPath, Rlconn, SDBTYPE, SSERVername, Susername, Spassword
Öffentliche Graf
Private sub class_initialize ()
sdbType = ""
Ende sub
Private sub class_terate ()
Wenn isObject (rlconn) dann
Rlconn.close
Rlconn = nichts setzen
Ende wenn
Ende sub
Öffentliches Eigentum let DBTYPE (Byval Strvar)
sdbType = strvar
Beenden Sie Eigentum
Öffentliches Eigentum let servername (Byval Strvar)
sServerName = strvar
Beenden Sie Eigentum
Öffentliches Eigentum lassen
Susername = strvar
Beenden Sie Eigentum
Öffentliches Eigentum Kennwort lassen (Byval Strvar)
spassword = strvar
Beenden Sie Eigentum
'Setzen Sie den Datenbankpfad
Öffentliches Eigentum DBPath (Byval Strvar)
sdbPath = strvar
Wählen Sie Fall sdbType
Fall "SQL"
StrServer = Sserververname 'Datenbank -Servername
Struid = Susername 'Ihr Anmeldeskonto
STRSAPWD = SPASSWORD 'Ihr Login -Passwort
Strdbname = sdbPath 'Ihr Datenbankname
sdbpath = "treiber = {sql server}; server =" & strServer & "; uid =" & struid & ";
Fall "Zugriff", ","
sdbpath = "Provider = microsoft.jet.oledb.4.0; Data Source =" & Server.Mappath (SDBPath)
Ende auswählen
Checkdata rlconn, sdbPath
Beenden Sie Eigentum
'Überprüfen Sie den Datenbank -Link (variabler Name, Verbindungszeichenfolge)
Private sub checkdata (Dataconn, connstr)
Bei der nächsten Fehleraufnahme als nächstes
Setzen Sie DataConn = server.createObject ("adodb.Connection").
DataConn.open Connstr
Wenn irren
Err.clear
Setzen Sie DataConn = nichts
ERRMSG ("Datenbankverbindungsfehler:" & ersetzen (connstr, "/", "//") & ",/nPlease Überprüfen Sie die Verbindungszeichenfolge, um zu bestätigen, ob die von Ihnen eingegebenen Datenbankinformationen korrekt sind."
Antwort.end
Ende wenn
Ende sub
»Überprüfen Sie, ob die Tabelle vorhanden ist
Funktionskontrolle (TabLENAME)
Bei der nächsten Fehleraufnahme als nächstes
Rlconn.execute ("aus" aus "& tableName)
Wenn err.number <> 0 dann dann
Err.clear ()
Rufen Sie ERRMSG auf ("Fehlereingabeaufforderung:" & Err.Description)
Kontrolliert = false
Anders
Kontrolliert = true
Ende wenn
Endfunktion
'Fehlermeldung (Nachricht)
Private sub ermsg (msg)
Antwort.Write msg
Antwort.Flush
Ende sub
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'Ändern Sie den Wert des Feldes
Öffentliches Sub -Upcolumn (Byval TabLename, Byval ColumnName, Byval Valuetext, Byval WHeueRestern)
Bei der nächsten Fehleraufnahme als nächstes
Wenn WHERESTR <> "" dann
Wenn Instrum
WHERESTR = "WO" & WHERESTER
Ende wenn
Anders
WHERESTR = ""
Ende wenn
Rlconn.execute ("Update" & TableName & "set" & columnname & "=" & Valuetext & "" & wherestern)
Wenn err.number <> 0 dann dann
Rufen Sie ERRMSG auf ("Fehlereingabeaufforderung:" & Err.Description)
Err.clear ()
Ende wenn
Ende sub
'Führen Sie die SQL -Anweisung aus
Öffentliche Sub Execute (STRSQL)
Setzen Sie rsCount = server.createObject ("adodb.recordset")
Bei der nächsten Fehleraufnahme als nächstes
Rscount = rlconn.execute (strsql)
Wenn Sie links (STRSQL, 12) = "Wählen Sie Count", dann count = rsCount (0)
Wenn err.number <> 0 dann dann
Rufen Sie ERRMSG auf ("Fehlereingabeaufforderung:" & Err.Description)
Err.clear ()
Ende wenn
RSCOUNT.CLOSE
RSCOUNT SET = Nichts
Ende sub
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'Feldindex hinzufügen
Öffentliche Funktion addIndex (Byval TablName, Byval IndexName, Byval ValuEText)
Bei der nächsten Fehleraufnahme als nächstes
Rlconn.execute ("Index erstellen" & indexname & "auf [" & TableName & "] ([" & Valuetext & "])") ")
Wenn err.number <> 0 dann dann
Rufen Sie ERRMSG an ("Erstellen in" & TableName & "TableName &" TableName & "Indexname &" Indexname & "cause" & err.description & "Bitte den Index manuell ändern."
Err.clear ()
AddIndex = false
Anders
AddIndex = true
Ende wenn
Endfunktion
'Löschen Sie den Tabellenindex
Öffentliche Funktion Delindex (Byval TablName, Byval IndexName)
Bei der nächsten Fehleraufnahme als nächstes
Rlconn.execute ("Drop Space Index [" & TableName & "]." & Indexname)
Wenn err.number <> 0 dann dann
Rufen Sie ERRMSG ("in" & TableName & "TABLEDELETEE" & INDEXNAME & "INDEX -Fehler, Ursache" & Err.Description & "auf. Bitte löschen Sie den Index manuell."
Err.clear ()
Delindex = false
Anders
DelIdex = true
Ende wenn
Endfunktion
»Ändern Sie die Definition von Tabellen -TableName, um den Feldspaltenname als Primärschlüssel festzulegen
Öffentliche Funktion addPrimaryKey (Byval TabLename, Byval ColumnName)
Bei der nächsten Fehleraufnahme als nächstes
TableName = ersetzen (tableName, "[", ""), "]", "")
Rlconn.execute ("Alter Tabelle" & TableName & "Hinzufügen von Einschränkungen PK _" & TableName & "Primärschlüssel (" & ColumnName & ")")
Wenn err.number <> 0 dann dann
Rufen Sie ERRMSG auf ("Fehler beim Hinzufügen von" & TableName & "Field" & ColumnName & "als Primärschlüssel, Grund" & Err.Description & "Bitte ändern Sie die Feldeigenschaften manuell.")
Err.clear ()
AddprimaryKey = False
Anders
AddprimaryKey = true
Ende wenn
Endfunktion
»Ändern Sie die Definition von Tabellen -Tablenname, um die Definition des Feldspaltenname -Primärschlüssels zu löschen
Öffentliche Funktion DelprimaryKey (Byval TablName, Byval ColumnName)
Bei der nächsten Fehleraufnahme als nächstes
Rlconn.execute ("Alter Tabelle" & TableName & "Drop Space Primärschlüssel (" & ColumnName & ")")
Wenn err.number <> 0 dann dann
Rufen Sie ERRMSG auf ("Ein Fehler ist beim Löschen der Definition des Primärschlüssels" & TableName & "" gemäß "Fragen" & ColumnName & ", Reason" & Err.Description & "Laut" Die Feldeigenschaften "manuell gefragt.")
Err.clear ()
Delprimarykey = false
Anders
Delprimarykey = true
Ende wenn
Endfunktion
„Überprüfen Sie, ob der Primärschlüssel existiert, und geben Sie den Primärschlüsselnamen der Tabelle zurück
Funktion GetPrimaryKey (TableName)
Bei der nächsten Fehleraufnahme als nächstes
Dimer RSprimary
GetPrimaryKey = ""
Setzen Sie RSPRIMARY = rlconn.openschema (28, Array (leer, leer, tischumname))
Wenn nicht rspimary.eof, dann GetPrimaryKey = rSprimary ("column_name"))
RSPRIMARY SET = Nichts
Wenn err.number <> 0 dann dann
Rufen Sie ERRMSG auf ("Die Datenbank unterstützt den Primärschlüssel für die Erkennung von Datentabellen" & TableName & "nicht. Grund:" & Err.Description)
Err.clear ()
Ende wenn
Endfunktion
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'Fügen Sie ein neues Feld hinzu
Öffentliche Funktion addColumn (TableName, ColumnName, ColumnType)
Bei der nächsten Fehleraufnahme als nächstes
Rlconn.execute ("Alter table [" & tableName & "] hinzufügen [" & columnname & "]" & columnType & "")
Wenn irren
Errmsg ("neu" & TableName & "Feldfehler in der Tabelle erstellen Sie bitte das Feld" & ColumnName & " in der Datenbank, das Attribut " & ColumnType & " , Reason" & Err.Description).
Err.clear
AddColumn = false
Anders
AddColumn = true
Ende wenn
Endfunktion
'Feld ändern generische Funktionen
Öffentliche Funktion modcolumn (TableName, ColumnName, ColumnType)
Bei der nächsten Fehleraufnahme als nächstes
Rlconn.execute ("Alter table [" & tableName & "] alternal Column [" & columnname & "]" & columnType & "")
Wenn irren
Rufen Sie ERRMSG auf ("ändern" & tableName & "Das Feld Attribut in der Tabelle ist falsch, bitte ändern Sie manuell die Datenbank " & ColumnName & " in " & columnType & " Eigenschaften, Ursachen" & Err.Description).
Err.clear
Modcolumn = false
Anders
Modcolumn = true
Ende wenn
Endfunktion
'Feld Generische Funktion löschen
Öffentliche Funktion Delcolumn (TablName, ColumnName)
Bei der nächsten Fehleraufnahme als nächstes
Wenn sdbType = "SQL" dann
Rlconn.execute ("Alter Tabelle [" & TableName & "] Drop Space Column [" & Columnname & "]")
Anders
Rlconn.execute ("Alter Tabelle [" & TableName & "] Drop Space [" & Columnname & "]")
Ende wenn
Wenn irren
Rufen Sie ERRMSG ("Feld" & TableName & "in der Tabelle auf ( " Löschen "& TableName &".
Err.clear
Delcolumn = false
Anders
Delcolumn = true
Ende wenn
Endfunktion
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'Öffnen Sie das Objekt des Tabellennamens
Privates sub -NumametableConn ()
Bei der nächsten Fehleraufnahme als nächstes
Setzen Sie objadoxDatabase = server.createObject ("adox.catalog").
ObjadoxDatabase.ActiveConnection = Connstr
Wenn irren
ERRMSG ("Ein Fehler beim Erstellen eines Änderungs -Tabellennamens Objekt. Der Speicherplatz, den Sie aktualisieren, unterstützt dieses Objekt nicht.
Antwort.end
Err.clear
Ende wenn
Ende sub
'Schließen Sie das Objekt des Tabellennamens
Privates subgenerametableconn ()
Objadoxdatabase einstellen = nichts
Conn.close
Setzen Sie Conn = nichts
Ende sub
'Ändern Sie den Datenbank -Tabellennamen, Eintragsparameter: alter Tabellenname, neuer Tabellenname
Öffentliche Funktion Umbenannte (Oldname, NewName)
Bei der nächsten Fehleraufnahme als nächstes
Rufen Sie RenametableConn an
ObjadoxDatabase.tables (OldName) .Name = NewName
Wenn irren
Rufen Sie ERRMSG an ("Ändern Sie den Fehlernamenfehler, bitte ändern Sie den Tabellennamen in der Datenbank " & OldName & " Tabellenname in <B>" & NewName & ", Reason" & Err.Description).
Err.clear
NumeraMetable = False
Anders
NumeraMetable = true
Ende wenn
Rufen Sie CloserenametableConn an
Endfunktion
'Tabelle allgemeine Funktion löschen
Öffentliche Funktion Deltier (TableName)
Bei der nächsten Fehleraufnahme als nächstes
Rlconn.execute ("Drop Space Tabelle [" & TableName & "]")
Wenn irren
Errmsg ("Tabellenfehler" & TableName & ", bitte löschen Sie die Tabelle" & TableName & " in der Datenbank, Reason" & Err.Description).
Err.clear
Teltable = false
Anders
Teltable = true
Ende wenn
Endfunktion
'Erstellen Sie eine neue Tabelle
Öffentliche Funktion createtable (Byval TabLename, Byval -Feldliste)
Dim Strsql
Wenn sdbType = "SQL" dann
STRSQL = "TABLE CREATE [" & TableName & "] (" & FieldList & ")"
Anders
STRSQL = "TABLE CREATE [" & tableName & "]"
Ende wenn
Rlconn.execute (STRSQL)
Wenn err.number <> 0 dann dann
Rufen Sie ERRMSG ("New" & TableName & "Tabellenfehler, Ursache" & err.description & "" auf.
Err.clear ()
CreateTable = false
Anders
CreateTable = true
Ende wenn
Endfunktion
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'Erstellen Sie eine Datenbankdatei
Öffentliche Funktion erstellte BFILE (Byval dbFileName, Byval SavePath)
Bei der nächsten Fehleraufnahme als nächstes
SavePath = Ersetzen (SavePath, "/", "/")
Wenn rechts (SavePath, 1) <> "/" oder rechts (Speichernpath, 1) <> "/" Dann speichernpath = trim (SavePath) & "/"
Wenn Sie links (dbFileName, 1) = "/" oder links (dbfilename, 1) = "/" Dann dbFileName = trim (Mid (dbFileName, 2, Len (dbfilename))))
Wenn dBexists (AppPath () & SavePath & dbFileName) dann)
Errmsg ("Entschuldigung, diese Datenbank existiert bereits!" & AppPath () & SavePath & DBFileName)
CreatedbFile = false
Anders
Response.write apppath () & savePath & dbFileName
Dim ca
Set Ca = Server.CreateObject ("adox.catalog")
Wenn err.number <> 0 dann
ERRMSG ("kann nicht festgelegt werden, bitte überprüfen Sie die Fehlermeldung
"& Err.number &"
"& Err.description)
Err.clear
CreatedbFile = false
Ausgangsfunktion
Ende wenn
Rufen Sie ca.create ("Provider = microsoft.jet.oledb.4.0; Data Source =" & AppPath () & SavePath & DBFileName) an.
Setzen Sie ca = nichts
CreatedbFile = true
Ende wenn
Endfunktion
„Finden Sie, ob die Datenbankdatei vorhanden ist
Private Funktion DBEXISTS (BYVAL DBPATH)
Bei der nächsten Fehleraufnahme als nächstes
Düster
Set C = server.createObject ("adodb.Connection")
C.Open "Provider = microsoft.jet.oledb.4.0; Data Source =" & dbPath
Wenn err.number <> 0 dann
Err.clear
DBexists = false
anders
DBexists = true
Ende wenn
Setzen Sie C = Nichts
Endfunktion
'Nimm den aktuellen realen Weg
Private function AppPath ()
Apppath = server.mappath ("./")
Wenn rechts (Apppath, 1) = "/" Dann
AppPath = AppPath
Anders
AppPath = AppPath & "/"
Ende wenn
Endfunktion
'Löschen Sie eine Datenbankdatei
Öffentliche Funktion DeletedBfile (filespec)
filespec = AppPath () & filespec
Dim fso
Setzen Sie fso = createObject ("scripting.filesystemObject").
Wenn err.number <> 0 dann
ERRMSG ("Ein Fehler beim Löschen der Datei aufgetreten! Bitte überprüfen Sie die Fehlermeldung:" & err.number & "" & err.description & "
"))
Err.clear
DeletedbFile = false
Ende wenn
Wenn dBexists (filespec) dann
Rufen Sie fso.deleteFile (filespec) an
DeletedbFile = true
Anders
ERRMSG ("Ein Fehler beim Löschen der Datei! Bitte anzeigen Sie die Fehlermeldung:" & err.number & "" & err.description & "
"))
DeletedbFile = false
Ausgangsfunktion
Ende wenn
Fso = nichts setzen
Endfunktion
'Ändern Sie einen Datenbanknamen
Öffentliche Funktion Umbenanntbile (FilePec1, FilePec2)
filespec1 = apppath () & filespec1: filespec2 = apppath () & filespec2
Dim fso
Setzen Sie fso = createObject ("scripting.filesystemObject").
Wenn err.number <> 0 dann
ERRMSG ("Ein Fehler beim Ändern des Dateinamens! Bitte überprüfen Sie die Fehlermeldung:" & err.number & "" & err.description)
Err.clear
UmbenanntbFile = false
Ende wenn
Wenn dBexists (filespec1) dann
Rufen Sie fso.copyfile (filespec1, filespec2, true) auf
Rufen Sie fso.deleteFile (filespec1) an
Umbenanntbfile = true
Anders
ERRMSG ("Die Quelldatei existiert nicht !!!")
UmbenanntbFile = false
Ausgangsfunktion
Ende wenn
Fso = nichts setzen
Endfunktion
'Komprimierte Datenbank
Öffentliche Funktion compactdbfile (strdbFileName)
DIM JET_Conn_Partial
Dim Sourceconn
Dim Destconn
Dim Ojetengine
Düster
JET_CONN_PARTIAL = "Provider = microsoft.jet.oledb.4.0; Data Source ="
SourceConn = Jet_Conn_Partial & AppPath () & StrDBFileName
Destconn = jet_conn_partial & apppath () & "temp" & strdbfilename
Set ofso = server.createObject ("scripting.FilesSystemObject"))
Setzen Sie ojentengine = server.createObject ("jro.jentengine")
Mit Ofso
Wenn nicht .FileExists (AppPath () & StrdbFileName) dann dann
Ermsg ("Datenbankdatei nicht gefunden !!!")
Stoppen
Compactdbfile = false
Ausgangsfunktion
Anders
If .fileExists (AppPath () & "temp" & strdbFileName) dann
Errmsg ("Unbekannter Fehler !!!")
.DeleteFile (AppPath () & "Temp" & strdbfilename)
Compactdbfile = false
Ausgangsfunktion
Ende wenn
Ende wenn
Enden mit
Mit Ojetengine
.CompactDatabase SourceConn, Destconn
Enden mit
Ofso.deleteFile AppPath () & StrdbFileName
OFSO.MOVEFILE APPPATH () & "TEMP" & Strdbfilename, AppPath () & StrdbFileName
Set ofso = nichts
Setzen Sie Ojetengine = nichts
Compactdbfile = true
Endfunktion
Endklasse
Dim Mandb
Setzen Sie Mandb = New RlmandBCls
'// -----------------------------------------------------------------------------------------------------------
'Mandb.dbType = "SQL"
'Mandb.Servername = "Tao-kuizu"
'Mandb.username = "sa"
'Mandb.Password = "123456"
'Mandb.dbpath = "Hhstuss"
'Mandb.CreateTable "Cexo255", "ID int nicht null Primärschlüssel, Name Varchar (20) NICHT NULL"' CREATE TABLE (Tabellenname)
'Mandb.Renametable "Cexo255", "Cexo2552"' Tabellenname (alter Tabellenname, neuer Tabellenname) (Verwendung von Komponenten)
'Mandb.deltable "Cexo255"' Delete Table (Tabellenname)
'Mandb.AddColumn "Cexo255", "Sex", "Varchar (2) null"' Erstellen Sie eine Tabellenstruktur (Tabellenname, Feldname, Datentyp)
'Mandb.modcolumn "Cexo255", "Name", "int nicht null"' Ändern Sie die Tabellenstruktur (Tabellenname, Feldname, neuer Datentyp) _
'Mandb.delcolumn "Cexo255", "Sex"' Löschen Sie die Tabellenstruktur (Tabellenname, Feldname)
'Mandb.addindex "Cexo255", "i_id", "id"' Tabelle Index erstellen (Tabellenname, Indexname, Indexfeldname)
'Mandb.Delindex "Cexo255", "i_id"' Löschen Sie den Tabellenindex (Tabellenname, Indexname)
'Mandb.addprimarykey "cexo255", "Name"' Erstellen Sie die Tabellen -Primärschlüssel (Tabellenname, Feldname des Primärschlüssels)
'Mandb.DelPrimaryKey "Cexo255", "Name"' Löschen Sie die Tabellen -Primärschlüssel (Tabellenname, Feldname des Primärschlüssels) _
'Response.write mandb.getPrimaryKey ("Cexo255")' Erhalten Sie den Primärschlüssel der Tabelle (Tabellenname)
'Mandb.upcolumn "Cexo255", "ID", 12345, "Name = 1"' Ändern Sie den Wert des Feldes
'Mandb.execute' Einlegen
'Mandb.execute' Aktualisieren
'Mandb.execute' Speicherplatz von Cexo255 löschen wobei Name = 2 "'Datensatz löschen
'Mandb.execute ("count (*) aus Cexo255"): Antwort.Write Mandb.Count' Statistik Anzahl der Datensätze
'Wenn Mandb.Checktable ("StudInfo") dann Antwort.Write "Studinfo Table existiert !!!" Sonst response.write "Studinfo Table existiert nicht !!!"
'// -----------------------------------------------------------------------------------------------------------
'// -----------------------------------------------------------------------------------------------------------
Mandb.dbType = "Access"
Mandb.dbpath = "test.mdb"
'Mandb.CreatedBFile "test2.mdb", "" Datenbank erstellen (Datenbankname, Speicherpfad)
'Mandb.DeletedBFile ("test2.mdb")' Datenbank löschen (Datenbankname)
'Mandb.RenamedbFile "test2.mdb", "test3.mdb"' Domänenname (alter Datenbankname, neuer Datenbankname)
'Mandb.comPactdbFile ("test3.mdb")' komprimierte Datenbank (Datenbankname)
'Mandb.CreateTable "DW", "' '' erstellen Tabelle (Tabellenname)
'Mandb.Renametable "DW", "DW2"' Tabellenname (alter Tabellenname, neuer Tabellenname) (Verwendung von Komponenten) _
'Mandb.deltable "dw"' lösche Tabelle (Tabellenname)
'Mandb.addcolumn "Cexo255", "Name", "Varchar (255) nicht null"' Erstellen Sie eine Tabellenstruktur (Tabellenname, Feldname, Datentyp)
'Mandb.Modcolumn "Cexo255", "Name", "int nicht null"' Ändern Sie die Tabellenstruktur (Tabellenname, Feldname, neuer Datentyp).
'Mandb.delcolumn "cexo255", "Name"' die Tabellenstruktur löschen (Tabellenname, Feldname)
'Mandb.addindex "Cexo255", "userId", "id"' Tabelle Index erstellen (Tabellenname, Indexname, Indexfeldname)
'Mandb.Delindex "CexO255", "UserID"' Löschen Sie den Tabellenindex (Tabellenname, Indexname) _
'Mandb.Addprimarykey "Cexo255", "ID"' Erstellen Sie den Primärschlüssel der Tabelle (Tabellenname, Feldname des Primärschlüssels)
'Mandb.delprimarykey "cexo255", "id"' Löschen Sie die Tabelle Primärschlüssel (Tabellenname, Feldname des Primärschlüssels) _
'Response.write mandb.getPrimaryKey ("Cexo255")' Erhalten Sie den Primärschlüssel der Tabelle (Tabellenname)
'Mandb.UpColumn "Cexo255", "ID", "12345", "ID =' 12 '" "den Wert des Feldes ändern
'Mandb.execute' Einlegen
'Mandb.execute' Aktualisieren
'Mandb.execute' Speicherplatz aus Cexo255 löschen wobei id = 'wxf' '' Rekord löschen
Mandb.execute ("count (*) aus Cexo255"): Antwort.Write Mandb.Count 'Statistik Anzahl der Datensätze
'Wenn Mandb.Checktable ("StudInfo") dann Antwort.Write "Studinfo Table existiert !!!" Sonst response.write "Studinfo Table existiert nicht !!!"
'// -----------------------------------------------------------------------------------------------------------
Setzen Sie Mandb = nichts
%>
Die oben genannte Einführung in die Schritte für die Online -Datenbankverwaltung. Ich glaube, jeder hat ein gewisses Verständnis. Wenn Sie weitere technische Informationen wissen möchten, achten Sie bitte weiter auf den falschen neuen Technologiekanal!