CLIENTES ATIVOS E INATIVOS

MSMJUDAS 03/11/2010 10:49:26
#356528
Cara, sinceramente, acho q vc foi pelo lado mais difícil, bastava criar um campo tipo CLI_STATUS e deixar [ô]A[ô] para Ativo ou [ô]I[ô] para Inativo. Sei que vc falou que fez assim pq quis, mas sugiro que mude futuramente, fica mais fácil.


E creio que a resposta do SacoFrito é o que vc precisa.
SACOFRITO 03/11/2010 10:54:57
#356530
Bom tambem acho que é mais facil de um jeito só, no meu caso uso S para ativo e N para inativo, vai do fregues ... nao gosto muito de usar o sim/nao pois fica ruim pra fazer relatorio depois.
FILMAN 03/11/2010 11:42:46
#356533
Dentro da SQL que mostrei não tem JEITO?

não queria informar separado


Mas mesmo assim muito obrigado
A todos
JONATHANSTECKER 03/11/2010 12:51:21
#356535 
Dim Comand as New ADODB.Command

wtih Comand
        .ActiveConnection = Conexao
        .CommandType = adCmdText
        .CommandText = [Ô]INSERT INTO Clientes (Ativo)VALUES([ô][Ô] & iif(Combo = [Ô]ATIVO[Ô],[Ô]SIM[Ô],[Ô]NAO[Ô]) & [Ô][ô])[Ô]
        .Execute
End With
FILMAN 04/11/2010 07:58:52
#356587
Tipo de Dados Imcompativel na expressão de critério


Nao ta dando certo.
JONATHANSTECKER 04/11/2010 08:12:23
#356590
A sua coluna [Ô]Ativo[Ô] está definida como TEXT?
FILMAN 04/11/2010 09:00:37
#356595
Não

ela

esta como

Sim/Não
JONATHANSTECKER 04/11/2010 09:13:46
#356598 Resposta escolhida
Não tenho o ACCESS aqui no serviço para testar... Mas tente trocar os valores de inserção...

Dim Comand as New ADODB.Command

wtih Comand
        .ActiveConnection = Conexao
        .CommandType = adCmdText
        .CommandText = [Ô]INSERT INTO Clientes (Ativo)VALUES([ô][Ô] & iif(Combo = [Ô]ATIVO[Ô], 1, 0) & [Ô][ô])[Ô]
        .Execute
End With
FFCOUTO 04/11/2010 09:24:11
#356600
1° Preencha seu combobox da forma abaixo:

ComboBox1.Clear
ComboBox1.AddItem [Ô]0. Inativo
ComboBox1.AddItem [Ô]1. Ativo[Ô]


2° Na sua string SQL faça assim

Conexao.Execute [Ô]INSERT INTO Clientes (Ativo) VALUES ([Ô] & Left$(ComboBox1, 1) & [Ô]);[Ô]


ou

Conexao.Execute [Ô]UPDATE Clientes SET Ativo = [Ô] & Left$(ComboBox1, 1) & [Ô] WHERE (Codigo = 1);[Ô]


Obs.:
Faça uma validação para verificar se foi selecionado um dos itens do combobox
FILMAN 04/11/2010 10:40:34
#356613
Deu certo




Obrigado a TODOS
Página 2 de 2 [20 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar