D_BOB
-
Total de itens
16 -
Registro em
-
Última visita
Posts postados por D_BOB
-
-
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.
-
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©);
}
-
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?
-
Ok pessoal, mas eu preciso trabalhar com variaveis nas linha e nas colunas.
-
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
-
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
-
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
{
textBox1.Text = "1";
}
conn.Close();
}
catch //Se não conseguir abrir a conexao executa o comando abaixo
{
MessageBox.Show("Não foi possivel estabelecer a conexão com o banco!", "Erro de conexão", MessageBoxButtons.OK, MessageBoxIcon.Error);
}
pelo que vi, teoricamente a linha if (dr.Read()) resolveria meu problema, mas ela sempre retorna true
tentei if (dr.HasRows) e tb só retorna true
e outrar milhares de tentativas com outras formas de codigo e nada...
alguém pode me ajudar
uso c# e sql server, obrigado
-
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
Next
For Each Pasta In aqui.SubFolders
Varre (Pasta.Path)
Next
End Function
no seu caso é só adaptar o codigo para jogar o arquivo na matriz e não na planilha.
-
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 imagem com resolução 300 x 50, os valores atribuidos nas propriedades .Width e .Height não redimenciona a imagem, qual propriedade que eu ainda tenho que adicionar?
desde já obrigado.
-
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).Range(celulas).Borders(xlEdgeBottom).LineStyle = xlContinuous
Workbooks(nome_fila).Worksheets(plan_fila).Range(celulas).Borders(xlEdgeBottom).Weight = xlThin
Workbooks(nome_fila).Worksheets(plan_fila).Range(celulas).Borders(xlEdgeRight).LineStyle = xlContinuous
Workbooks(nome_fila).Worksheets(plan_fila).Range(celulas).Borders(xlEdgeRight).Weight
End Function
ok o código funciona perfeitamente, até eu fechar a planilha. quando abro novamente ele apresenta:
"erro em tempo de execução '1004'
Não é possível definir a propriedade weight da classe border"
e não funciona mais, se eu abrir uma nova planilha, e copiar o codigo pra lá, o codigo volta a rodar, se eu fechar e abrir de novo, para tudo. Alguém tem alguma ideia?
-
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?
-
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
-
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?
-
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.
-
Bom dia a todos,
sou novo aqui no forum e estou com um problema, eu tenho um formulario que é carregado no momento em que a planilha é aberta e quando o form é fechado a planilha também é fechada para que o usuario não tenha acesso a planilha, mas o problema é que eu não consigo desabilitar o uso do ALT + F4 no form, eu pesquisei aqui no forum e tudo que encontrei foi como desabilita-lo na planilha.
que linha de código posso utilizar para desabilitar o uso do ALT + F4 quando um determinado FORM estiver ativo?
desde já obrigado pela atenção.
Crystal reports + listview
em .NET
Postado
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.