Gabriel Cabral

Está dando erro de sintaxe no UPDATE....mas eu não estou encontrando nenhum erro na instrução.... Alguém pode me ajudar? With cmd .ActiveConnection = Conex .CommandType = adCmdText .CommandText = " Select * From FinanWin_Cli " Set rs = .Execute End With rs.Filter = "Cli_Cod = " & txtCli_Cod & " AND Cli_NomeFantasia = '" & txtCli_NomeFantasia & "' AND Cli_RazaoSocial = '" & txtCli_RazaoSocial & "' And Cli_Endereco = '" & txtCli_Endereco & "' And Cli_Numero = '" & txtCli_Numero & "' And Cli_Bairro = '" & txtCli_Bairro & "' And Cli_Cidade = '" & txtCli_Cidade & "' And Cli_Estado = '" & txtCli_Estado & "' And Cli_CEP = '" & txtCli_CEP & "' And Cli_Email = '" & txtCli_Email & "' And Cli_DDD = '" & txtCli_DDD & "' And Cli_Telefone = '" & txtCli_Telefone & "' And Cli_Celular = '" & txtCli_Celular & "' And Cli_RG = '" & txtCli_RG & "' And Cli_CPF = '" & txtCli_CPF & "' And Cli_CNPJ = '" & txtCli_CNPJ & "' And Cli_IE = '" & txtCli_IE & "'" If rs.BOF And rs.EOF Then With cmd .ActiveConnection = Conex .CommandType = adCmdText .CommandText = "UPDATE FinanWin_Cli Set Cli_NomeFantasia Like '" & txtCli_NomeFantasia & "', Cli_RazaoSocial Like '" & txtCli_RazaoSocial & "', Cli_Endereco Like '" & txtCli_Endereco & "', Cli_Numero Like '" & txtCli_Numero & "', Cli_Bairro Like '" & txtCli_Bairro & "', Cli_Cidade Like '" & txtCli_Cidade & "', Cli_Estado Like '" & txtCli_Estado & "', Cli_CEP Like '" & txtCli_CEP & "', Cli_Email Like '" & txtCli_Email & "', Cli_DDD Like '" & txtCli_DDD & "', Cli_Telefone Like '" & txtCli_Telefone & "', Cli_Celular Like '" & txtCli_Celular & "', Cli_RG Like '" & txtCli_RG & "', Cli_CPF Like '" & txtCli_CPF & "', Cli_CNPJ Like '" & txtCli_CNPJ & "', Cli_IE Like '" & txtCli_IE & "' WHERE Cli_Cod = '" & txtCli_Cod & "'" .Execute A linha .Execute fica marcada em amarelo

O Access do pc que estou desenvolvendo, é 97 O do pc do cliente é 2000 Usando o Jet 4.0 no pc do cliente, deu erro Mas usando o Jet 4.0 em um outro pc daqui com W98 e Access 2000 tambem, sem ser o pc q eu desenvolvi o programa, não dá erro Aí me falaram preu Referenciar o Jet 3.51 o que devo fazer?? E qual eu devo escolher na conexao do DataEnvironment com o BD?? Obrigado

Olá pessoas..... Estou fazendo um projeto em VB6, ADO, Access... Eu estava usando o Provider Jet 4.0 mas o programa não funcionou no computador de um cliente por falhas no Provider Então me indicaram usar o Provider Jet 3.51 para W98 Então mudei para Jet 3.51, mas ainda não testei no pc do cliente Mas o meu problema vem agora Quando vou criar uma conexão do DataEnvironment com o BD, escolho o Jet 3.51 tambem Mas aí no Command dessa conexão do DataEnvironment, quando vou definir os parametros para a busca para gerar um relatorio, os parametros não são definidos Eles só são definidos se eu escolher o Jet 4.0 O que devo fazer????? alguém aí tem alguma solução??? Alguém sabe tambem criar um relatorio em DataReport sem utilizar o DataEnvironment?

Aaaaaaahhnnnn sem loop então, Graymalkin.. Funcionou certinho aqui Muito obrigado

