Ir para conteúdo
Fórum Script Brasil

sidneimarques

Membros
  • Total de itens

    35
  • Registro em

  • Última visita

Tudo que sidneimarques postou

  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"); }
  15. Olá Amigos! Trabalho com backups e tenho que fazer todos os dias um backup de uma base oracle, uso um script BAT(DOS)- criado pelo pessoal aqui, esse script entra na pasta Oracle (CD ORACLE\ORA81\BIN) e executa um comando (exp system/gnuwin full=yes FILE=D:\B231006.DMP) onde FILE siginifica o nome do arquivo de backup gerado(D:\B231006.DMP), esse arquivo é gerado sempre com a data atual, ou seja, tenho que todo dia editar o script e mudar a data manualmente. Gostaria de fazer um programinha em c pra executar isso, seria algo assim: Ao rodar o programa, ele pega a data do sistema e atribui a esse nome de arquivo, preciso codificar isso, será que alguém pode me ajudar ? segue o script: @Echo Iniciada a rotina de backup ORACLE @Echo Data Inicio %date% Horario Inicio %time% @Echo ....................................................... @Echo Off CD ORACLE\ORA81\BIN exp system/gnuwin full=yes FILE=D:\B231006.DMP LOG=d:\L231006.LOG @Echo On @Echo Fim do Backup @Echo Data Termino %date% Horario Termino %time% desde já agradeço Sidnei
  16. sidneimarques

    Pq Pq

    como você é iniciante como eu sugiro utilizar um outro compilador mais simples como o dev-c++ por exemplo abraço
  17. bom dia a todos, estou com o seguinte código preciso entende-lo se puderem me ajudar a comentar obrigado #include<stdlib.h> #include<stdio.h> int potencia(int a, int b); void tabela (int p[5][11]); void mostrar(int p[5][11]); int main(void) { int *p; p=(int *) malloc(ss * sizeof (int)); if (!p) { printf("Memoria indisponivel"); return 1; } tabela (p); mostrar(p); return 0; void tabela(int p[5][11]) { register int i,j; for (j=1;j<11;j++) for(i=1;i<5;i++) p[i][j] = potencia(j,i); } void mostrar(int p [5][11]) { register int i,j; printf("%10s,%10s,%10s,%10s\n","n","n^2","n^3","n^4"); for (j=1;j<11;j++) { for(i=1;i<5;i++) printf("%10d",p[i][j]); printf("\n'); } int potencia(int a, int b) { register int t=1; for (;b;b--) t=t*a; return t; }
  18. Obrigado Decio, vou tentar, o refresh() deve ser usado depois de cada printw ? e para entrada posso manter o cin ? obrigado pela paciencia
  19. tentei porem sem sucesso.... olha o codigo: /*Exercicio 4 Escreva um programa que a partir do resultato de um calculo qualquer imprima esse resultado atraves de histograma*/ #include <iostream>//biblioteca par recurso padrões //#include <iomanip.h>//biblioteca para alinhamento #include <conio.h> //biblioteca para limpar tela using std::cin; using std::cout; using std::endl; int main() { //inicio do programa int nota[4];//variavel para armazenamento de notas char mat[5][10];//variavel para armazenamento de materias int nmat=0; int linha=5; int coluna=11; int i=0; for(nmat=0;nmat<=4;nmat++)//laço par armazenamento de materias e notas {//inicio do laço cout<<"\nDigite o nome da Máteria "; cin>>mat[nmat];//armazena valores a varial materia cout<<"\nDigite a nota "; cin>>nota[nmat];// armazena valores a variavel nota clrscr();//limpa a tela }//fim do laço for(linha=5,i=0;linha<10;linha++,i++)//laço que demonstra o grafico {//inicio do laço int result=12-nota[i];//armazena a diferença da nota para o tamanho do grafico for(coluna=11;coluna>=result;coluna--)//continuacao do laço grafico { //inicio da 2° parte do laço grafico gotoxy (linha,coluna);//destino a caracteres na tela cout<<'\xdb';//coloca o caracter na tela, no origem acima }//fim da 2° parte do laço grafico }//fim do laço graficoa cout<<'.';//coloca o crarcter entre os espaço gotoxy ( 10,11);//destino da palavra na tela cout<<'\n'<<"MATERIA"<<"\t:"<<"NOTAS";//coloca a palavra na tela, no destino acima for(nmat=0;nmat<=4;nmat++)//inicio do laço onde he demonstrado a materia e as notas {//inicio do laço int x,y;//variavel onde armazena o destino na tela x=12+nmat;//armazena o destino da linha y=13+nmat;//armazena o destino da coluna gotoxy (x,y);//destino da palavra na tela cout<<'\n'<<mat[nmat]<<"\t:"<<nota[nmat];//coloca a palavra na tela, no destino acima }//fim do laco que demonstra materia e notas }//fim do programa não impriime o histograma.... pode me ajudar ?
  20. olá amigos, sabendo que a função gotoxy é específico da lib conio da borland, pergunto existe alguma lib pra linux que forneça esse tipo de função ??? obrigado desde já.
  21. encontrei... simplesmente uso a função system assim: system("clear"); já era... valeu opssss Valeu Amigo!!!
  22. explica melhor... .quem sabe
×
×
  • Criar Novo...