Dificuldades em listar dados

deathcon4 · Outubro 18, 2010

Bem, estou tentando pegar os dados de um banco access e não sei muito bem asp.net, diferente do asp antigo o qual eu conheço bem. A página para acionar está em javascript com o metodo post com um botão submit.

O problema está em colocar os dados dentro da tabela, é diferente o antigo asp. Podem ver, não há grid, repeater e outras coisas que ainda não entendi muito bem. Quero percorrer o banco e listar os registros. Depois eu quero saber como inserir, alterar e apagar. Não tenho Webmatrix e nem VB ou Visual Studio.

Valeu desde já.

<%@ Page Language="VB" %>

<%@ Import Namespace="System.Data" %>

<%@ Import Namespace="System.Data.SqlClient" %>

Dim mes, registro

Sub Page_Load(sender as Object, e as EventArgs)

Dim conexão as String

conexão = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source="c:\trabalho\correios\clientes_mala_direta.accdb";Persist Security Info="False"; Dim objConnection as OleDbConnection 'declara objecto para conexão

objConnection = New OleDbConnection(connString) 'cria conexão

objConnection.Open() 'abre a conexão

Dim consulta as string = "SELECT * FROM clientes_mala_direta " & _

"WHERE mes = '" & mes & "' and ano = '" & ano & "' and nome = '" & nome & "' and fatura = '" & fatura & "' and registro = '" & registro & _ & "';"

'Cria um objeto Command

Dim objCommand as OleDbCommand

objCommand = New OleDbCommand(consulta, objConnection)

Dim Dr As OleDbDataReader

Dr = Comando.ExecuteReader

if r1 = "I" then

while Dr.read

Response.write(Dr.Item("registro") & <br>)

end while

conexão.Close() 'Fecha a conexão

objConnection.Close() 'Fecha a conexão à base de dados

End Sub

Dim mes, ano, registro as string

</script>

<html>

<head>

<title>

</title>

</head>

<body>

<tr>

<td bgcolor="#000080" width="89" height="5"><b><span style="letter-spacing: -1pt"><font

face="Arial" size="2" color="#FFFFFF">Mês: <%Response.Output.write("mes")%></font></span></b></td>

<td bgcolor="#000080" width="95" height="5"><b><span style="letter-spacing: -1pt"><font

face="Arial" size="2" color="#FFFFFF">Ano: <%response.write("ano")%></font></span></b></td>

</tr>

</table>

<tr>

<td width="95" bgcolor="#FFBD5B" align="center"><b><font face="Arial" size="2">Registro</font></b></td>

<td width="75" bgcolor="#FFBD5B" align="center"><b><font face="Arial" size="2">Fatura</font></b></td>

<td width="75" bgcolor="#FFBD5B" align="center"><b><font face="Arial" size="2">Cliente</font></b></td>

<td width="70" bgcolor="#FFBD5B" align="center"><b><font face="Arial" size="2">Quantidade</font></b></td>

<td width="99" bgcolor="#FFBD5B" align="center"><b><font face="Arial" size="2">Peso Cúbico</font></b></td>

<td width="141" bgcolor="#FFBD5B" align="center"><font face="Arial" size="2"><b>Valor</b></font></td>

</tr>

</table>

<tr>

</tr>

</ItemTemplate>

</asp:Repeater>

<p align="center"><font face="Arial" size="3" color="#000080"><b>A informação foi

inserida com sucesso!</b></font> </p>

<tr>

</tr>

<tr>

<td bgcolor="#00FFFF" height="30"

style="border-right-style: outset; border-right-width: 1px; border-bottom-style: outset; border-bottom-width: 1px"

width="512" align="left"><p align="center"><font face="Arial" size="2" color="#ff0000"><strong>Estas

informações já existem no Banco.</strong></font></td>

</tr>

</table>

<%end if

end if%>

<%if r1 = "D" then

