Cassiano Sousa
Membros-
Total de itens
6 -
Registro em
-
Última visita
Sobre Cassiano Sousa
Cassiano Sousa's Achievements
0
Reputação
-
Como Personalizar Página No crystal 8.0 para windows XP
uma questão postou Cassiano Sousa Crystal Reports
Pessoal, estou com esse problema. Eu desenvolvi este relatório há muito tempo atrás para ser usado no Windows 98. O mesmo funcionava direitnho. Na configuração da impressora era possivel personalizar o papel na medida que eu desejava. Acontece que eu não estou conseguindo isso no XP. Simplismente o mesmo arquivo está imprimindo como se fosse A4. alguém tem alguma solução pra isso? Desde já agradeço a oportunidade deste forum. Cassiano Sousa -
Estou precisando buscar quando uso o INSERT INTO em uma tabela com campo chave primaria autonumerador o numero q foi recebido para adicionar em uma tabela filho.A operação não pode ser com select porque funciona em rede... O bd é access 2000 usando ADO para acesso. Aguardo alguma orientação. Obrigado Editando: Verifiquei isto no macoratti.net: Nota: O Microsoft Access não suporta parâmetros de saída (output parameters) e não pode processar múltiplas instruções em uma única operação de lote. Para estes tipos de banco de dados podemos obter o novo valor para o campo auto-numeração gerado para uma linha incluída executando uma instrução SELECT em um tratamento de evento para o evento RowUpdated de um DataAdapter. Isto significa q eu não posso fazer o q eu tava querendo?
-
você pode botar em qualquer objeto testo desta maneir: <objeto> = format$(<informacao>,"##0.00")
-
Desculpe intrometer aki. Acho q tenho uma função aki pronta pra você usar pro list view Se não for issi q estah procurando me desculpe: 'Esta funçao serve para conectar o recordset Function GerarComando(Texto As String) As ADODB.Command Dim Cmd As New ADODB.Command Cmd.ActiveConnection = Conexao Cmd.CommandText = Texto Cmd.CommandType = adCmdText Set GerarComando = Cmd Set Cmd = Nothing End Function 'Com esta funcao você pode listar com um sql qualquer objeto listview. Ele cria a tabela com seu respectivo tamanho calculado e depois conecta o recordset e envia as informações. Sub ListarSQL(Obj As ListView, Texto As String, Tela As Form) Dim Rs As New ADODB.Recordset Dim clmx As ColumnHeader Dim Itmx As ListItem Dim I As Long Tela.MousePointer = vbHourglass Rs.Open GerarComando(Texto), , adOpenStatic Obj.ListItems.Clear Obj.ColumnHeaders.Clear For I = 0 To Rs.Fields.Count - 1 Step 1 If Rs.Fields(I).Type = adBigInt Or Rs.Fields(I).Type = adInteger Then Set clmx = Obj.ColumnHeaders.Add(, , Rs.Fields(I).Name, 800) ElseIf Rs.Fields(I).Type = adVarWChar Or Rs.Fields(I).Type = adChar Then If Rs.Fields(I).DefinedSize >= 100 Then Set clmx = Obj.ColumnHeaders.Add(, , Rs.Fields(I).Name, Rs.Fields(I).DefinedSize * 30) ElseIf Rs.Fields(I).DefinedSize >= 50 Then Set clmx = Obj.ColumnHeaders.Add(, , Rs.Fields(I).Name, Rs.Fields(I).DefinedSize * 50) ElseIf Rs.Fields(I).DefinedSize >= 5 Then Set clmx = Obj.ColumnHeaders.Add(, , Rs.Fields(I).Name, Rs.Fields(I).DefinedSize * 120) Else Set clmx = Obj.ColumnHeaders.Add(, , Rs.Fields(I).Name, Rs.Fields(I).DefinedSize * 600) End If ElseIf Rs.Fields(I).Type = adDate Then Set clmx = Obj.ColumnHeaders.Add(, , Rs.Fields(I).Name, Rs.Fields(I).DefinedSize * 250) ElseIf Rs.Fields(I).Type = adBoolean Then Set clmx = Obj.ColumnHeaders.Add(, , Rs.Fields(I).Name, Rs.Fields(I).DefinedSize * 300) ElseIf Rs.Fields(I).Type = 203 Then Set clmx = Obj.ColumnHeaders.Add(, , Rs.Fields(I).Name, 1000) Else MsgBox "O Campo " & Rs(I).Name & " é de um tipo desconhecido" End If Next I If Rs.RecordCount > 0 Then Rs.MoveFirst Do While Not Rs.EOF Set Itmx = Obj.ListItems.Add(, , Rs(0)) For I = 1 To Rs.Fields.Count - 1 If Rs(I).Type = adBoolean Then If Rs(I) = True Then Itmx.SubItems(I) = "SIM" Else Itmx.SubItems(I) = "NÃO" Else If Not IsNull(Rs(I)) Then Itmx.SubItems(I) = Rs(I) End If End If Next I Rs.MoveNext Loop End If Set Rs = Nothing Tela.MousePointer = vbDefault End Sub 'Agora se você quer colocar uma cor eu tenho outra função aki: Sub CorGridNovo(Obj as Listview,cor As ColorConstants, Chave As Long) Dim A As Integer Obj.ListItems.Item(Chave).ForeColor = cor For A = 1 To Obj.ColumnHeaders.Count -1 Step 1 Obj.ListItems(Chave).ListSubItems.Item(A).ForeColor = cor Next A End Sub Realmente para backcolor não funciona mas para forecolor sim Se tiver algum erro me avisa. Mais uma vez desculpe se não for isso e pela intromissao.
-
Olha não sei se tem uma maneira + facil. você pode somar usando a função DateAdd() Automaticamente você ira verificar a nova data. Depois você usa a funcao weekday() Com a weekday, ele retorna o numero da semana sendo 1 para domingo e 7 para sabado Se for sabado você manda adicionar mais 2 dias, se for domingo adicione + 1. Espero ter ajudado no que entendi
-
Boa tarde gente. Desculpe se eu não inseri a minha dúvida em algum tópico correto, pois eu não encontrei um tópico referente meu problema. Eu tenho um programa q usa as seguintes ocxs: mscomm32.ocx e cibervert.ocx(ocx de menu vertical). Este programa já roda normalmente no windows xp e foi desenvolvido en vb 6.0. Acontece que estou tentando instalar no windows vista em um notebook e o programa da erro nos dois componentes. já tentei registrar com o regsvr32 e os dois componentes dão falha na biblioteca. Detectei que o vista não usa a dll msvbvm50.dll e instalei e registrei a mesma no vista e ela funcionou e registrou corretamente. Porem continua o problema nos componentes. Gostaria que quem soubesse resolver este problema por favor informe aki. agradeço desde já a oportunidade q temos neste forum de resolver nossos problemas. Cassiano