Gabriel Jardim

cod_func = txtLanMatricula.Text ' >>> Recebe o que é digitado If Len(txtLanMatricula.Text) > 0 Then lblAtencao1.Visible = False End If If Len(txtLanMatricula.Text) = 5 Then sql = "SELECT NOME_FUNC FROM TB_FUNCIONARIO" sql = sql + " WHERE COD_FUNC = '" & cod_func & "'" Rs.Open sql Rs.MoveFirst Do While Not Rs.EOF txtLanNome.Text = Rs.Fields("NOME_FUNC").Value Rs.MoveNext Loop End If Alterei o código e funcionou. Tirei a variável coloquei o textbox no lugar, mas percebi que tinha esquecido também do sinal de igual, pois eu etava colocando sem rsrsr acontece. Vlw a todos ai pela força.

cod_func = txtLanMatricula.Text ' >>> Recebe o que é digitado NOME_FUNC = txtLanNome.Text ' >>> Recebe direto do Banco de Dados If Len(txtLanMatricula.Text) > 0 Then lblAtencao1.Visible = False End If If Len(txtLanMatricula.Text) = 5 Then sql = "SELECT NOME_FUNC FROM TB_FUNCIONARIO" sql = sql + " WHERE COD_FUNC = '" & cod_func & "'" Rs.Open sql Rs.MoveFirst Do While Not Rs.EOF NOME_FUNC Rs.Fields("NOME_FUNC").Value Rs.MoveNext Loop Else MsgBox "Matrícula Inexistente" End If Está dando erro na linha: NOME_FUNC Rs.Fields("NOME_FUNC").Value mais precisamente em NOME_FUNC, no momento em que digito 1 número. o erro é: Compile Error Expected sub, function, or property O que quero fazer? Assim que o cara digita a matrícula (obrigatoriamente com 5 dígitos) ele entra no IF Then, faz a leitura no banco, armazena na recordset e depois joga na TextBox. No que estou errando? Podem me ajudar? Agradecido desde já!

Pelo que entendi, você quer que ordene pelo número de pontos, então no BD você no final do Select coloca ORDER BY N_PONTOS ai ele colocará pela ordem de pontos... um abraço

ae leke me add de novo, pois não sabia que era tu. vlw e até

Private Sub form_load() txtLogin.Text = "" txtSenha.Text = "" txtSenha.EnableD = false 'Enabled, esqueceu do d (rsrs), acontece end sub Private Sub txtLogin_change() if len(me.text) >=1 then txtSenha.EnableD = true 'Enabled else txtSenha.EnableD = false 'Enabled end if end sub Funcionou maneiro :D Vlw mesmo

Bom dia, Gostaria de saber como faço para que toda vez que eu inicia-se o "Form_Load()", limpa-se os campos txtLogin.Text txtSenha.Text e desse o foco no "txtLogin.Text" . Dentro disso, como faço pra que enquanto o usuário não seja digitado, o campo "txtSenha.Text" fique desativado? Agradeço desde já pela atenção... Gabriel Jardim

Boa tarde Matheus, O que você quer na realidade é imprimir um relatório, então eu te indico a usar o Crystal Reports 8.5, você faz isso tudo, coloca o logo, título, e os campos desejados, tipo como é feito no Access, então, como eu também estou começando na área de desenvolvimento, não posso lhe ajudar muito, mas esse é o caminho, de uma fuçada no Forum sobre Crystal Reports. No que puder lhe ajudar estaremos ai, um forte abraço, e programe com moderação rsrs. Gabriel Jardim Me add no GTalk para trocarmos não figurinhas mas sim códigos rsrsrs. e-mail: gabrielcjardim@gmail.com

Olá gente, olha eu ai de novo rsrs, mas pra quem está iniciando é assim mesmo, só pergunta e pergunta, pra depois darmos soluções a outros problemas de outras pessoas. A minha dúvida é bem simples rsrs, como faço para chamar um módulo, pra executar uma comando shell? isso é possível ou eu tenho que colocar o código direto no código principal?

Não sei o que estou fazendo de errado, está ai o código Private Sub Form_Load() Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim BancoDados As String Dim sql As String Set rs = New ADODB.Recordset Set rs.ActiveConnection = cn MES_ANO = Format(Now(), "MMYY") servidor = "TI01" BancoDados = "MASTER" cn.Provider = "SQLOLEDB" cn.Properties("Data Source").Value = servidor cn.Properties("Initial Catalog").Value = BancoDados cn.Properties("User ID").Value = "sa" cn.Properties("Password").Value = "sawa" cn.Open sql = "select * from TBD_REL_PRODUTOS_SERVICOS_" & MES_ANO & " order by PRODUTOS" rs.Open sql, cn cboTabela.Clear rs.MoveFirst Do While Not rs.EOF cboTabela.AddItem rs.Fields("PRODUTOS").Value rs.MoveNext Loop rs.Close cn.Close End Sub o Erro é esse: Compile ERROR: USER-DEFINED TYPE NOT DEFINED o que eu faço? :blink: -------------------------------- -RESOLVIDO O PROBLEMA- -------------------------------- O esquema é o seguinte: 1º --> O código está correto 2º --> Esqueci de habilitar os componentes para conexão com o Banco de dados Então nunca se esqueçam de habilitar os componetes necessários para o desenvolvimentos do seu Sistema. Um forte abraço e até a Próxima! Gabriel Jardim

