Alex Mauricio

Boa noite. Tenho um data environment com o nome de conectaTbFonte e criei um command e escolho a opção SQL Statement. Até ai tranquilo... poderia criar um select * from TbFonte order by codigoFonte asc.... OK? Ai vem o problema... Gostaria de criar um select * from TbFonte where = "CAPITURO UM TEXTO DE UM TEXT BOX OU VARIÁVEL" order by codigoFonte asc como faço para capturar o valor de um text box ou variável... Obrigado

já tentei fazer isso. Pego o campo que quero formatar, vo em Data Format > Data > dd/mm/yyyy mas quando executo o relatório da uma mensagem de erro "General error"... o que eu faço????

bom, criei um relatorio com o data report utilizando o DataEnvironment porém no meu BD ( access ) a data esta no formato string ( 12092009 ) e quando eu quero mostrar o valor no relatório eu gostaria de mostrar no formato 12/09/2009... como procedo?

pelo jeito que está vou ter q usar 3 replace.... e fiz da seguinte maneira... esta errado?????????? ssql = ssql & replace(replace(replace(Trim(txtTelefone.Text),"(",""),")",""),"-","" & "' eu já usei o brake point.... ele aponta o listindex = 0

é possivel mudar a cor do "form" q o msgbox abre? obrigado

Pessoal, estou com a seguinte dúvida... Criei um insert conforme abaixo... Private Sub cmdIncluirCupom_Click() Dim checaTelefoneBloqueado As Integer If telefoneBloqueado.Value = 1 Then checaTelefoneBloqueado = 1 Else checaTelefoneBloqueado = 0 End If Set Table_Cadastro = BancoDeDados.OpenRecordset("select * from TbCadastro where telefoneCliente = '" & Trim(txtTelefone.Text) & "'") If Table_Cadastro.RecordCount = 0 Then Dim ssql As String ssql = "insert into TbCadastro values(" ssql = ssql & Trim(txtCodigoCliente.Text) & ",'" ssql = ssql & Trim(txtTelefone.Text) & "'," ssql = ssql & Val(checaTelefoneBloqueado) & ", '" ssql = ssql & Trim(txtNomeCliente.Text) & "'," ssql = ssql & Val(comboSituacao.ListIndex + 1) & ",'" ssql = ssql & Replace(Trim(txtDataCadastro.Text), "/", "") & "','" ssql = ssql & Replace(Trim(txtHoraCadastro.Text), ":", "") & "','" ssql = ssql & Replace(Trim(txtDataUltimaLigacao.Text), "/", "") & "'," ssql = ssql & Val(comboFonte.ListIndex + 1) & ",'" ssql = ssql & Trim(txtObservacoes.Text) & "')" BancoDeDados.Execute ssql MsgBox "Telefone adicionado com sucesso!", vbInformation + vbOKOnly, "Alerta" formatFlexGridCadastro carregaFlexGridCadastro limparCampos mostrarCampos Else MsgBox "Este telefone já existe no cadastro!", vbInformation + vbOKOnly, "Alerta" End If End Sub Repare que nos 2 combos, ele pega o indice para gravar no BD ( o motivo do listindex + 1 é por causa do primeiro índice )... Porém, agora eu quero fazer o seguinte... quando eu deu um duplo click no flex grid ele carrega os dados... eu gostaria de alterar nome, telefone, etc, porém nos 2 combos ele ta pegando o valor 0 ( zero ) mesmo eu utilizando o listindex+1... segue o código abaixo... Private Sub cmdAlterarCupom_Click() Dim ssql As String Dim checaTelefoneBloqueado As Integer If telefoneBloqueado.Value = True Then checaTelefoneBloqueado = 1 Else checaTelefoneBloqueado = 0 End If If Trim(txtNomeCliente.Text) = "" Then MsgBox "Selecione um registro para alterar!", vbInformation + vbOKOnly, "Alerta" Else ssql = "update TbCadastro set telefoneCliente = " & "'" ssql = ssql & Trim(txtTelefone.Text) & "',bloqueioCliente = " & "" ssql = ssql & Val(checaTelefoneBloqueado) & ", nomeCliente =" & " '" ssql = ssql & Trim(txtNomeCliente.Text) & "', situacaoCliente =" & "" ssql = ssql & Val(comboSituacao.ListIndex + 1) & ",dataCadastroCliente =" & " '" ssql = ssql & Replace(Trim(txtDataCadastro.Text), "/", "") & "',horaCadastroCliente =" & "'" ssql = ssql & Replace(Trim(txtHoraCadastro.Text), ":", "") & "', dataUltimaLigacao =" & "'" ssql = ssql & Replace(Trim(txtDataUltimaLigacao.Text), "/", "") & "', fonte = " & "" ssql = ssql & Val(comboFonte.ListIndex + 1) & ", observacoesGeraisCadastro = " & " '" ssql = ssql & Trim(txtObservacoes.Text) & "' where codigoCliente = " & Val(txtCodigoCliente.Text) BancoDeDados.Execute ssql End If End Sub O que ta errado... obs. aproveitando... o formato do telefone é (99)9999-9999, teria como utilizar um replace com 3 argumentos... replace(trim(txtTelefone.text),"(","",")","","-","") => apenas um modelo do que eu quero fazer..rssrrs obrigado

Tenho alguns textbox e maskedit no meu programa... em um determinado momento posso LIMPAR CAMPOS onde eu gostaria que voltasse porém com a mascara... segue o código... Private Sub limparCampos() txtCodigoCupom.Text = Empty txtFonte.Text = Empty txtQuantidadeTotalCupom.Text = Empty txtCustoPromocao.Text = Empty txtObservacoes.Text = Empty txtPesquisar.Text = Empty txtDataInicioPromo.Mask = Format("##/##/####") txtDataTerminoPromo.Mask = Format("##/##/####") End Sub o que ta errado?

pessoal, to desenvolvendo um sistema em VB c/ bd access e ele insere os dados no access via sql ( insert ) e esta gerando o seguinte insert insert into TbCadastro values(33,'9999999999','verdadeiro', 1,'alex','06021983','1000','06021983',1,'teste') no access, o terceiro campo ( em negrito ) está com tipo de dados sim/não ( boolean ) e no formato verdadeiro/falso, e com isso, não está funcionando da maneira que deveria... dando erro de violação.... como deveria ser o sql para inserir corretamente???????????? obrigado

pessoal, to desenvolvendo um sistema e ele insere os dados no access via sql ( insert ) e esta gerando o seguinte insert insert into TbCadastro values(33,'9999999999','verdadeiro', 1,'alex','06021983','1000','06021983',1,'teste') no access, o terceiro campo ( em negrito ) está com tipo de dados sim/não e no formato verdadeiro/falso, e com isso, não está funcionando da maneira que deveria... dando erro de violação.... como deveria ser o sql para inserir corretamente???????????? obrigado

estou tentando fazer o seguinte update... Private Sub cmdAlterarPromocao_Click() Dim ssql As String ssql = "Update TbFonte set nomeFonte = " & "'" ssql = ssql & Trim(txtFonte.Text) & "', dataInicioFonte= " & "'" ssql = ssql & Trim(txtDataInicioPromo.Text) & "', dataTerminoFonte=" & "'" ssql = ssql & Trim(txtDataTerminoPromo.Text) & "', quantidadedeCupons=" & "" ssql = ssql & Val(txtQuantidadeTotalCupom.Text) & ", custoEventoFonte=" & "" ssql = ssql & Val(txtCustoPromocao.Text) & ", observacoesGeraisFonte=" & "'" ssql = ssql & Trim(txtObservacoes.Text) & "' where codigoFonte = " & Val(txtCodigoCupom.Text) BancoDeDados.Execute ssql End Sub e esta dando o seguinte erro... run-time error '3061' parametros insuficientes. eram esperados 1 obrigado

Pessoal, tenho um Flex Grid com alguns dados e gostaria de que quando desse o duplo click, que ele preenchesse os campos Text e combo, conforme o código abaixo: Private Sub FlexGridCadastro_DblClick() FlexGridCadastro.Col = 0 txtCodigoCliente.Text = FlexGridCadastro.Text FlexGridCadastro.Col = 1 txtTelefone.Text = FlexGridCadastro.Text FlexGridCadastro.Col = 2 If Trim(FlexGridCadastro.Text) = "Bloqueado" Then telefoneBloqueado.Value = 1 ElseIf Trim(FlexGridCadastro.Text) = "Desbloqueado" Then telefoneBloqueado.Value = 0 End If FlexGridCadastro.Col = 3 comboFonte = FlexGridCadastro.Text FlexGridCadastro.Col = 4 txtNomeCliente = FlexGridCadastro.Text FlexGridCadastro.Col = 5 txtDataCadastro.Text = FlexGridCadastro.Text FlexGridCadastro.Col = 6 txtHoraCadastro.Text = FlexGridCadastro.Text FlexGridCadastro.Col = 7 txtDataUltimaLigacao.Text = FlexGridCadastro.Text FlexGridCadastro.Col = 8 comboSituacao = FlexGridCadastro.Text FlexGridCadastro.Col = 9 txtObservacoes = FlexGridCadastro.Text End Sub[/i][/b] Porém, quando faço o duplo click aparece a seguinte mensagem: [i][b]Run-Time error '383' 'Text' proprerty is read-only Fui ver o erro e ta apontado para esta linha: comboFonte = FlexGridCadastro.Text O que eu faço? Obrigado

Boa tarde. Coloquei o código informado, porém o mesmo continua liberando a digitação de TEXTO.

Bom dia pessoal. Mais uma vez, espero que vocês tenham como me ajudar. Fiz o seguinte código para somente liberar a digitação de texto. If KeyAscii >= vbKey0 And KeyAscii <= vbKey9 Then KeyAscii = 0 End If Agora quero fazer um código para ter somente a digitação de números ( bloqueando texto ) Como faço? Obrigado

continua sem funcionar. Set Table_Cadastro = BancoDeDados.OpenRecordset("SELECT * FROM TbSituacao INNER JOIN (TbFonte INNER JOIN TbCadastro ON TbFonte.codigoFonte = TbCadastro.fonte) ON TbSituacao.codigoSituacao = TbCadastro.situacaoCliente where situacaoCliente like '*" & Val(txtPesquisar.Text) & "*' Order by TbCadastro.codigoCliente") ele não esta dando mais erro mas tb não retorna nada... outro exemplo Set Table_Cadastro = BancoDeDados.OpenRecordset("SELECT * FROM TbSituacao INNER JOIN (TbFonte INNER JOIN TbCadastro ON TbFonte.codigoFonte = TbCadastro.fonte) ON TbSituacao.codigoSituacao = TbCadastro.situacaoCliente where codigoCliente = " & Val(txtPesquisar.Text)) neste segundo exemplo, ele retorna o valor, porém o inner join "não funciona"... ele mostra a tabela relacionada com o valor numérico e não com o texto que deveria aparecer.

funciona com * é o banco access mas não sei onde colocar o where... coloco no final da instrução e não funciona

Boa noite. Estou desenvolvendo uma aplicação, onde vou digitar um valor em um text, e o mesmo deverá buscar no BD. Criei o seguinte select: Set Table_Cadastro = BancoDeDados.OpenRecordset("SELECT * FROM TbSituacao INNER JOIN (TbFonte INNER JOIN TbCadastro ON TbFonte.codigoFonte = TbCadastro.fonte) ON TbSituacao.codigoSituacao = TbCadastro.situacaoCliente Order by TbCadastro.codigoCliente") porem, preciso ter um where fonte like '*" & val(txtpesquisa.text) & "*' mas não está funcionando.... obrigado a todos.

Boa noite pessoal. Tenho a seguinte consulta: Set Table_Cadastro = BancoDeDados.OpenRecordset("select * from TbCadastro order by codigoCliente") Porem acontece o seguinte. O campo fonte é relacionado com outra tabela... e com isso aparece o número 1, 2, 3, 4... e ao invés de aparecer o número do registro ( relacionamento ), tem que aparecer o nome do registro. Uso o inner join? caso sim, como uso... Caso não... o que usar e como? Obrigado

Boa noite pessoal. É o seguinte. Tenho uma base de dados onde hoje há 103.574 registros. 50% dos telefones são antigos no formato XXX-XXXX e os outros 50% estão no formato XXXX-XXXX; Com isso, tenho 2 problemas: 1) na primeira situação, preciso pegar todos os telefones e adicionar o DDD 19 + o número 3 e assim ficar no formato (XX)XXXX-XXXX 2) para a segunda situação preciso adicionar o DDD 19 para ficar no formato (XX)XXXX-XXXX Preciso criar um Script para automatizar isso. Obrigado

