Ir para conteúdo
Fórum Script Brasil

vpvjunior

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    10

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Posts postados por vpvjunior

  1. Falha de logon do usuário 'SA'

    em Visual Basic

    Postado

    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.

  3. Falha de logon do usuário 'SA'

    em Visual Basic

    Postado · Editado por vpvjunior

    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.

  4. Falha de logon do usuário 'SA'

    em Visual Basic

    Postado

    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

  6. Falha de logon do usuário 'SA'

    em Visual Basic

    Postado

    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.

  7. Falha de logon do usuário 'SA'

    em Visual Basic

    Postado

    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.

  9. Falha de logon do usuário 'SA'

    em Visual Basic

    Postado

    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.

  10. WEBSERVICE NO VB6

    em Visual Basic

    Postado · Editado por kuroi
    Adicionar tag CODE

    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

×
×
  • Criar Novo...