• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

jpinheiro

Primeiro projecto

2 mensagens neste tópico

Olá a toda a gente,

Tente fazer uma simples página que me permitisse preencher três campos, e ao carregar no botão enviar, com o procedimento inserirDados os campos que preenchi seriam guardados na tabela 'modelos'.

No entanto, quando carrego no botão enviar, a messagem seguinte é mostrada:

"Erro de servidor na aplicação '/Desktop'.

Não foi possível encontrar ISAM instalável."

:eek:

<%@ Import Namespace="System.Data.OleDB" %>
<script language="VB" runat="server">
    Sub inserirDados(ByVal source As Object, ByVal e As System.EventArgs)
        Dim ligacao, comando, sql, num
        'ligacao = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; _data source=" & Server.MapPath("infoAuto.mdb"))
        ligacao = New OleDbConnection("PROVIDER=Microsoft.Jet.OLEDB.4.0; DataSource=infoAuto.mdb")
        ligacao.open()
        sql = "INSERT INTO modelos (mardaId, modelo, cilindrada, velocidade) _VALUES (@marcaId, @modelo, @cilindrada, @velocidade)"
        comando = New OleDbCommand(sql, ligacao)
        comando.parameters.add(New OleDbParameter("@marcaId", OleDbType.Integer))
        comando.parameters.add(New OleDbParameter("@modelo", OleDbType.VarChar))
        comando.parameters.add(New OleDbParameter("@cilindrada", OleDbType.Integer))
        comando.parameters.add(New OleDbParameter("@velocidade", OleDbType.Integer))
        
        comando.parameters("@marcaId").value = 1
        comando.parameters("@modelo").value = txtModelo.text
        comando.parameters("@cilindrada").value = txtCilindrada.text
        comando.parameters("@velocidade").value = txtVelocidade.text
        num = comando.executenonquery()
        
        If num = 1 Then
            lblMensagem.text = "Dados inseridos com sucesso"
        Else
            lblMensagem.text = "Erro na inserção dos dados"
        End If
        
        ligacao.close()
    End Sub
</script>


<html>
<body>

<form runat="server">
Insira novo modelo de Ferrari:<br />
Modelo:<asp:TextBox ID="txtModelo" runat="server" /><br />
Cilindrada:<asp:TextBox ID="txtCilindrada" runat="server" /><br />
Velocidade:<asp:TextBox ID="txtVelocidade" runat="server" /><br />
<asp:Button ID="botaoInserir" Text="Inserir" OnClick="inserirDados" runat="server" />
<br /><br />
<asp:Label ID="lblMensagem" runat="server" />
</form>

</body>
</html>

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Antes de mais, notei que tens na connection string "DataSource" tudo junto. Tenta por um espaço entre as palavras. Se mesmo assim não funcionar, experimentar actualizar o Microsoft Data Access Components (MDAC)

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora