Leandro_Pirozzi

alguém sabe como me ajudar? POis o campo no TTX esta como MEMO e no BD Oracle VARCHAR2(4000). Tentei mudar a opção do driver porem uso oracle8i e não tem opção no crystal para Oracle8 somente 7 pdsora7.dll. Ai esta na opção padrão mesmo PDSMON.DLL. alguém tem idéia do que fazer para sair o conteudo completo do campo ao invés de 255 caracteres? obrigado!!

alguém pode me ajudar? Comigo acontece o mesmo problema porém meu banco é Oracle. No campo do text ele mostra todo o conteudo, porém no Crystal Reports quando peço o relatório ele corta o texto. alguém sabe me dizer o porque? O campo no Crystal esta como MEMO e na base de dados ele é um VARCHAR2(4000). Obrigado.

Como faço isso em um INSERT? pra guardar o valor do opt selecionado no campo SEXO? SQL = "INSERT INTO PF " SQL = SQL & "( NOME, CPF, NASCIMENTO, SEXO, EST_CIVIL, DEPENDENTE, PROFISSAO, PAI, MAE, IDENTIDADE, ORG_EXP, ESTADO, DATA_EMIS, UF, CART_PROF, SERIE, UF_CART_PROF, TEMPO_RESID, OPERADOR, DATA_INC)" SQL = SQL & "VALUES ( '" & Me.txtnome.Text & "', '" & Me.txtcpf.Text & "', " SQL = SQL & "'" & Me.txtdat_nasc.Text & "' , " SQL = SQL & "'" & Me.optF(i).Value & "' , "

Bom dia galera. Estou com uma dúvida, tenho uma tabela que tem o campo SEXO. Ai no form adicionei dois opt(0) e opt(1), gostaria de saber como faço no INSERT para buscar o valor do que foi selecionado ou será necessário criar um outro campo na tabela pra guardar cada um em um campo? obrigado!

Galera bom dia!! alguém sabe como utilizar o objeto do VB6 ButtonBar? Obrigado!!

Galera como posso fazer para quando o usuário clicar no Combo de Cidades ele automaticamente mudar o valor do Combo de UF? No evento CLICK do Combo Cidades fiz da seguinte maneira: Mas continua exibindo todas as UFS, não só as do select. Dim rs As Recordset Dim strsql As String Dim lnX As Currency strsql = "select UF " strsql = strsql & " from CONTATOS_CIDADE" strsql = strsql & " where NOME = '" & frmcademp.cbocidade.Text & "'" Set rs = New ADODB.Recordset rs.Open strsql, gDB, adOpenStatic, adLockReadOnly If rs.EOF And rs.BOF Then MsgBox "Nenhum registro cadastrado na tabela de CIDADES" Else frmcademp.cboUF.Text = rs!UF Exit Sub End If rs.MoveFirst lnX = 0 While Not rs.EOF frmcademp.cboUF.AddItem rs!UF & "" frmcademp.cboUF.ItemData(lnX) = rs!ID_CIDADE lnX = lnX + 1 rs.MoveNext Wend

Opa consegui!! Segue o codigo: Só uma pergunta. alguém sabe qual DLL ou OCX devo chamar para: Dim mObjWord As Object Set mObjWord = CreateObject("Word.Application") 'Qual DLL ou OCX devo adicionar para gerar o SETUP do meu sistema??? mObjWord.Documents.Open strCaminho mObjWord.ActiveDocument.Activate mObjWord.ActiveDocument.Application.Visible = True mObjWord.ActiveDocument.SaveAs File1.FileName

Opa!! Resolvi, sabe o que era? Na hora de gerar os arquivos para instalação esqueci de por as imagens e os relatórios ai só foram os arquivos .dll, .ocx, .exe. Ai joguei a pasta de imagens e os relatórios e olha, foi belezinha!!! Obrigadão.

Bom dia galera, seguinte: Estou utilizando esse código para abrir documento do Word no VB6. Dim mObjWord As Object Set mObjWord = CreateObject("Word.Application") mObjWord.Documents.Open ("C:\Documents and Settings\Lpirozzi\Desktop\QUESTIONÁRIO PARA ELAB PROPOSTA Modelo.doc") mObjWord.ActiveDocument.Activate mObjWord.ActiveDocument.Application.Visible = True mObjWord.Selection.Font.Size = 8 mObjWord.Selection.InsertAfter ("1º linha") mObjWord.Selection.InsertAfter (vbNewLine & vbNewLine) mObjWord.Selection.MoveRight (3) ' seta pra baixo mObjWord.Selection.MoveRight (3) ' seta pra baixo mObjWord.Selection.MoveRight (3) ' seta pra baixo mObjWord.Selection.Font.Size = 10 'pra mandar imprimir 'mObjWord.ActiveDocument.PrintOut Background:=False ' , , , , , , 2 'pra salvar como mObjWord.ActiveDocument.SaveAs ("C:\Teste\Lixo2.doc") 'pra fechar o documento original sem salvar ' mObjWord.ActiveDocument.Close SaveChanges:=0 '0=wdDoNotSaveChanges 'fechando o word ' mObjWord.Quit ' Set mObjWord = Nothing Quando passo o nome do doc no code abre belezinha. Agora gostaria de saber como posso deixar para que o usuário selecione aquelas caixas de diretórios C:\, D:\...? E Exibir o conteúdo por exemplo numa Listbox e quando usuário der um dblclick abrir o documento direto no Word. isso é possível? Alguém pode me ajudar? Obrigado!!!

Até consegui, mas mostra erro quando tento abrir relatórios e quando peço para procurar no banco. O meu P & D Wizard fica rodando, rodando e não carrega nada na pasta Support é normal isso? Fica assim: Writing setup.lst file... ai fica passando como se estivesse copiando os arquivos, mas não sai disso. Galera como fica somente nessa tela, fiz um teste em um outro projeto que eu tinha pronto, porém não tem tantos recursos e esse projeto ele gerou os instaladores na boa. O que pode ser que está acontecendo?

Cara faz o seguinte põe um breakpoint lá no update e depois vai apertando F8 e posicionando o mouse nos texts, para ver o conteúdo deles. Provavelmente o erro está em um desses campos onde voce disse que são optativos.

Bom se eu entendi sua pergunta é o seguinte: Voce nas propriedades do text tem a opção Multiline, deixe ela em True e no Alignment deixa na opção 1- Right Justify. E veja se é isso que voce deseja. qualquer coisa posta ae denovo.

Até consegui, mas mostra erro quando tento abrir relatórios e quando peço para procurar no banco. O meu P & D Wizard fica rodando, rodando e não carrega nada na pasta Support é normal isso? Fica assim: Writing setup.lst file... ai fica passando como se estivesse copiando os arquivos, mas não sai disso.

Ate consegui criar um instalador, mas quando cliquei para abrir relatorios deu Erro Invalid file name e fechou a aplicação. Se alguém tiver uma apostila ou um tutorial ai passo a passo utilizando o Inno setup eu agradeceria. Vlw

Boa tarde galera! Seguinte estou com a base em Oracle. E o campo é varchar2(2000). Mas quando monto relatórios no Crystal ele somente fica como STRING em 255 Estou utilizando .TTX. Alguém tem idéia de qual tipo de dados posso usar para não cortar o texto em 255 caracteres?? Obrigado!!

RESOLVIDO GALERA!! TENTEI PASSAR PARA CURRENCY, MESMO ASSIM não DEU. Dim lnX As Currency Então carreguei tudo em um GRID, ao invés de carregar em um combo box. Ai foi belezinha!!! Vlwww galera!!!