executar = "SELECT * FROM CartuchoCarretelArmazenadosLidosGravados WHERE mes = '" & mes & "' and ano = '" & ano & "' and regional = '" & regional & "';"

Set verifica = DB.Execute(Executar)%>

<%if verifica.EOF = true then%>

<tr>

</tr>

<tr>

<td bgcolor="#00FFFF" height="30"

style="border-right-style: outset; border-right-width: 1px; border-bottom-style: outset; border-bottom-width: 1px"

width="879" align="left"><p align="center"><font face="Arial" size="2" color="#ff0000"><strong>Estas

informações não existem no Banco!</strong></font></td>

</tr>

</table>

</center></div><%else

Executar = "Delete * FROM CartuchoCarretelArmazenadosLidosGravados " & _

"WHERE mes = '" & mes & "' and ano = '" & ano & "' and regional = '" & regional & "';"

Set RecSet = DB.Execute(executar)

%>

<tr>

</tr>

<tr>

<td bgcolor="#00FFFF" height="30"

style="border-right-style: outset; border-right-width: 1px; border-bottom-style: outset; border-bottom-width: 1px"

width="879" align="left"><p align="center"><font face="Arial" size="2" color="#ff0000"><strong>Registro

deletado com sucesso!</strong></font></td>

</tr>

</table>

</center></div><%end if

end if%>

<%if r1 = "A" then

executar = "SELECT * FROM CartuchoCarretelArmazenadosLidosGravados WHERE mes = '" & mes & "' and ano = '" & ano & "' and regional = '" & regional & "';"

Set verifica = DB.Execute(Executar)%>

<%if verifica.EOF = true then%>

<tr>

</tr>

<tr>

<td bgcolor="#00FFFF" height="30"

style="border-right-style: outset; border-right-width: 1px; border-bottom-style: outset; border-bottom-width: 1px"

width="512" align="left"><p align="center"><font face="Arial" size="2" color="#ff0000"><strong>Estas

informações não existem no Banco.</strong></font></td>

</tr>

</table>

<tr>

</tr>

<tr>

<td bgcolor="#00FFFF" height="30"

style="border-right-style: outset; border-right-width: 1px; border-bottom-style: outset; border-bottom-width: 1px"

width="1245" align="left"><p align="center"><font face="Arial" size="2" color="#ff0000"><strong>Registro

alterado com sucesso!</strong></font></td>

</tr>

</table>

</center></div><% end if

end if%>

<p><br>

<br>

</p>

<tr>

</td>

</tr>

<tr>

<td width="20%" height="4" valign="middle"><p align="center"><a

href="javascript:history.back()"><img src="../imagens/retorno.gif"

alt="Volta a página anterior" border="0" width="80" height="18"></a> </td>

</tr>

</table>

</center></div>

</body>

</html>

quintelab · Outubro 18, 2010

Você irá perder muito tempo desta forma, não tem vantagem nenhum de migrar pro asp.net e fazer tudo na mão.

Recomendo a instalar a versão Express do Visual Studio e utilizar alguns de seus componentes e principalmente as facilidades do desenvolvimento com o Visual Studio.

Abraços...

deathcon4 · Outubro 19, 2010

Você irá perder muito tempo desta forma, não tem vantagem nenhum de migrar pro asp.net e fazer tudo na mão.

Recomendo a instalar a versão Express do Visual Studio e utilizar alguns de seus componentes e principalmente as facilidades do desenvolvimento com o Visual Studio.

Abraços...

Obrigado pela dica.

Entrar

Arquivado

Dificuldades em listar dados

Recommended Posts

deathcon4 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

quintelab 91

Compartilhar este post

Link para o post

Compartilhar em outros sites

deathcon4 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

PHP+Codeigniter - Adicionar Registro Plano de Contas

Javascript - Passar Parâmetros para uma Função.

PHP - Consulta MySql para prazo de dias

Este projeto é apoiado pelas empresas

Fóruns

Tempo Real

Informação importante