Tenho o seguinte loop Dim a As Integer Dim b As Integer a = Text1.Text b = 0 If Text2.Text = "" Then Text2.Text = b + 1 Else b = Text2.Text Do While (b < a) b = b + 1 Text2.Text = b Loop End If Ao abrir o form, colocarei na Text1 um numero qualquer... Supondo que coloquei o numero 4...e a Text2 está vazia...então clico no botão.. Vai cair na condição, fazendo a Text2 receber o numero 1 Depois disso, ao clicar o botão denovo, entra no loop, pois a Text2 não está vazia... Mas o loop é feito até o fim e a Text2 só recebe o valor final, que seria 4, conforme a incrementação. o que eu queria era clicar no botao e Text2 receber 1 Dps clicar no botao, Text2 receber 2 e o loop parar para eu preencher outras textbox do form... Aí eu clicar num outro botao pro loop voltar de onde parou. E assim por diante até b ser < a. Ou seja...eu queria q a incrementação fosse aparecendo na Text2...e não só aparecer o ultimo valor no fim do loop. Deu pra entender? Se não deu, me avisem que eu tento explicar dnovo Obrigado

Um cara me disse que eu use DAO e ADO no mesmo projeto Só q ele não explicou onde ele viu isso... e também não disse o que poderia ser feito pra resolver você saberia me dizer??? Obs.: Estou procurando várias alternativas; porque nos 3 PCs aqui de casa funcionou... então não tem como eu mudar alguma coisa e testar....tenho que testar lá no PC do cliente mesmo.. Então estou tentando colher o máximo de informações que possa solucionar esse meu problema...

Olá pessoas Essas coisas listadas no título do tópico já estão me dando dor de cabeça... Fiz um programa em um W98, Access 97, Jet 4.0, ADO, MDAC 2.7 e tudomais Há mais ou menos uma semana atrás, eu estava com vários problemas na instalação do programa...vários erros de dll e ocx estavam sendo acusados Então me indicaram instalar o Jet 4.0 [Jet40SP8_9xNT.exe] e o MDAC 2.7 [Mdac.exe] no computador em que eu instalaria o programa. Fiz isso. Obs¹.: O computador em que instalei o programa possui W98 e Access 2000 Agora surgem os erros.. Na instalação do Jet 4.0 foi tudo bem. Na instalação do MDAC 2.7, apesar de informar que foi instalado com sucesso, deu o seguinte erro: Erro ao registrar C:\Arquivos de Programas\Arquivos Comuns\System\OLE DB\oledb32.dll de OCX Depois instalei o programa e não deu nenhum erro. Aí abri o programa....4 dos 10 forms abrem e funcionam Mas os forms de Cadastro, quando vao abrir, dá o erro: Run-time error '3706': Provedor não encontrado. Talvez ele não esteja instalado corretamente. Aí não dá pra cadastrar nada no programa...logo, impossivel utilizá-lo Obs².: Instalei o programa em um outro computador com W98 e Access 2000....não deu nenhum problema. Obs³.:Instalei o programa em um computador com WindowsXP e Access 2000....tambem não deu nenhum problema. o que devo fazer???? Alguma boa alma conseguiria me ajudar? Muito obrigado

é verdade, Macêdo posso tanto colocar no LostFocus, como no KeyPress da textbox quando teclar o <Enter> [que é o que eu fiz] Muito obrigado pela dica abraço