Boa noite pessoal. Eu instalei o IIS para rodar meus arquivos ASP. Após a instalação vou fazer o teste digitando http://localhost Quando faço isso, dá o seguinte erro: erro '8002801d' Biblioteca não registrada. /iisHelp/common/500-100.asp, line 10 O que eu faço????

Pessoal. Estou precisando fazer algo que é simples, porém me encontrei com uma coisa desagradável. Preciso criar uma planilha e vou fazer a impressão no formato de papel A3. Porém, não tem a opção para colocar este tamanho e também não temos a opção personalizado para colocar no braço. E AGORA... O QUE EU FAÇO???? rssrsrrs Obrigado

tenta usar o .movenext ao invés de .movelast

Bom dia pessoal... Gostaria de criar uma consulta onde eu digito uma palavra ele vai procurar independente de onde ela estiver. Para isso usei o parâmetro LIKE porém está dando erro de instrução. Onde está o erro? Segue a pesquisa abaixo: Set TbClientes = BancoDeDados.OpenRecordset("select * from cliente where razao_social like = '" & (txtCRazaoSocial.Text) & "'")

Seguinte pessoal. Tenho um FlexGrid que mostra alguns dados em um Form2. Quando faço um duplo click em algum dos dados eu gostaria que os dados aparecesse no Form1, como segue o código abaixo. Private Sub grdDados_DblClick() grdDados.Col = 0 txtCodigo.Text = grdDados.Text grdDados.Col = 1 txtRazaoSocial.Text = grdDados.Text grdDados.Col = 2 txtTelefone.Text = grdDados.Text grdDados.Col = 3 txtCidade.Text = grdDados.Text Unload Me End Sub Porém está dando o seguinte erro: Run-time error '424' Object required Todos os campos texto já existe e estão com os nomes corretos. Obrigado

