muitos desenvolvedores utilizar o ASP e abaixo esta colocado exemplos e formatos tipicos para manipular dados. Abrindo Databases via DSN e sem DSN Mostrando tabelas atraves de consultas SQL List Boxes preenchidas atraves de banco de dados Adicionando Registros para um Database com o comando SQL insert Into Adicionando Registros para um Database com o metodo ADO add new Exemplo Completo inclui o display de tabelas vinculadas a um formulario que rodam scripts que atualizam registros. Atualizando registros em um Database Exemplo Completo1a. Parte Vamos analisar 3 exemplos de script.O primeiro exemplo (1a. parte) mostra uma tabela parecida com o exemplo de tabelas que foi visto anteriormente, com excecao dos links que aparecerao nas colunas iniciais. Clicando em um dos links o segundo exemplo sera chamado e recebera um ID como parametro. No segundo exemplo sera permitido alterar as informacoes e apos clicar no botao Submit, o exemplo 3 sera chamado para processar as informacoes e atualiza-las no banco em SQL. Vamos por partes... Exemplo 1 123 dbfull1.asp4567 <%8 ' Conexao com o banco9 set conntemp=server.createobject("adodb.connection")10 conntemp.open "Estudante","Estudante","magic"1112 set rstemp=conntemp.execute("select * from autores where AU_ID<100")13 qtde_campos=rstemp.fields.count -114 %>15 161718 <% 'Preenche a primeira linha com o nome dos campos19 for i=0 to qtde_campos %>2021 <% next %>2223 <% ' Preenche a tabela com os registros do banco24 do while not rstemp.eof %>252627 <% for i = 0 to qtde_campos%>2829 <% next %>3031 <% rstemp.movenext32 loop33 conntemp.close%>34 ---<%=rstemp(i).name %>">Editar<% = rstemp.fields(i).value %>3536 Exemplo 2 (2a. Parte) 123 dbfull2.asp456789 <% ' Conecta com o banco e pega o valor do str_ID permitindo a edicao do registro10 set conntemp=server.createobject("adodb.connection")11 conntemp.open "Estudante","Estudante","magic"1213 ID=request.querystring("str_ID")14 sqltemp="select * from autores where AU_ID=" & ID15 set rstemp=conntemp.execute(sqltemp)16 atual_ID=rstemp("AU_ID")17 atual_nome=rstemp("autor")18 atual_ano_nasc=rstemp("ano_nasc")19 %>2021 22 ID: 23 Nome do autor: 24 Ano de Nascimento: 25 26 27 Exemplo 3 (3a. Parte) 12 dbfull3.asp34 <%5 on error resume next6 au_nome=request.querystring("nome")7 ' Corrige os apostrofos8 au_nome=Replace(au_nome, "'", "''")910 au_ano=request.querystring("ano")11 au_ID=request.querystring("ID")12 Set Conn = Server.CreateObject("ADODB.Connection")13 conn.open "Estudante","Estudante","magic"1415 SQLstmt = "UPDATE autores "16 SQLStmt = SQLstmt & "SET autor='" & au_nome & "',"17 SQLstmt = SQLstmt & "ano_nasc=" & au_ano18 SQLStmt = SQLStmt & " WHERE AU_ID=" & au_ID19 Set RS = Conn.Execute(SQLStmt)20 If err.number>0 then21 response.write "Ocorreram erros no script:" & ""22 response.write "Numero=" & err.number & ""23 response.write "Descricao=" & err.description & ""24 response.write "Help Context=" & err.helpcontext & ""25 response.write "Help Path=" & err.helppath & ""26 response.write "Native Error=" & err.nativeerror & ""27 response.write "Source=" & err.source & ""28 response.write "SQLState=" & err.sqlstate & ""29 else30 response.write "Nenhum problema aconteceu!" & ""31 end if32 IF conn.errors.count> 0 then33 response.write "Ocorreram erros com o banco de dados" & ""34 response.write SQLstmt & ""35 for counter= 0 to conn.errors.count36 response.write "Numero do erro:" & conn.errors(counter).number & ""37 response.write "Descricao --> " & conn.errors(counter).description & ""38 next39 else40 response.write "Parece que tudo esta ok. O Autor foi atualizado!" & ""41 end if42 Conn.Close43 %>4445 List Boxes Esta pagina mostra a funcionalidade de mostrar uma list box atraves de uma consulta SQL. O exemplo abaixo e o mais simples possivel. Existem outros tipos utilizando Multiplas List Boxes e