MARCONE
|
BRASÍLIA
DF - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 07/07/2004 10:06 hs
SITUAÇÃO: Tenho uma tabela com duas colunas contendo mais de mil registros, cuja estrutura é mais ou menos a seguinte: |Descricao||Conteudo| |Nome......||Maria Jos| |Ender......||Av. Flore| |Cidade.....||São Paul| |Cep.........||3026000| |Valor.......||R$ 3.256| |Nome......||Zelia Mos| |Ender......||Rua Flore| |Cidade.....||São Paul| |Cep.........||3026000| |Valor.......||R$ 1.256| |Nome......||Joana So| |Ender......||Rua. zc2| |Cidade.....||Belo Hor| |Cep.........||2542000| |Valor.......||R$ 2.356| Observem que a estrutura da primeira coluna sempre se repete (parte fixa - Nome, Ender, Cidade, Cep, Valor). OBJETIVO: Gostaria de manipular os cinco primeiros registros, como se fossem únicos em uma tabela; depois, os próximos cinco primeiros registros, e assim, sucessivamente até o final da tabela. A operação de manipulação restringe-se a uma comparação do terceiro registro (dentre os cinco filtrados) com uma variável e, caso = false, atualiza os registros do referido campo com o valor da variável. |
|
|
|
|
|
|
|
Postada em 08/07/2004 04:54 hs
Meu acho q ateh posso te ajudar ... serah q dava pra ser mais claro .... []'s |
|
|
|
WaldirJr
|
POÇOS DE CALDAS
MG - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 08/07/2004 08:41 hs
O código abaixo é Supondo que vc está usando ACCESS e ADO
O formulario deve possuir um TextBox(Text1) em que será digitado o Nome da Cidade, e um CommandButton(Command1), para confirmar a operação.
O código verifica se existe na Tabela(TabCliente) do Banco de Dados (Banco.MDB), Clientes com Cidade que sejam Diferentes do digitado em Text1. Depois atualiza essa informação, atribuindo ao cliente a Cidade informada.
'------------------------------------------
Option Explicit
Dim adoConexao As ADODB.Connection
Private Sub Form_Load()
Dim adoRecodset As ADODB.Recordset
Set adoConexao = New ADODB.Connection
adoConexao.Open "Provider=Microsoft.jet.OLEDB.4.0;Data Source =" & App.Path & IIf(Right$(App.Path, 1) = "<BarraInvertida>", "", "<BarraInvertida>") & "Banco.mdb"
'Substitua <BarraInvertida> pelo Caracter Barra Invertida, pq não aparece aqui no Site
End Sub
Private Sub Command1_Click()
Dim adoRecordset As ADODB.Recordset
Set adoRecordset = New ADODB.Recordset
adoRecordset.Open "SELECT * FROM TabCliente WHERE Cidade <> '" & Text1 & "'", adoConexao, adOpenKeyset, adLockOptimistic
Do While Not adoRecordset.EOF
adoRecordset("Cidade") = Text1
adoRecordset.Update
adoRecordset.MoveNext
Loop
adoRecordset.Close
End Sub
________________________ Té + Que NIMB role bons Dados! 
|
|
TÓPICO EDITADO
|
|
|
|
|
|
Postada em 08/07/2004 16:46 hs
Não seria mais fácil numa tabela nos campos serem os dados que vc qr (nome, endereço, cidade, cep e valor), do que você colocar a 'descrição' e o 'conteúdo' como campos... assim vc economiza mais código, fica melhor de fazer a manutenção tb, futuramente...
_______________________ Anjo Negro anjonegro86@ibest.com.br
|
|
|
|
MARCONE
|
BRASÍLIA
DF - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 08/07/2004 17:31 hs
Não seria mais fácil numa tabela nos campos serem os dados que vc qr (nome, endereço, cidade, cep e valor), do que você colocar a 'descrição' e o 'conteúdo' como campos... assim vc economiza mais código, fica melhor de fazer a manutenção tb, futuramente... ------------------------------------------------------------------- O problema é que esta tabela vem de um arquivo .txt. Estou testando algumas consultas SQL tipo TOP. Depois darei retorno. |
|
|
|
THECRAZY
|
BRASÍLIA
DF - BRASIL
|
|
|
ENUNCIADA !
|
|
|
|
|
