Danleonhart

OK ! Então, você trata dados do tipo numérico (Integer, Double, Long, Single...) somente com " " (aspas)...agora se for texto (String) tem de colocar ' ' (apóstrofos) e " " (aspas)... Se a segunda deu este erro, é porque na variavel "busca" está faltando os apóstrofos... AdoItensPedido.RecordSource = "SELECT * FROM ItensPedido WHERE NPedido='" + busca + "' AND '" + txtItem.text + "'" Tente agora...

Só explica uma coisa...os ítens ficam salvo em outro campo do Banco de Dados ? Assim: o número do pedido ta salvo no campo "NPedido"... e os ítens ??? Pois assim bastava configurar seu SELECT informando o número do pedido "e" número (ou nome, seja lá o que for...) do ítem... ficaria mais ou menos assim: AdoItensPedido.RecordSource = "SELECT * FROM ItensPedido WHERE NPedido='" & Numero_do_Item & "' AND NItem='" & vItem & "'" Sem falar que realmente você esqueceu dois operadores nessa mesma linha...o "=" (igual) e o " ' " (apóstrofo). corrigido: AdoItensPedido.RecordSource = "SELECT * FROM ItensPedido WHERE NPedido=" + busca + " AND '" + txtItem.text + "'" Estou julgando que "busca" é um valor do tipo numérico e o conteúdo do "txtItem.Text" do tipo texto.

Pessoal... Lí sobre esta IDE e resolví testar... :rolleyes: Primeiro porque necessito de uma IDE no meu Netbook...e o VS 2010 é pesadinho :huh: mas me surpreendí muito com o desempenho ! confesso que não testei todos os recursos mas resolví postar aqui para saber se o pessoal do ScripBrasil conhece... e compartilhar opiniões claro :D Link de download da IDE: 16.4 MB http://www.baixaki.com.br/download/sharpdevelop.htm Valeu !

Desculpe a demora :rolleyes: Fiz este exemplo...vê se ajuda a solucionar o seu problema: http://www.4shared.com/file/wvOamq50/Exemplo_Bellebs.html FUI !

Já tem muitos...mas se você quiser fazer um pessoal...vai em frente ! :D

Private Sub Combo1_Click() Select Case Combo1.Text Case "ZERADO" Text1.Enabled = False Case "COM O VALOR ABAIXO" Text1.Enabled = True End Select End Sub Eu costumo usar "Select Case" ao invés do "If Then" :D Note que coloquei no evento "Click" da ComboBox... no evento "Change" não rolou... Aqui com "IF THEN" : Private Sub Combo1_Click() If Combo1.Text = "ZERADO" Then Text1.Enabled = False ElseIf Combo1.Text = "COM O VALOR ABAIXO" Then Text1.Enabled = True End If End Sub

Esse valor é salvo no BD, certo...então, para ele ser visualizado de inicio, tem de fazer um SELECT desse campo do BD que armazena esse valor...tipo assim: Dim sql As String '<= Variavel tipo String Dim RecSet As New ADODB.Recordset '<= Meu RecordSet ADO Dim ObCon As New ADODB.Connection '<= Meu Objeto de Conexão ADO ' Minha String de Conexão ObCon.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\BaseDados.mdb;Persist Security Info=False" ObCon.Open '<= Abrindo a conexão com o BD sql = "SELECT Nome FROM Clientes WHERE ID=26" '<= Comando SQL que vai pegar o valor... Set RecSet = ObCon.Execute(sql) '<= Configurando o RecordSet com o comando SQL MsgBox RecSet!Nome '<= Apresentando o valor que foi pego no BD ObCon.Close '<= Fechando a conexão Isso aí é só um exemplo...ou seja, peguei "um" valor (o "Nome") de certo campo do banco (Campo "Nome" da Tabela "Clientes") pelo valor do "ID" (outro campo do BD). você pode fazer isso só para inicialmente carregar seu Valor inicial na caixa de texto... e depois fazer a atualização desse campo com o valor de antes somado com o valor digitado... isso já seria uma "EDIÇÃO" do campo, e teria que usar um comando SQL do tipo: "UPDATE tabela SET campo=resultado_da_soma"... e depois teria de fazer novo "SELECT" do campo para mostrar o novo valor... explicando é meio complicado...vou bolar um exemplo e posto depois...mas é bom ir tentando... sem falar que não sei como está seu script :D Até !

