Jump to content

Search the Community

Showing results for tags 'select sql'.



More search options

  • Search By Tags

    Type tags separated by commas.
  • Search By Author

Content Type


Forums

  • Q&A Desenvolvimento
    • Perguntas e respostas rápidas
  • Desenvolvimento e Banco de Dados
    • HTML e CSS
    • Java
    • Javascript
    • .NET
    • PHP
    • Python
    • Ruby
    • Mobile
    • Ambientes de Desenvolvimento
    • Arquitetura e Métodos Ágeis
    • Banco de Dados
    • DevOps
    • Desenvolvimento de Games
    • E-Commerce e Pagamentos Online
    • SEO e Otimizações
    • WordPress
    • Algoritmos & Outras Tecnologias
  • Design e Produto
    • Fotografia
    • Photoshop
    • Design de interfaces e UX
    • Edição/Produção de Vídeos
    • Marketing Online
    • Desenho, Ilustração e 3D
  • Entretenimento e uso pessoal
    • Geral
    • Segurança & Malwares
    • Gadgets e wearable
    • Softwares e Apps
    • Entretenimento

Find results in...

Find results that contain...


Date Created

  • Start

    End


Last Updated

  • Start

    End


Filter by number of...

Joined

  • Start

    End


Group


Google+


Hangouts


Skype


Twitter


deviantART


Github


Flickr


LinkedIn


Pinterest


Facebook


Site Pessoal


Localização


Interesses

Found 2 results

  1. Olá, fiz um código VBA Sql para consultar dados de uma tabela e atribuí os valores dos dados em 3 variveis, porem uma das váriaveis não funciona corretamente. Os dados desta variavel que não funciona possui letras e números, pois os dados da tabela referente a esta variavel possui letras e números. Quando coloco o valor direto dentro do select o código funciona, mas com variável não da certo. Também funciona quando retiro esta variável. No código, o nome da variável é PREFIX O erro que aparece é esse: Run-time error '-2147217900 (80040e14)': [Microsoft][ODBC SQL Server Driver] Invalid column name 'Y18HW'. Segue o código: Sub sb_RetornaConsulta() Application.ScreenUpdating = False Dim obj_Connection As New ADODB.Connection Dim obj_RecordSet As New ADODB.Recordset Dim str_SQL As String Dim str_PlanilhaDestino As String Dim str_ConnString As String Dim str_LinhaInicial As String Dim nr_coluna As Integer Dim Prefix As Variant Dim S_Inicia As Variant Dim S_Fina As Variant Prefix = frm_Serie.Pref.Value 'Valor do prefixo digitado no textbox da userform = Y18HW S_Inicia = frm_Serie.S_Inicial.Value 'Valor do Inicial digitado no textbox da userform = 177781 S_Fina = frm_Serie.S_Final.Value 'Valor do Final digitado no textbox da userform = 179780 str_PlanilhaDestino = "Resultado" str_ConnString = "Driver={SQL Server};server=NOME DO SERVER; Database=NOME DA BASE; UID=USUÁRIO;PWD=SENHA" str_LinhaInicial = 3 str_SQL = "SELECT TABELA.NRSerie AS Serie, TABELA.BancadaID AS Bancada, " & _ " TABELA.ResQn AS Qn, TABELA.ResQt AS Qt, " & _ " TABELA.ResQm AS Qm, TABELA.Data AS [Data Produção] " & _ " FROM TABELA " & _ " WHERE TABELA.Serie >= " & S_Inicia & " " & _ " AND TABELA.Serie <= " & S_Fina & " " " AND Tabela.Prefixo = " & Prefix & " " & _ " ORDER BY TABELA.NRSerie DESC " ' Limpa dados Sheets(str_PlanilhaDestino).Select Cells.Select Selection.ClearContents Range("A1").Select ' Executa query no SQL obj_Connection.Open str_ConnString obj_RecordSet.Source = obj_Connection obj_RecordSet.Open str_SQL, obj_Connection ' Inclui cabeçalhos da query: For nr_coluna = 0 To obj_RecordSet.Fields.Count - 1 Worksheets(str_PlanilhaDestino).Cells(str_LinhaInicial, nr_coluna + 1).Value = obj_RecordSet.Fields(nr_coluna).Name Next ' Salva dados no Excel Sheets(str_PlanilhaDestino).Cells(CInt(str_LinhaInicial + 1), 1).CopyFromRecordset obj_RecordSet ' Finaliza conexão e objetos obj_RecordSet.Close obj_Connection.Close Set obj_RecordSet = Nothing Set obj_Connection = Nothing Application.ScreenUpdating = True frm_Serie.Hide End Sub
  2. Hulkstar

    SELECT SQL Leilão.

    Eu criei um sistema de leilão,porém eu preciso no final do leilão pegar o maior lance para diversos produtos diferentes,vou deixar uma print abaixo,porém o código sql que estou usando não está me trazendo os resultados corretamente. SELECT id,id_produto,id_usuario,MAX(id_lance) FROM leilao_arremates GROUP BY id_produto Obrigado pela ajuda...
×

Important Information

Ao usar o fórum, você concorda com nossos Terms of Use.