ASP.NET est utilisé pour maintenir et gérer les données en mode Web, réalisant la création de bases de données, le fonctionnement de la syntaxe SQL et l'importation et l'exportation de données. Laissez le rédacteur en chef de la chaîne Foxin Technology vous emmener à l'article suivant pour en savoir plus sur les étapes de la gestion des bases de données en ligne!
Classe rlmandbcls
SDBPATH privé, RLConn, SDBTYPE, SSERVERNAME, SUSERNAME, SPASSWORD
Comte public
Private Sub class_Initialize ()
sdbType = ""
Sub-Sub
Private Sub class_termiate ()
Si isObject (rlConn) alors
RlConn.close
Définir rlConn = rien
Terminer si
Sub-Sub
Propriété publique Let DBTYPE (Byval Strvar)
sdbtype = strvar
Propriété finale
Propriété publique Let ServerName (ByVal Strvar)
sservername = strvar
Propriété finale
Propriété publique Let Username (Byval Strvar)
Susername = Strvar
Propriété finale
Propriété publique Let Password (Byval Strvar)
spassword = strvar
Propriété finale
'Définir le chemin de la base de données
Propriété publique Let DBPath (Byval Strvar)
sdbpath = strvar
Sélectionnez Case SDBTYPE
Cas "SQL"
StrServer = SServername 'Nom du serveur de base de données
Struid = susername 'Votre compte de connexion
StrSapwd = spassword 'votre mot de passe de connexion
Strdbname = sdbpath 'votre nom de base de données
sdbpath = "driver = {sql server}; server =" & strServer & "; uid =" & struid & "; pwd =" & strSapwd & "; database =" & strdbname
Cas "Access", "
sdbpath = "provider = Microsoft.Jet.oledb.4.0; Data Source =" & Server.Mappath (SDBPATH)
Fin de sélection
CheckData RLConn, SDBPATH
Propriété finale
'Vérifiez le lien de la base de données, (nom de variable, chaîne de connexion)
Sous-chèque privé (Dataconn, Connstr)
Sur l'erreur reprendre ensuite
Définir dataconn = server.createObject ("adodb.connection")
Dataconn.open connstr
Si err alors
Err.Clear
Définir DataConn = Rien
Errmsg ("Erreur de connexion de la base de données:" & remplacer (Connstr, "/", "//") & ", / nplease Vérifiez la chaîne de connexion pour confirmer si les informations de base de données que vous avez entrées sont correctes.")
Réponse.
Terminer si
Sub-Sub
'Vérifiez si le tableau existe
Fonction CheckTable (TableName)
Sur l'erreur reprendre ensuite
RlConn.Execute ("SELECT * FROM" & TableName)
Si err.number <> 0 alors
Err.clear ()
Appelez Errmsg ("Invite d'erreur:" & err.derScription)
CheckTable = false
Autre
CheckTable = true
Terminer si
Fonction finale
'Message d'erreur (message)
Sub Errmsg privé (MSG)
Réponse.WRITE MSG
Réponse.flush
Sub-Sub
'---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'Modifier la valeur du champ
Public sous-upcolumn (byVal Tablename, byVal Columnname, byVal ValueText, Byval Wherestr)
Sur l'erreur reprendre ensuite
Si wherestr <> "" alors
Si instr (wherest, "où") <= 0 alors
Wherestr = "où" & wherestr
Terminer si
Autre
Wherestr = ""
Terminer si
RlConn.Execute ("Update" & TableName & "Set" & Columnname & "=" & ValueText & "" & Wherest)
Si err.number <> 0 alors
Appelez Errmsg ("Invite d'erreur:" & err.derScription)
Err.clear ()
Terminer si
Sub-Sub
'Exécuter l'instruction SQL
Sous-exécution publique (STRSQL)
Set rscount = server.createObject ("adodb.recordSet")
Sur l'erreur reprendre ensuite
Rscount = rlConn.Execute (strSql)
Si vous êtes laissé (strSql, 12) = "SELECT COUNT", alors count = rscount (0)
Si err.number <> 0 alors
Appelez Errmsg ("Invite d'erreur:" & err.derScription)
Err.clear ()
Terminer si
Rscount.close
Définir RSCount = Rien
Sub-Sub
'---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'Ajouter un index de champ
Fonction publique AddIndex (byVal TableName, ByVal IndexName, ByVal ValueText)
Sur l'erreur reprendre ensuite
RlConn.Execute ("Create index" & indexName & "on [" & tableName & "] ([" & valetext & "])")
Si err.number <> 0 alors
Appelez Errmsg ("Créer dans" & TableName & "TableName &" TableName & "IndexName &" IndexName & "Cause" & Err.Description & "Veuillez modifier l'index manuellement.")
Err.clear ()
AddIndex = false
Autre
AddIndex = true
Terminer si
Fonction finale
'Supprimer l'index de la table
Fonction publique Delindex (ByVal TableName, ByVal IndexName)
Sur l'erreur reprendre ensuite
RlConn.Execute ("Drop Space Index [" & tablename & "]." & Indexname)
Si err.number <> 0 alors
Appelez Errmsg ("In" & TableName & "TableDelete" & indexName & "Index Error, Cause" & Err.Description & "Veuillez supprimer l'index manuellement.")
Err.clear ()
Delindex = false
Autre
Delindex = True
Terminer si
Fonction finale
'Modifiez la définition du nom de table de table pour définir le nom de chronique de champ comme clé principale
Fonction publique addprimaryKey (byVal TableName, byVal Columnname)
Sur l'erreur reprendre ensuite
TableName = remplacer (remplacer (tableName, "[", ""), "]", "")
RlConn.Execute ("alter table" & tableName & "Ajouter une contrainte pk _" & tablename & "key primaire (" & colmnname & ")")
Si err.number <> 0 alors
Appelez Errmsg ("Erreur lors de l'ajout" & tablename & "Field" & Columnname & "As Primary Key, Reason" & Err.Description & "Veuillez modifier les propriétés du champ manuellement.")
Err.clear ()
AddprimaryKey = false
Autre
AddPrimaryKey = true
Terminer si
Fonction finale
«Changez la définition du nom de table de table pour supprimer la définition de la clé primaire de la colonne de champ
Fonction publique DelprimaryKey (ByVal Tablename, ByVal Columnname)
Sur l'erreur reprendre ensuite
RlConn.Execute ("alter table" & tableName & "Drop Space Primary Key (" & Columnname & ")")
Si err.number <> 0 alors
Appelez Errmsg ("Une erreur s'est produite lors de la suppression de la définition de la clé principale" & TableName & "" Selon "Demandez le champ" & Columnname & ", Reason" & Err.Description & "Veuillez modifier les propriétés du champ manuellement.")
Err.clear ()
Delprimarykey = false
Autre
DelprimaryKey = true
Terminer si
Fonction finale
'Vérifiez si la clé principale existe et renvoyez le nom de clé primaire de la table
Fonction getPrimaryKey (TableName)
sur l'erreur reprendre ensuite
Primaire faible
GetPrimaryKey = ""
SET RSPRIMARY = rlConn.OpenSchema (28, tableau (vide, vide, nom de table))
Si pas rsprimary.eof, alors getPrimaryKey = rsPrimary ("Column_name")
Définir rsprimary = rien
Si err.number <> 0 alors
Appelez ERRMSG ("La base de données ne prend pas en charge la clé principale pour détecter le tableau de données" & TableName & ". Raison:" & err.Description)
Err.clear ()
Terminer si
Fonction finale
'---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'Ajoutez un nouveau champ
Fonction publique AddColumn (TableName, Columnname, ColumnType)
Sur l'erreur reprendre ensuite
RlConn.Execute ("alter table [" & tableName & "] add [" & colnumnname & "]" & ColumnType & "")
Si err alors
Errmsg ("Nouveau" & TableName & "Erreur de champ dans le tableau, veuillez créer manuellement le champ" & Columnname & " dans la base de données, l'attribut est " & ColumnType & " , Raison" & Err.Description)
Err.Clear
AddColumn = false
Autre
AddColumn = true
Terminer si
Fonction finale
'Changer le champ Fonction générique
Fonction publique ModColumn (TableName, Columnname, ColumnType)
Sur l'erreur reprendre ensuite
RlConn.Execute ("alter table [" & tablename & "] alter colonnes [" & chronmnname & "]" & collumntype & "")
Si err alors
Appelez Errmsg ("Modifier" & TableName & "L'attribut de champ dans le tableau est incorrect, veuillez modifier manuellement la base de données " & Columnname & " Field en " & ColumnType & " Properties, Causes" & Err.Description)
Err.Clear
ModColumn = false
Autre
ModColumn = true
Terminer si
Fonction finale
'Supprimer la fonction générique de champ
Fonction publique DelColumn (TableName, Columnname)
Sur l'erreur reprendre ensuite
Si sdbtype = "sql" alors
RlConn.Execute ("alter table [" & tableName & "] Drop Space Column [" & Columnname & "]")
Autre
RlConn.Execute ("alter table [" & tableName & "] Drop Space [" & Columnname & "]")
Terminer si
Si err alors
Appelez Errmsg ("Delete" & TableName & "Erreurs de champ dans le tableau, veuillez supprimer manuellement " & Columnname & " Field Delete, Cause" & Err.Description)
Err.Clear
Delcolumn = false
Autre
Delcolumn = true
Terminer si
Fonction finale
'---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'Ouvrez l'objet Nom de la table
Private Sub RenametableConn ()
Sur l'erreur reprendre ensuite
Définir objadoxdatabase = server.createObject ("Adox.catalog")
objadoxdatabase.activeConnection = Connstr
Si err alors
ERRMSG ("Une erreur s'est produite lors de la création d'un objet de nom de table de modification. L'espace que vous améliorez ne prend pas en charge cet objet. Vous devez plus avoir besoin de modifier le nom de la table manuellement, raison" & err.Description)
Réponse.
Err.Clear
Terminer si
Sub-Sub
'Fermez l'objet Nom de la table
Sub privé CloserRenameTableConn ()
Définir objadoxdatabase = rien
Conn.Close
Définir Conn = Rien
Sub-Sub
«Changez le nom de la table de la base de données, paramètres d'entrée: ancien nom de table, nouveau nom de table
Fonction publique Renametable (Oldname, Newname)
Sur l'erreur reprendre ensuite
Appelez RenametableConn
objadoxdatabase.tables (oldname) .name = newname
Si err alors
Appelez ERRMSG ("Modifier l'erreur du nom de la table, veuillez modifier manuellement le nom de la table dans la base de données " & OldName & " Nom de la table en <b>" & newname & ", Raison" & err.deScription)
Err.Clear
Renametable = faux
Autre
Renametable = True
Terminer si
Appelez CloserenametableConn
Fonction finale
'Supprimer la fonction générale du tableau
Fonction publique Deltable (TableName)
Sur l'erreur reprendre ensuite
RlConn.Execute ("Drop Space Table [" & TableName & "]")
Si err alors
ERRMSG ("Delete" & TableName & "Table Error, veuillez supprimer manuellement la table" & TableName & " dans la base de données, Raison" & Err.Description)
Err.Clear
Deltable = false
Autre
Deltable = True
Terminer si
Fonction finale
'Créer une nouvelle table
Fonction publique CreateTable (ByVal TableName, ByVal Fieldlist)
STRSQL DIM
Si sdbtype = "sql" alors
StrSql = "Create Table [" & TableName & "] (" & FieldList & ")"
Autre
StrSql = "Create Table [" & TableName & "]"
Terminer si
RlConn.Execute (StrSQL)
Si err.number <> 0 alors
Appelez Errmsg ("New" & TableName & "Table Error, Cause" & Err.Description & "")
Err.clear ()
CreateTable = False
Autre
CreateTable = True
Terminer si
Fonction finale
'---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'Créer un fichier de base de données
Fonction publique CreatedBfile (byVal dbFilename, byval SavePath)
Sur l'erreur reprendre ensuite
SavePath = remplacer (sauvegarder, "/", "/")
Si bien (sauvegarde, 1) <> "/" ou droit (sauvegarde, 1) <> "/" puis sauverpath = TRIM (SAVEPATH) & "/"
Si vous êtes laissé (dbFileName, 1) = "/" ou gauche (dbFileName, 1) = "/" puis dbFileName = Trim (mid (dbFileName, 2, Len (dbFileName))))
Si dbexists (apppath () & sauvegarde et dbfilename)
ERRMSG ("Désolé, cette base de données existe déjà!" & AppPath () & SavePath & DbFileName)
CrééBFile = false
Autre
Response.Write AppPath () & SavePath & DBFileName
Cra sombre
SET CA = Server.CreateObject ("Adox.Catalog")
Si err.number <> 0 alors
ERRMSG ("Impossible d'être établi, veuillez vérifier le message d'erreur
"& Err.number &"
"& Err.description)
Err.Clear
CrééBFile = false
Fonction de sortie
Terminer si
Appelez CA.Create ("Provider = Microsoft.Jet.OledB.4.0; Data Source =" & AppPath () & SavePath & DbFileName)
Définir Ca = rien
CreatedBFile = True
Terminer si
Fonction finale
«Trouvez si le fichier de base de données existe
Fonction privée dbexistes (byVal DBPath)
Sur l'erreur reprendre ensuite
Faible
Set c = server.createObject ("adodb.connection")
C.Open "Provider = Microsoft.Jet.oledb.4.0; Data Source =" & DBPath
Si err.number <> 0 alors
Err.Clear
Dbexists = faux
autre
Dbexists = vrai
Terminer si
Définir C = rien
Fonction finale
'Prenez le vrai chemin actuel
Fonction privée apppath ()
Apppath = server.mappath ("./")
Si bien (apppath, 1) = "/" alors
Apppath = apppath
Autre
Apppath = apppath & "/"
Terminer si
Fonction finale
«Supprimer un fichier de base de données
Fonction publique suppriméeBFile (filespec)
filespec = apppath () & filespec
DIM FSO
Set fso = createObject ("scripting.fileSystemObject")
Si err.number <> 0 alors
ERRMSG ("Une erreur s'est produite lors de la suppression du fichier! Veuillez vérifier le message d'erreur:" & err.number & "" & err.description & "
")
Err.Clear
SuppriméBFile = false
Terminer si
Si dbexistes (filespec) alors
Appelez FSO.DeleteFile (Filescec)
DeletedBFile = True
Autre
ERRMSG ("Une erreur s'est produite lors de la suppression du fichier! Veuillez afficher le message d'erreur:" & err.number & "" & err.description & "
")
SuppriméBFile = false
Fonction de sortie
Terminer si
Définir FSO = rien
Fonction finale
«Modifier un nom de base de données
Fonction publique RenomméBFile (Filspec1, FiSpec2)
filespec1 = apppath () & filespec1: filespec2 = apppath () & filespec2
DIM FSO
Set fso = createObject ("scripting.fileSystemObject")
Si err.number <> 0 alors
ERRMSG ("Une erreur s'est produite lors de la modification du nom du fichier! Veuillez vérifier le message d'erreur:" & err.number & "" & err.description)
Err.Clear
RenomméBFile = False
Terminer si
Si dbexistes (filespec1) alors
Appelez FSO.CopyFile (FilesPec1, FilesPec2, True)
Appelez FSO.DeleteFile (FiSesCec1)
RenamedbFile = True
Autre
Errmsg ("le fichier source n'existe pas !!!")
RenomméBFile = False
Fonction de sortie
Terminer si
Définir FSO = rien
Fonction finale
'Base de données compressée
Fonction publique CompactDBFile (strDBFileName)
Dim Jet_Conn_Partial
DIM SOURCECON
Dim destconn
Sombre
Dim
Jet_Conn_partial = "provider = Microsoft.Jet.oledb.4.0; Data Source ="
SourceConC = Jet_Conn_Partial & AppPath () & strdbFileName
Destconn = jet_conn_partial & apppath () & "temp" & strdbfileName
Set ofso = server.createObject ("scripting.filesystemObject")
Définir OjeTengine = Server.CreateObject ("Jro.JeTengine")
Avec Ofo
Sinon .FileExists (apppath () & strdbFileName) alors
Errmsg ("fichier de base de données introuvable !!!")
Arrêt
Compactdbfile = false
Fonction de sortie
Autre
Si .FileExists (AppPath () & "Temp" & strdbFilename)
Errmsg ("Erreur inconnue !!!")
.DeleteFile (apppath () & "temp" & strdbFileName)
Compactdbfile = false
Fonction de sortie
Terminer si
Terminer si
Se terminer avec
Avec OjetEngine
.CompactDatabase SourceConn, destconn
Se terminer avec
OFSO.DeleteFile AppPath () & StrdBFileName
OFSO.MoveFile AppPath () & "Temp" & StrdBFilename, AppPath () & StrdBFileName
Set Ofo = rien
Définir ojetEngine = rien
Compactdbfile = true
Fonction finale
Classe finale
Mandb Dim
Définir MandB = nouveau RLMandBCLS
'// -----------------------------------------------------------------------------------------------------------------------
'Mandb.dbtype = "sql"
'Mandb.servername = "tao-kuizu"
'Mandb.username = "sa"
'Mandb.password = "123456"
'Mandb.dbpath = "hhstuss"
'Mandb.CreateTable "CEXO255", "id int not null Primary Key, nom varchar (20) pas null"' Create Table (Nom de la table)
'Mandb.Renametable "CEXO255", "CEXO2552"' Nom de la table (ancien nom de table, nouveau nom de table) (Utilisation du composant)
'Mandb.lable "CEXO255"' Supprimer la table (nom du tableau)
'Mandb.addcolumn "CEXO255", "Sex", "Varchar (2) null"' Créer une structure de table (nom de table, nom de champ, type de données)
'Mandb.modcolumn "cexo255", "name", "int not null"' modifier la structure de la table (nom de table, nom de champ, nouveau type de données) _
'Mandb.delColumn "CEXO255", "Sex"' Supprimer la structure de la table (nom de la table, nom de champ)
'Mandb.addindex "CEXO255", "i_id", "id"' créer l'index de la table (nom de la table, nom d'index, nom du champ index)
'Mandb.delindex "CEXO255", "i_id"' supprimer l'index de la table (nom de la table, nom d'index)
'Mandb.addprimaryKey "CEXO255", "Nom"' Créer la clé primaire de la table (nom de la table, nom de champ de clé primaire)
'Mandb.delprimaryKey "CEXO255", "Nom"' Supprimer la clé primaire de la table (nom de la table, nom de champ de clé primaire) _
'Response.write mandb.getprimaryKey ("CEXO255")' Obtenez la clé principale du tableau (nom du tableau)
'Mandb.upColumn "CEXO255", "id", 12345, "name = 1"' Modifier la valeur du champ
'Mandb.execute "Insérer de l'espace dans les valeurs CEXO255 (id, nom) (2,2)"' Ajouter un enregistrement
'Mandb.execute "Mettre à jour cexo255 set id = 3 où name = 2"' modifier l'enregistrement
'Mandb.execute "Supprimer l'espace de CEXO255 où le nom = 2"' Supprimer l'enregistrement
'Mandb.execute ("SELECT COUNT (*) FROM CEXO255"): Response.Write Mandb.Count' Statistics Number of Records
'Si mandb.checkTable ("StudInfo") alors Response.Write "La table StudInfo existe !!!" Else Response.Write "La table StudInfo n'existe pas !!!"
'// -----------------------------------------------------------------------------------------------------------------------
'// -----------------------------------------------------------------------------------------------------------------------
Mandb.dbtype = "Access"
Mandb.dbpath = "test.mdb"
'Mandb.createdbfile "test2.mdb", "" Créer une base de données (nom de base de données, enregistrer le chemin)
'Mandb.deletedbfile ("test2.mdb")' supprimer la base de données (nom de base de données)
'Mandb.renamedbfile "test2.mdb", "test3.mdb"' nom de domaine (ancien nom de base de données, nouveau nom de base de données)
'Mandb.compactdbfile ("test3.mdb")' Base de données compressée (nom de base de données)
'Mandb.CreateTable "DW", "" Create Table (Nom de la table)
'Mandb.Renametable "dw", "dw2"' Nom de la table (ancien nom de table, nouveau nom de table) (Utilisation du composant) _
'Mandb.lable "dw"' supprimer la table (nom de la table)
'Mandb.addcolumn "cexo255", "nom", "varchar (255) pas null"' créer une structure de table (nom de table, nom de champ, type de données)
'Mandb.modcolumn "cexo255", "nom", "int not null"' modifier la structure de la table (nom de table, nom de champ, nouveau type de données)
'Mandb.delColumn "CEXO255", "Nom"' Supprimer la structure de la table (nom de la table, nom de champ)
'Mandb.addindex "CEXO255", "UserId", "ID"' Créer un index de table (nom de la table, nom d'index, nom du champ index)
'Mandb.delindex "CEXO255", "userId"' supprimer l'index de la table (nom de la table, nom d'index) _
'Mandb.addprimaryKey "CEXO255", "ID"' Créer la clé primaire de la table (nom de la table, nom de champ de clé primaire)
'Mandb.delprimaryKey "CEXO255", "ID"' Supprimer la clé primaire de la table (nom de la table, nom de champ de clé primaire) _
'Response.write mandb.getprimaryKey ("CEXO255")' Obtenez la clé principale du tableau (nom du tableau)
'Mandb.upColumn "CEXO255", "id", "12345", "id =' 12 '"' Modifier la valeur du champ
'Mandb.execute "Insérer de l'espace dans les valeurs CEXO255 (ID) (' 789 ')"' Ajouter un enregistrement
'Mandb.execute "Mettre à jour cexo255 set id =' wxf 'où id =' 789 '' 'modifier l'enregistrement
'Mandb.execute "Supprimer l'espace de cexo255 où id =' wxf '' 'supprimer l'enregistrement
Mandb.execute ("SELECT COUNT (*) FROM CEXO255"): Response.Write Mandb.Count 'Statistics Number of Records
'Si mandb.checkTable ("StudInfo") alors Response.Write "La table StudInfo existe !!!" Else Response.Write "La table StudInfo n'existe pas !!!"
'// -----------------------------------------------------------------------------------------------------------------------
Définir Mandb = rien
%>
Ce qui précède est une introduction aux étapes de gestion de la base de données en ligne. Je crois que tout le monde a une certaine compréhension. Si vous souhaitez connaître plus d'informations techniques, veuillez continuer à faire attention à la mauvaise chaîne de nouvelles technologies!