Jump to content
Fórum Script Brasil

sidneimarques

Membros
  • Posts

    35
  • Joined

  • Last visited

About sidneimarques

Contatos

sidneimarques's Achievements

0

Reputation

  1. Consegui resolver... achei que ficou P.O.G(para quem não sabe o que é POG, clique aqui) .... :D mas funciona!!! olha o que eu fiz: Coloquei um contador, uma variavel que ao se igualar ao numero de registros, sai da sub... porque o erro dava quando ele tentava vrificar o registro depois do último e era null, então deixei a função assim... quem quiser usar, funciona! Ao digitar um nome numa caixa de texto... ele seleciona a linha correspondente no datagridview... Dim texto As String = Nothing Dim celula As DataGridViewCell Dim contagem As Integer 'percorre cada linha do DataGridView For Each linha As DataGridViewRow In frmClientes.DataGridView1.Rows celula = linha.Cells(1) 'Índice 1 = coluna nome texto = celula.Value.ToString().ToLower() 'se o texto informado estiver contido na célula então seleciona toda linha If texto.Contains(frmClientes.txtNomePesq.Text) Then 'seleciona a linha frmClientes.DataGridView1.CurrentCell = celula Exit Sub End If contagem = contagem + 1 If contagem = frmClientes.DataGridView1.RowCount - 1 Then Exit Sub End If Next Agora to com outra dúvida, após cadastrar um registro, coloquei uma decisão... se o usuario deseja cadastrar outro cliente, se sim, limpa os campos do form e inicia um novo cadastro, se não mostra o datagridview, o problema é que quando mostra o datagridview ele não se atualiza automaticamente com o último registro cadastrado... tentei datagridview.refresh, mas não deu... alguma ajudinha ? valeu!!! :)
  2. olha só... [quote]Public Sub pesquisaCliente() Dim texto As String = Nothing Dim celula As DataGridViewCell 'percorre cada linha do DataGridView For Each linha As DataGridViewRow In frmClientes.DataGridView1.Rows celula = linha.Cells(1) 'Índice 1 = coluna nome texto = celula.Value.ToString().ToLower() If texto = Nothing Then Exit Sub End If 'se o texto informado estiver contido na célula então seleciona toda linha If texto.Contains(frmClientes.txtNomePesq.Text) Then 'seleciona a linha frmClientes.DataGridView1.CurrentCell = celula Exit Sub End If Next End Sub [/quote] funciona, percorre cada linha do datagridview, somente na coluna nome, isso tá ok... mas quando chega na última linha, que é null ele dá o erro citado acima (NullreferenceException Unhandled)... tem como colocar uma condição pra quando chegar ao fim das linhas ele parar ?
  3. ok, mas a variável célula estava declarada já no for each... agora ela não existe mais... e agora ? :huh: percebi também que o erro dá quando tem nome e sobrenome e pesquiso só pelo nome... valeu
  4. Graymalkin, a linha é texto = celula.Value.ToString.ToLower é eu estive olhando e realmente só preciso pesquisar na coluna nome.... como ficaria então ? valeu pela ajuda!
  5. amigos, tentei usar este exemplo mas não deu ce rto, então tentei fazer assim: Public Sub pesquisaCliente() Dim texto As String = Nothing If frmClientes.txtNomePesq.Text <> String.Empty Then 'percorre cada linha do DataGridView For Each linha As DataGridViewRow In frmClientes.DataGridView1.Rows 'percorre cada célula da linha For Each celula As DataGridViewCell In frmClientes.DataGridView1.Rows(linha.Index).Cells 'se a coluna for a coluna 1 (Nome) então verifica o criterio If celula.ColumnIndex = 1 Then texto = celula.Value.ToString 'se o texto informado estiver contido na célula então seleciona toda linha If texto.Contains(frmClientes.txtNomePesq.Text) Then 'seleciona a linha frmClientes.DataGridView1.CurrentCell = celula Exit Sub End If End If Next Next End If End Sub funciona, mas se eu digito uma sequencia de dados tipo "aa" ele retorna o erro: System.NullReferenceException was unhandled Message="Object reference not set to an instance of an object." isso é porque não encontro nada... como faço pra ignorar isso ? valeu detalhe, estouchamando essa função no changed de um textbox no mesmo form
  6. Olá novamente! Pessoal, tenho um datagridView sendo carregado com um dataset, até aí beleza, funciona, mas quero que a partir de um textbox eu possa localizar um nome no datagridview, posso fazer usando o evento changed talvez ? algum exemplo ? obrigado :closedeyes:
  7. Recomendo usar o 2008, o conceito é o mesmo... Abraço
  8. Então... eu tenho o sqldatasource... o que eu não consigo é usa-lo com minha base sql server, apenas com arquivos mdf....
  9. Amigos, estou usando a nova versão do vb express edition 2008, gostei muito, mas me deparo com o seguinte problema: Quando vou tentar adicionar um datasource, só me aparecem as opções microsoft access database file, microsoft sql server compact 3.5 e microsoft sql server database file todos eles com o provider .net framework data provider for sql server compact 3.5... mas minha base de dados não é nehuma dessas, e sim uma tabela criada no banco de dados sql server express 2005.... alguém pode me ajudar please ? thanks :closedeyes:
  10. legal, funcionou... grava no banco mas ainda continua... dando o erro ... vou debugar... depois posto aqui valeu!!!
  11. Essa é minha sub, mas não grava no banco.. não sei o que há de errado, todos os campos no banco access são do tipo texto... no banco tem um campo id tipo autonumeração mas não coloquei ele na string como você pode ver... se puder dar uma ajudinha eu agradeço muito.... Private Sub GravarDados() Dim cnnComando As New ADODB.Command Dim vConfMsg As Integer Dim vErro As Boolean On Error GoTo errGravacao 'Inicializa as variáveis auxiliares: vConfMsg = vbExclamation + vbOKOnly + vbSystemModal vErro = False 'Verifica os dados digitados: If txtNomeCliente.Text = Empty Then MsgBox "O campo Nome não foi preenchido.", vConfMsg, "Erro" vErro = True End If If txtCnpj.Text = Empty Then MsgBox "O campo CNPJ não foi preenchido.", vConfMsg, "Erro" vErro = True End If If txtEndCliente.Text = Empty Then MsgBox "O campo Endereço não foi preenchido.", vConfMsg, "Erro" vErro = True End If If txtTel.Text = Empty Then MsgBox "O campo Telefone não foi preenchido.", vConfMsg, "Erro" vErro = True End If 'Se aconteceu um erro de digitação, sai da sub sem gravar: If vErro Then Exit Sub Screen.MousePointer = vbHourglass With cnnComando .ActiveConnection = cnnMotoca .CommandType = adCmdText 'Inclusão: .CommandText = "INSERT INTO clientes " & _ "(codigo,nome, cnpj, Endereco, bairro, " & _ "cidade, estado, cep, telefone,contato, email) VALUES ('" & _ txtCodCliente.Text & ",'" & _ txtNomeCliente.Text & ",'" & _ txtCnpj.Text & "','" & _ txtEndCliente.Text & "','" & _ txtBairro.Text & "','" & _ txtCidade.Text & "','" & _ cmbEstado.Text & "','" & _ txtCep.Text & "','" & _ txtTel.Text & "','" & _ txtContato.Text & "','" & _ txtEmail.Text & "');" .Execute End With MsgBox "Gravação concluída com sucesso.", _ vbApplicationModal + vbInformation + vbOKOnly, _ "Gravação OK" 'Chama a sub que limpa os dados do formulário: LimparTela Saida: Screen.MousePointer = vbDefault Set cnnComando = Nothing Exit Sub errGravacao: With Err If .Number <> 0 Then MsgBox "Houve um erro durante a gravação dos dados na tabela.", _ vbExclamation + vbOKOnly + vbApplicationModal, "Erro" .Number = 0 GoTo Saida End If End With End Sub
  12. Olá amigos, preciso fazer um insert num campo autonumerção, usando access e ADO, alguém tem uma luz ? Valeu
  13. ok, pode ser, como faria em perl então ? Obrigado
  14. Pessoal, fiz alguns testes e a primeira dúvida é como posso atribuir a data do sistema a uma variavel ? tentei fazer : data = system("date /t") ; mas não rola eis o código, será que alguém sabe ? por favor ? //Progarama Para Backup de Base de Dados Oracle #include<stdio.h> #include<time.h> char data; main() { printf("Iniciando backup da Base de Dados Oracle...\n\n"); data = system("date /t"); printf("Data: %s", data); //system("DATE /t"); printf("Hora: "); system("Time /t"); system("cd c:"); system("dir"); printf("\n\nFim do Backup.\n"); system("pause"); }
×
×
  • Create New...