Danleonhart

Bem vindo VGonçalves ! As informações estão muito vaga...você vai utilizar Banco de Dados ? creio que sim...então, para isso, acho que bastas usar TextBoxes que ao salvar um usuário elas fiquem vazias...prontas para serem preenchidas com outros dados de usuários...se preciso. Segue um exemplo...com Base de Dados em Access ou SQL Compacto...basta selecionar no Módulo. http://www.4shared.com/file/N38-evPi/Banco...os_-_SQLCE.html Boa Sorte ! :rolleyes:

Massa ! Da hora mesmo ! Obrigado ! Vejam o vídeo-exemplo aqui!

Cara ! Fucei em tudo que é canto...até em sites americano e não encontrei... e a bendita API está justamente em um site Português :wacko: Valeu ! vou estudá-la agora ! Depois posto o resultado :)

Pessoal... Fucei na NET e não encontrei...então... :rolleyes: Como se faz um Form Splash com efeito de esmaecimento ? Sabem como é né ? aquele efeito "Fade", que vem surgindo aos poucos e ... "PAN !!!" :D Na boa, não sei nem por onde começar, então como sempre, toda opinião é bem vinda ! B)

Qual o banco de dados que você está usando ? é Access ? 2003 ou 2007 ? Já tentou alterar o Tipo do campo para "Texto" e verificar se ainda vai apresentar o erro ? se for SQL ao invés de "Texto" o tipo será "VarChar" ou algo parecido :D

Alguém já conectou um Notebook com Windows Seven Ultimate em um Desktop com Windows XP através de cado CrossOver ? Como se faz ? Fiz assim no Win7: Botão direito em MEU COMPUTADOR > PROPRIEDADES > ALTERAR CONFIGURAÇÕES > ALTERAR... e coloquei o nome do Grupo, no meu caso "REDECLOSED" No WinXP fiz o mesmo...depois fui em Conexões de Rede e criei uma Ponte de Rede entre meu adptador de rede Wifi e o Onboard...pois recebo o sinal da NET pelo Wifi, e conecto o Notebook com cabo crossover no adaptador onboard... Só que até tenho acesso as pastas do Win7, porém não consigo gravar nada nelas, e também não consigo acessar a NET pelo Notebook... Alguém tem um passo a passo aí ?

Olá Humberto ! Seja bem vindo ao Fórum Script Brasil! Só para alertar...esta parte do forum é para Visual Basic 6 (VB-6) e Visual Basic for Applications (VBA), então provavelmente irão mover seu tópico para a área correta ;) que é ".NET"... Agora tentando te ajudar, eu não sei muito de VB.NET, até porque parei de estudá-lo <_< mas tem uma parte em seu script que você deixou de concatenar...e por padrão pessoal (não que você tenha feito errado), eu uso sempre o "'E' comercial (&)" e não o sinal (+)...então, entre a parte dos campos da tabela e os "Values", está faltando a concatenação: Eu faria assim: Dim comando As String = "INSERT INTO tab_contatos(nome_contatos,telefone_contatos,endereco_contatos,email_contatos)" & "Values('" & txtNome.Text & "'," & txtTelefone.Text & ",'" & txtEndereco.Text & "','" & txtEmail.Text & "')" Dim olecon As New OleDb.OleDbConnection(conexao_geral) olecon.Open() Dim novo As New OleDb.OleDbCommand(comando, olecon) novo.ExecuteNonQuery() If olecon.State = ConnectionState.Open Then olecon.Close() End If Quero lhe alertar também para o campo que você "setou" como "número" (txtTelefone), ele deve ser preenchido apenas com números, então se você colocar: "(11)1234-5678" vai dá erro :mellow: ... Já passei por isso :D e sempre deixo campos que irão receber valores tipo Telefone,CEP... configurado como "Texto" mesmo...lembre-se de se for alterar o tipo do campo em sua Tabela para texto, colocar os apóstrofos no script também ;) VALEU ! :rolleyes: :rolleyes:

Fala Gilberto ! Basta configurar o script da consulta: Sub GridFull() Dim SQLbd As String abb Set rs = New ADODB.Recordset SQLbd = "SELECT * FROM Tabela ORDER BY Campo1 ASC" rs.CursorLocation = adUseClient rs.Open SQLbd, con, adOpenKeyset, adLockReadOnly With DGrid1 Set .DataSource = rs .Refresh End With End Sub Postei o código completo somente para exemplo...adapte o mesmo para seu DataGrid. Veja que incrementei o "ORDER BY" e depois de determinar qual campo coloquei o "ASC", que ordenar do "maior" p/ o "menor" ou ordem alfabética...já o "DESC", é o inverso... ;) VALEU !