Essa sua informação foi essencial, vlw mesmo Ficou assim: UPDATE TBD_REL_PRODUTOS_SERVICOS_1010 SET CP_NUM = (select e.campaign from altitude.dbo.cp_general_cfg as e INNER JOIN altitude.dbo.campaign as p " ON e.campaign = p.code WHERE SHORTNAME LIKE '" & N_CAMP & "_" & MES_ANO & "') *N_CAMP --> É a variável usada para receber informações da tabela * NES_ANO (MMYY) --> É a variável usada para receber mês e ano na formatação (mmyy) Muito obrigado :D

Preciso fazer um update com inner join: Está dando o erro: Server: Msg 116, Level 16, State 1, Line 1 Only one expression can be specified in the select list when the subquery is not introduced with EXISTS. Está aí o código: UPDATE TBD_REL_PRODUTOS_SERVICOS_1010 SET CP_NUM = (select e.campaign,p.shortname from altitude.dbo.cp_general_cfg as e INNER JOIN altitude.dbo.campaign as p ON e.campaign = p.code WHERE SHORTNAME LIKE 'ENSINO_GARANT%1010') O que está errado? :blink:

O MEU PROBLEMA É UM POUCO ALÉM DAQUILO QUE EU ACHAVA QUE ERA, A DIFICULDADE É A SEGUINTE: PARTE 1: TENHO QUE CRIAR UMA VARIÁVEL NO VB6, ESSA VARIÁVEL TEM RECEBER OS VALORES DE UMA DETERMINADA COLUNA DE UMA TABELA. EX.: TBD_GERAL..............(NOME DA TABELA) NOME_CAMPANHA.....(NOME DA COLUNA) DADO_1...................(DADOS DA COLUNA) CAMP_1...................(DADOS DA COLUNA) PROD_1...................(DADOS DA COLUNA) N_CAMP (VARIÁVEL DO VB6), TEM QUE RECEBER ESSES DADOS, NO 1º MOMENTO RECEBE CAMP_1, FAZ O LOOP, RECEBE CAMP_2, LOOP, CAMP_3 PARTE 2: UMA SEGUNDA TABELA TBD_GENERAL (NOME DA TABELA) CAMPAIGN | NUM_CAMP (NOME DA COLUNA) CP_DADO_1 | 251............(DADOS DA COLUNA) CP_DADO_1 | 252............(DADOS DA COLUNA) CP_CAMP_1 | 253............(DADOS DA COLUNA) CP_PROD_1 | 254............(DADOS DA COLUNA) TENHO QUE JOGAR TODOS ESSES DADOS DENTRO UMA ÚNICA TABELA ASSIM: TBD_REL N_CAMPANHA | CP_NUM | CAMP DADO_1.........| 251,252.|CP_DADO_1, CP_DADO_1_1 CAMP_1.........| 253........|CP_CAMP_1 PROD_1.........| 254........|CP_PROD_1 MAS o que você JÁ ME DISSE ME ESCLARECEU UMA PARTE DO MEU PROBLEMA, VLW MESMO. If Not RS.EOF Then RS.MoveFirst Do While Not RS.EOF N_CAMP = Trim(RS.Fields("NOME_CAMPANHA").Value) Sql = "SELECT CODE FROM campaign WHERE SHORTNAME LIKE '" & N_CAMP & "%_" & MES_ANO & "'" CP_NUM = "" rs_ALTITUDE.Open Sql If Not rs_ALTITUDE.EOF Then Do While Not rs_ALTITUDE.EOF CP_NUM = CP_NUM & rs_ALTITUDE.Fields("CODE").Value & "," rs_ALTITUDE.MoveNext Loop CP_NUM = Mid(CP_NUM, 1, Len(CP_NUM) - 1) CN.Execute "UPDATE [dbo].[TBD_REL_PRODUTOS_SERVICOS_" & MES_ANO & "] SET CP_NUM = '" & CP_NUM &"' WHERE NOME_CAMPANHA = '" & N_CAMP & "'" End If [Parte do Código OCULTO] RS.MoveNext rs_ALTITUDE.Close Loop End If Essa foi a solução encontrada para resolver o problema acima, descrito por mim Na Era da Informação a idéia é compartilhar CONHECIMENTO Agradeço a todos pelo Auxílio e Atenção.! :lol: Ps.:A parte do código que está em oculto não é necessário, pois só isso resolve muitos problema de busca e concatenação no BD.

É o seguinte: Tenho que criar uma variável no vb6, essa variável tem receber os valores de uma determinada coluna de uma tabela. EX.: TBD_GERAL (NOME DA TABELA) NOME_CAMPANHA(NOME DA COLUNA) CAMP_1 (DADOS DA COLUNA) CAMP_2 (DADOS DA COLUNA) CAMP_3 (DADOS DA COLUNA) N_CAMP (VARIÁVEL DO VB6), TEM QUE RECEBER ESSES DADOS, NO 1º MOMENTO RECEBE CAMP_1, FAZ O LOOP, RECEBE CAMP_2, LOOP, CAMP_3 Como faço isso? :wacko: Me ajudem por favor... Vlw desde já...