George Ferraz

Amigos, bom dia. O que estava ocontecendo na realidade, foi problema interno no cliente, a rede estava em conflito por que os equipamentos já estavam com problemas mecanicos ou seja precisavam serem substituidos. Agora ficou tudo ok. Kuroi e amigos, valeu.

Kuroi, rapaziada, tarde. Vejam este codico abaixo: Option Explicit Global Cnn As ADODB.Connection Global rs As ADODB.Recordset Global Fechar As Boolean Meu sub main: Private Sub Main() '============================================================================ 'Aqui eu uso um form main no projeto e nele eu trato as variaveis de conecxao com o banco de dados. '============================================================================ Dim ConectaAccess As String Load MDISysCheirodaPaz MDISysCheirodaPaz.Show DoEvents Set Cnn = New ADODB.Connection Set Cnn = CreateObject("ADODB.Connection") ConectaAccess = "Driver={Microsoft Access Driver (*.mdb)};Dbq=\\10.1.1.2\C\BdCheirodaPaz\BancoCheirodaPaz.mdb;Uid=Administrador; Pwd=ferraz" Cnn.Open ConectaAccess Set rs = New ADODB.Recordset Cnn.CursorLocation = adUseServer 'mudei aqui para adUseClient rs.CursorType = adOpenDynamic rs.LockType = adLockOptimistic Como eu concluir o tópico afirmando que estava tudo funcionando bem e fiquei super feliz com isso. O meu cliente reclamou que os relatorios não estava funcionando, ai fui verificar e realmente não esta, o que fiz de imediato, criei uma fonte de dados ODBC e fiz um set em todos os reports para o ODBC, copilei o sistema e não alterei nada na minha conexao acima. Voltei no cliente instalei o crystal e apontei o set para o ODBC fiz a atualizacao, os relatorios funcionaram na boa, porem o sistema voltou a apresentar a velha mensagem de erro (a operacao necessita de uma consulta atualizavel -2147217900) quando eu tento atualizar ou inserir algo no banco. Alguma dica do que pode ser ? Fico grato a todos desde já.

