Danleonhart

Só pode dá erro...um evento dentro de outro evento... :blink: o correto seria você colocar todo o código que está no CommandButton, na linha onde eu citei no exemplo (coloque aqui...)... mas para ficar mais simples faça o seguinte: Private Sub txtMsg_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 13 CommandButton1.SetFocus SendKeys ("{ENTER}") End Select End Sub O script "SendKeys ("{ENTER}")" simula o clique do botão "ENTER"... MSN: dannleonhart@hotmail.com

Não Jhonas... Esta é a imagem do Roteador que adquiri... Não recebo Internet por Modem...recebo por placa de rede Wireless USB... como expliquei na 2ª resposta, conecto o cabo que vem da antena externa, com ponta PigTail, no local da antena Interna do Roteador...e configuro como Cliente AP... pelas informações que li na NET era para funcionar ! vou chamar o técnico do provedor...eu não queria chama-lo pois ele vem com um arrodeio medonho para explicar uma coisa simples... eu tou suspeitando que é por causa do MAC da placa de rede...mas eu clonei ela no Roteador...era para funcionar ! Bem, de todo jeito obrigado pelas informações ! VALEU !

Caramba ! Vou ter que comprar outro ! será ??? vou postar imagem das entradas disponíveis: :unsure:

Em relação a enviar a mensagem ao pressionar a tecla "ENTER", basta configurar o código no evento KeyPress da TextBox... sabendo que a tecla "ENTER" é equivalente a ao número inteiro "13" no padrão ASCII, use a variável "KeyAscii" para chamar o evento: Private Sub txtMsg_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 13 "Coloque o quê você quer que seja executado..." End Select End Sub Quanto ao RichTextBox vou dá uma olhada no que tenho de informações...

Esse é o problema Jhonas... Eu recebo Net a radio, logo não tenho como conectar a porta WAN do roteador...pois o cabo é pigtail sabe ?!

Sim Jhonas... Ele tem 4 portas LAN e uma WAN... todas modelo RJ-45... Já li diversas dicas que encontrei no Google e até video-aulas do YouTube mas não conseguí conectar... você sabe como configurar ??? Eu coloquei nele o MAC do adptador de rede USB que usava...e configurei com IP estático, sem DHCP, pois o meu provedor controla o acesso por IP e MAC...fiz isso na configuração WAN do roteador. Na configuração LAN coloquei um IP do tipo 10.0.10.1 com mascara de sub-rede 255.255.0.0 No tipo de serviço coloquei como Cliente AP Router ( a outra opção é Roteador AP, então deduzi que é para "enviar" o sinal, e não receber :rolleyes: ) Coloquei o cabo que vem de minha antena grade na entrada onde ficava a antena interna...e coloquei o cabo de rede tradicional (cabo par trançado com conector RJ-45, padrão Patch Cable ou Cabo Direto) em uma das portas LAN fazendo a conexão com minha placa de Rede do PC... configurei a placa de rede com IP dependente da configuração LAN do roteador...ou seja, IP: 10.0.10.2 , Máscara: 255.255.0.0 , Gateway Padrão: 10.0.10.1 com isso gera rede (entre o PC e o meu NetBook que estão interligados via roteador, pois o IP do NET é 10.0.10.3 com mascara e gateway igual ao PC)...mas não tenho acesso a internet... Detalhe: a conexão entre o PC e o NET é via cabo...já que os dois estão conectados ao Roteador...só para não confundir... o desespero foi tanto que até tentei com cabo CrossOver a conexão entre o PC e o Roteador ! :) que não resultou em nada do mesmo jeito...

Pessoal... Tenho um Roteador IntelBras WRN 240 e queria saber se ele pode receber o sinal de minha Net a radio... Seguinte...recebo sinal por uma antena grade e uma placa de rede USB com 10 Mts de cabo... então gostaria de saber se é possível receber o sinal pelo roteador ao invés da placa de rede... Ele tem 1 porta WAN, 4 portas LAN e a antena é removível...ou seja, posso acoplar a antena externa nele...só que minha duvida é: se a antena é removível, é para receber o sinal ou enviar sinal ??? :unsure: Ajudinha pessoal...se puderem me digam como faço essa configuração :mellow: . Obrigado !

Olá JMRF... Bem isso é simples de tratar...basta colocar no Evento LostFocus da TextBox o seguinte script: Private Sub txt_Valor_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt_Valor.LostFocus If Not txt_Valor.Text = Nothing Then Me.txt_Valor.Text = FormatCurrency(txt_Valor.Text, 2) Else Me.txt_Valor.Text = FormatCurrency(0, 2) End If End Sub Perceba que fiz um tratamento para evitar o ErrorRunTime... coloquei uma condição...que se a caixa "não" estiver vazia, formatar para moedas o valor digitado...senão ele formatará do mesmo jeito, só que com valor = 0 (zero) Note que se você digitar "texto" dentro do TextBox, vai dá ErrorRunTime também...nesse caso tem de se fazer um tratamento onde a caixa só aceite caractéres numericos...dica esta que aqui mesmo no site tem de sobras VALEU !

