O ASP.NET é usado para manter e gerenciar dados no modo Web, realizando a criação de bancos de dados, a operação da sintaxe SQL e a importação e exportação de dados. Deixe o editor do Foxin Technology Channel levá -lo ao artigo a seguir para saber sobre as etapas do gerenciamento de banco de dados on -line!
Classe rlmandbcls
SDBPath privado, RLConn, SDBTYPE, SSERVERNAME, Susername, Spassword
Contagem pública
Sub -classe privado_initialize ()
sdbtype = ""
Final sub
Sub -classe particular ()
Se Isobject (RLConn), então
Rlconn.close
Definir rlconn = nada
Final se
Final sub
Propriedade pública Let Dbtype (Byval Strvar)
sdbtype = strvar
Propriedade final
Propriedade pública Let ServerName (Byval Strvar)
sservername = strvar
Propriedade final
Propriedade pública Let Username (Byval Strvar)
Susername = strvar
Propriedade final
Propriedade pública Let Senha (Byval Strvar)
spassword = strvar
Propriedade final
'Defina o caminho do banco de dados
Propriedade pública Let DBPath (Byval Strvar)
sdbpath = strvar
Selecione o caso sdbtype
Caso "SQL"
StrServer = Nome do servidor de banco de dados SSERVERNAME '
Struid = Susername 'sua conta de login
Strsapwd = spassword 'sua senha de login
Strdbname = sdbpath 'seu nome de banco de dados
sdbpath = "driver = {sql server}; server =" & strserver & "; uid =" & struid & "; pwd =" & strsapwd & "; database =" & strdbname
Caso "acesso", "
sdbpath = "provider = microsoft.jet.oledb.4.0; dados de dados =" & server.mappath (sdbpath)
Final Selecione
CheckData RLConn, SDBPath
Propriedade final
'Verifique o link do banco de dados, (nome da variável, string de conexão)
Sub CheckData privado (Dataconn, Connstr)
Em erro de erro em seguida
Definir dataconn = server.createObject ("adodb.connection")
DATACONN.OPEN CONNSTR
Se errar então
Err.clear
Definir dataconn = nada
Errmsg ("Erro de conexão com o banco de dados:" e substituir (Connstr, "/", "//") & ",/Nplease Verifique a string de conexão para confirmar se as informações do banco de dados inseridas estão corretas.")
Resposta.END
Final se
Final sub
'Verifique se a tabela existe
Função CheckTable (tableName)
Em erro de erro em seguida
Rlconn.execute ("Selecione * de" & tableName)
Se err.number <> 0 então
Err.clear ()
Ligue para Errmsg ("prompt de erro:" & err.description)
CheckTable = false
Outro
CheckTable = true
Final se
Função final
'Mensagem de erro (mensagem)
Sub Errmsg privado (MSG)
Response.Write msg
Response.flush
Final sub
'---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'Modifique o valor do campo
Public Sub -UpColumn (ByVal TableName, Byval ColumnName, Byval ValueText, Byval Wherest)
Em erro de erro em seguida
Se o que você <> "" então
Se Instr (Wherest, "Where") <= 0 então
Wherest = "where" & wherest
Final se
Outro
Onde = ""
Final se
Rlconn.execute ("update" & tablename & "set" & columnName & "=" & valueText & "" & wherest)
Se err.number <> 0 então
Ligue para Errmsg ("prompt de erro:" & err.description)
Err.clear ()
Final se
Final sub
'Execute a instrução SQL
Sub -executo público (STRSQL)
Definir rscount = server.createObject ("adodb.recordset")
Em erro de erro em seguida
Rscount = rlconn.execute (strsql)
Se deixado (strSQL, 12) = "Selecione contagem", então count = rscount (0)
Se err.number <> 0 então
Ligue para Errmsg ("prompt de erro:" & err.description)
Err.clear ()
Final se
Rscount.close
Definir rscount = nada
Final sub
'---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'Adicione o índice de campo
Função pública AddIndex (ByVal TableName, Byval IndexName, Byval ValueText)
Em erro de erro em seguida
Rlconn.execute ("Criar índice" e indexname & "em [" & tableName & "] ([" & valueText & "])"))
Se err.number <> 0 então
Ligue para Errmsg ("Criar em" & TableName & "TableName &" TableName & "IndexName &" IndexName & "Causa" & Err.Description & "Por favor, modifique o índice manualmente.")
Err.clear ()
AddIndex = false
Outro
AddIndex = true
Final se
Função final
'Exclua o índice de tabela
Função pública Delindex (Byval TableName, Byval IndexName)
Em erro de erro em seguida
Rlconn.execute ("Drop Space Index [" & tableName & "]." & IndexName)
Se err.number <> 0 então
Ligue para Errmsg ("in" & TableName & "TABLEELETE" & INDEXNAME & "ERRO INDEX, CAUSO" & ERR.Description & "Por favor, exclua o índice manualmente.")
Err.clear ()
Delindex = false
Outro
Delindex = true
Final se
Função final
'Altere a definição de nome da tabela para definir o nome do columnName como a chave primária
Função pública AddPrimaryKey (ByVal TableName, Byval ColumnName)
Em erro de erro em seguida
TableName = Substitua (Substitua (TableName, "[", ""), "]", "")
Rlconn.execute ("ALTER TABLE" & TableName & "Adicione restrição PK _" & TableName & "Primary Key (" & ColumnName & ")")
Se err.number <> 0 então
Ligue para Errmsg ("Erro ao adicionar" & TableName & "Field" & ColumnName & "como chave primária, Razão" e Err.Description & "Por favor, modifique as propriedades do campo manualmente".
Err.clear ()
AddPrimaryKey = false
Outro
AddPrimaryKey = true
Final se
Função final
'Altere a definição de tablename de tabela para excluir a definição de Campo ColumnName Primária Chave
Função pública DelPrimaryKey (ByVal TableName, Byval ColumnName)
Em erro de erro em seguida
Rlconn.execute ("ALTER TABLE" e TableName & "Drop Space Primary Key (" & ColumnName & ")")
Se err.number <> 0 então
Ligue para Errmsg ("Ocorreu um erro ao excluir a definição da chave primária" & TableName & "" De acordo com "Pedir ao campo" & ColumnName & ", Razão" & Err.Description & "Por favor, modifique as propriedades do campo manualmente")
Err.clear ()
DelPrimaryKey = false
Outro
DelPrimaryKey = true
Final se
Função final
'Verifique se a chave primária existe e retorne o nome principal da tabela
Função getPrimaryKey (tableName)
em erro de erro em seguida
Dim rsPrimary
GetPrimaryKey = ""
Definir rsprimary = rlconn.openschema (28, Array (vazio, vazio, nome do quadro)))
Se não rsprimary.eof então getPrimaryKey = rsPrimary ("column_name")
Definir rsPrimary = nada
Se err.number <> 0 então
Chamada Errmsg ("O banco de dados não suporta a chave primária para detectar a tabela de dados" & TableName & ". Razão:" & err.Description)
Err.clear ()
Final se
Função final
'---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'Adicione um novo campo
Função pública AddColumn (tableName, columnName, colunTyType)
Em erro de erro em seguida
Rlconn.execute ("ALTER TABLE [" & TableName & "] Add [" & ColumnName & "]" & ColumnType & ""
Se errar então
Errmsg ("new" e tableName & "Erro de campo na tabela, crie manualmente o" Campo "& ColumnName &" no banco de dados, o atributo é "& coluntype &" , Razão "& Err.Description)
Err.clear
AddColumn = false
Outro
AddColumn = true
Final se
Função final
'Altere a função genérica do campo
Função pública Modcolumn (tableName, columnName, colunType)
Em erro de erro em seguida
Rlconn.execute ("ALTER TABLE [" & tableName & "] Alter Column [" & ColumnName & "]" & ColumnType & ""
Se errar então
Call Errmsg ("Alterar" e TableName & "O atributo de campo na tabela está incorreto, altere manualmente o banco de dados " e columnName & " Field to " & ColumnType & " Properties, Causas" & Err.Description)
Err.clear
ModColumn = false
Outro
ModColumn = true
Final se
Função final
'Excluir função genérica de campo
Função pública Delcolumn (tableName, columnName)
Em erro de erro em seguida
Se sdbtype = "sql" então
Rlconn.execute ("ALTER TABLE [" & TableName & "] Drop Space Column [" & ColumnName & "]")
Outro
Rlconn.execute ("ALTER TABLE [" & TableName & "] Drop Space [" & ColumnName & "]")
Final se
Se errar então
Ligue para Errmsg ("Excluir" e TableName & "Erros de campo na tabela, por favor, exclua manualmente " e columnName & " Campo Delete, Causa" & Err.Description)
Err.clear
Delcolumn = false
Outro
Delcolumn = true
Final se
Função final
'---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'Abra o objeto de nome da tabela
Sub renametableConn privado ()
Em erro de erro em seguida
Definir objadoxDatabase = server.createObject ("Adox.catalog")
objadoxdatabase.activeConnection = Connstr
Se errar então
Errmsg ("Ocorreu um erro ao criar um objeto de nome da tabela de alterações. O espaço que você está atualizando não suporta esse objeto. É mais provável que você precise alterar o nome da tabela manualmente, Razão" & Err.Description)
Resposta.END
Err.clear
Final se
Final sub
'Feche o objeto de nome da tabela
Sub privado CloseRenametableConn ()
Definir objadoxDatabase = nada
Conn.Close
Definir conn = nada
Final sub
'Altere o nome da tabela do banco de dados, parâmetros de entrada: nome da tabela antiga, novo nome da tabela
Função pública Renametable (Oldname, NewName)
Em erro de erro em seguida
Ligue para renametableConn
objadoxDatabase.Tables (OldName) .Name = newName
Se errar então
Ligue para Errmsg ("Altere o erro do nome da tabela, altere manualmente o nome da tabela no banco de dados " & OldName & " Nome da tabela para <b>" & newName & ", Razão" e Err.Description)
Err.clear
Renametable = false
Outro
Renametable = true
Final se
Ligue para CloseRenametableConn
Função final
'Excluir a função geral da tabela
Função pública Deltaable (tableName)
Em erro de erro em seguida
Rlconn.execute ("Tabela de espaço de soltar [" & tableName & "]")
Se errar então
Errmsg ("Excluir" e TableName e "Erro da tabela, exclua manualmente a tabela" & TableName & " no banco de dados, Razão" e Err.Description)
Err.clear
Deltable = false
Outro
Deltable = true
Final se
Função final
'Crie uma nova tabela
Função pública CreateTable (ByVal TableName, Byval FieldList)
StrSQL dim
Se sdbtype = "sql" então
Strsql = "Criar tabela [" & TableName & "] (" & fieldlist & ")"
Outro
Strsql = "Criar tabela [" & tableName & "]"
Final se
Rlconn.execute (strsql)
Se err.number <> 0 então
Ligue para Errmsg ("new" e tableName e "Erro da tabela, causa" e err.description & "")
Err.clear ()
CreateTable = false
Outro
CreateTable = true
Final se
Função final
'---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'Crie um arquivo de banco de dados
Função pública CreateDBFile (ByVal DBFileName, Byval SavePath)
Em erro de erro em seguida
Salvath = reply (savePath, "/", "/")
Se à direita (salveira, 1) <> "/" ou à direita (salvina, 1) <> "/" então salvarpath = Trim (salveira) & "/"
Se esquerdo (dbfileName, 1) = "/" ou esquerda (dbfileName, 1) = "/" então dbfileName = TRIM (MID (dbfileName, 2, len (dbfileName))))
Se dBexists (AppPath () e SavePath & dbfileName) então
Errmsg ("Desculpe, este banco de dados já existe!" & AppPath () & SavePath & dbfileName)
CreateDBFile = false
Outro
Response.Write Apppath () e SavePath & dbfileName
Dim ca
Definir CA = Server.CreateObject ("Adox.catalog")
Se err.number <> 0 então
Errmsg ("não pode ser estabelecido, verifique a mensagem de erro
"& Err.number &"
"& Err.Description)
Err.clear
CreateDBFile = false
Função de saída
Final se
Ligue para C.Create ("Provedor = Microsoft.Jet.oledb.4.0; Data Source =" & AppPath () & SavePath & dbfileName)
Definir CA = nada
CreateDBFile = true
Final se
Função final
'Encontre se o arquivo de banco de dados existe
Função privada DBexists (Byval DBPath)
Em erro de erro em seguida
Escurecido
Set c = server.createObject ("adodb.connection")
c.open "Provedor = Microsoft.Jet.oledb.4.0; Data Source =" & DBPath
Se err.number <> 0 então
Err.clear
DBexists = false
outro
DBexists = true
Final se
Definir C = nada
Função final
'Pegue o caminho real atual
Função privada apppath ()
Apppath = server.mappath ("./")
Se certo (apppath, 1) = "/" então
AppPath = Apppath
Outro
AppPath = Apppath & "/"
Final se
Função final
'Exclua um arquivo de banco de dados
Função pública DeletedBfile (FileSeC)
FILESPEC = AppPath () e FileSpec
Dim FSO
Set fso = createObject ("script.filesystemoBject")
Se err.number <> 0 então
Errmsg ("Ocorreu um erro ao excluir o arquivo! Verifique a mensagem de erro:" & err.number & "" & err.description & "
")
Err.clear
Deletedbfile = false
Final se
Se dbexists (FileSeC), então
ligue para fso.DeleteFile (FileSpec)
DeletedBfile = true
Outro
Errmsg ("Ocorreu um erro ao excluir o arquivo! Por favor, veja a mensagem de erro:" & err.number & "" & err.description & "
")
Deletedbfile = false
Função de saída
Final se
Definir FSO = nada
Função final
'Modifique um nome de banco de dados
Função pública renamedbfile (FileSeC1, FileSpec2)
FileSpec1 = AppPath () e FileSpec1: FileSpec2 = AppPath () e FileSpec2
Dim FSO
Set fso = createObject ("script.filesystemoBject")
Se err.number <> 0 então
Errmsg ("Ocorreu um erro ao modificar o nome do arquivo! Verifique a mensagem de erro:" & err.number & "" e err.description)
Err.clear
Renamedbfile = false
Final se
Se dbexists (FileSeC1), então
ligue para fso.copyFile (FileSeC1, FileSeC2, True)
Ligue para FSO.DeleteFile (FileSeC1)
Renamedbfile = true
Outro
Errmsg ("O arquivo de origem não existe !!!")
Renamedbfile = false
Função de saída
Final se
Definir FSO = nada
Função final
'Banco de dados comprimido
Função pública Compactdbfile (strdbfileName)
Dim Jet_Conn_Parcial
Dim SourceConn
Dim Destconn
Dim ojetengine
Dim OFSO
Jet_Conn_Parcial = "Provider = Microsoft.Jet.oledb.4.0; Data Source ="
SourceConn = Jet_Conn_Parcial & AppPath () & strdbfilename
Destconn = Jet_Conn_Parcial & AppPath () & "Temp" & strdbfilename
Conjunto OFSO = server.createObject ("scripting.filesystemobject")
Set ojetengine = server.createObject ("jro.jetengine")
Com OFSO
Se não .fileExists (apppath () & strdbfileName) então
Errmsg ("arquivo de banco de dados não encontrado !!!")
Parar
Compactdbfile = false
Função de saída
Outro
Se .FileExists (AppPath () e "Temp" & strdbfileName) então
Errmsg ("erro desconhecido !!!")
.DeleteFile (AppPath () & "Temp" & strdbfileName)
Compactdbfile = false
Função de saída
Final se
Final se
Termine com
Com ojetengine
.Compactdatabase SourceConn, Destconn
Termine com
Ofso.DeleteFile AppPath () & strdbfileName
OFSO.MoveFile AppPath () & "Temp" & strdbfilename, AppPath () & strdbfileName
Conjunto de também = nada
Definir ojetengine = nada
Compactdbfile = true
Função final
Classe final
Dim Mandb
Definir mandB = novo rlmandbcls
'// -------------------------------------------------------------------------------------------------------------------------------
'Mandb.dbtype = "sql"
'Mandb.Servername = "Tao-kuizu"
'Mandb.username = "SA"
'Mandb.password = "123456"
'Mandb.dbpath = "hhstuss"
'Mandb.CreateTable "Cexo255", "Id int não é uma chave primária nula, nome Varchar (20) não nulo"' Criar tabela (nome da tabela)
'Mandb.renametable "Cexo255", "Cexo2552"' Nome da tabela (nome da tabela antiga, novo nome da tabela) (usando componente)
'Mandb.Deltable "Cexo255"' Excluir tabela (nome da tabela)
'Mandb.addcolumn "Cexo255", "Sex", "Varchar (2) null"' Crie uma estrutura de tabela (nome da tabela, nome de campo, tipo de dados)
'Mandb.modcolumn "Cexo255", "Nome", "int não nulo"' Modifique a estrutura da tabela (nome da tabela, nome do campo, novo tipo de dados) _
'Mandb.DelColumn "Cexo255", "Sex"' Exclua a estrutura da tabela (nome da tabela, nome do campo)
'Mandb.adDindex "Cexo255", "i_id", "id"
'Mandb.Delindex "Cexo255", "i_id"' exclua o índice da tabela (nome da tabela, nome do índice)
'Mandb.addPrimaryKey "Cexo255", "Nome"' Crie a Tabela Primária Chave (Nome da Tabela, Nome do Campo da chave primária)
'Mandb.DelPrimaryKey "Cexo255", "Nome"' Exclua a tecla Primária da tabela (nome da tabela, nome do campo da chave primária) _
'Response.Write Mandb.getPrimaryKey ("Cexo255")' Obtenha a chave primária da tabela (nome da tabela)
'Mandb.UpColumn "Cexo255", "ID", 12345, "Nome = 1"' Modifique o valor do campo
'Mandb.Execute ”Insira o espaço em Cexo255 (ID, nome) valores (2,2)"' Adicionar registro
'Mandb.Execute "Atualizar Cexo255 Set ID = 3 onde o nome = 2"' Modificar registro
'Mandb.Execute "Excluir espaço do Cexo255 onde o nome = 2"' Excluir registro
'Mandb.Execute ("Selecione a contagem (*) de Cexo255"): Response.Write Mandb.Count' Número de registros estatísticas
'Se Mandb.CheckTable ("Studinfo") então Response.Write "Studinfo Table existe !!!" Caso contrário, escrita "Tabela Studinfo não existe !!!"
'// -------------------------------------------------------------------------------------------------------------------------------
'// -------------------------------------------------------------------------------------------------------------------------------
Mandb.dbtype = "access"
Mandb.dbpath = "test.mdb"
'Mandb.createdbfile "test2.mdb", "" Crie Banco de Dados (nome do banco de dados, Salvar caminho)
'Mandb.DeleTEDBFile ("test2.mdb")' Delete Database (nome do banco de dados)
'Mandb.renamedBfile "test2.mdb", "test3.mdb"' nome de domínio (nome antigo do banco de dados, novo nome do banco de dados)
'Mandb.compactdbfile ("test3.mdb")' Banco de dados comprimido (nome do banco de dados)
'Mandb.CreateTable "DW", "" Create Table (Nome da tabela)
'Mandb.renametable "dw", "dw2"' nome da tabela (nome da tabela antiga, novo nome da tabela) (usando componente) _
'Mandb.Deltable "DW"' Excluir tabela (nome da tabela)
'Mandb.addcolumn "Cexo255", "Nome", "Varchar (255) não nulo"' Crie uma estrutura de tabela (nome da tabela, nome de campo, tipo de dados)
'Mandb.modcolumn "Cexo255", "Nome", "int não nulo"' Modifique a estrutura da tabela (nome da tabela, nome do campo, novo tipo de dados)
'Mandb.DelColumn "Cexo255", "Name"' Exclua a estrutura da tabela (nome da tabela, nome do campo)
'Mandb.adDindex "Cexo255", "UserID", "ID"' Criar Índice de tabela (nome da tabela, nome do índice, nome do campo de índice)
'Mandb.Delindex "Cexo255", "UserID"' exclua o índice da tabela (nome da tabela, nome do índice) _
'Mandb.addPrimaryKey "Cexo255", "Id"' Crie a Tabela Primária Chave (Nome da Tabela, Nome do Campo da chave primária)
'Mandb.DelPrimaryKey "Cexo255", "Id"' Exclua a tecla Primária da tabela (nome da tabela, nome do campo da chave primária) _
'Response.Write Mandb.getPrimaryKey ("Cexo255")' Obtenha a chave primária da tabela (nome da tabela)
'Mandb.UpColumn "Cexo255", "ID", "12345", "Id =' 12 '"' Modifique o valor do campo
'Mandb.Execute "Inserir espaço em Cexo255 (ID) valores (' 789 ')"' Adicionar registro
'Mandb.Execute "Atualização Cexo255 Set ID =' wxf 'onde id =' 789 '"' Modify Record
'Mandb.Execute "Excluir espaço do Cexo255 onde id =' wxf '"' Excluir registro
Mandb.execute ("Selecione a contagem (*) de Cexo255"): Response.Write Mandb.Count 'Número de estatísticas de registros
'Se Mandb.CheckTable ("Studinfo") então Response.Write "Studinfo Table existe !!!" Caso contrário, escrita "Tabela Studinfo não existe !!!"
'// -------------------------------------------------------------------------------------------------------------------------------
Defina Mandb = nada
%>
O exposto acima é uma introdução às etapas para gerenciamento de banco de dados on -line. Eu acredito que todo mundo tem um certo entendimento. Se você quiser saber mais informações técnicas, continue prestando atenção ao novo canal de tecnologia errada!