Graymalkin

Estranho não funcionar, já que a função Sum() faz parte do Jet. Abraços, Graymalkin

Ah tá! Faltou definir "tabela": dim tabela as datatable = ds.Tables(0) Ou simplesmente use "ds.Tables(0)" no lugar de "tabela". Abraços, Graymalkin

Sim, isso eu entendi. Porém, existem diferentes maneiras de se "entrar" com dados no sistema. Pode ser por modo texto (utilizando scanf(), getchar(), etc. por exemplo) ou via janelas (GTK, wxWidgets, Win32 API, etc., por exemplo). É isso que ele tem que explicitar para poder obter uma ajuda satisfatória. Abraços, Graymalkin

Qual o banco de dados? Abraços, Graymalkin

Beleza! E tu? E de quanto é esse "MUITA COISA" de que estamos falando? Quantas linhas? Não dá pra você separar partes genéricas em funções (que podem até ser úteis em outros locais)? Abraços, Graymalkin

Existem tópicos aqui sobre isso. Experimente fazer uma busca. Abraços, Graymalkin

O que é esse seu "MUITA COISA"? O que você está "colocando" no botão exatamente? Você se refere ao código? É só chamar seus respectivos eventos Click, exemplo: command2_click command3_click Certo? Graymalkin

Assim: Printer.PaintPicture Picture1.Picture, 0, 0 Printer.EndDoc Onde "Picture1" é a tal picture com a imagem a ser impressa. Abraços, Graymalkin

O que é exatamente esse seu "campo de números"? O que você está utilizando para a recepção dos dados? Sem saber isso fica meio difícil de responder. Abraços, Graymalkin

Para isso você tem que aplicar um estilo sobre o DataGrid, sendo algo assim (aliás, assim você pode também definir os nomes das colunas): Dim estilo As New DataGridTableStyle(True) estilo.MappingName = tabela.TableName DataGrid1.TableStyles.Add(estilo) estilo.GridColumnStyles("Codigo").HeaderText = "Código:" estilo.GridColumnStyles("Codigo").Width = 100 Note que "Codigo" é o campo (o nome é o mesmo que aparece na coluna da grid) que estou mudando o texto e a largura. Você pode explorar também as outras propriedades que existem nesse objeto. Esse código entraria imediamente após a definição de DataGrid1.DataSource. Eu adoro os métodos construtores, por isso eu faria assim: Dim cmd As New SqlCommand("Insert into cadastro Values(" & Trim(codigo.Text) & ", '" & Trim(nome.Text) & "','" & Trim(endereco.Text) & "')", sqlcon) Try cmd.ExecuteNonQuery() MsgBox("Confirmação de cadastro", MsgBoxStyle.Information, "Incluindo Registro") Catch erro As Exception MsgBox("Erro" & vbCrLf & erro.ToString, MsgBoxStyle.Critical, "Erro") End Try Além disso, eu não fico abrindo e fechando a conexão a todo momento, por isso sqlcon *já* estaria aberta e *não* seria fechada ali (eu abro a conexão quando programa é aberto e fecho ela quando o programa é fechado). Abraços, Graymalkin

Então seria isso aqui: SELECT Sum(QuantidadeVendida) AS total FROM Vendas WHERE FormaDePagamento = 'Cartão' Veja que dá até pra traduzir (quase que) literalmente: Retorne a soma de quantidade vendida como total, a partir da tabela Vendas, onde a forma de pagamento for cartão. Sacou? Abraços, Graymalkin

Cara, a coisa é muito mais simples do que você imagina. Repare que quando você digita "datagrid1.readonly" ela já vai te mostrar que o valor ali deve ser um boolean: datagrid1.readonly = true Você tem que prestar atenção naqueles balõezinhos que aparecem e que te mostram tudo que deve ser passado ou definido. Abraços, Graymalkin

Já pensou em fazer uma solução mista? Já que no Delphi você consegue isso, acredito que nada impeça a criação de uma DLL em Delphi para a recepção dos dados e sua posterior utilização via VB.NET. É apenas uma idéia... Abraços, Graymalkin

A comparação realizada com "Total" deve ter apenas um valor (e não um conjunto de registros). O que, exatamente, você quer obter? Abraços, Graymalkin

