Xistyle

Fácil não... você pode criar uma classe que herda um ComboBox e reescrever a rotina de AutoComplete e depois, ao invés de usar um ComboBox normal, usar o seu customizado. Mas dá muito trabalho :/ Dá uma pesquisada também no pai Google. As vezes tem alguma coisa que eu não manjo e não é tão complexo.

Então... infelizmente o AutoComplete não funciona como o LIKE do SQL. Ou seja, ele só vai te trazer os itens de acordo com o que você digitar, na ordem. Exemplo: Se você tem os itens: 10 - Fornecedor 1 55 - Fornecedor 2 47 - Fornecedor 3 e digitar 3, nada irá aparecer, pois não existe item iniciado com 3 (apenas 1, 4 e 5).

Você tem que fazer uma conversão quando vai concatenar campos de tipos diferentes. Nesse caso, tente desta forma: "SELECT CONVERT(VARCHAR(4), codigo) + ' - ' + FANTASIA AS nomeNoDisplayMember FROM cliente_fornecedor WHERE flagforn = 'T' ORDER BY fantasia"

Não entendi sua dúvida... Você tá atribuindo corretamente o DataSource e definindo o Value/Display Member. Se você quer mostrar duas informações tipo: "Nome Fornecedor - Cidade", você pode concatenar isso no SELECT. SELECT idFornecedor, nomeFornecedor + ' - ' + cidade AS fornecedor FROM cliente_fornecedor WHERE flagforn = 'T' ORDER BY fantasia" Assim, no DisplayMember você atribui o campo fornecedor.

Depende de como você está fazendo, qual a linguagem você está usando... Basicamente, de uma forma simples, seria assim: string strStringConexao = "suaStringConexao"; OdbcConnection conConexao = new OdbcConnection(strStringConexao); conConexao .Open(); OdbcCommand cmd = new OdbcCommand("SELECT MAX(id) FROM tabela", conConexao ); OdbcDataReader dr = cmd.ExecuteReader(); if (dr.HasRows == true) { if (dr.Read()) { textBox.Text = dr[0].ToString(); } }

Ué... SELECT MAX(id) FROM tabela não funciona?

Gustavo, qual é a versão do SQL que você está usando? Se for o SQL 2005, adicione essa código ao final da sua string de conexão: MultipleActiveResultSets=True. EDIT: coloque também um dr.Close() antes do Try.

Gustavo, tudo bem? Não entendi o motivo de você fechar a conexão sendo que vai usá-la novamente para executar novos comandos. Normalmente, num bloco Try/Catch, usamos o cn.Close() dentro do Finally. Tente remover os seus "cn.Close()" e o "cn.Open()" do Try e deixar apenas o cn.Close() do Finally.

Acho que você teria que fazer algo diferente então. Vou te passar a idéia e alguns objetos (realmente não lembro muita a sintaxe de VB6, sorry) e acho que com base nisso você vai conseguir manipular esses dados: 'Objeto do arquivo XML Dim docXML As New DOMDocument Dim objNodes As IXMLDOMNodeList docXML.Load(caminhoDoSeuArquivoXML) Case "Apolices" Set objNodes = docXML.getElementsByTagName("Apolices") LerInterno = objNodes.length

OK, quer contar então a quantidade de tags Apolice dentro de ApoliceS. Set objNodes = objXMLDOM.selectSingleNode("Apolices") Dim Quantidade As Integer Quantidade = objNodes.childNodes.length Ou manualmente: Set objNodes = objXMLDOM.selectSingleNode("Apolices") Dim Quantidade As Integer For Each noFilho in objNodes.childNodes If noFilho.nodeName = "Apolice" Then Quantidade += 1 Next estou enferrujadaço de VB6 (provavelmente alguma coisa na sintaxe ai tá errada), mas dá uma tentada :)

Day, esqueci... posta a estrutura do seu arquivo XML ai, com dados fictícios...