Kuroi, tarde, Meu amigo sucesso ! eu fiz uma pequena modificação na minha query, seguindo uma de suas sugestoes e supinpa, agora já consigo editar na maquina 2. Veja o que fiz: '***================================*** 'em um modulo tenho minhas variaveis globais para o ADO: Option Explicit Global Cnn As ADODB.Connection Global rs As ADODB.Recordset Global Fechar As Boolean Meu sub main: Private Sub Main() '=========================================================================================================== 'Aqui eu uso um form main no projeto e nele eu trato as variaveis de conecxao com o banco de dados. '=========================================================================================================== Dim ConectaAccess As String Load MDISysCheirodaPaz MDISysCheirodaPaz.Show DoEvents Set Cnn = New ADODB.Connection Set Cnn = CreateObject("ADODB.Connection") ConectaAccess = "Driver={Microsoft Access Driver (*.mdb)};Dbq=\\10.1.1.2\C\BdCheirodaPaz\BancoCheirodaPaz.mdb;Uid=Administrador; Pwd=ferraz" Cnn.Open ConectaAccess Set rs = New ADODB.Recordset Cnn.CursorLocation = adUseServer rs.CursorType = adOpenDynamic rs.LockType = adLockOptimistic '===================================================================================== End Sub '***================================================================================== 'Aqui eu tenho minha strings e query para o novo usuario Public Function NewUser(ByVal strRegistro As String, _ strData As String, strUser As String, _ strSenha As String, strChkPermit1 As String, _ strChkPermit2 As String, strChkPermit3 As String) As Variant 'Campos base 'Registro = numero 'Data = data/hora 'Nome = texto 'Senha = text 'ChkPermit1 = text 'ChkPermit2 = text 'ChkPermit3 = text Cnn.Execute ("Insert Into TbUsuario(Registro,Data,Nome,Senha,ChkPermit1,ChkPermit2,ChkPermit3)" _ & "values('" & strRegistro & "','" & _ strData & "','" & strUser & "','" & _ strSenha & "','" & strChkPermit1 & "','" & _ strChkPermit2 & "','" & strChkPermit3 & "')") NewUser = True End Function '***================================================================================== 'Aqui eu tenho minha strings e query para o update do usuario Public Function UpdateUser(ByVal strRegistro As String, _ strData As String, strUser As String, _ strSenha As String, strChkPermit1 As String, _ strChkPermit2 As String, strChkPermit3 As String) As Variant 'Campos base 'Registro = numero 'Data = data/hora 'Nome = texto 'Senha = text 'ChkPermit1 = text 'ChkPermit2 = text 'ChkPermit3 = text Cnn.Execute "Update TbUsuario Set" _ & " Data= '" & strData & "'," _ & " Nome= '" & strUser & "', " _ & " Senha= '" & strSenha & "', " _ & " ChkPermit1= '" & strChkPermit1 & "', " _ & " ChkPermit2= '" & strChkPermit2 & "', " _ & " ChkPermit3= '" & strChkPermit3 & "'" _ & " Where Registro = " & strRegistro UpdateUser = True End Function '***================================================================================== 'Aqui eu tenho minha strings e query para o delate do usuario Public Function DeleteUser(ByVal strRegistro As String, _ strData As String, strUser As String, _ strSenha As String, strChkPermit1 As String, _ strChkPermit2 As String, strChkPermit3 As String) As Variant Cnn.Execute "Delete * From TbUsuario Where Registro=" & strRegistro & "" DeleteUser = True End Function '***================================================================================== 'Agora no formCadUser Private Sub lvBConf_Click() '***================================================================================== 'Aqui eu chamo a veriavel que criei no modulo para gravar o novo usuario. Dim NovoUser As Variant On Error GoTo Erro NovoUser = NewUser(TxtReg.Text, TxtDta.Text, TxtNome.Text, _ TxtSenha.Text, ChkAltera.Value, ChkIncluir.Value, ChkConsulta.Value) If NovoUser = True Then Erro: TrataErro MsgBox "Novo Usuário incluido com sucesso !", vbInformation End If Unload Me End Sub Private Sub lvBAltera_Click() '***================================================================================== 'Aqui eu crio uma variavel e chamo a funcao updateuser, para 'efetuar as alteracoes. Dim AtualUser As Variant On Error GoTo Erro AtualUser = UpdateUser(TxtReg.Text, TxtDta.Text, TxtNome.Text, _ TxtSenha.Text, ChkAltera.Value, ChkIncluir.Value, ChkConsulta.Value) If AtualUser = True Then Erro: TrataErro MsgBox "Alteração concluida com sucesso" Else MsgBox "Erro na alteração !", vbCritical End If Unload Me End Sub Private Sub lvBExcluir_Click() '***================================================================================== 'Aqui eu chamo a variavel que fica responsavel pela exclussao solicitada, Dim DeleteUsuario As Variant On Error GoTo Erro With FrmCadUser .lvBConsulta.Enabled = True If .TxtNome.Text = "" Then MsgBox "Impossível continua, existe campos inválidos !", vbExclamation .lvBConsulta.SetFocus Exit Sub Else DeleteUsuario = DeleteUser(.TxtReg.Text, .TxtDta.Text, .TxtNome.Text, _ .TxtSenha.Text, .ChkAltera.Value, .ChkIncluir.Value, .ChkIncluir.Value) If DeleteUsuario = True Then Erro: TrataErro MsgBox "Parabens usuário Excluido Com Sucesso. !", vbExclamation Else MsgBox "Erro na excluisão, Antes Consulte Um Registro.", vbCritical End If End If End With Unload Me End Sub Valeu kuroi tudo de bom, meu amigo. (tópico Resolvido) B)

Kuroi, boas amigo. Boa ideia de roda em codigo fonte, terei que instalar o vb6 no wiw 7, e tentar resolver em projeto seria isso certo, o duro que vejo os colegas reclamarem o win 7 com o vb6, mais existem varios topicos sobre o assunto e acho que não terei problemas, mais qualquer coisa eu posto. na maquina 1 roda sem problemas, so quando eu pego o atalho e executo na maquina 2, ai so consigo consultar e mais nada. estou sem a query de uptade agora pois estou no cliente, vou postar aqui pra você olha e dar sua opniao. Muito obrigado e boa noite.