Galera estou com esse erro. OVERFLOW ACREDITO EU QUE SEJA MTA INFORMAÇÃO PARA SER CARREGADA EM UM COMBOBOX, POIS ELE PARA NO REGISTRO DE NUMERO 32768. alguém PODE ME DAR UMA DICA?? OBRIGADO!! Segue o codigo Public Sub MontaCOMBO1(frm As Form) Dim rs As Recordset Dim strSQL As String Dim lnX As Double strSQL = "select * " strSQL = strSQL & " from CONTATOS_HISTORICO1" ' strSQL = strSQL & " order by ID_PROP" frm.COMBO1.Clear Set rs = New ADODB.Recordset rs.Open strSQL, gDB, adOpenStatic, adLockReadOnly If rs.EOF And rs.BOF Then MsgBox "Nenhum registro cadastrado na tabela de Categorias" Exit Sub End If rs.MoveFirst lnX = 0 While Not rs.EOF frm.COMBO1.AddItem rs!CODEMP & "" frm.COMBO1.ItemData(lnX) = rs!ID_HIST [b] lnX = lnX + 1[/b] AQUI É ONDE ELE PARA. rs.MoveNext Wend End Sub

Opa obrigado! Mas mesmo assim ele atualiza a tabela toda. Tá estranho demais. AHHHHHHH AGORA FOI UHAAHUA... POUTS Q ALIVIO, DESSA EU não SABIA MESMO. EU TINHA COMIDO BOLA, COMO ELE ESTAVA ATUALIZANDO A TABELA TODA, TODOS OS CAMPOS FICARAM IGUAIS, POR ISSO ELE ESTAVA DEMORANDO E ATUALIZANDO TUDO. AGORA JOGUEI A TABELA DE NOVO E FIZ O UPDATE, AI FOI UMA BELEZINHA não SABIA Q PODIA UTILIZAT O WHERE EM UPDATE. valeu MESMO!! OBRIGADÃO, MAIS UMA Q APRENDI!!!

Opa obrigado! Mas mesmo assim ele atualiza a tabela toda. Tá estranho demais.

como adiciono um Where no UPDATE pode me ajudar?

Boa tarde galera. Seguinte: porque meu UPDATE atualiza todos os campos da tabela ao invés de atualizar somente o campo que foi selecionado no COMBO??? No caso seleciono os dados da tabela de EMPRESAS e busco o NOME DA EMPRESA, ASSESSOR e a EQUIPE desta empresa e preciso INCLUIR esses valores na tabela PROPOSTAOK, então quando seleciona o campos no COMBO e clica no botao selecionar, ele exibe os dados no grid, ai clicando no grid ele alimenta os 3 texts que eu preciso para atualizar a tabela PROPOSTAOK. Mas quando clico no botao UPDATE ele simplesmente atualiza todos os 3 campos, porém da tabela toda ao ivés do campo que eu tinha selecionado no COMBO. Vou exibir um exemplo: Aqui era pra atualizar o CODIGO 29 que seria a empresa 'AES SUL - DISTRIBUIDORA GAÚCHA DE ENERGIA S/A, com ASSESSOR RUTE e EQUIPE RUTE, porem atualiza toda a tabela. UPDATE CONTATOS_PROPOSTAOK set EMPRESA = 'AES SUL - DISTRIBUIDORA GAÚCHA DE ENERGIA S/A' , ASSESSOR = 'RUTE' , EQUIPE = 'RUTE' Aqui ele esta jogando os valores do select para os TEXTS.Private Sub GridEX1_Click() Text1.Text = rsselec!ASSESSOR & "" Text2.Text = rsselec!EQUIPE & "" Text3.Text = rsselec!NOMEMPRESA & "" End Sub Aqui onde ele faz o select Public Function SELECIONA() Dim SQL As String Set cnselec = New ADODB.Connection With cnselec .Provider = "MSDAORA.1;Password=xxxx;User ID=marketing;Data Source=ORCL" ' .Provider = "Microsoft.Jet.OLEDB.4.0" ' .ConnectionString = "Data Source=" & App.Path & "\CONTATOS.mdb;" .Open End With Set rsselec = New ADODB.Recordset Set rsselec.ActiveConnection = cnselec rsselec.CursorLocation = adUseClient SQL = "SELECT NOMEMPRESA, ASSESSOR, EQUIPE FROM CONTATOS_EMPRESA WHERE CODEMP = '" & COMBO1.Text & "'" rsselec.Open SQL ' Set Me.DataGrid3.DataSource = rsprop Set Me.GridEX1.ADORecordset = rsselec If rsselec.EOF Then ' DataGrid3.Visible = False GridEX1.Visible = False Else ' DataGrid3.Visible = True GridEX1.Visible = True End If End Function Aqui é onde faz o update. Dim SQLins As String Dim icol As Integer Set cnpropok = New ADODB.Connection With cnpropok .Provider = "MSDAORA.1;Password=xxxx;User ID=marketing;Data Source=ORCL" .Open End With Set rspropok = New ADODB.Recordset Set rspropok.ActiveConnection = cnpropok rspropok.CursorLocation = adUseClient Set rspropok = New ADODB.Recordset SQLins = "UPDATE CONTATOS_PROPOSTAOK set " SQLins = SQLins & "EMPRESA = '" & Text3.Text & "' , " SQLins = SQLins & "ASSESSOR = '" & Text1.Text & "' , " SQLins = SQLins & "EQUIPE = '" & Text2.Text & "'" cnpropok.Execute SQLins MsgBox "Alteração de proposta efetuado com sucesso" Call SELECIONA Onde errei? obrigado!!!

Então Kuroi o Inner Join não tem em Oracle. O jeito foi fazer sem like, mesmo. Não teve jeito. Obrigadão.

Bom dia galera. Mudei de Access para Oracle e o pesquisar não funciona mais. O cadastro é efetuado normalmente, porém a busca não retorna nada. segue o código: SQL = "SELECT A.*, C.CARGOCONT, C.TELCONT " & _ " FROM CONTATOS_EMPRESA A, CONTATOS_CONTATO C " & _ " WHERE A.NOMEMPRESA like '%" & frmcademp.txtempresa.Text & "%'" & _ " AND C.NOMEMPRESA = A.NOMEMPRESA"

No Crystal voce tem os campos onde vai montar o relatório. Provavelmente voce esta adicionando o que precisa na opção: "Details" por isso ele exibe vários em uma mesma página. Tenta fazer o seguinte, não sei como é seu relatório, mas uma maneira que voce consegue resolver isso é adicionando os campos que voce precisa ao invés de jogar nos DETAILS, adicona eles no PAGE HEADER. Tenta ai qualquer coisa posta aqui de novo. falou

Opa!! Agora simmmm.. Foi direitinho!! 'Function Private Function Converte(valor As String) As Double Dim r As Double If Not IsNumeric(valor) Then r = 0 Else r = CDbl(valor) End If Converte = r End Function 'Calculos Private Sub txttotEC_LostFocus() Text2.Text = Converte(txtcustoEC.Text) * Converte(txttotEC.Text) txttotEC.Text = Converte(txtcustodiasEC.Text) * Converte(txtcustoqtdeEC.Text) Text6.Text = Converte(Text2.Text) + Converte(Text3.Text) + Converte(Text4.Text) + Converte(Text5.Text) Text7.Text = Converte(txttotEC.Text) + Converte(txttotEM.Text) + Converte(txttotTEC.Text) + Converte(txttotCONC.Text) End Sub E no evento change do text defini o formato: Private Sub Text2_Change() Text2.Text = Format(Text2, "###,###,##0.00") End Sub Obrigadão mesmo a todos que me ajudaram. To postando aqui a imagem de como ficou. porque sei que ainda mtas pessoas vao ter essa dúvida que ficou muito bem claro como pode ser resolvida! Se não fossem vocês o que seria de mim???? Vlw galera!!