O seu código do if só vai ser executado se o caracter relativo a posição informada por contador for " " (um espaço em branco) ou um ";". Todavia, na string "oi" não existe nenhum dos dois. Sacou? Abraços, Graymalkin

Sim, agora entendi melhor. Porém, acho que você só precisaria verificar isso (os 6 meses depois) no momento da gravação e daí permitir ou não a inserção do registro, não? Abraços, Graymalkin

Já tentou desativar o firewall para ver se não é ele que está causando o problema? Abraços, Graymalkin

Prefiro a DataGrid, já que a ListView não tem uma propriedade DataSource sendo necessário preenchê-la programaticamente. A ListView é um contêiner de propósito geral que possui "estilos" diferentes, sendo um deles muito parecido com a DataGrid (na propriedade View dela você pode ver os diferentes estilos e esse parecido com a DataGrid é o Details). Abraços, Graymalkin

Você poderia fazer assim: l1, l2, l3, l4, l5 = [l[:] for l in [[]]*5] Ou desse jeito: l1, l2, l3, l4, l5 = [[] for x in range(5)] Ou assim: l1, l2, l3, l4, l5 = [list() for x in range(5)] Ou ainda: l1, l2, l3, l4, l5 = [], [], [], [], [] Como você pode ver, existem várias maneiras. Certo? Abraços, Graymalkin

Sim. Sim. Sim. Não entendi o "pe iformado". Sim, claro que tem. Se um if só é executado quando um valor é true, tanto faz eu escrever: if Ligado=true then Ou apenas: if Ligado then Quando eu faço o primeiro, supondo que o valor de Ligado é true, seria o mesmo que fazer: if true=true then E, evoluindo a expressão, chegamos a: if true then O que é exatamente a mesma coisa que a segunda forma (if Ligado then). Essa "variável" que temos aqui é a mesma coisa que vemos em expressões matemáticas. Para chegar a um valor final nós não substituímos todas as variáveis por seus respectivos valores? Então, na programação não é diferente. Exato, e é o que acontece. Imagine que o resultado de (Edit1.Text <=TimeToStr(Time)) seja false e Ligado seja true. A expressão seria a mesma que: if false and true then E, evoluindo ela: if false then O que não executaria o if, já que o mesmo exige um valor true para ser executado. Substitua as duas expressões por todas as possibilidades de verdadeiro e falso que você imaginar e realize um and entre elas e você verá que só quando ambas forem true é que o resultado será true e o if será executado. Sacou? Abraços, Graymalkin

Procure pela função itoa(). Abraços, Graymalkin

Não entendi muito bem a sua explicação... mas você pode utilizar SQL para apagar uma determinada faixa de datas: DELETE * FROM tabela WHERE DateValue(campodata)>=DateValue('01/01/2005') AND DateValue(campodata)<=DateValue('20/01/2005'); Isso apagaria todos os registros de 01/01/2005 até 20/01/2005. Certo? Abraços, Graymalkin

Por que você não vai acumulando os itens em uma StringGrid ou algo similar e depois grava todos eles de uma vez só? Acho que fica muito mais fácil e resolve esse problema. Abraços, Graymalkin

Se você declarou essa variável *dentro de uma função* ela só existirá enquanto a função estiver sendo executada. Se você a declarou no General Declarations da classe, então poderá visualizá-la digitando o nome da classe e o nome dela (talvez com o GlobalMultiUse você não precise do nome da classe, mas nunca fiz esse teste). De qualquer forma, isso *não* é uma prática recomendável (variáveis globais). O melhor mesmo é fazer com que a função retorne o valor que você necessita: public function minhafunção(byval texto as string) as string Dim nomevariável as string '... seu código aqui minhafunção = nomevariável end function Daí, seria só fazer algo assim: label1.caption = minhafunção() Abraços, Graymalkin

Você já grava diretamente os dados na tabela itensEntrada? Se for, você pode fazer isso obtendo a soma dos campos (com uma SQL) e depois gravar na tabela Entrada. Mas, não existe uma tela para entrada desses dados? Nela não existe uma caixa de texto que vai exibindo o valor total dos itens a medida que o usuário vai digitando? Então, bastaria pegar dessa caixa ao finalizar o pedido, não? Abraços, Graymalkin