Jump to content
Fórum Script Brasil

Marcelo Cavalcanti

Membros
  • Content Count

    33
  • Joined

  • Last visited

Community Reputation

0 Neutro

About Marcelo Cavalcanti

  • Birthday 02/28/1978

Perfil

  • Gender
    Male
  • Location
    São Paulo
  1. 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 =
  2. 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
  3. 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
  4. 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
  5. 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
  6. 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 <
  7. Bom dia Gabriel. valeu pela dica. Vou agora mesmo aplicar isso e se pintar alguma dúvida, eu posto. Valeu mesmo.
  8. :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
  9. 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
  10. 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
  11. Boa tarde Pessoal. Alguém sabe se existe um conversor de banco de dados .MDB(ACCESS) para .FDB(FIREBIRD) Agradeço antecipadamente Marcelo Cavalcanti
  12. 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 = O
  13. 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\Tes
  14. 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.
×
×
  • Create New...