Luiz Niero... Te respondi no fórum do VB-6 uma pergunta semelhante...então por aquele exemplo que você postou vou adicionar a conexão...com Access 2007, OK ?! Private Sub Conectando() Dim Str_Con As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\Dados.accdb;Persist Security Info=False;" Dim Sql_Inserir As String = "INSERT INTO tabela(campo1,campo2,campo3)" & "VALUES('" & txt_Dado1.Text & "','" & txt_Dado2.Text & "','" & txt_Dado3.Text & "')" Dim Conn As New OleDbConnection(Str_Con) Dim Cmd As New OleDbCommand(Sql_Inserir, Conn) Try Conn.Open() Cmd.ExecuteNonQuery() MessageBox.Show("Dados salvo com sucesso !", "Informação.", MessageBoxButtons.OK, MessageBoxIcon.Information) Catch MessageBox.Show("Não foi possível efetuar o cadastro.", "Atenção !", MessageBoxButtons.OK, MessageBoxIcon.Error) Finally Cmd.Dispose() Conn.Close() End Try End Sub Na string de conexão coloquei que o BD (Banco de Dados Access 2007) está na pasta do aplicativo (por isso tem o " & Application.StartupPath & ")... se quiser informar o diretório onde está o BD basta substituir pelo caminho...ficando assim: Dim Str_Con As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Dados.accdb;Persist Security Info=False;" ' Nesse exemplo informo que o BD está no disco "C:" Onde tem "tabela" informe sua tabela... onde tem campo1, campo2 e campo3 informe os campos de sua tabela onde tem txt_Dado1.Text, txt_Dado2.Text e txt_Dado3.Text são os supostos TextBoxes que passarão os valores a ser inseridos nos campos da tabela.... Beleza ?!

Como você está adicionando o componente ? Está apertando "Ctrl + T" e procurando na lista pelo nome "Microsoft Winsock Control 6.0 (SP6)" ? Se faz assim e não está adicionando melhor reinstalar o componente...

Olá amigo ! Aqui é o fórum do VB-6...esse script é VB.NET...logo deve ser postado no fórum .NET Respondendo a sua pergunta: Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsalvar.Click Dim Sql_Inserir As String = "INSERT INTO tabela(campo1,campo2,campo3)" & "VALUES('" & txt_Dado1.Text & "','" & txt_Dado2.Text & "','" & txt_Dado3.Text & "')" Dim Conn As New System.Data.SqlClient.SqlConnection(Str_Conn) Dim Cmd As New System.Data.SqlClient.SqlCommand(Sql_Inserir, Conn) Try Conn.Open() Cmd.ExecuteNonQuery() MessageBox.Show("Dados salvo com sucesso !", "Informação.", MessageBoxButtons.OK, MessageBoxIcon.Information) Catch MessageBox.Show("Não foi possível efetuar o cadastro.", "Atenção !", MessageBoxButtons.OK, MessageBoxIcon.Error) Finally Cmd.Dispose Conn.Close End Try End Sub Lembrando que se for inserir valores numéricos retire os apóstrofos ( ' ' )...deixando apenas as aspas ( " " ) onde tem "Str_Conn" coloque uma variável de conexão ou simplesmente a string de conexão. Espero que ajude !

Frata... Pelas regras do fórum é proibido cara ! não coloque perguntas desse tipo, pois o site é contra pirataria... Faz o seguinte...utiliza o Google, e na busca digita: "SERIAL DO VB6" Observer a 3ª opção...e veja se serve... se não servir, tente buscar em inglês...tipo "SERIAL FOR VB6" isso serve também para scripts e dicas... descobri muita coisa em outras linguas...principalmente em inglês e francês... :rolleyes: Boa sorte !

