Marcelo Cavalcanti

COMO USAR O CURSOR COM ESSE SCRIPT???? PARA ELIMINAR OS DADOS REPETIDOS???? SE alguém PODER ME AJUDAR!!!! declare @manter int; declare @eliminar int; set @manter = 80591; set @eliminar = 202828; --- update vendas_pagDinheiro set clienteKey = @manter where clienteKey = @eliminar; update vendas_pagCheque set clienteKey = @manter where clienteKey = @eliminar; update vendas_pagCartao set clienteKey = @manter where clienteKey = @eliminar; update vendas_pagFuncionario set pessoaKey = @manter where pessoaKey = @eliminar; update vendas_pagOutros set pessoaKey = @manter where pessoaKey = @eliminar; update vendas.boletos set clienteKey = @manter where clienteKey = @eliminar; update vendas_orcamento set clienteKey = @manter where clienteKey = @eliminar; update vendas_orcamento set vendedorKey = @manter where vendedorKey = @eliminar; delete from clientes.lojasLiberadas where clienteKey = @eliminar delete from pessoa.funcionario where pessoaKey = @eliminar; delete from pessoa.biometria where pessoaKey = @eliminar delete from tbendereco where pessoaKey = @eliminar; delete from tbTelefone where pessoaKey = @eliminar; delete from cliente_dados where clienteKey = @eliminar; :wacko:

Qualquer coisa posta ai

Bom dia a todos. Como seria o INSERT INTO - ADO em uma tabela? Bem, os dados a serem gravados são os digitados nas Caixas de Texto da tela: Clientes por exemplo caixa de texto TxtCod TxtNome TxtEnde TxtFone tabela.campo cliente.CODI cliente.NOME cliente.ENDE cliente.FONE SERIA ASSIM???? INSERT INTO CLIENTE (CODI, NOME, ENDE, FONE) VALUES ( AQUI É QUE ENTRA A MINHA DÚVIDA ) Se houver a possibilidade de alguém me ajudar??? Ficarei super grato. Um grande abraço Marcelo

Bom dia Kuroi. você poderia ver esse erro e se possível me orientar. Obrigado e um grande abraço Marcelo 'BOTAO NOVO Private Sub CmdNovo_Click() TxtCodigo = "" TxtNome = "" TxtEndereco = "" TxtTelefone = "" 'Vai Buscar o Próximo Número para o Codigo de Clientes If Len(Trim(ConexFireBird.Tag)) = 0 Then ' conexao.Open cn.ConnectionString = "Provider=ZStyle IBOLE Provider;Data Source=C:\Documents and Settings\user\Desktop\CONEXAO FireBird TESTANDO\CONEXAO.FDB;UID=sysdba;password=masterkey" sql = "select CODI from CLIENTES order by CODI" cn.Open Set rs = cn.Execute(sql) If rs.RecordCount <> 0 Then rs.MoveLast TxtCodigo = rs("CODI") + 1 rs.Close End If Else CmdSair.SetFocus End If End Sub 'GRAVA OS REGISTROS Private Sub CmdGravar_Click() cn.ConnectionString = "Provider=ZStyle IBOLE Provider;Data Source=C:\Documents and Settings\user\Desktop\CONEXAO FireBird TESTANDO\CONEXAO.FDB;UID=sysdba;password=masterkey" sql = "select * from CLIENTES" Set rs = cn.Execute(sql) rs.AddNew rs("CODI") = TxtCodigo rs("NOME") = Trim(TxtNome) rs("ENDE") = Trim(TxtEndereco) rs("FONE") = Trim(TxtTelefone) rs.Update rs.Close 'LIMPA AS CAIXAS DE TEXTO TxtCodigo = "" TxtNome = "" TxtEndereco = "" TxtTelefone = "" End Sub ACIONO O BOTAO NOVO E LEGAL VAI BUSCAR O ULTIMO CODIGO DO CLIENTE + 1, INSIRO REGISTROS E CLICO NO BOTAO GRAVAR E DAR ERRO DA LINHA DE CONEXAO DA PROCEDURE GRAVAR, O ERRO É O SEGUINTE: Run-Time error '3705' OPERAÇÃO NÃO PERMITIDA QUANDO O OBJETO ESTÁ ABERTO.