Olá pessoas... Me desculpem a má expressão no título do tópico :blink: É o seguinte eu tenho um MSHFlexGrid com vários registros e uma textbox Conforme vou digitando nesta textbox, o registro que tem o nome correspondente ao que está sendo escrito na textbox, vai sendo encontrado no grid, sendo assim sua célula marcada em azul. Então surge o infortúnio.. se existe um registro no grid com o nome Gabriel, e eu digito "Gabr" na textbox, a celula q tem Gabriel será marcada em azul. Aí quando eu clico enter, o foco vai para esta celula...e quando clico enter denovo, um form com várias textbox é preenchido com os dados dakele registro, atraves da função Trim(). Pergunta: Eu gostaria de dar apenas um enter..ou seja...Se eu digitar "Gabr" na textbox, e a celula com o nome Gabriel já ficar marcada em azul, eu dou um enter não para o grid ganhar o foco, mas para chamar já a função Trim() Como eu poderia estar fazendo isso???.......vou postar aki como faço a busca com a textbox e o grid Faz a busca no grid enquanto algo é digitado na textbox Private Sub txtBuscaCli_Change() achou = False GrideBuscaCli.Col = 2 For i = 1 To GrideBuscaCli.Rows - 1 If GrideBuscaCli.TextMatrix(i, 2) Like txtBuscaCli & "*" Then If achou = False Then GrideBuscaCli.Row = i GrideBuscaCli.TopRow = i GrideBuscaCli.CellBackColor = vbBlue GrideBuscaCli.CellForeColor = vbWhite achou = True Exit For End If Else GrideBuscaCli.Row = i GrideBuscaCli.CellBackColor = vbWhite GrideBuscaCli.CellForeColor = vbBlack End If Next i If achou = True Then txtBuscaCli.BackColor = vbWhite txtBuscaCli.ForeColor = vbBlack Else txtBuscaCli.BackColor = vbRed txtBuscaCli.ForeColor = vbWhite End If End Sub Deixa em maiúsculo,todas as letras digitadas na textbox...ao dar enter, a celula que está em azul obtem o foco Private Sub txtBuscaCli_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) If KeyAscii = vbKeyReturn Then GrideBuscaCli.SetFocus KeyAscii = 0 End If End Sub Com o foco na celula correspondente ao nome digitado na textbox, clicando enter, as textbox do form são preenchidas Private Sub GrideBuscaCli_KeyPress(KeyAscii As Integer) If KeyAscii = vbKeyReturn Then If txtBuscaCliAux.Text = "" Then frmContasR.Show frmContasR.txtConR_NumParc.SetFocus GrideBuscaCli.Col = 1 frmContasR.txtConR_Cod.Text = Trim(GrideBuscaCli.Text) GrideBuscaCli.Col = 2 frmContasR.txtConR_NomeFantasia.Text = Trim(GrideBuscaCli.Text) Else frmCadClientes.Show frmCadClientes.cmdAlterar.SetFocus GrideBuscaCli.Col = 1 frmCadClientes.txtCli_Cod.Text = Trim(GrideBuscaCli.Text) GrideBuscaCli.Col = 2 frmCadClientes.txtCli_NomeFantasia.Text = Trim(GrideBuscaCli.Text) GrideBuscaCli.Col = 3 frmCadClientes.txtCli_RazaoSocial.Text = Trim(GrideBuscaCli.Text) GrideBuscaCli.Col = 4 frmCadClientes.txtCli_Endereco.Text = Trim(GrideBuscaCli.Text) GrideBuscaCli.Col = 5 frmCadClientes.txtCli_Numero.Text = Trim(GrideBuscaCli.Text) GrideBuscaCli.Col = 6 frmCadClientes.txtCli_Bairro.Text = Trim(GrideBuscaCli.Text) GrideBuscaCli.Col = 7 frmCadClientes.txtCli_Cidade.Text = Trim(GrideBuscaCli.Text) GrideBuscaCli.Col = 8 frmCadClientes.txtCli_Estado.Text = Trim(GrideBuscaCli.Text) GrideBuscaCli.Col = 9 frmCadClientes.txtCli_CEP.Text = Trim(GrideBuscaCli.Text) GrideBuscaCli.Col = 10 frmCadClientes.txtCli_Email.Text = Trim(GrideBuscaCli.Text) GrideBuscaCli.Col = 11 frmCadClientes.txtCli_DDD.Text = Trim(GrideBuscaCli.Text) GrideBuscaCli.Col = 12 frmCadClientes.txtCli_Telefone.Text = Trim(GrideBuscaCli.Text) GrideBuscaCli.Col = 13 frmCadClientes.txtCli_Celular.Text = Trim(GrideBuscaCli.Text) GrideBuscaCli.Col = 14 frmCadClientes.txtCli_RG.Text = Trim(GrideBuscaCli.Text) GrideBuscaCli.Col = 15 frmCadClientes.txtCli_CPF.Text = Trim(GrideBuscaCli.Text) GrideBuscaCli.Col = 16 frmCadClientes.txtCli_CNPJ.Text = Trim(GrideBuscaCli.Text) GrideBuscaCli.Col = 17 frmCadClientes.txtCli_IE.Text = Trim(GrideBuscaCli.Text) End If KeyAscii = 0 End If Unload frmBuscaCli End Sub Teria algo como, quando a textbox da busca perder o foco, as textbox do form serem preenchidas com o registro que está em azul no grid???? Muito obrigado Feliz Ano Novo