Pessoal... Deixo uma dica bem simples mas que deve ajudar a quem está iniciando na plataforma .NET utilizando a linguagem VB...assim como eu :closedeyes: Tenho um sistema de Login onde utilizo a propriedade PasswordChar configurado com "*" (asterísco)...tentei por demais deixar o TextBox igual ao do sistema Windows (apresentar aquela bolinha preta ao digitar os caractéres...), mas sem sucesso... Parei, pesquisei e descobri que a manha está no tipo de fonte utilizada...que por sinal é a fonte "Wingdings"... e o caractére utilizado é a letra "l" (minúscula), que no padrão ASCII é o número "108". Criei a simples função para utilizar em Textboxes: Function BlackBolChar(ByVal obj_TextBox As TextBox, Optional ByVal FTam As Integer = 8) Dim FNome As String = "Wingdings" Dim Fnt As New Font(FNome, FTam, FontStyle.Bold) obj_TextBox.Font = Fnt obj_TextBox.PasswordChar = Chr(108) Return obj_TextBox End Function E no evento Load do Form configurei a TextBox desejada: Private Sub LoginForm1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load BlackBolChar(txtPass) End Sub A sequência de informações é bem simples... chamar a função "BlackBolChar", e informar a TextBoxe...e se quiser, informar o tamanho da fonte...(isto é opicional), caso não queira o padrão fica no tamanho 8. VALEU !

Utilizando a dica do Graymalkin : Imports System.Drawing Public Class Form1 Dim Ponto As New Point Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown If e.Button <> Windows.Forms.MouseButtons.Left Then Exit Sub Ponto.X = Me.Left - MousePosition.X Ponto.Y = Me.Top - MousePosition.Y End Sub Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove If e.Button <> Windows.Forms.MouseButtons.Left Then Exit Sub Me.Left = Ponto.X + MousePosition.X Me.Top = Ponto.Y + MousePosition.Y End Sub End Class

Seguindo a lógica do Matheus... Private Sub CommandButton1_Click() Separar End Sub Sub Separar() Dim VT() As String Dim I As Integer Texto = txt1.Text VT() = Split(Texto, " ") For I = LBound(VT) To UBound(VT) MsgBox VT(I) Next I End Sub Criei este exemplo no Excel... só adaptar :rolleyes:

Seguinte pessoal... Não consegui fazer o DISTINCT com uma única consulta...então fiz da maneira lógica... criei dois RecordSet's...um com DISTINCT e o outro com SELECT WHERE... ficou assim: Sub Filtragem() Dim SQL_Dst As String Dim CL As New Collection Dim Ls As ListItem Dim Nome As String SQL_Dst = "SELECT DISTINCT Usuario FROM Infos" Abrir_Conexao Set Rs = Con.Execute(SQL_Dst) Do Until Rs.EOF Nome = Rs!Usuario CL.Add Nome Rs.MoveNext Loop Lv1.ListItems.Clear For Each nm In CL Set Rs2 = Con.Execute("SELECT Controle,Usuario,Senha,Data FROM Infos WHERE Usuario='" & nm & "' ORDER BY Controle ASC ") Set Ls = Lv1.ListItems.Add(, , , 3, 3) With Ls .Text = Rs2.Fields(0) .SubItems(1) = Rs2.Fields(1) .SubItems(2) = Rs2.Fields(2) .SubItems(3) = Format(Rs2.Fields(3), "dd/MM/yyyy - hh:mm:ss") End With Rs2.MoveNext Next nm Set Rs = Nothing Set Rs2 = Nothing Con.Close End Sub LÓGICA: Faço uma consulta com SELECT DISTINCT que preenche o primeiro RS... aloco o resultado em uma Coleção (Collection)... faço uma nova consulta, agora com SELECT WHERE de cada valor que está na Coleção, e preencho o segundo RS... por último preencho o ListView com os dados do segundo RS...

Seguinte... Quero fazer um SELECT em uma tabela onde há repetições no campo "Usuario", mas tenho de mostrar todos os campos no resultado, logo usar o "SELECT DISTINCT Usuario FROM Tabela" não irá funcionar... Então, como faço para fazer distinção no campo "Usuario" mas apresentar todos os demais campos ? :huh:

Olá Gustavo... Bem...primeiro, seu código é VB.NET, aqui é a área do VB-6 e VBA :rolleyes: agora em relação ao seu script, desconheço esse comando SQL "exec pr_dev_Aluguel '" eu faria de outra maneira...usaria uma condição (IF THEN) para me retornar se determinado aluno estaria ou não com determinado livro... No script abaixo vejo se determinado Nome já existe no BD... Private Sub Ver_se_Existe() Dim SQL As String = "Select * from Clientes" Dim Nome As String = txtNome.Text Dim TempNome As String Dim Existe As Boolean Using Con As New OleDbConnection(Scon) Con.Open() Using Cmd As New OleDbCommand(SQL, Con) Using Dr As OleDbDataReader = Cmd.ExecuteReader While Dr.Read tempnome = Dr.Item("Nome") If Nome = TempNome Then Existe = True Exit While End If End While If Existe = True Then MessageBox.Show("Nome encontrado", "AVISO !", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) Exit Sub ElseIf Existe = False Then MessageBox.Show("Nome não existe no Banco de Dados...", "Atenção !", MessageBoxButtons.OK, MessageBoxIcon.Information) End If End Using End Using End Using End Sub Pode ser usado...basta adptar...

