EXECUCAO DE SQL NO VB
Pessoal, estou tendo várias dúvidas para executar uma tarefa no meu banco de dados com o sintaxe do sql. Costumo usar o ADO, para isto, mas queria aprender como usar o sql. Como faço, preciso avrir um adodb.command? e depois executar? alguém sabe?
Está certo eu usar assim? Pis exibe sempre um erro, dizendo que o drive não suporta as propriedaddes solicitadas.
Set mgc_executar = New ADODB.Recordset
SQLL = "DELETE * FROM mgc_redecredenciada2 WHERE NOME = 'Paulo Cezar'"
mgc_executar.Open SQLL, conexao, adOpenKeyset, adLockBatchOptimistic
1o. nao existe * depois do delete
2o. comandos open e delete sao comandos distintos, open para abrir a acessar a tabela e delete para deletar registros
para usar o sql vc deve seguir os seguintes passos
a) criar um objeto connection para manter uma conexao com o BD
b) criar um objeto recordset ( que recebera o comand sql de leitura ) ou executar a instrucao na propria conexao ( para os comandos insert, delete e update )
exemplo para Oracle ( para outros bancos nao muda quase nada )
wConnect = "Provider=MSDAORA.1;Data Source=nome do servico oracle;User ID=nome do usuario oracle;Password=senha de acesso;"
dim DB as adodb.connect
DB.Open wConnect >>> faz a conexao com o banco
dim RS as new adodc.recordset
>>emplo para abrir uam tabela chamada clientes
sql="select * from clientes"
rs.open sql,db >> aqui é feita a criacao do recordset... navegue com movenext e etc pelo recordset
para inserir, atualizar o deletar o acesso e diroto na conexão...
para deletar
sql = "delete from clientes where codigo=123" >>> monta a instrucao
db.execute sql >>> executa o comando
para atualizar:
sql = "update tb_clientes set nome = 'joao',endereco='rua x' where codigo=123
db.execute sql
para inclusao:
sql = "insert into clientes (codigo,nome,endereco) values (123,'joao','rua x')"
db.execute sql
é por ai....
Sds
2o. comandos open e delete sao comandos distintos, open para abrir a acessar a tabela e delete para deletar registros
para usar o sql vc deve seguir os seguintes passos
a) criar um objeto connection para manter uma conexao com o BD
b) criar um objeto recordset ( que recebera o comand sql de leitura ) ou executar a instrucao na propria conexao ( para os comandos insert, delete e update )
exemplo para Oracle ( para outros bancos nao muda quase nada )
wConnect = "Provider=MSDAORA.1;Data Source=nome do servico oracle;User ID=nome do usuario oracle;Password=senha de acesso;"
dim DB as adodb.connect
DB.Open wConnect >>> faz a conexao com o banco
dim RS as new adodc.recordset
>>emplo para abrir uam tabela chamada clientes
sql="select * from clientes"
rs.open sql,db >> aqui é feita a criacao do recordset... navegue com movenext e etc pelo recordset
para inserir, atualizar o deletar o acesso e diroto na conexão...
para deletar
sql = "delete from clientes where codigo=123" >>> monta a instrucao
db.execute sql >>> executa o comando
para atualizar:
sql = "update tb_clientes set nome = 'joao',endereco='rua x' where codigo=123
db.execute sql
para inclusao:
sql = "insert into clientes (codigo,nome,endereco) values (123,'joao','rua x')"
db.execute sql
é por ai....
Sds
Tópico encerrado , respostas não são mais permitidas