USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Migrar | VB6 X ACCESS 97
Ade
MACEIÓ
AL - BRASIL
ENUNCIADA !
Postada em 19/01/2009 10:46 hs            
Olá,
  
     Gostaria de Fazer duas indagações:
     1)  Encontrei um código na internet e estou tentando rodar o mesmo para utilização de controle de frente de loja, com controle dos estoques, contas a pagar e receber e gostaria de implementar algo como TEF e impressão fiscal/não fiscal(que não existe neste código), entretanto, não tenho experiência com TEF, então achei se alguém não poderia me ajudar a encontrar/ceder algo que pudesse implementar e/ou estudar para melhorar este sistema, pois, meu objetivo é me basear neste programa que considero básico do básico e migrar para utilizar com o SQL Server 2005/2008 free, alguém poderia me ajudar a encontrar algo que possa utilizar e usar?
     2) Como resolver este problema do VB6 X ACCESS 97 que não consigo usar, pois, ao executar num determinado formulário, sai com o erro descrito abaixo:
     Alguém poderia me ajudar? Estou com uma aplicação que ao tentar incluir, alterar qualquer informação no BD que está vinculado por um objeto DATA, está dando o seguinte erro, na linha de comando do VB, "Data1.Recordset.Update": Run time error: 3426 "This action was cancelled by an associated object ". Utilizo o VB6 x ACCESS 97, a DatabaseName utilizo quando carrego o formulário, o RecordsetType utilizado é o Dynaset, de um Recordsource relacionado a uma tab x. A rotina que utilizo quando quero modificar qualquer registro é através do botão Adicionar/Alterar e em seguida pelo botão salvar conforme consta abaixo:
Botão Adicionar:
 
Private Sub Command1_Click()
Dim Contador As Currency
Dim Estoque As Currency
If Menu.CEstoque = "" Then
Menu.CEstoque = 0
End If
Estoque = Menu.CEstoque
Contador = Estoque + 1
Menu.CEstoque = Contador
A1.Visible = True
Tabela.Visible = False
Data1.Recordset.AddNew
A1 = Contador
Frame1.Enabled = True
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = True
Command4.Enabled = False
Command5.Enabled = False
Command5.Enabled = False
Command6.Enabled = False
Command7.Enabled = False
C5.Enabled = False
TABE.Enabled = False
PRINTB.Enabled = False
Data1.Enabled = False
A2.SetFocus
A1.Visible = False
P1 = A1
Menu.Contador.Refresh
End Sub
x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-
Botão Alterar:
Private Sub Command2_Click()
If P1 <> "" Then
Data1.Recordset.Edit
Data1.Enabled = False
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = True
Command4.Enabled = False
Command5.Enabled = False
Command7.Enabled = False
C5.Enabled = False
TABE.Enabled = False
PRINTB.Enabled = False
Tabela.Visible = False
Data1.Enabled = False
A1.Visible = False
Frame1.Enabled = True
A2.SelStart = 0
A2.SelLength = Len(A2.Text)
A2.SetFocus
Tabela.Visible = False
End If
End Sub
x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-
Botão Salvar (É aqui que existe o erro apontado)
Private Sub Command3_Click()
If P1 <> "" Then
'Confirmação de campos
If A3 = "" Then
A3 = 0
End If
If A4 = "" Then
A4 = 0
End If
If A5 = "" Then
A5 = 0
End If
If A07 = "" Then
A07 = 0
End If
If A8 = "" Then
A8 = 0
End If
If A09 = "" Then
A09 = 0
End If
If A10 = "" Then
A10 = 0
End If
If A22 = "" Then
A22 = 0
End If
If A12 = "" Then
A12 = 0
End If
If A11 = "" Then
A11 = 0
End If
If A9 = "" Then
A9 = 0
End If
If A23 = "" Then
A23 = 0
End If
If A13 = "" Then
A13 = 0
End If
If A7 = "" Then
A7 = 0
End If
If A15 = "" Then
A15 = 0
End If
If A17 = "" Then
A17 = 0
End If
If A19 = "" Then
A19 = 0
End If
If TvenHoje = "" Then
TvenHoje = 0
End If
If LucDia = "" Then
LucDia = 0
End If
If LucMes = "" Then
LucMes = 0
End If
If Custo_total = "" Then
Custo_total = 0
End If
If Estoque_total = "" Then
Estoque_total = 0
End If
If LucMesMec = "" Then
LucMesMec = 0
End If
If LucDiaMec = "" Then
LucDiaMec = 0
End If
If QueMes = "" Then
QueMes = 0
End If
If QueMesVr = "" Then
QueMesVr = 0
End If
Data1.Enabled = True
ENTRADA.Visible = False
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = False
Command4.Enabled = True
Command5.Enabled = True
Command7.Enabled = True
C5.Enabled = True
TABE.Enabled = True
PRINTB.Enabled = True
Frame1.Enabled = False
Altera = True
TABE = True
Data1.Recordset.Update   <<<<----------o erro ocorre aqui
End If
End Sub
Alguém pode me ajudar???
   
Álvaro
Pontos: 2843
GUARULHOS
SP - BRASIL
ENUNCIADA !
Postada em 19/01/2009 11:28 hs            
Ade, tira essa linha do update, pois como você está vinculando o banco com o objeto data, não é necessário dar um update, pois qualquer coisa que você digite já está gravando no banco isso é o perigo de usar esse tipo de objeto
Abraço
   
Ade
MACEIÓ
AL - BRASIL
ENUNCIADA !
Postada em 19/01/2009 12:41 hs            
Valeu Álvaro,
 
                 Finalmente os registros podem ser gravados, entretanto, com o botão incluir para adicionar um novo registro não está gravando o que devo fazer???
Abraços.
   
Alexandre Patos
Pontos: 2843 Pontos: 2843
PATOS DE MINAS
MG - BRASIL
Postada em 19/01/2009 16:39 hs            
no componente data tem uma propriedade que se nao me engano chama addnew, coloque ela como true, eu particularmente nao aconselho a usar esses componentes de acesso direto ao banco, da muito problema, principalmente que vc esta pensando em utiliza tef , ecf, etc...
     
Roberto
não registrado
ENUNCIADA !
Postada em 10/02/2011 15:19 hs   
Cara, tente colocar Data1.Recordset.Edit, antes de comecar a digitar os dados, pois o update necessita desta instrucao. Espero ter ajudado !
   
Roßerto
Pontos: 2843 Pontos: 2843 Pontos: 2843 Pontos: 2843 Pontos: 2843
SAO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 11/02/2011 05:38 hs            
vá no site da bematech, lá tem um exemplo completo que usa TEF e impressora fiscal ou nao.

   
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2021   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página