vpvjunior

Olá Danleonhart !! O seu ecemplo funcionou beleza! só tem um problema. Terei que modificar todas as minhas telas que tenha ADODC de consulta que são muitas, mas não tem problema vou alterando aos poucos, porque o importante é solucionar problema por mais que seja trabalhoso. Agradeço a sua ajuda fica com DEUS.

O erro acontece na linha do ADO_Consulta.Refresh Iss não teria haver com a versão do SQL, pois no xp eu uso o SQL 2000 e no win 7 eu uso o SQL2005

Olá Kuroi! deixe eu tentar explicar melhor: Tenho um form de CADASRO DE FONTES, e nesse form tem um botão que chamo um outro form que é o de CONSULTAS, onde ele tem uma DataGrid1 e um Adodc1 que está vinculado ao DataSource da DataGrid1. No Load do meu form de CONSULTAS eu tenho o seguinte código: ADO_Consulta.ConnectionString = DBCon ADO_Consulta.RecordSource = "select id_fonte,descricao from fontes" ADO_Consulta.Refresh Com esse código preencho toda minha Datagrid1, mostrando todas as minhas fontes cadastradas. Dessa forma funciona perfeito no XP, no win 7 não.

Olá Pessoal!! Desculpe tanto tempo fora, muito trabalho e computador deu pau, por isso a ausência. Respondendo a pergunta de Kuroi. No Load do form, eu chamo a consulta assim: ADO_Consulta.ConnectionString = DBCon ADO_Consulta.RecordSource = "select id_fonte,descricao from fontes" ADO_Consulta.Refresh Quando chamo meu form ele preenche minha grid que está vinculada ao ADO_Consulta

Olá pessoal! Descobri que o erro so ocorre quando chamo um DataGrid, fora isso o sistema funciona certinho. Alguma dica ou solução. Abraços

Olá kuroi!! A conexão com o banco eu abro uma única vez quando o usuário efetua o logim, depois só fecho a conexão quando encerro o sistema. Então em quanto estiver com o sistema aberto o banco vai tar conectado e a qualquer momento posso executar uma consulta. O interessante é que não dá erro em nenhuma linha, apenas aparece a mensagem de erro.

Ferretto O banco de dados é local, estou utilizando o banco de dados e o sistema em um notebook com win 7 de 32 bits. Eu usava banco sql 2000, mas vi a necessidade de partir para o sql 2005 pois alguns clientes meu começaram a usar o win 7 e o sql 2000 não é compatível com o seven. Então peguei um note que tem win 7 e comecei a migrar para o sql 2005 e adequar o sistema para rodar com 2005, alguns erros foram dando com os teste, mais fui ajustando aos poucos sem problemas e deu certo, só esse problema que tá empancando.

Olá Ferretto! O banco de dados que uso é sql server 2005 express. Não tem como eu está fechando minha conexão depois da consulta, pois o sistema é o mesmo que uso no XP, sem nenhuma alteração e funciona certinho no xp.

Olá galera! Estou com um probleminha!!! Tenho um aplicativo desenvolvido em vb6 no windows XP. Instalei no windows 7 sem problemas, consigo acessar o aplicativo fazendo a concexão com o banco de dados usando o adodb.Connection normal logando pelo SA. Mas quando puxo uma consulta ele me traz todo o registro preenche minha tela mas logo em seguida dá o erro "falha de logon do usuário 'SA" e não consigo fazer nenhuma alteração. Tem algo para configurar no win 7. Agradeço ajuda de todos.

