Consulta Dados

[Guest - ferio -]

olá pessoal, posso fazer conexao para consulta em um banco de dados depois de já ter feito uma conexao para iserção de dados?

é que eu fiz uma conexao para iserir dados em bd e depois eu queria utilizar este mesmo para fazer consulta.

[dark0]

se você já tem a conexao aberta, apenas 'chame' ela para executar o SQL!

Não é necessário fazer a conexao novamente, já que a mesma já foi feita ..

Se tiver duvidas, poste seu codigo pra gente ver

Abraços

[bareta]

a unica coisa q muda são as intruçoes:

insert
 select
update
delete

[Guest - ferio -]

está aí o script:

<%

Set Cnn = Server.CreateObject("ADODB.Connection")

Cnn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=c:\teste\dempresas.mdb"

if request.form("flag")=2 then

MSQ="SELECT * FROM vagas"

MSQ= MSQ & "WHERE Nome='"&request.form("nome")&"' AND Data='"&request.form("data")&"'"

rs=Cnn.execute(MSQ)

if NOT rs.EOF then

nome1=rs("Nome")

endereco1=rs("Endereco")

tele1=rs("Tel")

cidade1=rs("Cidade")

data1=rs("Data")

ramo1=rs("Ramo")

descri1=rs("Dvaga")

end if

rs.close

rs=nothing

end if

%>

[dark0]

o que tem esse script?

[Guest - ferio -]

a conexao que aparece eu tb fiz para inserir dados. quando eu fiz este para consulta ele não funciona o que está errado?

[dark0]

use uma conexao mais simples ..

ConnString="Provider=Microsoft.Jet.OLEDB.4.0; Data Source=c:\teste\dempresas.mdb;" 
Set Conexao = Server.CreateObject("ADODB.Connection")
Conexao.Open ConnString

Nesse exemplo, você pode fazer qualquer SQL, que ele funcionará.

Ex:

sql = "Select * from tabela"

set RS = conexao.execute(sql)

sql = "Insert into tabela (campo) values ('campo')"

conexao.execute(sql)

simples, né?

Ate mais

[Guest - ferio -]

obrigado pessoal, consegui fazer o que queria

[dark0]

e como você esta montando os codigos agora?

percebeu como é simples?