Dados sql vb6

[Gabriel Jardim]

É 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á...

Editado Outubro 17, 2010 por quintelab
Removido Caixa Alta

[fulvio]

Boa tarde Gabriel,

você quer um script em VB6? Se for, terá que fazer:

- Uma conexão ao banco,

- Fazer o select e criar uma variável do tipo Recordset para armazenar dos dados de resultado do select.

- Criar um loop (pode ser Do while) e a clásula será enquanto o recordset não chegar ao fim (Do while Recordset.EOF = False).

- Não esquecer de mover o ponteiro do recordset para o próximo valor, sempre no final do loop (Recordset.MoveNext).

Moverei seu post para o Forum de VB.

[Gabriel Jardim]

Boa tarde Gabriel,

você quer um script em VB6? Se for, terá que fazer:

- Uma conexão ao banco,

- Fazer o select e criar uma variável do tipo Recordset para armazenar dos dados de resultado do select.

- Criar um loop (pode ser Do while) e a clásula será enquanto o recordset não chegar ao fim (Do while Recordset.EOF = False).

- Não esquecer de mover o ponteiro do recordset para o próximo valor, sempre no final do loop (Recordset.MoveNext).

Moverei seu post para o Forum de VB.

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.

Editado Outubro 15, 2010 por Gabriel Jardim

[quintelab]

Grabriel leia as regras do fórum. São proibidos título e postagem usando caixa alta.

E não duplique seus tópicos, poste somente uma vez e em uma unica sessão do fórum

Abraços...