ASP.NET se utiliza para mantener y administrar datos en el modo web, realizando la creación de bases de datos, el funcionamiento de la sintaxis SQL y la importación y exportación de datos. ¡Deje que el editor de Foxin Technology Channel lo lleve al siguiente artículo para conocer los pasos de la gestión de bases de datos en línea!
Clase Rlmandbcls
Privado sdbpath, rlconn, sdbtype, sservername, susername, spassword
Conteo público
Sub class_initialize () privado ()
sdbtype = ""
Final
Sub class_terminate () privado ()
If isObject (rlconn) entonces
Rlconn.close
Establecer rlconn = nada
Final si
Final
Propiedad pública Deja que DBType (Byval Strvar)
sdbtype = strvar
Propiedad final
Propiedad pública Deja servername (Byval Strvar)
sservername = strvar
Propiedad final
Propiedad pública Deja el nombre de usuario (Byval Strvar)
Susername = Strvar
Propiedad final
Propiedad pública Let Password (Byval Strvar)
Spassword = Strvar
Propiedad final
'Establecer la ruta de la base de datos
Propiedad pública Deja que DBPath (Byval Strvar)
sdbpath = strvar
Seleccionar caso SDBTYPE
Caso "SQL"
Strserver = sservername 'nombre del servidor de la base de datos
Struid = Susername 'Su cuenta de inicio de sesión
Strsapwd = spassword 'su contraseña de inicio de sesión
Strdbname = sdbpath 'su nombre de base de datos
sdbpath = "driver = {SQL Server}; server =" & strserver & "; uid =" & struid & "; pwd =" & strsapwd & "; database =" & strdbname
Caso "Acceso", ","
sdbpath = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source =" & Server.Mappath (SDBPath)
Final seleccionar
Checkdata rlconn, sdbpath
Propiedad final
'Verifique el enlace de la base de datos, (nombre de variable, cadena de conexión)
Sub checkdata privado (DataConn, Connstr)
En el currículum de error siguiente
Establecer dataConn = server.createObject ("ADODB.Connection")
Dataconn.open Connstr
Si err entonces
Err.Clear
Establecer dataConn = nada
Errmsg ("Error de conexión de la base de datos:" & reemplazar (connstr, "/", "//") & ",/nlease verifique la cadena de conexión para confirmar si la información de la base de datos que ingresó es correcta")
Respuesta.
Final si
Final
'Verifique si la tabla existe
TETABLE DE CHECKABLE DE FUNCIÓN (TableName)
En el currículum de error siguiente
Rlconn.execute ("Seleccionar * de" y Tablename)
Si err.number <> 0 entonces
Err.Clear ()
Llame a Errmsg ("Solicitud de error:" & Err.Description)
Checktable = falso
Demás
Checktable = verdadero
Final si
Función final
'Mensaje de error (mensaje)
Sub Errmsg privado (MSG)
Respuesta. Escribe MSG
Respuesta. Flush
Final
'-----------------------------------------------------------------------------------------------
'Modificar el valor del campo
Public sub upcolumn (Byval TableName, Byval Columnname, Byval Valuetext, Byval Wherestr)
En el currículum de error siguiente
Si wherestr <> "" entonces
If instrer (wherestrest, "where") <= 0 entonces
Wherestr = "where" & wherestr
Final si
Demás
Wherestr = ""
Final si
Rlconn.Execute ("Update" & tableName & "set" & columnname & "=" & valutext & "" & wherestr)
Si err.number <> 0 entonces
Llame a Errmsg ("Solicitud de error:" & Err.Description)
Err.Clear ()
Final si
Final
'Ejecutar la instrucción SQL
Public Sub Execute (STRSQL)
Establecer rscount = server.createObject ("ADODB.Recordset")
En el currículum de error siguiente
Rscount = rlconn.execute (strsql)
Si se deja (strsql, 12) = "seleccione contar" entonces cuenta = rscount (0)
Si err.number <> 0 entonces
Llame a Errmsg ("Solicitud de error:" & Err.Description)
Err.Clear ()
Final si
RScount.close
Establecer rscount = nada
Final
'-----------------------------------------------------------------------------------------------
'Agregar índice de campo
Función pública AddIndex (Byval TableName, ByVal IndexName, ByVal ValuEtext)
En el currículum de error siguiente
Rlconn.execute ("Crear índice" e indexname & "on [" & tableName & "] ([" & valueText & "])")
Si err.number <> 0 entonces
Llame a Errmsg ("Crear en" & TableName & "TableName &" TableName & "IndexName &" IndexName & "Cause" & Err.Description & "Modifique el índice manualmente").
Err.Clear ()
AddIndex = falso
Demás
AddIndex = True
Final si
Función final
'Eliminar el índice de tabla
Función pública delindex (Byval tableName, Byval IndexName)
En el currículum de error siguiente
Rlconn.execute ("Drop Space Index [" & TableName & "]." & IndexName)
Si err.number <> 0 entonces
Llame a Errmsg ("en" & TableName & "TableDelete" & IndexName & "Error de índice, Causa" & Err.Description y "Elimine el índice manualmente").
Err.Clear ()
Delindex = falso
Demás
Delindex = verdadero
Final si
Función final
'Cambie la definición del nombre de tabla de tabla para establecer el nombre de columna de campo como la clave principal
Función pública AddPrimaryKey (Byval TableName, Byval ColumnName)
En el currículum de error siguiente
TableName = reemplazar (reemplazar (TableName, "[", ""), "]", "")
Rlconn.execute ("alter tabla" y tableName & "Agregar restricción pk _" & tableName & "Key principal (" & columnName & ")")
Si err.number <> 0 entonces
Llame a Errmsg ("Error al agregar" & TableName & "Field" & ColumnName & "Como clave principal, Razón" y Err.Description y "Modifique las propiedades de campo manualmente").
Err.Clear ()
AddPrimaryKey = falso
Demás
AddPrimaryKey = True
Final si
Función final
'Cambiar la definición de Tabla Tablename para eliminar la definición de la clave primaria del nombre de columna de campo
Función pública DelPrimaryKey (Byval TableName, Byval ColumnName)
En el currículum de error siguiente
Rlconn.execute ("Alter Tabla" y Tablename & "Drop Space Primary Key (" & columnName & ")")
Si err.number <> 0 entonces
Llame a Errmsg ("Se produjo un error al eliminar la definición de la clave primaria" & TableName & "" Según "Preguntar el campo" & ColumnName & ", Reason" & err.description & "Modifique las propiedades de campo manualmente"). ")
Err.Clear ()
DelPrimaryKey = falso
Demás
DelPrimaryKey = True
Final si
Función final
'Verifique si la clave principal existe y devuelve el nombre de la clave principal de la tabla
Función getPrimaryKey (tableName)
En el currículum de error siguiente
Dim rsprimary
GetPrimaryKey = ""
Establecer rsprimary = rlconn.openschema (28, matriz (vacío, vacío, tableName)))
Si no es rsprimary.eof, entonces getPrimaryKey = rsPrimary ("column_name")
Establecer rsprimary = nada
Si err.number <> 0 entonces
Llame a Errmsg ("La base de datos no admite la clave principal para detectar la tabla de datos" & TableName & ". Razón:" y Err.Description)
Err.Clear ()
Final si
Función final
'-----------------------------------------------------------------------------------------------
'Agregar un nuevo campo
Función pública addColumn (tableName, columnname, columntype)
En el currículum de error siguiente
Rlconn.execute ("alter tabla [" & tableName & "] add [" & columnname & "]" & columntype & "")
Si err entonces
Error de campo ERRMSG ("New" & TableName & "En la tabla, crea manualmente el campo" & columnName & " En la base de datos, el atributo es " & columntype & " , motivo" & err.description)
Err.Clear
AddColumn = falso
Demás
AddColumn = True
Final si
Función final
'Cambiar la función genérica de campo
Función pública modcolumn (tableName, columnname, columntype)
En el currículum de error siguiente
Rlconn.execute ("alter tabla [" & tableName & "] alter columna [" & columnname & "]" & columntype & "")
Si err entonces
Llame a Errmsg ("Cambiar" y Tablename & "El atributo de campo en la tabla es incorrecto, por favor cambie manualmente la base de datos " & columnname & " campo a " & columntype & " propiedades, causas" & err.description)
Err.Clear
ModColumn = falso
Demás
Modcolumn = verdadero
Final si
Función final
'Eliminar la función genérica de campo
Función pública DelColumn (Tablename, columnname)
En el currículum de error siguiente
Si sdbtype = "sql" entonces
Rlconn.execute ("alter tabla [" & tableName & "] columna de espacio de caída [" & columnname & "]")
Demás
Rlconn.execute ("alter tabla [" & tableName & "] Drop space [" & columnname & "]")
Final si
Si err entonces
Llame a Errmsg ("Eliminar" y Tablename & "Errores de campo en la tabla, por favor, elimine manualmente " & columnname & " Eliminar el campo, causa" y err.description)
Err.Clear
Delcolumn = falso
Demás
DelColumn = True
Final si
Función final
'-----------------------------------------------------------------------------------------------
'Abra el objeto Nombre de la tabla
Sub RenametableConn privado ()
En el currículum de error siguiente
Establecer objadoxdatabase = server.createObject ("Adox.catalog")
objadoxdatabase.activeconnection = connstr
Si err entonces
ERRMSG ("Se produjo un error al crear un objeto de nombre de la tabla de cambio. El espacio que está actualizando no admite este objeto. Es más probable que necesite cambiar el nombre de la tabla manualmente, razonamiento" & err.escription)
Respuesta.
Err.Clear
Final si
Final
'Cierre el objeto Nombre de la tabla
Sub CloserenametableConn privado ()
Establecer objadoxdatabase = nada
Conn.clar
Establecer conn = nada
Final
'Cambiar el nombre de la tabla de la base de datos, parámetros de entrada: nombre de la tabla antiguo, nombre nuevo de la tabla
Función pública renametable (antiguo, nuevo nombre)
En el currículum de error siguiente
Llame a RenametableConn
objadoxdatabase.tables (OldName) .name = Newname
Si err entonces
Llame a Errmsg ("Cambie el error del nombre de la tabla, por favor cambie manualmente el nombre de la tabla en la base de datos " & Oldname & " Nombre de la tabla a <b>" & Newname & ", Razón" y Err.Description)
Err.Clear
Renametable = falso
Demás
Renametable = verdadero
Final si
Llame a CloserenametableConn
Función final
'Eliminar la función general de la tabla
Deltable de función pública (nombre de tabla)
En el currículum de error siguiente
Rlconn.execute ("Tabla espacial de caída [" & tableName & "]")
Si err entonces
Error de tabla ERRMSG ("Eliminar" y Tablename & ", elimine manualmente la tabla" & tableName & " en la base de datos, motivo" y err.description)
Err.Clear
Deltable = falso
Demás
Deltable = verdadero
Final si
Función final
'Crea una nueva mesa
Función pública CreateTable (Byval TableName, Byval Fieldlist)
Dim strsql
Si sdbtype = "sql" entonces
Strsql = "Crear tabla [" & tableName & "] (" & FieldList & ")"
Demás
Strsql = "Crear tabla [" & tableName & "]"
Final si
Rlconn.execute (strsql)
Si err.number <> 0 entonces
Llame a Errmsg ("nuevo" & tableName & "Error de tabla, causa" & err.description & "")
Err.Clear ()
Createtable = falso
Demás
Createtable = verdadero
Final si
Función final
'-----------------------------------------------------------------------------------------------
'Cree un archivo de base de datos
Función pública creadabfile (Byval dbFilename, Byval SavePath)
En el currículum de error siguiente
SavePath = reemplazar (savePath, "/", "/")
Si es correcto (SavePath, 1) <> "/" o Right (SavePath, 1) <> "/" entonces SavePath = TRIM (SavePath) & "/"
Si a la izquierda (dbFileName, 1) = "/" o izquierda (dbFileName, 1) = "/" entonces dbfilename = trim (Mid (dbFileName, 2, len (dbFileName)))))
Si dBExists (appPath () & SavePath & dbFileName) entonces
Errmsg ("Lo siento, esta base de datos ya existe!" & AppPath () & SavePath & dbFileName)
Creadobfile = falso
Demás
Response.Write AppPath () & SavePath & DBFileName
CA CA DIME
Establecer CA = Server.CreateObject ("Adox.Catalog")
Si err.number <> 0 entonces
ERRMSG ("no se puede establecer, verifique el mensaje de error
"& Err.number &"
"& Err.Description)
Err.Clear
Creadobfile = falso
Función de salida
Final si
Llame a CA.Create ("Provider = Microsoft.Jet.OLEDB.4.0; Data Source =" & AppPath () & SavePath & DBFileName)
Establecer CA = nada
Creadobfile = true
Final si
Función final
'Encuentra si existe el archivo de la base de datos
Función privada dbexists (Byval DBPath)
En el currículum de error siguiente
Oscuro
Establecer C = Server.CreateObject ("ADODB.Connection")
C.Open "Provider = Microsoft.Jet.OLEDB.4.0; Data Source =" & DBPath
Si err.number <> 0 entonces
Err.Clear
DBExists = falso
demás
DBExists = True
Final si
establecer C = nada
Función final
'Toma el camino real actual
Función privada appPath ()
Apppath = server.mappath ("./")
Si es correcto (appPath, 1) = "/" entonces
AppPath = AppPath
Demás
AppPath = appPath & "/"
Final si
Función final
'Eliminar un archivo de base de datos
Función pública DeletedBFile (FILESPEC)
fileSpec = appPath () y Filespec
Dim FSO
Establecer fso = createObject ("scripting.filesystemObject")
Si err.number <> 0 entonces
ERRMSG ("¿Se produjo un error al eliminar el archivo! Por favor verifique el mensaje de error:" & err.number & "" & err.description & "
")
Err.Clear
Deletedbfile = falso
Final si
Si dBExists (fileSpeC) entonces
Llame a FSO.DeleteFile (Filespec)
Deletedbfile = true
Demás
ERRMSG ("¿Se produjo un error al eliminar el archivo! Vea el mensaje de error:" & err.number & "" & err.description & "
")
Deletedbfile = falso
Función de salida
Final si
Establecer FSO = nada
Función final
'Modificar un nombre de base de datos
Función pública renamedBFile (FileSpec1, FileSpec2)
fileSpec1 = appPath () y fileSpec1: filespec2 = appPath () y filespec2
Dim FSO
Establecer fso = createObject ("scripting.filesystemObject")
Si err.number <> 0 entonces
ERRMSG ("Se produjo un error al modificar el nombre del archivo! Por favor verifique el mensaje de error:" & err.number & "" & err.description)
Err.Clear
RenamedBFile = falso
Final si
Si dBExists (filespec1) entonces
Llame a FSO.CopyFile (FileSpec1, FileSpec2, Verdadero)
Llame a FSO.DeleteFile (fileSpec1)
RenamedBFile = True
Demás
ERRMSG ("El archivo de origen no existe !!!")
RenamedBFile = falso
Función de salida
Final si
Establecer FSO = nada
Función final
'Base de datos comprimida
Función pública compactDbFile (strdbfilename)
Dim jet_conn_partial
Dim SourceConn
Dim desconn
Dim oJetEngine
Dim OfSo
JET_CONN_PARTIA = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source ="
SourceConn = jet_conn_partial & apppath () & strdbfilename
Desconn = jet_conn_partial & apppath () & "temp" & strdbfilename
Establecer OFSO = Server.CreateObject ("scripting.filesystemObject")
Establecer oJetEngine = server.CreateObject ("JRO.JetEngine")
Con OfSo
Si no .fileExists (appPath () y strdbfilename) entonces
Errmsg ("Archivo de base de datos no encontrado !!!")
Detener
CompactDbfile = falso
Función de salida
Demás
If .fileExists (apppath () y "temp" y strdbfilename) entonces
ERRMSG ("Error desconocido !!!")
.DeleteFile (appPath () y "temp" y strdbfilename)
CompactDbfile = falso
Función de salida
Final si
Final si
Terminar con
Con OJetEngine
.CompactDatabase SourceConn, Destconn
Terminar con
ofSo.DeleteFile AppPath () y StrdbFilename
OfSo.MoveFile AppPath () y "Temp" y StrdbFilename, AppPath () y StrdbFilename
Establecer OFSO = nada
Establecer oJetEngine = nada
CompactDbfile = True
Función final
Clase final
Dim MandB
Establecer MANDB = nuevo RLMandBCLS
'// -------------------------------------------------------------------------------------------------------------------
'Mandb.dbtype = "sql"
'Mandb.ServerName = "Tao-Kuizu"
'MandB.Username = "SA"
'Mandb.password = "123456"
'Mandb.dbpath = "hhstuss"
'MandB.CreateTable "CEXO255", "ID int no la clave primaria nulo, nombre varchar (20) no nulo"' Crear tabla (nombre de la tabla)
'MandB.Renametable "CEXO255", "CEXO2552"' Nombre de la tabla (nombre de la tabla anterior, nombre nuevo de la tabla) (usando componente)
'Mandb.deltable "CEXO255"' Tabla de eliminación (nombre de la tabla)
'Mandb.addcolumn "CEXO255", "Sex", "Varchar (2) NULL"' Crear una estructura de tabla (nombre de tabla, nombre de campo, tipo de datos)
'Mandb.ModColumn "CEXO255", "Nombre", "int no nulo"' Modifique la estructura de la tabla (nombre de la tabla, nombre de campo, nuevo tipo de datos) _
'Mandb.delcolumn "CEXO255", "Sex"' Elimine la estructura de la tabla (nombre de la tabla, nombre de campo)
'Mandb.addindex "CEXO255", "I_ID", "ID"' Crear índice de tabla (nombre de tabla, nombre del índice, nombre del campo de índice)
'Mandb.delindex "CEXO255", "i_id"' Elimine el índice de la tabla (nombre de la tabla, nombre del índice)
'MandB.AddPrimaryKey "CEXO255", "Nombre"' Crear la tecla primaria de la tabla (nombre de la tabla, nombre del campo de la clave principal)
'MandB.DelPrimaryKey "CEXO255", "Nombre"' Elimine la tecla primaria de la tabla (nombre de la tabla, nombre del campo de la tecla principal) _
'Response.Write MandB.GetPrimaryKey ("CEXO255")' Obtenga la clave principal de la tabla (nombre de la tabla)
'Mandb.upcolumn "CEXO255", "ID", 12345, "Nombre = 1"' Modifique el valor del campo
'Mandb.Execute "Insertar espacio en CEXO255 (ID, nombre) Valores (2,2)"' Agregar registro
'Mandb.Execute "Actualización CEXO255 set id = 3 donde nombre = 2"' Modificar el registro
'MandB.Execute "Eliminar espacio de CEXO255 donde nombre = 2"' Eliminar registro
'MandB.Execute ("Seleccionar recuento (*) de CEXO255"): Response.Write Mandb.Count' Número de estadísticas de registros
'If MandB.CheckTable ("Studinfo"), entonces la respuesta de STUDINFO existe! " El más respuesta.write "Studinfo Table no existe!"
'// -------------------------------------------------------------------------------------------------------------------
'// -------------------------------------------------------------------------------------------------------------------
Mandb.dbtype = "acceso"
Mandb.dbpath = "test.mdb"
'MandB.CreatedBFile "test2.mdb", ""' Crear base de datos (nombre de la base de datos, Guardar ruta)
'MandB.DeletedBFile ("test2.mdb")' Eliminar la base de datos (nombre de la base de datos)
'MandB.RenamedBFile "test2.mdb", "test3.mdb"' Nombre de dominio (nombre de la base de datos anterior, nuevo nombre de la base de datos)
'MandB.comPACTDBFILE ("test3.mdb")' Base de datos comprimida (nombre de la base de datos)
'MandB.CreateTable "DW", ""' Crear tabla (nombre de la tabla)
'MandB.Renametable "DW", "DW2"' Nombre de la tabla (nombre de la tabla anterior, nuevo nombre de la tabla) (usando componente) _
'Mandb.deltable "DW"' Tabla Eliminar (nombre de la tabla)
'Mandb.addcolumn "CEXO255", "Nombre", "Varchar (255) no nulo"' Cree una estructura de tabla (nombre de tabla, nombre de campo, tipo de datos)
'Mandb.modcolumn "CEXO255", "Nombre", "int no nulo"' Modifique la estructura de la tabla (nombre de la tabla, nombre de campo, nuevo tipo de datos)
'Mandb.DelColumn "CEXO255", "Nombre"' Elimine la estructura de la tabla (nombre de la tabla, nombre de campo)
'Mandb.addindex "CEXO255", "UserId", "ID"' Crear índice de tabla (nombre de la tabla, nombre del índice, nombre del campo del índice)
'Mandb.delindex "CEXO255", "UserId"' Elimine el índice de tabla (nombre de la tabla, nombre del índice) _
'MandB.AddPrimaryKey "CEXO255", "ID"' Crear la clave primaria de la tabla (nombre de la tabla, nombre de campo de clave principal)
'MandB.DelPrimaryKey "CEXO255", "ID"' Elimine la tecla primaria de la tabla (nombre de la tabla, nombre del campo de la tecla principal) _
'Response.Write MandB.GetPrimaryKey ("CEXO255")' Obtenga la clave principal de la tabla (nombre de la tabla)
'MandB.UPCOLUMN "CEXO255", "ID", "12345", "id =' 12 '"' Modifique el valor del campo
'MandB.Execute "Insertar espacio en valores CEXO255 (ID) (' 789 ')"' Agregar registro
'MandB.Execute "Actualizar CEXO255 set id =' wxf 'donde id =' 789 '"' Modifique el registro
'MandB.Execute "Eliminar espacio de CEXO255 donde id =' wxf '"' Eliminar registro
MandB.Execute ("Seleccionar recuento (*) de CEXO255"): Respuesta.Write Mandb.Count 'Número de estadísticas de registros
'If MandB.CheckTable ("Studinfo"), entonces la respuesta de STUDINFO existe! " El más respuesta.write "Studinfo Table no existe!"
'// -------------------------------------------------------------------------------------------------------------------
Establecer MANDB = nada
%>
Lo anterior es una introducción a los pasos para la gestión de la base de datos en línea. Creo que todos tienen un cierto entendimiento. Si desea saber más información técnica, ¡continúe prestando atención al nuevo canal de tecnología incorrecto!