Tarde amigos, tenho um problema em um sistema que quero rodar em rede e não consigo exito. 2 - maquinas: 1-maquina sistema instalado assim: c:\syscheirodapaz\sistema = executavel inicia em: = c:\bdcheirodapaz = pasta com o bancocheirodapaz.MDB (banco access 2000) 2-maquina sistema instaldo assim: c:\syscheirodapaz\sistema = executavel inicia em: = \\centro_2-pc\c\bdcheirodapaz = pasta com o bancocheirodapaz.MDB banco access 2000 Tudo esta compartilhado completo com todas as permissoes por completo e com o usuario "todos" Ocorre este erro aqui: Erro: -2147467259 (driver ODBC para access) A operacao deve usar uma consulta atualizavel. Minha conexao: Private Sub Main() Dim strArquivo As String Dim strLocal As String Dim ConectaAccess As String Dim USER As String Dim SENHA As String Load MDISysCheirodaPaz MDISysCheirodaPaz.Show DoEvents Set Cnn = New ADODB.Connection Set rs = New ADODB.Recordset strArquivo = ("\BdCheirodaPaz\BancoCheirodaPaz.mdb") strLocal = App.Path Set Cnn = CreateObject("ADODB.Connection") ConectaAccess = "Driver={Microsoft Access Driver (*.mdb)};" & _ "Dbq=" & strArquivo & ";" & _ "DefaultDir=" & strLocal & ";" & _ "Uid=" & USER & ";" & _ "PWD=" & SENHA & ";" & _ "Option=3;" Cnn.Open ConectaAccess End Sub A rede é simples apenas duas maquinas e não consigo fazer que a maquina 2 atualize os dados, apenas consulta porque ? já venho buscando solucao e nada encontrei ate o momento. Caros amigos, alguém já passou por isto e pode me ajudar a resolver. Fico grato a todos desde já. B)

JACKSSA, Sua dica aqui foi simplesmente otima, eu criei um software e instalei no pc do cliente, e percebi que o icone no painel de controle para o software que criei estava errado, dai foi ate as opcoes de pasta e acabei excluindo a extensao .exe do sistema, nossa todos os aplicativos passou a não ser executado, fiz algumas pesquisas e achei sua dica, baixei o FIX e tudo passou a ser como antes, muito bom, valeu brother.

O seu problema esta justamento no crystal, se vc, não fazer esses procedimentos que apontei seu report continuara sem atualizacao em tempo real. Usando no crystal a funcao interna "Reflesh Report Data" so funciona para aquele momento, quero dizer o seguinte, se você fazer alguma alteracao em seus registros e for visualizar o crystal não tera nenhum registro atualizado, agora se você abrir o crystal e executar a funcao "Reflesh Report Data" ae ele atualiza, mais toda fez você tera que fazer isso, não é viavel essa dica. Quanto a fazer as alteracoes usando o procedimento que postei anteriormente e mandar os arquivos do crystal para o usuario substituir, no meu ponto de vista, acredito que vai funcionar, já que o problema esta justamente no crystal e não no executavel, agora, claro que seria mais recomendavel copilar novamente e fechar todas as possibilidades de erros e mandar o pacote atualizado. "Sabio o Homem que Inventou a Cerveja"(Platao)

Olha esse erro ocorre por dos motivos: Seu report esta com o caminho certinho na maquina do cliente ? Quando você instalou no cliente ocorreu algum erro e você igonorou ? "Sabio o Homem que Inventou a Cerveja"(Platao)

Flecha, siga esses passos que vai funcionar na boa, seu report ira atualizar em tempo real, veja: Kuroi, eu acho que o Flecha esta tentando atualizar na hora que grava um registro no BD, não acha, pois se for isso a instrucao acima vai resolver traquilamente o problema dele. Flecha veja se funcionou agora. "Sabio o Homem que Inventou a Cerveja"(Platao)

Valeu Kuroi, adicionei esta sala em meus favoritos do meu navegador, neste momento, para posteriores consultas e duvidas sobre minha migracao, vamos lá. "Sabio o Homem que Inventou a Cerveja"(Platao)

Kuroi noite, eu fiz um teste com o Visual Basic 2008 express e me deparei com um layaut bacana de cara, agora, nessa versao assim que você tenta abrir um projeto seu, criado no Visual Basic 6.0, logo uma pergunta se você quer converter para .NET e dai cria tudo para você desde diretorio a pasta e também é possivel converte dll alem de exe, bom é atraente. Mais tenho que dizer em meu codigo de meu projeto aconteram mais de 30 erros entre eles de "ocx", acho que erros de codigo também, mais não era pra menos para mim que me deparei com um ambiente completamente diferente do Visual Basic 6.0, no sentido visual, mais muito interessante, que merece atencao nos estudos. Mais vou procurar com calma uma licenca para outra versao, pois o Visual Basic 2008 express é free por trinta dias, mais foi muito bom o primeiro contato. Valeu. "Sabio o Homem que Inventou a Cerveja"(Platao)

Valeu Kuroi, eu vou atras do .NET para iniciar meus estudos nele. Sabio o Homem que Inventou a Cerveja(Platao)

"Sabio o Homem que Inventou a Cerveja"(Platao)

"Sábio o homem que inventou a cerveja"(Platao)_(Compadrio_SP)