Jump to content
Fórum Script Brasil

D_BOB

Membros
  • Content Count

    16
  • Joined

  • Last visited

Community Reputation

0 Neutro

About D_BOB

  1. D_BOB

    Crystal reports + listview

    pessoal, ainda estou batendo cabeça com esse problema. eu achei esse link. http://www.codeproject.com/KB/list/PrintableListView.aspx muito interessante, é o que eu preciso. baixei o arquivo, ao rodar o executavel funciona perfeitamente mas quando abro o projeto e compilo não funciona. tentei olhar o codigo e utilizá-lo, mas tb não funcionou. dá varios erros de referencia, bibliotecas e outras coisas. utilizo o VS2010 se alguém puder me ajudar , muito obrigado.
  2. Galera, sou novo em c# e estava procurando uma maneira de gerar um relatorio crystal reports com os dados de um listview, não tenho nem ideia de por onde começar. desde já obrigado.
  3. Obrigado Graymalkin , já tinha tentado até algo parecido mas tinha problemas na hora de retornar o valor, essa rotina vai me ajudar a testar uma sequencia de caracteres que tem algumas restrições. Caso alguém precise, segue codigo para c# string texto = "teste"; foreach (Char c in texto) { MessageBox.Show( Convert.ToString©); }
  4. Galera a dúvida é a seguinte, quero extrair apenas determinada letra de uma string. por exemplo, tenho a string e quero extrair apenas a letra "s" aux = "teste" preciso de uma rotina que compare cada letra acima, e uma segunda varável recebendo só a letra "s". fui claro?
  5. D_BOB

    Selecionar aleatoriamente

    Ok pessoal, mas eu preciso trabalhar com variaveis nas linha e nas colunas.
  6. Pessoa, estou com uma duvida básica. quando utilizo o parametro abaixo: i = 1 j= 1 x = 10 Range(Cells( i, j), Cells(i, x)) eu me refiro as celulas A1 até a A10 como faço dessa mesma forma para me referir as celulas A1 e A10, eu preciso usar conforme acima pois os valores das variáveis irão mudar com frequencia. obrigado
  7. D_BOB

    Banco Vazio

    xistyle, funcionou dessa forma: if (dr.Read()) { if (dr["codigo"].ToString() == "") textBox1.Text = "1"; else textBox1.Text = Convert.ToString(Convert.ToInt32(dr["codigo"].ToString())+ 1); } else { textBox1.Text = "1"; } vlw cara
  8. D_BOB

    Banco Vazio

    Pessoal, estou com um problema estou tentando verificar se meu banco está vazio, já pesquisei bastante mas nada até agora funcionou, segue codigo try //tenta abrir a conexao com o banco de dados { conn.Open(); SqlCommand cmd = new SqlCommand("select MAX (codigo) as codigo from produto", conn); SqlDataReader dr = cmd.ExecuteReader(); if (dr.Read()) { textBox1.Text = Convert.ToString(Convert.ToInt32(dr["codigo"].ToString())+ 1); }else
  9. já tive um problema parecido e achei na net o codigo abaixo, Sub Inicio() Columns("A:A").ClearContents linha = 1 Call Varre("C:\Documents and Settings\administrador\Desktop\temp") End Sub Public Function Varre(endereço) Set FSO = CreateObject("Scripting.FileSystemObject") Set aqui = FSO.GetFolder(endereço) For Each Arquivo In aqui.Files Aux1 = Len(Arquivo.Path) - InStr(1, StrReverse(Arquivo.Path), "\") Range("A" & linha).Value = Mid(Arquivo.Path, 1, Aux1 + 1) Range("A" & linha).Value = Arquivo.Name Range("B" & linha).Value = Arquivo.Size linha = linha + 1 Nex
  10. D_BOB

    Inserir imagens

    Pessoal, achei na net o cod abaixo para inserir imagens: Dim p As Object, t As Double, l As Double, w As Double, h As Double If TypeName(ActiveSheet) <> "Worksheet" Then Exit Sub If Dir(PictureFileName) = "" Then Exit Sub ' import picture Set p = ActiveSheet.Pictures.Insert(PictureFileName) ' determine positions With TargetCells t = .Top l = .Left End With ' position picture With p .Top = t .Left = l .Width = 300 .Height = 300 End With Set p = Nothing End Sub o problema é que ao inserir uma imag
  11. D_BOB

    Erro 1004

    Pessoal, criei uma função para fazer as bordas em minha planilha, conforme código abaixo: Public Function Borda() dim celulas as string celulas = "B6:Y7,Z6:AW7" Workbooks(nome_fila).Worksheets(plan_fila).Range(celulas).Borders(xlEdgeLeft).LineStyle = xlContinuous Workbooks(nome_fila).Worksheets(plan_fila).Range(celulas).Borders(xlEdgeLeft).Weight = xlThin Workbooks(nome_fila).Worksheets(plan_fila).Range(celulas).Borders(xlEdgeTop).LineStyle = xlContinuous Workbooks(nome_fila).Worksheets(plan_fila).Range(celulas).Borders(xlEdgeTop).Weight = xlThin Workbooks(nome_fila).Worksheets(plan_fila
  12. D_BOB

    declarar matriz

    pessoal, como declarar uma matriz de um tamanho que não é fixo? por exemplo, achei que se fizesse isso daria certo, mas não dá. i = 10 dim teste(i , 1) as string andei lendo em alguns foruns e achei que se declarasse dim teste () as string , funcionaria. mas dá o erro " subinscrito fora do intervalo quando tento usar a matriz. é possivel fazer isso, declarar sem definir um tamanho?
  13. D_BOB

    Conexão BD

    Pessoal, estou fazendo uma planilha que faz conexão com um bd, ao informar o data source como faço para informar que o bd está na mesma pasta da planilha que estou usando ao invés de ter que informar o vaminho como abaixo? Call cnconexao.Open("provider = microsoft.jet.oledb.4.0;" & " data source=C:\VBA\edu.mdb") obrigado
  14. D_BOB

    Line Style - Erro

    Olá amigos. Estou com um problema parecido, quando tento executar uma macro em algumas células aqui, acontece o mesmo erro. Isso é problema do excel ou é erro no código?
  15. D_BOB

    Total de dias do mês

    Bom dia pessoal , sou novo em vba e queria saber qual função eu uso para retornar o número de dias de um detrminado mês informado pelo usuario. obrigado.
×
×
  • Create New...