Bem, pelo que entendí você tem de fazer um SELECT do campo para pegar o valor já salvo... Jogar este valor numa variável... depois somar o valor digitado na Caixa de Texto "Valor" ao da variável... e então salvar no BD (Banco de Dados)... Detalhes... se os valores são numeros com decimais, o melhor é usar o Tipo "Double"...pois "Integer" é Inteiro, logo se ele receber um valor como "35,40" ele arredonda para "35"... Lí certa vez que não é bom declarar variáveis dessa maneira: Dim acum, ent As Integer Pois o VB vai entender que "acum" é do Tipo "Variant", e só o "ent" é "Integer"... o correto seria: Dim acum As Integer, ent As Integer Outro detalhe é que você não especificou qual o verdadeiro problema...apenas citou como deveria funcionar... ;)

o erro "Type mismatch" dá quando os tipos de dados comparados não são compatíveis...ou seja, são diferentes... talves você estivesse comparando um Tipo String com um Tipo Integer ou outro... Valeu !

Bellebs... Seu código está estranho... o que é "aluno" ??? é um campo da tabela ??? o que você deseja fazer ??? de.rsalunos.Filter = aluno <> -1 esta linha apenas fica complicado de dizer algo mais concreto :(

Seja bem vinda Bellebs ! ;) Bem, supondo que o nome do campo no banco de dados está configurado com Tipo "Texto", faça assim na linha que dá o erro: de.rsalunos.Filter = "nome='" & aluno & "'" Estou usando a lógica viu :D, pois prefiro fazer filtros utilizando script SQL (SELECT WHERE, AND, BETWEEN e outros...) Se der erro, avisa novamente !

Até encontrar outra forma, estou usando este script no evento NodeMouseClick : Private Sub Tv1_NodeMouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.TreeNodeMouseClickEventArgs) Handles Tv1.NodeMouseClick Tv1.SelectedNode = e.Node End Sub Aberto para outras opções... meu objetivo é executar um script com o nome do Node selecionado...

Olá pessoal ! Tenho um ContextMenuStrip que fornece opções ao Botão Direito do mouse em um TreeView...porém não consigo deixar o foco em cima dos Nodes "filhos"...quando clico com o botão direito o foco volta para o Node "pai"... Com o Botão Esquerdo funciona normal...ou seja, o foco fica em cima do Node selecionado... Tem alguma configuração natural para corrigir este detalhe ?! ou tem de apelar para os eventos MouseDown / MouseUp... Utilizo o VB.NET 2010.

1ª: Bem, pelo que entendí você só adiciona no Flex as informações...e não salva em Banco de Dados... logo quando o Form é fechado, as informações são apagadas... 2ª: O mesmo vale para este caso...se você salvar as informações em um Banco de Dados (seja Access, SQL, MySQL,Firebird...),poderá alimentar o Flex seja em qual for o Form... Você já leu sobre VB-6 e Banco de Dados ??? é bom antes de meter a mão para desenvolver algum aplicativo, ler bastante sobre o assunto...aqui no Fórum tem diversos topicos falando sobre isso...basta dá uma procurada... se procurar nos que foram criados por mim verá aos montes ! ;) Fica a dica amigo !

Melhor ainda ! :rolleyes: Faz o seguinte, informe o nome da "Tabela" e os nomes dos "Campos", vou tentar fazer de minha maneira e você testa aí... só uma pergunta...os nomes "satisfação, mês" estão mesmo dessa maneira ? com "ç" , "~" e "^" lembro-me que certa vez usei caractéres desse tipo e deu muitos conflitos... *** EDITADO *** Esse seu script está vinculado a algum objeto (componente) ? se sim, qual seria ??? tens o projeto ? se puder, me envias...fica mais fácil observando o script completo ;) dannleonhart@hotmail.com

Fala Matheus ! Faz assim cara: Private Sub Form_Unload(Cancel As Integer) Dim Frm As Form For Each Frm In Forms Unload Frm Next Frm End Sub VALEU !

Olá K-du ! Está dando algum erro runtime ? pelo que posso entender do seu código você está querendo executar uma alteração no Banco de Dados correto ?! Dessa maneira que estais fazendo eu acho bem complicado... prefiro usar uma Query SQL...tipo: "UPDATE tabela SET coluna1='" & variavel1 & "',coluna2='" & variavel2 & "'" ' por exemplo... Esse metodo "Seek" é muito limitado (funciona bem no Access... )...prefiro usar o "SELECT...WHERE..." que funciona em qualquer tipo de Banco...inclusive no Access...

Bem, criando um Instalador com as novas bibliotecas ADODB do Win7 não funcionou comigo... o que faço é compilar o instalador, mas substituo a biblioteca "msado28.tlb" pela "msado15.dll" e tem funcionado... as referências de utilização que faço são as seguintes: Dim Con As ADODB.Connection Set Con = New ADODB.Connection Con.Open .... Dim Rs As ADODB.Recordset Set Rs = New ADODB.Recordset Rs.CursorLocation = adUseClient Rs.Open ....

Com o DataReport não...mas existe inumeros exemplos de como fazer uma consulta a dados e exportá-la em PDF. Eu uso o Active Reports Professional 2.0 no lugar do Data Reports...ele faz o serviço completo...gera relatório, imprime, exporta para PDF, Excel, txt, html... apanhei um bocadinho para aprender a configurar...mas depois de pegar a manha é 100% ! *** EDITADO *** Segue link do ActiveReports 2.0 versão para VB-6: http://www.megaupload.com/?d=G2QGKNE7

Olá Sandrelle ! Bem, no meu entender o segredo está no script da condição: IIf([Total_Nota]>=95,1,0) ele parece retornar um valor de configuração...pois se o "Total_Nota" for MAIOR ou IGUAL a 95 ele retorna "1", senão ele retorna "0"... Então você pode começar as tentativas de correção do script eliminando esta condição... ou seja, ficaria assim: Adors.Open "SELECT tb_Pesquisa_de_Satisfação.Mês_Ano, tb_Pesquisa_de_Satisfação.Nome_do_Cliente, " & _ "tb_Pesquisa_de_Satisfação.Total_Nota, Month([Data_da_Pesquisa]) AS Mês, " & _ "Year([Data_da_Pesquisa]) AS Ano" & _ "From tb_Pesquisa_de_Satisfação WHERE (((Month([Data_da_Pesquisa])) Between " & Mês1 & " And " & Mês2 & ") AND ((Year([Data_da_Pesquisa]))=" & Ano & "));", frmPesquisa.AdoReg1.dB, adOpenStatic, adLockOptimistic Tenta aí e diz no que deu !

Mas você conseguiu colocar em ordem decrescente ? Se não conseguiu, tenta isso na ultima query de consulta: rsdados.Open "select count(nome) as x from pedidos WHERE nome='" & lstProdutos.List(L) & "'ORDER BY DESC", cn

Fala Matheus ! :) Qual o Grid ? FlexGrid ou DataGrid ? Quanto ao carregamento invertido você pode fazer isso na consulta, adicionando ao final da query a coluna que define a "Numeração" dos dados...tipo se, a coluna de auto-numeração for "Controle" por exemplo, você colocaria assim: Dim ConSQL as String ConSQL = "SELECT * FROM TABELA ORDER BY CONTROLE DESC" O "DESC" no final da query traz os dados em ordem decrescente... e o "ASC" em ordem crescente. Na dúvida posta o script aê ;) VALEU !!! *** EDITADO *** Êita ! ví agora que é FlexGrid :P Aqui uma Sub que uso para preencher um FlexGrid de uma aplicação que tenho: Sub Preencher_Grid() Dim sQuery As String sQuery = "SELECT * FROM CLIENTES ORDER BY MATRICULA ASC" Abb ' <= Função que abre a conexão com o BD. Set Rs = New ADODB.Recordset Rs.CursorLocation = adUseClient Rs.Open sQuery, Con, adOpenKeyset, adLockReadOnly With FGrid1 .TextMatrix(0, 0) = "Admissão :" .TextMatrix(0, 1) = "Matrícula :" .TextMatrix(0, 2) = "Nome :" .TextMatrix(0, 3) = "Função :" .TextMatrix(0, 4) = "Turno :" .ColWidth(0) = 1200 .ColWidth(1) = 1200 .ColWidth(2) = 2500 .ColWidth(3) = 2000 .ColWidth(4) = 800 .ColAlignment(0) = 4 .ColAlignment(1) = 4 .ColAlignment(2) = 1 .ColAlignment(3) = 1 .ColAlignment(4) = 4 ' Carregando os Dados do BD no FlexGrid Do Until Rs.EOF .AddItem Format(Rs!Admissao, "DD/MM/YYYY") & vbTab & Rs!Matricula & vbTab & Rs!Nome & vbTab & Rs!Funcao & vbTab & Rs!Turno Rs.MoveNext Loop End With ' Limpando variáveis: sQuery = Empty Set Rs = Nothing ' Função que fecha a conexão com o BD. FcB End Sub :D

Olá Matheus ! acho que usando um SELECT DISTINCT junto com o GROUP BY dá certo... qaundo chegar em casa dou uma lida melhor...tou no trabalho :mellow:

Olá Capitu... Isso não seria VB.NET ??? Aqui é o fórum de VB-6...

Vulcano... Tem certeza ? você procurou direitinho ? :) Olhe a imagem abaixo : Se realmente não encontrar, baixe o controle no link abaixo... http://www.4shared.com/file/rVBNad7J/Insta...indows_Com.html? VALEU !!!