Olá pessoal, estou tentando consumir uma webservice passando parâmetro e não estou conseguindo obter um resultado no retorno. Alguém poderia me dizer onde estou errando, agredito que seja na variável sResultado, que se refere a uma variável de retorno. Logo abaixo desse código tem um exemplo no VB.NET e eu gostaria de aplicar no VB6, agradeço ajuda. Private Sub Command1_Click() Dim strSoapAction As String Dim strUrl As String Dim strXml As String Dim sNFnumero As String Dim iNFmodelo As Integer Dim sNFserie As String Dim sNFemissao As String Dim dFvalor As Double Dim sCNPJfornecedor As String Dim sCNPJorgao As String Dim sResultado As String Dim sResultadoDesc As String sNFnumero = "000035" nNFmodelo = 1 sNFserie = "A" sNFemissao = "15/2/2008" sNFvalor = 16250 sCNPJfornecedor = "06556003000192" sCNPJorgao = "08096570000139" sResultado = "" sResultadoDesc = "" txtOutput.Text = "" strUrl = "http://www.set.rn.gov.br/compralegal/wscompralegal/service.asmx" strSoapAction = "http://www.set.rn.gov.br/compralegal/wscompralegal/LerChaveAutenticadora" strXml = "<?xml version=""1.0"" encoding=""utf-8""?>" & _ "<soap:Envelope xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"">" & _ "<soap:Body>" & _ "<LerChaveAutenticadora xmlns=""http://www.set.rn.gov.br/compralegal/wscompralegal"">" & _ "<strNfnumero>" & sNFnumero & "</strNfnumero>" & _ "<intNfmodelo>" & nNFmodelo & "</intNfmodelo>" & _ "<strNfserie>" & sNFserie & "</strNfserie>" & _ "<dtNfemissao>" & sNFemissao & "</dtNfemissao>" & _ "<dblNfvalortotal>" & sNFvalor & "</dblNfvalortotal>" & _ "<strCnpjfornecedor>" & sCNPJfornecedor & "</strCnpjfornecedor>" & _ "<strCnpjorgaopublico>" & sCNPJorgao & "</strCnpjorgaopublico>" & _ "<strResultado>" & sResultado & "</strResultado>" & _ "<strResultadoDesc>" & sResultadoDesc & "</strResultadoDesc>" & _ "</LerChaveAutenticadora>" & _ "</soap:Body>" & _ "</soap:Envelope>" txtOutput.Text = PostWebservice(strUrl, strSoapAction, strXml) End Sub Private Function PostWebservice(ByVal AsmxUrl As String, ByVal SoapActionUrl As String, ByVal XmlBody As String) As String Dim objDom As Object Dim objXmlHttp As Object Dim strRet As String Dim intPos1 As Integer Dim intPos2 As Integer On Error GoTo Err_PW ' Create objects to DOMDocument and XMLHTTP Set objDom = CreateObject("MSXML2.DOMDocument") Set objXmlHttp = CreateObject("MSXML2.XMLHTTP") ' Load XML objDom.async = False objDom.loadXML XmlBody ' Open the webservice objXmlHttp.open "POST", AsmxUrl, False ' Create headings objXmlHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8" objXmlHttp.setRequestHeader "SOAPAction", SoapActionUrl ' Send XML command objXmlHttp.send objDom.xml ' Get all response text from webservice strRet = objXmlHttp.responseText ' Close object Set objXmlHttp = Nothing ' Extract result intPos1 = InStr(strRet, "Result>") + 7 intPos2 = InStr(strRet, "</") If intPos1 > 7 And intPos2 > 0 Then strRet = Mid(strRet, intPos1, intPos2 - intPos1) End If ' Return result PostWebservice = strRet Exit Function Err_PW: PostWebservice = "Error: " & Err.Number & " - " & Err.Description End Function EXEMPLO NO VB.NET 'Declara um objeto do webservice: Dim ws As New wsCompralegal.Service() 'Declara a variável que receberá o retorno do serviço, ou seja, o autenticador: Dim strAutenticador As String = String.Empty 'Declara as duas variáveis de tratamento dos resultados do serviços: Dim enResultado As wsCompralegal.RESULTADO Dim strResultadoDescricao As String = "" Try 'Chama o serviço e armazena os resultados nas variáveis de saída, 'além do retorno armazenado em strAutenticador: strAutenticador = ws.LerChaveAutenticadora("000035", 1, "A", "15/2/2008", 16250, _ "06556003000192", "08096570000139", enResultado, strResultadoDescricao) 'Testa se o resultado foi OK (NF encontrada). Se encontrou imprime; senão, lança uma exceção: If Not enResultado = wsCompralegal.RESULTADO.OK Then Throw New Exception(String.Format("{0} - {1}", enResultado, strResultadoDescricao)) End If Console.WriteLine("strAutenticador: " & strAutenticador) Catch ex As Exception Console.WriteLine(ex.Message) End Try