COMANDOS EM SQL NO VB 5

USUARIO.EXCLUIDOS 11/01/2005 17:48:35
#60106

comandos do tipo inserção e deleção?

procure os topicos relacionados amigo


"Insert into tabelaA (campo1, campo2) values(" & text1 & ", getdate())"

"delete from tabelaA where campo1 = " & text1

LIONDAS 11/01/2005 20:25:25
#60136 Resposta escolhida

E tambem muda um pouco a meneira de executa-los, depende do tipo de conexao utilizado (ADO ou DAO).
Como vc esta utilizando o VB5 vou dar um exemplo com o DAO:

Dim Work As Workspace
Dim BDadosAs Database


Set Work = DBEngine.Workspaces(0)
Set BDados = Work.OpenDatabase(CaminhoENomeBancoDeDados, False, False, "")
BDados.Execute "Delete * from Tabela" 'Deleta todos or registros de uma tabela

Vc tambem pode executar comandos SQL para alterar a estrutura do seu bando de dados.

Espero ter ajudado...

MAICONCARDOSO 11/01/2005 20:27:18
#60137

Para aprender um pouco mais sobre SQL usei o contrutor de consultas do ACCESS, lá você tem a opção de criar a consulta que deseja e depois visualizar a clausula SQL... barbada!!!


Espero ter ajudado!!!

FABIO.ALEXANDRE 11/01/2005 21:53:24
#60152

Dependendo da sua conexão vou mostrar com o ado e o dao

ADO:

1º adcione a referencia do ado

dim var_cnnConnection as new adodb.connection
[txt-color=#ff0000]Caso Banco Servidor[/txt-color]
var_cnnConnection.ConnectionString="Provider=TipoProvedor;data source=Path banco;uid=usuario;pwd=password;initial catalog=Banco"
[txt-color=#ff0000]Caso Banco tipo Access[/txt-color]
var_cnnConnection.ConnectionString="Provider=TipoProvedor;data source=Path banco;uid=usuario;jet oledb:database password =senha"

var_cnnConnection.execute "insert into tabela (campo1,campo2) values(values1,value2)
var_cnnConnection.execute "delete tabela where campo= valorconsulta

Ou pode ser com um objeto recordset
dim var_rs as new adodb.recordset

var_rs.open "Insert into tabela (campo1,campo2) values (value1,value2)
var_rs.open "delete tabela where campo=valorconsulta


Espero ter ajudado