Ae gente... o problema já foi resolvido era em relação a recordsets abertos, fechados e tudo mais muito obrigado pela atenção Feliz Ano Novo a todos

é o seguinte... O erro é no botao de inclusao e de alteração Quando incluo um registro, não dá erro nenhum, mas se vou incluir outro, dá o erro Run-time error '3265': Item não pode ser encontrado nesta coleção... O mesmo erro ocorre para quando estou alterando... Se altero um registro, não dá nenhum erro....mas se vou alterá-lo novamente ou alterar outro, dá esse erro Esse erro ocorre quando se faz o filtro para inclusao rs.Filter = "Cli_Cod Like '" & txtCli_Cod & "'" e para alteração rs.Filter = "Cli_Cod = " & txtCli_Cod & " AND Cli_NomeFantasia = '" & txtCli_NomeFantasia & "' AND Cli_RazaoSocial = '" & txtCli_RazaoSocial & "' And Cli_Endereco = '" & txtCli_Endereco & "' And Cli_Numero = '" & txtCli_Numero & "' And Cli_Bairro = '" & txtCli_Bairro & "' And Cli_Cidade = '" & txtCli_Cidade & "' And Cli_Estado = '" & txtCli_Estado & "' And Cli_CEP = '" & txtCli_CEP & "' And Cli_Email = '" & txtCli_Email & "' And Cli_DDD = '" & txtCli_DDD & "' And Cli_Telefone = '" & txtCli_Telefone & "' And Cli_Celular = '" & txtCli_Celular & "' And Cli_RG = '" & txtCli_RG & "' And Cli_CPF = '" & txtCli_CPF & "' And Cli_CNPJ = '" & txtCli_CNPJ & "' And Cli_IE = '" & txtCli_IE & "'" O erro NÃO ocorre se eu incluir/alterar, aí fechar o form e depois abri-lo novamente e incluir/alterar mais um o que pode estar havendo?? Obrigado

Ah....está dando um errinho aqui....não sei nem se posso aproveitar esse tópico ou tenho que abrir outro é o seguinte... O erro é no botao de inclusao e de alteração Quando incluo um registro, não dá erro nenhum, mas se vou incluir outro, dá o erro Run-time error '3265': Item não pode ser encontrado nesta coleção... O mesmo erro ocorre para quando estou alterando... Se altero um registro, não dá nenhum erro....mas se vou alterá-lo novamente ou alterar outro, dá esse erro Esse erro ocorre quando se faz o filtro para inclusao rs.Filter = "Cli_Cod Like '" & txtCli_Cod & "'" e para alteração rs.Filter = "Cli_Cod = " & txtCli_Cod & " AND Cli_NomeFantasia = '" & txtCli_NomeFantasia & "' AND Cli_RazaoSocial = '" & txtCli_RazaoSocial & "' And Cli_Endereco = '" & txtCli_Endereco & "' And Cli_Numero = '" & txtCli_Numero & "' And Cli_Bairro = '" & txtCli_Bairro & "' And Cli_Cidade = '" & txtCli_Cidade & "' And Cli_Estado = '" & txtCli_Estado & "' And Cli_CEP = '" & txtCli_CEP & "' And Cli_Email = '" & txtCli_Email & "' And Cli_DDD = '" & txtCli_DDD & "' And Cli_Telefone = '" & txtCli_Telefone & "' And Cli_Celular = '" & txtCli_Celular & "' And Cli_RG = '" & txtCli_RG & "' And Cli_CPF = '" & txtCli_CPF & "' And Cli_CNPJ = '" & txtCli_CNPJ & "' And Cli_IE = '" & txtCli_IE & "'" O erro NÃO ocorre se eu incluir/alterar, aí fechar o form e depois abri-lo novamente e incluir/alterar mais um o que pode estar havendo?? Obrigado