Olá KUROI. Tudo em paz. Vou te mandar a conexao de duas formas: 1ª - Dá esse erro na linha do SET DB Run-time Error 3045 "NÃO FOI POSSÍVEL USAR C:\...\TESTEBANCO.FDB" O ARQUIVO JÁ ESTÁ EM USO Public Sub sConexao() conexao.Open ("DSN=FireBird;Driver=Firebird/InterBase® driver;Dbname=C:\Documents and Settings\user\Desktop\ConexaoDominio\TIRAR DUVIDA CONEXAO FIREBIRD\CONEXAO FIREBIRD LOCAL\bancoteste.FDB;CHARSET=WIN1252;USER ID=SYSDBA;PWD=masterkey;Client=C:\Arquivos de programas\Firebird\Firebird_2_1\bin\fbclient.dll;") Mydir = App.Path Set db = OpenDatabase(Mydir + "\bancoteste.fdb") Dst.Close End Sub 2ª - Dá o mesmo erro da conexão de cima (existe apenas 01(um) espaço entre "user e ID", mas se eu der 2 espacos o erro muda para esse e na linha de conexao: Run-time Error 2147467259(80004005) "Your user name and password are not difined. Ask your database administrator to set up a firebird login. Public Sub sConexao() conexao.Open ("Provider=IbOleDb.1;Location=127.0.0.1;Data Source=C:\Documents and S Settings\user\Desktop\ConexaoDominio\TIRAR DUVIDA CONEXAO FIREBIRD\CONEXAO FIREBIRD LOCAL\BANCOTESTE.FDB;User ID=SYSDBA;Password=masterkey;Extended Properties='sql Dialect=3;Character Set=ISO8859_1;Collate = PT_BR'") Mydir = App.Path Set db = OpenDatabase(Mydir + "\bancoteste.fdb") Dst.Close End Sub Mais um vez obrigado pela atenção. Marcelo

Bom dia a todos. Eu resolvi este problema em parte. Consegui fazer a conexão de uma nova aplicação (exemplo simples, de cadastro de clientes) com butons GRAVAR E EXCLUIR, usando o access como banco local e remotamente. Deu tudo OK. Mas quando troco o banco para FIREBIRD. Dim adoCnn As New ADODB.Connection Public Sub sConexao() 'abre o BD de informação de caminho final do BD ' O BD onde informamos o caminho do DB tem que ficar na pasta sistema do micro local ' Set db = OpenDatabase("C:\sistema\teste.mdb") adoCnn.Open "Provider=IbOleDb.1;Location=192.168.0.34;Data Source=d:/ttimdb/dados/tti.FDB;User ID=SYSDBA;Password=masterkey;Extended Properties='sql Dialect=3;Character Set=WIN1252'" Set Dst = db.OpenRecordset("select * from path_d") xdrive = Dst("drive") Mydir = Trim(xdrive) Dst.Close 'seta o BD 'pega o diretório de operação do programa Set db = OpenDatabase(Mydir + "\Dados\conexao.fdb") End Sub Não sei o que está dando errado. Segue o código com banco access tudo ok. Dim db As Database Dim Mydir As String Private Sub CmdExcluir_Click() If Len(TxtCodigo) = 0 Then Exit Sub End If Call sConexao Set Dst = db.OpenRecordset("select * from Clientes where CODI like '" + TxtCodigo + "' order by CODI") If Dst.RecordCount <> 0 Then Dst.Delete End If Dst.Close TxtCodigo.Text = "" End Sub '========================================================================================= Private Sub CmdNovo_Click() TxtCodigo = "" TxtNome = "" TxtEndereco = "" TxtTelefone = "" 'Vai Buscar o Próximo Número para o Codigo de Clientes If Len(Trim(FrmClientes.Tag)) = 0 Then Call sConexao Set Dst = db.OpenRecordset("select CODI from CLIENTES order by CODI") If Dst.RecordCount <> 0 Then Dst.MoveLast TxtCodigo = Dst("CODI") + 1 End If Dst.Close Else CmdSair.SetFocus End If End Sub '========================================================================================= Private Sub CmdGravar_Click() 'VERIFICA OS CAMPOS OBRIGATÓRIOS If Len(Trim(TxtCodigo)) = 0 Then MsgBox "Código fo Cliente não foi Preenchido. Click no Botão NOVO!", 64, "Teste Conexão" TxtCodigo.SetFocus Exit Sub End If If Len(Trim(TxtNome)) = 0 Then MsgBox "Nome do Cliente não foi Preenchido !", 64, "Teste Conexão" TxtNome.SetFocus Exit Sub End If If Len(Trim(TxtEndereco)) = 0 Then MsgBox "Endereço do Cliente não foi Preenchido !", 64, "Teste Conexão" TxtEndereco.SetFocus Exit Sub End If If Len(Trim(TxtTelefone)) = 0 Then MsgBox "Telefone do Cliente não foi Preenchido !", 64, "Teste Conexão" TxtTelefone.SetFocus Exit Sub End If 'GRAVA OS REGISTROS Set Dst = db.OpenRecordset("select * from Clientes") Dst.AddNew Dst("CODI") = TxtCodigo Dst("NOME") = Trim(TxtNome) Dst("ENDE") = Trim(TxtEndereco) Dst("FONE") = Trim(TxtTelefone) Dst.Update Dst.Close 'LIMPA AS CAIXAS DE TEXTO TxtCodigo = "" TxtNome = "" TxtEndereco = "" TxtTelefone = "" End Sub '========================================================================================= Public Sub sConexao() 'abre o BD de informação de caminho final do BD ' O BD onde infrmamos o caminho do DB tem que ficar na pasta sistema do micro local Set db = OpenDatabase("C:\sistema\ttipt1.mdb") Set Dst = db.OpenRecordset("select * from path_d") xdrive = Dst("drive") Mydir = Trim(xdrive) Dst.Close 'seta o BD 'pega o diretório de operação do programa Set db = OpenDatabase(Mydir + "\Dados\conexao.mdb") End Sub '========================================================================================= Private Sub CmdSair_Click() Unload Me Close All End Sub

Olá Gabriel. Gabriel, Eu 1º queria fazer uma conexão bem simples do VB6 com o ACCESS. E depois com o FireBird. Bem com o ACCESS eu fiz assim: Uma tela simples com 2 cx de text (codi e nome) e 2s butons NOVO e SAIR O código assim: Private Sub CmdNovo_Click() TxtCodi = "" TxtNome = "" 'Vai Buscar o Próximo Número para o Codigo Número de Ordens de Entrega 'If Len(Trim(FrmPrincipal.Tag)) = 0 Then Set DB = OpenDatabase(App.Path & "\teste.mdb", False, False) Set Dst = DB.OpenRecordset("select CODI from CLIENTES order by CODI") If Dst.RecordCount <> 0 Then Dst.MoveLast TxtCodi = Dst("CODI") + 1 ' End If Dst.Close TxtCodi.SetFocus ' Else Cmd_Sair.SetFocus End If End Sub Private Sub CmdSair_Click() Unload Me End Sub Fiz um módulo com a conexão para o access: Public DB As Database Sub conexao() On Error GoTo Main_Error 'abre o BD de informação de caminho final do BD ' O BD onde infrmamos o caminho do DB tem que ficar na pasta sistema do micro local Set DB = OpenDatabase("C:\Documents and Settings\user\Desktop\TesteConVB6FB\teste.mdb", False, False) Dst.Close End Sub E dá esse erro: Você pode me ajudar?? A onde eu estou errando?? O que está faltando??

Bom dia Gabriel. valeu pela dica. Vou agora mesmo aplicar isso e se pintar alguma dúvida, eu posto. Valeu mesmo.

:rolleyes: Bom dia a todos. Dessa vez a ajuda não foi possível. Mas depois de ficar com a nuca pegando fogo por vários dias, enfim consegui a conexao. Um grande agraço a todos. Marcelo Cavalcanti

Bom dia a todos, sou novo em programação e ainda estou aprendendo no VB6, apanho muito, mais chego lá. Tenho uma aplicação em VB6 com Banco de Dados Access. Preciso usar também o FIREBIRD como outra opção de Banco de Dados. Como faço a conexão com o Firebird ????? e a opção de escolher o banco no VB6???? Alguém poderia me ajudar???? Agradeço antecipadamente Marcelo Cavalcanti

Bom dia pessoal. Achei um "FULL CONVERT" , bem legal, mas é livre para teste por 30 dias. Depos tem que pagar. Se descobrirem algum totalmente FREE. Por favor postem. Um grande abraço

Boa tarde Pessoal. Alguém sabe se existe um conversor de banco de dados .MDB(ACCESS) para .FDB(FIREBIRD) Agradeço antecipadamente Marcelo Cavalcanti

Olá Jonathan, tudo bem??? Obrigado pela informação. Aproveitando o contato, eu vou te passar o que eu relamente preciso fazer, e se você poder me ajudar. Fico te devendo. É o seguinte: Eu tenho uma aplicação e o Banco de Dados(ACCESS) está na mesma pasta, funciona tudo direitinho. Só que quando eu coloco o Banco de Dados em outra pasta (no servidor por exemplo). Ele não reconhece, e já está explicado por você. Se eu não posso usar o App.Path , como faço agora????? Sub Main() On Error GoTo Main_Error 'abre o BD 'pega o diretório de operação do programa Mydir = App.Path 'seta o BD Set db = OpenDatabase(Mydir + "\Dados\Teste.mdb") Me deram uma ideia de criar um banco, fazer uma tabela na mesma pasta do sistema e nessa tabela eu digitaria o caminho o endereço e mudaria o caminho no programa. Deu um NÓ. Não sei nem por onde começar. você pode ma ajudar???

Pessoal já resolvi Eu fiz assim: Eu criei uma tabela teste1.mdb em C:\sistema e coloquei o db no servidor lá na tabela teste1.mdb eu dou o endereço: por exemplo " t:" ou "c:\conta\fulando de tal" e deu certo. AÍ VAI O CÓDIGO, SE alguém PRECISAR. 'Abre o BD de informação de caminho final do BD ' Tem que ficar na pasta sistema do micro local Set db = OpenDatabase("C:\sistema\Teste1.mdb") Set Dst = db.OpenRecordset("select * from path_d") xdrive = Dst("drive") Mydir = Trim(xdrive) Dst.Close 'seta o BD 'pega o diretório de operação do programa Set db = OpenDatabase(Mydir + "\Dados\Teste.mdb") muito obrigado pessoal Um grande abraço

Olá, Kuroi tudo bem??? Está salva no Banco de dados, mas como texto(o nome da imagem), e as imagens .jpg ficam em uma pasta (fotos). mas posso criar um novo campo para essas imagens(logomarcas) e inserir as fotos como objeto ole, se for o caso.