Em minhas aplicações eu previno muito as caixas de texto, se aceitam vazio ou apenas números, textos maiúsculos...e em controles como o FlexGrid trabalho bastante a parte de clique, duplo clique, se está vazio ou com alguma linha preenchida e por aí vai :rolleyes: ... se bem que depois que se pega o jeito do ListView acaba-se esquecendo do FlexGrid e DataGrid :D Quanto ao apóstrofo em tarefas de CRUD, eu abandonei a possibilidade de usar o Replace() (digo pois a maioria das pessoas gostam de fazer isso Rsrsrsr), pois na minha opinião age mais como uma gambiarra do que como código limpo...utilizo sempre que preciso a inserção do valor no banco por parâmetro...segundo me disseram, é a forma correta de inserir-se os dados no banco através de aplicativos (sejam VB, C#, C++, Java, NET ou qualquer outro...) Vale lembrar também quando a aplicação não encontra o caminho do BD...no erro, geralmente é mostrado o local onde possivelmente o BD está...e se houver algum mal intencionado, o carinha vai lá e detona a base <_< (pelo menos quem usa Access, SQL compacto ou outro banco de arquivo corre este risco). Trato esse erro mostrando uma mensagem dizendo que não foi possível encontrar o Banco... :)

RD12 Consegui usando variável :rolleyes: ...o que me faltava era descobrir o tipo...então fui tentando até encontrar :closedeyes: Bem, já que está disponível o Projeto, basta substituir todo o script por este aqui: Public IMG As IPictureDisp Function Carregar_Foto(Pic_Box As PictureBox) '' Função que Aloca a imagem na variável: Set Pic_Box.Picture = IMG End Function Function Salvar_Foto(Pic_Box As PictureBox) '' Função transfere a imagem da variável para a PictureBox: Set IMG = Pic_Box.Picture End Function '' Daqui adiante só usei as funções criadas... Private Sub Pic1_Click() Salvar_Foto Pic1 End Sub Private Sub Pic2_Click() Salvar_Foto Pic2 End Sub Private Sub Pic3_Click() Salvar_Foto Pic3 End Sub Private Sub Pic4_Click() Salvar_Foto Pic4 End Sub Private Sub Pic5_Click() Carregar_Foto Pic5 End Sub Private Sub Pic6_Click() Carregar_Foto Pic6 End Sub Private Sub Pic7_Click() Carregar_Foto Pic7 End Sub Private Sub Pic8_Click() Carregar_Foto Pic8 End Sub '' Boa sorte !!! '' Danleonhart. Valeu !

Olá amigo ! Eu não sei muito bem o que deseja fazer, mas...não consegui colocar em uma variável a imagem...então resolvi salvá-la em um diretório, e depois carregá-la no outro PictureBox... segue o Projeto: http://www.4shared.com/file/ca3X9mYa/Imagem_-_Estudo.html Espero que ajude de alguma forma...

Matheus... Vê se este link te ajuda... http://www.macoratti.net/vbdatas1.htm

Olá Matheus ! :rolleyes: Quanto tempo hein cara ! Criei este exemplo e coloquei em um Botão de Comando : Private Sub cmd1_Click() Dim Rs As New ADODB.Recordset Abrir_Conexao Dim v_SQL As String v_SQL = "SELECT * FROM Dados2 WHERE ISNULL(Data)" Set Rs = ObjCon.Execute(v_SQL) Do Until Rs.EOF MsgBox Rs!Nota & vbNewLine & Rs!Data Rs.MoveNext Loop ObjCon.Close End Sub Campos da Tabela: "Nota" e "Data" Então, ele retorna só as linhas que estão com o campo "Data" vazio... Mais sobre a função SQL ISNULL e outros parecidos : http://www.w3schools.com/sql/sql_isnull.asp VALEU !!!

Iceguy Na verdade eu já tinha lido esse tópico...então, estou tentando adaptar para o Access 2007 e VB.NET mas se tiver mais exemplos melhor ainda ! principalmente de alteração e exclusão... VALEU !

Pessoal Preciso de exemplos de Stored Procedures com variáveis no Access 2007. Tipo: selecionar Campo1,Campo2 onde nome = fulano onde fulano é variavel...ou seja pode ser qualquer nome... Um exemplo de Inserção, Edição e Exclusão também são bem vindos...no VB-6 sei fazer, mas preciso destes exemplos no modo SQL do Access... Obrigado a todos !