Você pode tratar isso no seu SELECT, não ficaria mais fácil? SELECT cod_OAB, nome_advogado, endereco_advogado, cep_advogado, telefone_advogado, celular_advogado, CASE WHEN fax_advogado IS NULL THEN 'Não cadastrado' ELSE fax_advogado END AS fax_advogado, CASE WHEN email_advogado IS NULL THEN 'Não cadastrado' ELSE email_advogado END AS email_advogado FROM advogado Ou você pode fazer os testes (vou usar o Iif como citou) ao invocar o construtor da classe: array.Add( New Class_Cadastro_Adv( Iif(.dReader("cod_OAB").ToString().Trim() = "" Or IsDBNull(.dReader("cod_OAB").ToString()), 0, .dReader("cod_OAB").ToString()), Iif(.dReader("nome_advogado").ToString().Trim() = "" Or IsDBNull(.dReader("nome_advogado").ToString(), "Não cadastrado", .drReader("nome_advogado").ToString()), ... Ou ainda, você pode instanciar um novo objeto (que você chamou de váriavel a, do tipo Class_Cadastro_Adv) e passar os dados por propriedade: Dim a As New Class_Cadastro_Adv ... While .dReader.Read a.oab() = Iif(.dReader("cod_OAB").ToString().Trim() = "" Or IsDBNull(.dReader("cod_OAB").ToString()), 0, .dReader("cod_OAB").ToString()) a.nome() = Iif(.dReader("nome_advogado").ToString().Trim() = "" Or IsDBNull(.dReader("nome_advogado").ToString(), "Não cadastrado", .drReader("nome_advogado").ToString()) ... array.Add(a) End While Particularmente, eu trataria isso no SQL. Acho que fica mais organizado e não "suja" tanto o código da classe.

Na verdade você quer retornar a quantidades de nós (ou atributos) dentro do seu nó Apólice?

Ai fica complicado. Sua instância da classe Class_Cadastro_Adv, de nome a, não está sendo usada. Preciso saber qual é o erro e o que tem nessa classe. Porque está herdando uma classe de conexão para a sua classe, sendo que essa sua classe postada tem os Imports e o objeto con é uma instância da classe Connect?

Eta... basta converter :) Public Sub TestaVetor() Dim vetor As new ArrayList() For i =0 To 9 vetor.Add(i) Next Dim valorDeletar As Integer System.Console.WriteLine("Vetor antes da remoção") For Each valor In vetor System.Console.WriteLine(valor) Next System.Console.WriteLine("Digite um valor entre 0 e 9 para deletar do vetor:") valorDeletar = Convert.ToInt16(System.Console.ReadLine()) vetor.Remove(valorDeletar) System.Console.WriteLine("Vetor após remoção") For Each valor In vetor System.Console.WriteLine(valor) Next System.Console.ReadKey() End Sub

Conseguiu resolver? Poste seu código ai... vou desenferrujar um pouco o VB6 (ugh).

Fiz um exemplo em C#, ConsoleApplication, usando ArrayList. public static void TestaVetor() { ArrayList vetor = new ArrayList(); for (int i = 0; i < 10; i++) { vetor.Add(i); } int valorDeletar; System.Console.WriteLine("Vetor antes da remoção"); foreach (int valor in vetor) { System.Console.WriteLine(valor); } System.Console.WriteLine("Digite um valor entre 0 e 9 para deletar do vetor:"); valorDeletar = Convert.ToInt16(System.Console.ReadLine()); vetor.Remove(valorDeletar); System.Console.WriteLine("Vetor após remoção"); foreach (int valor in vetor) { System.Console.WriteLine(valor); } System.Console.ReadKey(); }

Cara, primeiramente não há necessidade de colocar a fonte nesse tamanho :D Depois dá uma editada nisso... Olha, se entendi corretamente você tá preenchendo um vetor com os dados do seu banco. Mas alguns registros estão vindo vazios e estão aparencendo no seu vetor como Null. Porque esse registros em branco estão sendo trazidos? Deve-se verificar se seu SELECT está correto, algum LEFT JOIN provavelmente está inconsistente. De qualquer forma, não existe uma forma automática de excluir esses registros em branco. Você deverá fazer um loop percorrendo todos os itens do vetor, verificando se está em branco/null e removê-lo do vetor em caso positivo.

Na verdade, se você pegar o PrintableListView.dll e colocar como referência no seu projeto, provavelmente já vai funcionar. Mas, pela classe, não é um Crystal Reports. Ele cria um documento para impressão que será formatado para montar uma tabela, recebendo dados da lista. Como pode perceber, pela imagem na página, não há opções para você exportar seu relatório para uma planilha do Excel ou como PDF, da forma que o Crystal faria. A única opção é você imprimir esses dados. Se for satisfatório pra você, adicione a referência da dll no seu projeto ou copie a classe PrintableListView.cs para seu projeto e utilize-a.

Gui, beleza? Acredito que uma forma boa, sem quebrar muito a cabeça, pra fazer isso é colocar uma espécie de serviço executando em background. Monte um thread que fica buscando por registros no banco a cada x segundos. Depois compare a quantidade de registros (ou outras informações como situação atual do quarto (em uso, livre, em limpeza, etc)). Caso haja alguma diferença, recarrega todo o objeto que você está usando para exibir os quartos.

Você já tem o seu arquivo de relatório (extensão rpt) feito? Se tiver, basta pegar os dados do seu ListView, atribuir, por exemplo, a um DataSet. Depois, passar como parâmetro ao seu arquivo rpt carregado num objeto ReportDocument. Segue um código que fiz a um tempo, bem genérico, de passagem de parâmetros para o ReportDocument com seu arquivo rpt carregado: http://social.msdn.microsoft.com/Forums/pt...64-762f5f9395ad

Day, chegou a ver esse link do Macoratti? http://www.macoratti.net/xml_vb.htm

Day, se você estiver recebendo o XML em um XMLDocument, use GetElementsByTagName("REG"), atribuindo a uma variável. Depois você testa o conteúdo dessa variável e executa sua ação baseada nela. Link para referência: http://msdn.microsoft.com/pt-br/library/dc0c9ekk.aspx

Então... :/ de nada adianta... o que você pode tentar fazer é: 1) tentar achar um padrão: as vezes os sites possuem apenas exibição de vídeos flv. Se achar a extensão padrão (flv, mpg, swf, etc...) pode forçar a sempre pegar essa extensão concatenada ao nome do arquivo. 2) montar um esquema de tentativas: listar quais são as possíveis extensões de vídeo e fazer um IF, verificando se o nome do arquivo concatenado a extensão existe. Existindo, baixa o arquivo. Caso contrário, vai para o próximo IF com outra extensão.

O problema é que o nome do vídeo não aparece na URL, está criptografado. Para descriptografar, você teria que saber qual técnica de criptografia estão usando (DES, TripleDES, BlowFish...) e saber a chave da criptografia. Você pode investigar no código fonte do site e verificar se existe alguma referência ao nome do arquivo.