Boa noite pessoal. É o seguinte. Tenho uma base de dados em Access onde hoje há 93.574 registros. 50% dos telefones são antigos no formato XXX-XXXX e os outros 50% estão no formato XXXX-XXXX; Com isso, tenho 2 problemas: 1) na primeira situação, preciso pegar todos os telefones e adicionar o DDD 19 + o número 3 e assim ficar no formato (XX)XXXX-XXXX 2) para a segunda situação preciso adicionar o DDD 19 para ficar no formato (XX)XXXX-XXXX Preciso criar um Script para automatizar isso. Obrigado

Boa tarde pessoal. Estou aqui novamente. Como já disse, estou começando no VB e estou criando um "programa" para estudar e depois com base nele criar algumas "soluções" ( simples ) mas que vai facilitar o meu próprio trabalho. Bom, criei, formatei e carreguei os dados em um MS Flex Grid conforme o código abaixo. Private Function configuraFlexGrid() gridCliente.Clear gridCliente.Row = 5 gridCliente.ColWidth(0) = 1000 gridCliente.ColWidth(1) = 6000 gridCliente.ColWidth(2) = 3000 gridCliente.ColWidth(3) = 4000 gridCliente.Col = 0 gridCliente.Row = 0 gridCliente.Text = "Código" gridCliente.Col = 1 gridCliente.Text = "Razão Social" gridCliente.Col = 2 gridCliente.Text = "Telefone" gridCliente.Col = 3 gridCliente.Text = "Telefone" End Function Public Function formataGridCliente() grdDados.Clear grdDados.Rows = 2 grdDados.ColWidth(0) = 1500 grdDados.ColWidth(1) = 4000 grdDados.ColWidth(2) = 2800 grdDados.ColWidth(3) = 2800 grdDados.Row = 0 grdDados.Col = 0 grdDados.Text = "Código do Cliente" grdDados.Col = 1 grdDados.Text = "Razão Social" grdDados.Col = 2 grdDados.Text = "Telefone" grdDados.Col = 3 grdDados.Text = "Cidade" End Function Porem tem algumas coisas que ainda não consigo acertar... 1) Gostaria que o cabeçalho ( Código do Cliente, Razão Social, Telefone e Cidade ) ficasse centralizado e negrito. 2) Nos dados de telefone, gostaria que ficasse com a máscara (99)9999-9999 3) Está ficando uma linha "em branco" no final e eu gostaria de tirar 4 ) Os códigos propriamente dito ( 1, 2, 3, 4, 5, 6, ... ) eu gostaria que ficasse centralizado também. Muito obrigado pessoail