Banco De Dados

[thicoliveira]

Caros amigos sou iniciante ASP e preciso de ajudas.

Criei um banco de dados para uma pousada no access, configurei o ODBC e criei um novo site no DreamWeaver e definir todas as configurações necessárias, mas não consigo testar o arquivo no Internet Explorer, seguido da resposta de erro;

Tipo de erro:

Microsoft OLE DB Provider for ODBC Drivers (0x80004005)

[Microsoft][Driver ODBC para Microsoft Access] A operação deve usar uma consulta atualizável.

/pousada/TMPftvb7ax17.asp, line 115

e meu código no ASP é esse:

If (Not MM_abortEdit) Then

' execute the insert

Set MM_editCmd = Server.CreateObject("ADODB.Command")

MM_editCmd.ActiveConnection = MM_editConnection

MM_editCmd.CommandText = MM_editQuery

MM_editCmd.Execute

MM_editCmd.ActiveConnection.Close

If (MM_editRedirectUrl <> "") Then

Response.Redirect(MM_editRedirectUrl)

End If

End If

End If

Como posso fazer para que os dados inseridos no formulário seja automaticamente no Banco de dados, executando teste off-line.

Muito Grato,

Thiago Oliveira

[Dc Spoc]

Cara,

num sei se isso vai te ajudar, mais dá uma olhada neste tuto:

tutorial

Neste site tem outros exemplos que podem ajudar também.

Falow!

[VicFalMac]

Vamos por partes, primeiro um exemplo de uma página de formulário(colocarei apenas a parte do formulário, o resto é formatação de página):

<form action="cadastra.asp" method="post">
 <input type="text" name="txtNome">
 <input type="text" name="txtEmail">
 <input type="submit" value="Enviar">
</form>

Agora o código da página cadastra.asp

'Capturar os valores do formulário
nome = Request.Form("txtNome")
email = Request.Form("txtEmail")


'Criar a conexão com o banco de dados
Set conexao = Server.CreateObject("ADODB.Connection")
Conexao.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.Mappath[COLOR=blue]("diretório/bancodedados.mdb")[/COLOR]

'Na parte em azul você deve colocar o diretório em que está seu banco de dados, por exemplo uma pasta chamada bd: ("bd/nomebancodedados.mdb")

'Agora vem parte do SQL, para a inserção dos dados na tabela
SQL = "Insert into NomeTabela (Nome, Email) "
SQL = SQL & "Values('" & nome & "', "
SQL = SQL & "'" & email & "') "

Set rset = conexao.Execute(SQL)

Preste bastante atenção quando é para usar aspas simples ou duplas.

Espero ter ajudado.

Até mais

[Guest Cacimba]

Veja a integridade de sua tabela no BD. Talvez ela esteja corrompida ou você fez um relacionamento errado; experimente zerar a tabela ou refazer toda ela.

SDS...

[dark0]

bom, esse erro pode ser erro nas permissões da pasta

mas, enfim.. veja os exemplos dos amigos ali

abraços