Passar De Sql Para Access

[nadia_xidea]

Oi gente...

Estou estudando a linguagem ASP.

Estou com uma necessidade. Tenho um site que hoje está em SQL Server e gostaria de passar ele para o banco de dados access e quero entender melhor o processo pra fazer isso...

Minha primeira e maior dúvida é este sobre a conexão com o banco de dados...

Hoje eu tenho esta conexão SQl,

[color=#CC0000]<%
Sub Abre_conexao
  Set Conn = Server.CreateObject("ADODB.Connection")
  Conn.Open "Provider=SQLOLEDB.1;SERVER=mssql.noticiasoliver.com.br;DATABASE=noticias;UID=olivernot;PWD=012345;"
End Sub

Sub Fecha_conexao
    Conn.Close
    Set Conn = Nothing
End Sub

%>[/color]

O que preciso mudar para usar no ACCESS, mdb ? Outra duvida... Nesta página:

<!--#include file="conexao.asp" -->
<%
Dim Conn

Call Abre_Conexao

'Começo a Recuperar o user e senha contra Sql Injection
User        = Replace(Request.Form("user")," ' "," ++ ")
Senha       = Replace(Request.Form("senha")," ' "," ++ ")


'Faço um select que ira verificar o user e senha
SqlV = "Select * "_
& "          From Admin2 "_
& "         Where AdUser = '" & User & "' "_
& "           And AdSenha = '" & Senha & "' "
Set RsV = Conn.Execute(SqlV)

'Aqui verifico se o user e esta estao corretos
If Not RsV.EOF Then
    Session("CodUser") = RsV("AdCod")
    Session("NomeUser") = RsV("Nome")
    response.Redirect("principal.asp")
Else
    response.Redirect("login.asp?msg=Usuário inválido. Verifique os dados preenchidos!")
End If

Response.Write(User & "<br>" & Senha)
%>

Aonde ele faz o select e verifica no DB se o usuário está correto, estes comandos podem ser usados pro access??? preciso entender aonde ele consulta o banco de dados... qual a tabela e que campos... To perdida nisso... podem me ajudar...

Obrigada...

Nádia.

[.Andreia.]

Mas que maldade trocar o Sql server pelo Access rssss.

mas assim, a sua consulta não precisa mudar. Porem voce sabe que o sql server tem muito mais "ferramentas" e dependendo do que você usa na sua consulta, não vai funcionar no Access.

Nesse caso, só arrume a string de conexao nesta linha:

Conn.Open "DBQ=CAMINHO_DA_SUA_PASTA\noticias.mdb;Driver={Microsoft Access Driver (*.mdb)}"

ou também para:

Conexao.Open "Driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("noticias.mdb")

[kuroi]

Hoje eu tenho esta conexão SQl,

[color=#CC0000]<%
Sub Abre_conexao
  Set Conn = Server.CreateObject("ADODB.Connection")
  Conn.Open "Provider=SQLOLEDB.1;SERVER=mssql.noticiasoliver.com.br;DATABASE=noticias;UID=olivernot;PWD=012345;"
End Sub

Sub Fecha_conexao
    Conn.Close
    Set Conn = Nothing
End Sub

%>[/color][/code]


O que preciso mudar para usar no ACCESS, mdb ?

pra ver como fazer a conexoes com bancos, veja aqui:
http://www.connectionstrings.com/
access acho que seria assim:
[code] "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\somepath\mydb.mdb;Jet OLEDB:Database Password=MyDbPassword;"

Outra duvida... Nesta página:

<!--#include file="conexao.asp" -->
<%
Dim Conn

Call Abre_Conexao

'Começo a Recuperar o user e senha contra Sql Injection
User        = Replace(Request.Form("user")," ' "," ++ ")
Senha       = Replace(Request.Form("senha")," ' "," ++ ")


'Faço um select que ira verificar o user e senha
SqlV = "Select * "_
& "          From Admin2 "_
& "         Where AdUser = '" & User & "' "_
& "           And AdSenha = '" & Senha & "' "
Set RsV = Conn.Execute(SqlV)

'Aqui verifico se o user e esta estao corretos
If Not RsV.EOF Then
    Session("CodUser") = RsV("AdCod")
    Session("NomeUser") = RsV("Nome")
    response.Redirect("principal.asp")
Else
    response.Redirect("login.asp?msg=Usuário inválido. Verifique os dados preenchidos!")
End If

Response.Write(User & "<br>" & Senha)
%>[/code]
Aonde ele faz o select e verifica no DB se o usuário está correto, estes comandos podem ser usados pro access??? preciso entender aonde ele consulta o banco de dados... qual a tabela e que campos... To perdida nisso... podem me ajudar...
os comandos podem ser usados sim, é so criar as mesmas tabels cum os msmos campos.

[nadia_xidea]

Andreia e Kuroi valeu pela ajuda...

poderiam me ajudar a entender uma dúvida...

Eu não to conseguindo localizar na página, código já mostrado, aonde estão as tabelas e os campos da tabela para que eu possa recriá-los em Access,

tipo...

'Faço um select que ira verificar o user e senha
SqlV = "Select * "_
& "          From Admin2 "_
& "         Where AdUser = '" & User & "' "_
& "           And AdSenha = '" & Senha & "' "
Set RsV = Conn.Execute(SqlV)

'Aqui verifico se o user e esta estao corretos
If Not RsV.EOF Then
    Session("CodUser") = RsV("AdCod")
    Session("NomeUser") = RsV("Nome")
    response.Redirect("principal.asp")

Qual é o nome da tabela no DB e quais são os campos... através de comprocesso os localizo...

Valeu...

Obrigada.

[Denis Bittencourt Muniz]

Eu não to conseguindo localizar na página, código já mostrado, aonde estão as tabelas e os campos da tabela para que eu possa recriá-los em Access,

Está no banco de dados noticias, servidor 'mssql.noticiasoliver.com.br' (arquivo com extensão 'mdf')

Enquanto a conexão, a Andréia usa driver ODBC e o Kuroi provedor de dados, no caso JET OLEDB. A opção sugerida pelo Kuroi é melhor em termo de desempenho e é uma maneira mais nova de conexão com banco de dados.

Falows!

[nadia_xidea]

Denis muito obrigado pela dica, e fica aí registrado para outros usuários a conexão melhor sugerida pelo kuroi que você identificou...

Funcionou muito bem a minha conexão, ela ficou assim:

%

Sub Abre_conexao
  Set Conn = Server.CreateObject("ADODB.Connection")
  Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Inetpub\wwwroot\pasta\arquivo.mdb;Jet OLEDB:Database Password=MyDbPassword;"
End Sub

Sub Fecha_conexao
    Conn.Close
    Set Conn = Nothing
End Sub

%>

Num teste local que eu fiz, está aparecendo este erro: Tipo de erro: Microsoft JET Database Engine (0x80040E07) Tipo de dados imcompatível na expressão de critério. /CarroReg/registro/principal.asp, line 7 A página que ele acusa o erro é esta, veja a linha 7 em vermelho.

<!--#include file="../includes/funcoes.asp"-->
<%
Dim Conn
Call Abre_Conexao

SQLusu = "Select * from Admin2 where AdCod = " & Session("CodUser")
[color=#FF0000][b]set rsdados = Conn.execute(SQLusu)[/b][/color]

usuarios        = rsdados("usuarios")
acessorios        = rsdados("acessorios")
financiamentos    = rsdados("financiamentos")
marcas            = rsdados("marcas")
modelos            = rsdados("modelos")
post            = rsdados("post")
tipo            = rsdados("tipo")
clientes        = rsdados("clientes")
anuncios        = rsdados("anuncios")
newsletter        = rsdados("newsletter")
noticias        = rsdados("noticias")
pedrevendas        = rsdados("pedrevendas")
servicos        = rsdados("servicos")
empresas        = rsdados("empresas")
shopping        = rsdados("shopping")
posto            = rsdados("posto")
cidades            = rsdados("cidades")
%>

Como posso resolver?

Muito obrigada mais uma vez pela colaboração de todos vocês.

[Visitante]

Eu agora a pouco estava com erro parecido au seu, mas não verdade não tinha nada a ver com a linha do seu erro!!!

talves sejá o mesmo problema seu!!!

Tente assim!!!

Se for numero CodUser deve dar certo!!!

<!--#include file="../includes/funcoes.asp"-->

<%

Dim Conn

Call Abre_Conexao

SQLusu = "Select * from Admin2 where AdCod = " & Session("CodUser")&""

set rsdados = Conn.execute(SQLusu)

usuarios = rsdados("usuarios")

acessorios = rsdados("acessorios")

financiamentos = rsdados("financiamentos")

marcas = rsdados("marcas")

modelos = rsdados("modelos")

post = rsdados("post")

tipo = rsdados("tipo")

clientes = rsdados("clientes")

anuncios = rsdados("anuncios")

newsletter = rsdados("newsletter")

noticias = rsdados("noticias")

pedrevendas = rsdados("pedrevendas")

servicos = rsdados("servicos")

empresas = rsdados("empresas")

shopping = rsdados("shopping")

posto = rsdados("posto")

cidades = rsdados("cidades")

%>

Abraços...