Kuroi... Fiz algumas alterações aqui...o importante é que está funcionando redondo, sem precisar de " On Error Resume Next " :) Então, resolví colocar os resultados em "variáveis" e tratar os resultados antes de aplicá-los onde desejo... Na verdade, mostrei apenas a parte do código que estava com problema...pois estou a utilizar o "Active Reports" como forma de apresentar relatórios e opção de impressão com exportação para PDF, Excel, RTF e até Texto... Faço todas consultas necessárias e jogo os resultados em outro RecordSet, só que "desconectado"... para assim fazer o lançamento no "Active Reports"... Se tem forma mais simple, deve ter...mas fiz assim e funciona ! :D : Public Sub FiltroSetor() Printer.Restart Dim DT As Variant Dim VBrim, VInd Dim ST, TP, Filtro As String Dim R(1 To 3) As New ADODB.Recordset DT = Format(Mk_Data.Text, "YYYY-MM-DD") ST = Cb_Set.Text Abb Set R(1) = Con.Execute("SELECT SUM(Metragem) As SomaBrim From Ting WHERE Data=#" & DT _ & "# AND Setor='" & ST & "' AND Tipo='Brim'") If IsNull(R(1)("SomaBrim")) Then VBrim = "0,00" Else VBrim = R(1)("SomaBrim") End If Set R(1) = Con.Execute("SELECT SUM(Metragem) As SomaInd From Ting WHERE Data=#" & DT _ & "# AND Setor='" & ST & "' AND Tipo='Índigo'") If IsNull(R(2)("SomaInd")) Then VInd = "0,00" Else VInd = R(2)("SomaInd") End If Set R(3) = Con.Execute("SELECT * FROM Ting WHERE Data=#" & DT & "# AND Setor='" & ST & "'") Dim Rst As ADODB.Recordset Set Rst = New ADODB.Recordset Rst.ActiveConnection = Nothing With Rst .Fields.Append "vData", adDate, 8 .Fields.Append "vSetor", adVarChar, 50 .Fields.Append "TBrim", adVarChar, 50 .Fields.Append "TInd", adVarChar, 50 .Fields.Append "STotal", adVarChar, 50 .Open .AddNew .Fields("vData") = DT .Fields("vSetor") = ST .Fields("TBrim") = VBrim .Fields("TInd") = VInd .Fields("STotal") = VBrim + VInd .Update End With With Printer .ADO.ConnectionString = Con.ConnectionString .ADO.Recordset = Rst .txtSoma.DataField = "STotal" .txtData.DataField = "vData" .txtSetor.DataField = "vSetor" .TBrim.DataField = "TBrim" .TInd.DataField = "TInd" .txtMaq.Text = "" .txtTipo.Text = "" .txtMet.Text = "" Do Until R(3).EOF .txtMaq.Text = .txtMaq.Text & R(3)("Maquina") & vbNewLine .txtTipo.Text = .txtTipo.Text & R(3)("Tipo") & vbNewLine .txtMet.Text = .txtMet.Text & R(3)("Metragem") & vbNewLine R(3).MoveNext Loop nDia = Format(Now, " DDDD ") Dia = Format(Now, " DD ") Mes = Format(Now, " MMMM ") Ano = Format(Now, " YYYY") .LbHoje.Caption = nDia & Dia & "de" & Mes & "de" & Ano End With ARV1.ReportSource = Printer End Sub Obrigado pelas dicas mais uma vez ! ;)

Frata... Tem algo errado... criei inumeros aplicativos (de teste), e instalei em PC's recém instalado o sistema, e em todos funcionaram. A única observação que faço é que em todas minhas aplicações criei o "Instalador" com todas as "DLL's" que precisavam para rodar a aplicação junto com o "MDAC 2.8" (Microsoft Data Access Components), e tenho o costume de só criar tabelas no Access 2003. Mesmo assim, tenho um projeto em que uso o Access 2007, e só foi preciso instalar o "2007 Office System Driver: Data Connectivity Components" Segue link caso alguém precise: 2007 Office System Driver Então, se está começando agora, dê mais uma estudadazinha e reveja sua aplicação, pois o grande desafio para o programador é fazer sua aplicação rodar "redondo" :D . Na dúvida de algo, posta que nós veremos se podemos te ajudar ;) VALEU !

R(3) é um dos RecordSet...quero lembrar que utilizo 3, então fiz um Array: Dim R(1 To 3) as New ADODB.RecordSet O erro acontece na linha do resultado do "SELECT SUM" com filtragem, ele retorna o resultado da soma de uma coluna, mas só faz essa soma "onde" o "Tipo" for "Indigo" por exemplo...porém se ele não encontrar, vai retornar nulo...ou seja, "VInd" é o resultado do "SELECT SUM": Set R(3) = Con.Execute("SELECT SUM(Metragem) As VInd From Tabela WHERE Data=#" & DT & "# AND Setor='" & ST & "' AND Tipo='Índigo'") Então o resultado do RecordSet é: R(3)("VInd") Porém, haverá situações em que ele irá retornar "vazio", pois vai depender da variavel "DT" (que é uma Data). Deu para entender ? :unsure:

Kuroi... Nesta filtragem com soma de campos que faço algumas vezes o resultado será "nulo", e neste caso ocorre o erro: ----------------------------------- Run Time -2147217887: Uma coluna não anulável não pode ser atualizada para Null. ----------------------------------- No script é grifado justamente o campo que retorna o resultado da soma. Tentei tratar assim: If IsNull(R(3)("VInd")) Then R(3)("VInd") = "" End If Também fiz assim: If IsNull(R(3)("VInd")) Then R(3)("VInd") = "0.00" End If Mas o erro continua aparecendo... Lembro, que só ocorre quando a filtragem não encontra nada conforme exijo na query (tipo: Somar tudo com "Tipo='Índigo'", e não haver nada com Tipo = Índigo)... no mais funciona normal... isso me pegou mesmo... :blink:

Obrigado pelos exemplos Kuroi ! ;)

Estou usando o Access mesmo... Não entendí na parte de se colocar o "MoveNext()"... Podes dá um exemplo prático adaptando sua dica ao meu exemplo ? :blush: VALEU !

Kuroi, Aqui não deu... :unsure: Segundo o que deu para entender no link, ele vai agrupar em ordens os valores...estou tentando em um único select, somar os valores da coluna "Metragem" mas filtrando pelos diferentes tipos da coluna "Tipo"...ou seja, teria de me retornar três valores separados: X de Brim, Y de Índigo e Z de Lavados...

Kuroi, Quero trazer no mesmo SELECT mas separados...minha é: se vai retornar duas Colunas, quais seriam seus nomes ? pois SomaTotal é o resultado da soma, mas como fica se quiser apresentá-los em Labels diferentes por exemplo... :unsure:

É possível fazer em um único SELECT três somas de campos através de filtragem ? É assim: Tenho uma Tabela com 6 Campos...um dos campos é chamado "Tipo", onde é determinado por três tipos: Brim, Índigo e Lavagem... Tenho outro Campo chamado "Metragem" com os "valores"...então, para somar apenas um "Tipo" faço assim: Set Rs = Con.Execute("SELECT SUM(Metragem) As SomaTotal From Tabela WHERE Tipo='Brim'") Ele filtra, e soma apenas os dados com "Tipo" setado em "Brim" :closedeyes: ; quero apresentar um relatório com os resultados das somas dos diferentes "Tipos" (Brim, Índigo e Lavado), então, se for fazer, terei de criar 3 RecordSet's... um para cada tipo se for seguir a ordem do raciocinio... Quero saber se tem como eu fazer todas as somas "filtradas" em um único RecordSet :) .

Cara, acho mais fácil de se entender se você postar apenas a parte do código que deseja alterar...ou onde apresenta erro (se for o caso...) Postando tudo assim, fica dificil (pelo menos pra mim), poder te ajuda... ;) Posta apenas o Botão, ou TextBox, ou Label...seja o que for, que assim facilita compartilharmos nossos conhecimentos :D Agora deduzindo pela sua pergunta, acho que com o componente "Common Dialog" dá para fazer o que deseja...

Veja o video no link: http://img34.imageshack.us/img34/936/file18353.mp4 Selecione o campo com o botão "Direito" do Mouse...;)

:) Label1.Caption = Empty Deixa a Label vazia :rolleyes:

Olá Luis :rolleyes: Coloca assim: Private Sub Command1_Click() If Label1.Caption <= 2000 Then MsgBox "Você Ainda não tem 2001 pontos.", vbExclamation Else MsgBox "Você tem um número igual ou superior a 2001 pontos!", vbInformation End If End Sub Adapte de acordo com seus objetos... ;) VALEU !

Tópico de Março de 2008 :mellow:

Descobrí ! :D Basta usar o "DISTINCT" Con.Execute "SELECT DISTINCT Cidade FROM Tabela ORDER BY Cidade" Fica o exemplo ;) :rolleyes: :rolleyes: :rolleyes:

Pessoal... Tenho um Campo onde os nomes se repetem...gostaria de povoar um combo com os nomes deste campo, menos os repetidos...entendem ?! Se no Campo tem: São Paulo Natal Recife Natal Fortaleza Recife Natal... Fosse adicionado no combo apenas: São Paulo Natal Recife Fortaleza Tem como fazer essa filtragem ? :rolleyes:

OK Bred :) Sei disso...não há perigo quanto ao código da aplicação, estava com o pé atráz em relação ao Access...e por ver na web comentários que a base 2007 é muito mais segura que a 2003 então resolví perguntar a quem tem mais experiencia ;) tentei com o Base do BrOffice mas não conseguí criar a conexão com o banco...então fui de Access 2007. Não conheço muito de Access, mas me serve como base de dados muito bem :D Obrigado !