Aeeeeeeee Macêdo, Agora sim tudo funcionando perfeitamente !!!!! Agora to entendendo bem melhor essa de declarar uma vez só e tudo mais Muito obrigado kuroi, Duduh e Macêdo Voces me deram um presente de Natal, Ano Novo e Aniversário Abraço a todos E um Feliz Ano Novo

Gente... segui o que vocês me indicaram....mas ainda tem algo errado no que estou fazendo olha só... No General Declarations eu declarei o recordset Public rsmove As ADODB.Recordset O Load do form está assim: Private Sub Form_Load() StringDeConexao = "Provider=microsoft.jet.oledb.4.0;" & "Data Source=" & App.Path & "\FinanWin.mdb;" Dim Conex As New ADODB.Connection Conex.Open StringDeConexao Dim cmd As New ADODB.Command Dim rs As New ADODB.Recordset With cmd .ActiveConnection = Conex .CommandType = adCmdText .CommandText = " Select Max(Cli_Cod) From FinanWin_Cli " Set rs = .Execute End With If Not IsNull(rs(Val("Cli_Cod"))) Then txtCli_Cod.Text = rs(Val("Cli_Cod")) + 1 Else txtCli_Cod.Text = 1 End If Dim rsmove As New ADODB.Recordset With cmd .ActiveConnection = Conex .CommandType = adCmdText .CommandText = " Select * From FinanWin_Cli " Set rsmove = .Execute End With End Sub e o Click do botão está assim: Private Sub cmdMoveNext_Click() With rsmove .MoveNext If .EOF = True Then cmdMoveNext.Enabled = False cmdMoveLast.Enabled = False End If End With txtCli_Cod.Text = rsmove("Cli_Cod") txtCli_NomeFantasia.Text = rsmove("Cli_NomeFantasia") txtCli_RazaoSocial.Text = rsmove("Cli_RazaoSocial") txtCli_Endereco.Text = rsmove("Cli_Endereco") txtCli_Numero.Text = rsmove("Cli_Numero") txtCli_Bairro.Text = rsmove("Cli_Bairro") txtCli_Cidade.Text = rsmove("Cli_Cidade") txtCli_Estado.Text = rsmove("Cli_Estado") txtCli_CEP.Text = rsmove("Cli_CEP") txtCli_Email.Text = rsmove("Cli_Email") txtCli_DDD.Text = rsmove("Cli_DDD") txtCli_Telefone.Text = rsmove("Cli_Telefone") txtCli_Celular.Text = rsmove("Cli_Celular") txtCli_RG.Text = rsmove("Cli_RG") txtCli_CPF.Text = rsmove("Cli_CPF") txtCli_CNPJ.Text = rsmove("Cli_CNPJ") txtCli_IE.Text = rsmove("Cli_IE") cmdMoveFirst.Enabled = True cmdMovePrevious.Enabled = True End Sub Mas quando eu clico no MoveNext, dá o seguinte erro Run-time error '91': Object variable or With block variable not set e marca a linha .MoveNext Ainda tem algo errado que não sei o que é :(

Ae kuroi, Pelo que voce disse, eu entendi o que está acontecendo.. Mas agora não to conseguindo resolver isso :( Assim... no Declarations tem isso Public Conex As ADODB.Connection Public rs As ADODB.Recordset Public StringDeConexao As String e eu não sei o que fazer nos botoes de movimentação.. Essas seguintes partes aqui, por exemplo, eu não sei o que devo fazer... Não sei se está faltando ou sobrando algo aí.. Ou se está em lugar errado.. 'ESSA PARTE PERNTENCE AO EVENTO CLICK DOS BOTOES DE MOVIMENTAÇÃO Dim Conex As New ADODB.Connection Conex.CursorLocation = adUseClient Conex.Open StringDeConexao Dim cmd As New ADODB.Command Dim rs As New ADODB.Recordset With cmd .ActiveConnection = Conex .CommandType = adCmdText .CommandText = " Select * From FinanWin_Cli " Set rs = .Execute End With Se você puder me ajudar, indicando o que devo fazer... O QUE devo declarar e ONDE devo declarar Muito obrigado

não....o campo Vencimento era do tipo data mas agora mudei pra tipo texto e tá dando tudo certo Caso fosse tipo data, o que eu teria que usar no select???

Então, é que quando eu coloco o igual("=") ao invés do LIKE, dá o seguinte erro: Run-time error '-2147217913(80040e07)': Tipo de dados incompatível na expressão de critério. E então, fica marcada em amarelo a seguinte linha: rs.Open StringSQL, Conex E eu realmente estou procurando um registro que já existe Eu até cadastro na hora e depois procuro, pra não ter erro...mas mesmo assim diz que não existe O estranho é que isso só acontece no computador em que instalei o programa; no computador que desenvolvi ele funciona perfeitamente.

Não estou usando caracter coringa, pois preciso dar um select exatamente no que está nas textbox

Graymalkin, muitíssimo obrigado mesmo agora tá funcionando que é uma beleza.. Quer dizer...os erros não estão dando mais... os formularios estão abrindo e a funcionalidade do programa tá boa... só q está ocorrendo um problema que não sei o por quê... é que no computador em q desenvolvi, ele funciona perfeitamente... mas no computador em que instalei, ele está funcionando diferentemente... Vou explicar... Tenho um form de busca em que tenho as textbox Código, Nome, Parcelas, Documento e Vencimento Ao preenche-las e clicar em buscar, o programa avisa se este registro já existe ou não. Acontece que mesmo existindo, o programa diz que não existe. o que pode estar ocorrendo??? Pois isso só acontece no computador em que instalei o programa.. Aqui está o código do botao que realiza a busca Private Sub cmdBuscaConP_Click() Dim StringSQL As String Dim cod As Integer cod = txtBuscaConP_Cod.Text Set Conex = New ADODB.Connection Conex.Open StringDeConexao Set rs = New ADODB.Recordset StringSQL = "SELECT * FROM FinanWin_ConP " StringSQL = StringSQL & "WHERE ConP_Cod Like '" & cod & "' And ConP_NomeFantasia Like '" & txtBuscaConP_NomeFantasia & "' And ConP_NumParc Like '" & txtBuscaConP_NumParc & "' And ConP_NumDoc Like '" & txtBuscaConP_NumDoc & "' And ConP_Venc Like '" & txtBuscaConP_Venc & "'" rs.Open StringSQL, Conex If rs.EOF Then MsgBox "Registro não existente.", vbExclamation txtBuscaConP_Cod.Text = "" txtBuscaConP_NomeFantasia.Text = "" txtBuscaConP_NumParc.Text = "" txtBuscaConP_NumDoc.Text = "" txtBuscaConP_Venc.Text = "" txtBuscaConP_Cod.SetFocus Else If txtBuscaConPAux.Text = "BuscaConP" Then Do While Not rs.EOF() frmContasP.txtConP_Cod.Text = rs("ConP_Cod") frmContasP.txtConP_CodAux.Text = rs("ConP_Cod") frmContasP.txtConP_NomeFantasia.Text = rs("ConP_NomeFantasia") frmContasP.txtConP_NomeFantasiaAux.Text = rs("ConP_NomeFantasia") frmContasP.txtConP_NumParc.Text = rs("ConP_NumParc") frmContasP.txtConP_NumParcAux.Text = rs("ConP_NumParc") frmContasP.txtConP_NumDoc.Text = rs("ConP_NumDoc") frmContasP.txtConP_NumDocAux.Text = rs("ConP_NumDoc") frmContasP.txtConP_DataEmissao.Text = rs("ConP_DataEmissao") frmContasP.txtConP_Venc.Text = rs("ConP_Venc") frmContasP.txtConP_VencAux.Text = rs("ConP_Venc") frmContasP.txtConP_Valor.Text = rs("ConP_Valor") frmContasP.txtConP_Obs.Text = rs("ConP_Obs") frmContasP.txtConP_Boleto.Text = rs("ConP_Boleto") If Not rs.BOF Or rs.EOF Then If Not rs("ConP_DataPgto") = Empty Then frmContasP.txtConP_DataPgto.Text = rs("ConP_DataPgto") Else frmContasP.txtConP_DataPgto.Text = "" End If Else frmContasP.txtConP_DataPgto.Text = "" End If If Not rs.BOF Or rs.EOF Then If Not rs("ConP_ValorPgto") = Empty Then frmContasP.txtConP_ValorPgto.Text = rs("ConP_ValorPgto") Else frmContasP.txtConP_ValorPgto.Text = "" End If Else frmContasP.txtConP_ValorPgto.Text = "" End If rs.MoveNext frmContasP.optSim.SetFocus Loop End If rs.Close Set rs = Nothing Unload frmBuscaConP End If End Sub Muito obrigado Um Feliz Ano Novo a todos

Isso deve ser instalado no computador onde desenvolvo o projeto ou no computador em que instalo o programa??? Obrigado, Bom natal

Olá pessoas.... Preciso de uma ajuda de amigo agora.... Ocorreram vários problemas ao instalar o programa em outro computador, e até mesmo no computador em que o projeto foi desenvolvido Vou listar aqui os erros que deram durante a instalação... __________________________________________________ No início da instalação, avisa que uma dll já existe e que seria melhor eu mantê-la do que substituí-la...então eu mantive a dll é 'C:\WINDOWS\SYSTEM\MFC40.dll' __________________________________________________ Continuando a instalação, ocorre o seguinte erro: An access violation occurred while copying the file: este erro ocorre para os seguintes arquivos: C:\WINDOWS\SYSTEM\THREED32.OCX C:\WINDOWS\SYSTEM\MSHFLXGD.OCX C:\WINDOWS\SYSTEM\comdlg32.OCX C:\WINDOWS\SYSTEM\MSBIND.DLL C:\WINDOWS\SYSTEM\DAO360.DLL Entre Anular, Repetir e Ignorar, eu ignorei todos eles... ____________________________________________________ No fim da instalação, ocorre mais um erro: An error occurred while registering the file: este erro ocorre para este arquivo: 'C:\WINDOWS\SYSTEM\msado25.tlb ____________________________________________________ Mesmo com todos esses erros, a instalação é concluída.. Mas aí quando vou abrir um formulario do programa, dá o erro Run-time error '13': Type Mismatch, mesmo não havendo nenhum erro no BD Outro erro que ocorre quando clico num botão é o Run-time error '430': Class does not support Automation or does not support expected interface não sei se isso pode interferir em algo, mas é bom eu lembrar que desenvolvi o projeto em Windows 98 e o BD é Access 97 :( E estou tentando instalar o programa em Windows 98 que possui Access 2000 ______________________________________________________ Espero muito que alguma boa alma possa me ajudar, pois nunca havia feito isso antes Seria meu presente de natal :D Muito obrigado

Olá pessoas.....eu aqui denovo.... agora com essa dúvida de moveprevious e movenext é o seguinte....para ambos os botões, o código é esse, apenas com alteração em rs.MovePrevious/rs.MoveNext Dim Conex As New ADODB.Connection Conex.CursorLocation = adUseClient Conex.Open StringDeConexao Dim cmd As New ADODB.Command Dim rs As New ADODB.Recordset With cmd .ActiveConnection = Conex .CommandType = adCmdText .CommandText = " Select * From FinanWin_Cli " Set rs = .Execute End With rs.MovePrevious/rs.MoveNext 'aqui dependendo do botão clicado txtCli_Cod.Text = rs("Cli_Cod") txtCli_NomeFantasia.Text = rs("Cli_NomeFantasia") __________________________________________________ Ao clicar no botão MovePrevious, dá o seguinte erro: Run-time error '3021': Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record. e marca a linha txtCli_Cod.Text = rs("Cli_Cod") __________________________________________________ Ao clicar no botão MoveNext, é como se ele funcionasse apenas uma vez; pois se está no registro 1, eu clico e então vai pro registro 2, mas se clico denovo, fica no registro 2. Bom....se alguém tiver paciencia pra ler tudo isso aqui e puder me ajudar, muito obrigado =P

Era só descomplicar e deixar apenas o campo código como condição WHERE na instrução Delete ¬¬ Vlw gnt

Ae gente...será q posso aproveitar esse tópico pra mais uma coisa?? Ou melhor abrir outro??? mais um problema com o DELETE É QUE NÃO ESTÁ DELETANDO !!!!!! o código está assim If MsgBox("Deseja excluir este fornecedor?", vbQuestion + vbYesNo) = vbYes Then Dim Conex As New ADODB.Connection Conex.Open StringDeConexao Dim cmd As New ADODB.Command Dim rs As New ADODB.Recordset With cmd .ActiveConnection = Conex .CommandType = adCmdText .CommandText = " select * from FinanWin_Forn " Set rs = .Execute End With With cmd .ActiveConnection = Conex .CommandType = adCmdText .CommandText = "DELETE FROM FinanWin_Forn WHERE Forn_Cod Like '" & txtForn_Cod & "' AND Forn_NomeFantasia Like '" & txtForn_NomeFantasia & "' AND Forn_RazaoSocial Like '" & txtForn_RazaoSocial & "' And Forn_Endereco Like '" & txtForn_Endereco & "' And Forn_Numero Like '" & txtForn_Numero & "' And Forn_Bairro Like '" & txtForn_Bairro & "' And Forn_Cidade Like '" & txtForn_Cidade & "' And Forn_Estado Like '" & txtForn_Estado & "' And Forn_CEP Like '" & txtForn_CEP & "' And Forn_Email Like '" & txtForn_Email & "' And Forn_DDD Like '" & txtForn_DDD & "' And Forn_Telefone Like '" & txtForn_Telefone & "' And Forn_Contato Like '" & txtForn_Contato & "' And Forn_TelContato Like '" & txtForn_TelContato & "' And Forn_RG Like '" & txtForn_RG & "' And Forn_CPF Like '" & txtForn_CPF & "' And Forn_CNPJ Like '" & txtForn_CNPJ & "' And Forn_IE Like '" & txtForn_IE & "'" .Execute End With txtForn_Cod.Text = "" txtForn_NomeFantasia.Text = "" txtForn_RazaoSocial.Text = "" txtForn_Endereco.Text = "" txtForn_Numero.Text = "" txtForn_Bairro.Text = "" txtForn_Cidade.Text = "" txtForn_Estado.Text = "" txtForn_CEP.Text = "" txtForn_Email.Text = "" txtForn_DDD.Text = "" txtForn_Telefone.Text = "" txtForn_Contato.Text = "" txtForn_TelContato.Text = "" txtForn_RG.Text = "" txtForn_CPF.Text = "" txtForn_CNPJ.Text = "" txtForn_IE.Text = "" cmdIncluir.Enabled = True cmdAlterar.Enabled = False cmdExcluir.Enabled = False With cmd .ActiveConnection = Conex .CommandType = adCmdText .CommandText = " Select Max(Forn_Cod) From FinanWin_Forn " Set rs = .Execute End With txtForn_Cod.Text = rs(Val("Forn_Cod")) + 1 txtForn_NomeFantasia.SetFocus Else txtForn_NomeFantasia.SetFocus End If Tem alguma coisa errada????

Eu estou setando o recordset no Select...que é onde vou procurar o registro para aí sim deletá-lo Mas obrigado de qualquer forma pela dica. Exatamente...eu não tinha aberto a conexao :P Muito obrigado, kuroi