Leandro_Pirozzi

Galera não sei onde estou errando. Declerei as variaveis, mas diz q a conexao esta fechada ou é inválida. alguém me dê uma luz. Private Sub cmdcad_Click() Dim SQL As String Dim rsContato As ADODB.Recordset Dim cnContato As ADODB.Connection If Not Verifica_Contatos Then MsgBox "Campo obrigatório vazio, favor verificar.", vbInformation, "Atenção" Exit Sub End If Set rsContato = New ADODB.Recordset SQL = "INSERT INTO CONTATOS_CONTATO " SQL = SQL & "(CODEMP, NOMEMPRESA, NOMCONT, ANIVERSARIO, CARGOCONT, EMAILCONT, TELCONT, FAXCONT, RAMAL )" SQL = SQL & "VALUES ( '" & Me.txtcodemp.Text & "','" & Me.txtempresacont.Text & "', " SQL = SQL & "'" & Me.txtnomecont.Text & "' , " SQL = SQL & "'" & Me.txtcargocont.Text & "' , " SQL = SQL & "'" & Me.txtmailcont.Text & "' , " SQL = SQL & "'" & Me.txttelcont.Text & "' , " SQL = SQL & "'" & Me.txtramalcont.Text & "' , " SQL = SQL & "'" & Me.txtfaxcont.Text & "','" & Me.txtanivercont.Text & "')" Set rsContato.ActiveConnection = cnContato rsContato.Open SQL LimpaContato Verifica_Contatos MsgBox "Cadastro de contato efetuado com sucesso" End Sub

Opa, kuroi, achei o tópico aqui, tinha me perdido. Então eu não conheço como fazer esse selection formula. Na verdade eu so preciso que efetue uma busca de acordo com o valor que estiver selecionado no combo. Por exemplo o cbotarefa tem o valor = TELEFONAR então queria que quando apertar o botão gerar relatorio ele me trouxesse tudo que fosse na tarefa = TELEFONAR, será que deu pra entender essa minha dúvida? obrigado!

Bom dia!!! Estou desenvolvendo um sistema em vb6 com oracle e estou gerando relatórios em Crystal que eu nunca usei na vida. Minha dúvida é a seguinte, como faço por exemplo para puchar um relatório de empresas de acordo com o nome do funcionario. Por exemplo: Quero o relatorio de Tarefas do Funcionario Joao. Na parte de montar no Crystal ate consigo jogar os campos bonitinhos de acordo com as tabelas que vou precisar. mas ai esta a duvida, como o Crystal vai entender que eu quero o relatorio de Tarefas do Joao? Como fazer essa parte? isso é feito no vb? ou no Crystal? Como estou mechendo pela primeira vez com Crystal não sei por exemplo como fazer para que ele me traga na tela somente o relatorio de acordo com o usuário q eu selecionei. Obrigado!

como que seria esse jeito concatenando? Acho q vai ser a maneira eqto não descubro qual a função do oracle. Consegui fazer ele pelo Date() mesmo, obrigadao mas, o ruim q estou montando em cima do Access por eqto pra ganhar tempo, mas a base toda e ORACLE.

Que isso é um prazer, afinal aprendo todo dia algo diferente aqui e não tem nada melhor do que ajudar outras pessoas com o que aprendemos.

foi o q eu fiz, mas quando clico no grid existem registros de usuários diferentes, porém o que ele marcou no click não muda quando eu dou um click em outro registro do grid ele continua com os mesmos check marcados. Acontece que no BD quando esta checado ele joga o valor "X" e quando não está ele joga "0". Ai eu fiz assim. Public Function PreencheCheck() Dim rs As Recordset Dim strSQL As String strSQL = "select * from CONTATOS_PROPOSTA where CODEMP = '" & frmcademp.txtcodemp.Text & "'" Set rs = New Recordset rs.Open strSQL, gDB, adOpenStatic, adLockReadOnly If rs!SEGURO = "X" Then frmcademp.CheSeguro.Value = 1 else frmcademp.CheSeguro.Value = 0 End If If rs!CONTABIL = "X" Then frmcademp.CheContabil.Value = 1 else frmcademp.CheContabil.Value = 0 End If If rs!INVENTFISICO = "X" Then frmcademp.CheInvFis.Value = 1 else frmcademp.CheInvFis.Value = 0 End If If rs!RECADASTRO = "X" Then frmcademp.CheRecadastro.Value = 1 else frmcademp.CheRecadastro.Value = 0 End If If rs!CONFRONTO = "X" Then frmcademp.CheConfronto.Value = 1 else frmcademp.CheConfronto.Value = 0 End If If rs!AJUCONTABIL = "X" Then frmcademp.CheAjuContabil.Value = 1 else frmcademp.CheAjuContabil.Value = 0 End If If rs!EMPLAQ = "X" Then frmcademp.CheEmplaq.Value = 1 else frmcademp.CheEmplaq.Value = 0 End If If rs!CAUTELA = "X" Then frmcademp.CheCautela.Value = 1 else frmcademp.CheCautela.Value = 0 End If If rs!ECOFIN = "X" Then frmcademp.CheEcoFin.Value = 1 else frmcademp.CheEcoFin.Value = 0 End If If rs!FUNCOMERCIO = "X" Then frmcademp.CheFunComercio.Value = 1 else frmcademp.CheFunComercio.Value = 0 End If If rs!TECNO = "X" Then frmcademp.CheTecno.Value = 1 else frmcademp.CheTecno.Value = 0 End If If rs!ME = "X" Then frmcademp.CheMe.Value = 1 else frmcademp.CheMe.Value = 0 End If If rs!MU = "X" Then frmcademp.CheMu.Value = 1 else frmcademp.CheMu.Value = 0 End If If rs!EDIF = "X" Then frmcademp.CheEdif.Value = 1 else frmcademp.CheEdif.Value = 0 End If If rs!INSINDUSTRIAL = "X" Then frmcademp.CheInsIndustrial.Value = 1 else frmcademp.CheInsIndustrial.Value = 0 End If If rs!TERRENO = "X" Then frmcademp.CheTerreno.Value = 1 else frmcademp.CheTerreno.Value = 0 End If If rs!EQINF = "X" Then frmcademp.CheEqInf.Value = 1 else frmcademp.CheEqInf.Value = 0 End If If rs!VEICULO = "X" Then frmcademp.CheVeiculo.Value = 1 else frmcademp.CheVeiculo.Value = 0 End If If rs!ESPONTANEA = "X" Then frmcademp.CheEspo.Value = 1 else frmcademp.CheEspo.Value = 0 End If If rs!VENDA = "X" Then frmcademp.CheVenda.Value = 1 else frmcademp.CheVenda.Value = 0 End If If rs!MARCA = "X" Then frmcademp.CheMarca.Value = 1 else frmcademp.CheMarca.Value = 0 End If If rs!GARANTIA = "X" Then frmcademp.CheGarantia.Value = 1 else frmcademp.CheGarantia.Value = 0 End If If rs!PATRIMONIO = "X" Then frmcademp.ChePatri.Value = 1 else frmcademp.ChePatri.Value = 0 End If If rs!SIAV = "X" Then frmcademp.CheSiav.Value = 1 else frmcademp.CheSiav.Value = 0 End If If rs!SIPAV = "X" Then frmcademp.CheSipav.Value = 1 else frmcademp.CheSipav.Value = 0 End If If rs!BOOK = "X" Then frmcademp.CheBook.Value = 1 else frmcademp.CheBook.Value = 0 End If If rs!MIGRASISCONT = "X" Then frmcademp.CheMigra.Value = 1 else frmcademp.CheMigra.Value = 0 End If If rs!MANUALNORMA = "X" Then frmcademp.CheManual.Value = 1 else frmcademp.CheManual.Value = 0 End If If rs!DISPOESPEC = "X" Then frmcademp.CheDispo.Value = 1 else frmcademp.CheDispo.Value = 0 End If If rs!FERRADISPO = "X" Then frmcademp.CheFerra.Value = 1 else frmcademp.CheFerra.Value = 0 End If End Function

...

Dim lnX As Integer ' declara esse contador rs.MoveFirst lnX = 0 While Not rs.EOF Combo1.AddItem rs!cidade & "" Combo1.ItemData(lnX) = rs!ID_CIDADE lnX = lnX + 1 rs.MoveNext Wend Ai tenta fazer assim quando clicar. Text8.Text = Combo1.ItemData(lnX) veja se isso resolve.

Pessoal como fazer para armazenar o valor do check ?

a base é oracle, mas por eqto estou utilizando access.

Bom dia!!! Estou com uma dúvida. Estou utilizando MONTHVIEW e um MSFLEXGRID para exibir as tarefas das DATAS selecionadas no MONTHVIEW. Porém quando carrego o FORM ele vem com o MSFLEXGRID com a TAREFA que acabei SALVANDO. Existe a possibilidade de carregar somente as tarefas do DIA? Abaixo informo o codigo. Obrigado desde já! Private Sub MonthView1_DateClick(ByVal DateClicked As Date) Dim SQL As String Dim AppDate Dim icol As Integer Set rsTarefas = New ADODB.Recordset SQL = "SELECT * From CONTATOS_AGENDA WHERE DataTarefa =#" & SQLData(DateClicked) & "#" & " ORDER BY DataTarefa, Hora" & ";" Set rsTarefas.ActiveConnection = cnAgenda rsTarefas.Open SQL With MSFlexGrid1 .Rows = 1 .Cols = rsTarefas.Fields.Count For icol = 0 To rsTarefas.Fields.Count - 1 .Col = icol .Text = rsTarefas.Fields(icol).Name Next While Not rsTarefas.EOF ' preenche o grid com os dados do recordset .Rows = .Rows + 1 .Row = .Rows - 1 For icol = 0 To rsTarefas.Fields.Count - 1 .Col = icol .Text = rsTarefas(icol) & "" Next rsTarefas.MoveNext Wend .TextMatrix(0, 0) = "Código" .TextMatrix(0, 1) = "Equipe" .TextMatrix(0, 2) = "Tarefa" .TextMatrix(0, 3) = "Empresa" .TextMatrix(0, 4) = "Contato" .TextMatrix(0, 5) = "Data da Tarefa" .TextMatrix(0, 6) = "Hora" .FixedRows = 0 '.RowHeight(0) = .RowHeight(1) * 1.5 End With AjustaColunas MSFlexGrid1 rsTarefas.Close Set rsTarefas = Nothing End Sub Private Sub cmdcadtarefa_Click(Index As Integer) Dim SQL As String Dim icol As Integer Set rsTarefas = New ADODB.Recordset SQL = "INSERT INTO CONTATOS_AGENDA " SQL = SQL & "(Equipe, Tarefa, Empresa, Contato, DataTarefa, Hora )" SQL = SQL & "VALUES ( '" & txttarefas(0).Text & "','" & txttarefas(1).Text & "', " SQL = SQL & "'" & Me.txttarefas(4).Text & "' , " SQL = SQL & "'" & Me.txttarefas(5).Text & "' , " SQL = SQL & "'" & Me.txttarefas(2).Text & "','" & txttarefas(3).Text & "')" Set rsTarefas.ActiveConnection = cnAgenda rsTarefas.Open SQL LimpaTarefas End Sub Private Sub ExibeTarefas() Dim SQL As String Dim icol As Integer Set rsTarefas = New ADODB.Recordset SQL = "SELECT * FROM CONTATOS_AGENDA ORDER BY DataTarefa, Hora " Set rsTarefas.ActiveConnection = cnAgenda rsTarefas.Open SQL With MSFlexGrid1 ' aqui damos nome aos cabeçalhos das colunas .Rows = 1 .Cols = rsTarefas.Fields.Count For icol = 0 To rsTarefas.Fields.Count - 1 .Col = icol .Text = rsTarefas.Fields(icol).Name Next While Not rsTarefas.EOF 'atribuimos os valores dos campos as células do grid .Rows = .Rows + 1 .Row = .Rows - 1 For icol = 0 To rsTarefas.Fields.Count - 1 .Col = icol .Text = rsTarefas(icol) & "" Next rsTarefas.MoveNext Wend .TextMatrix(0, 0) = "Código" .TextMatrix(0, 1) = "Equipe" .TextMatrix(0, 2) = "Tarefa" .TextMatrix(0, 3) = "Empresa" .TextMatrix(0, 4) = "Contato" .TextMatrix(0, 5) = "Data da Tarefa" .TextMatrix(0, 6) = "Hora" .FixedRows = 0 '.RowHeight(0) = .RowHeight(1) * 1.5 End With AjustaColunas MSFlexGrid1 End Sub

Boa tarde, pessoal. Estou com uma dúvida. Na DataGrid gostaria de apenas selecionar o conteudo do campo HISTORICO que é exibido na DataGrid e passar para um campo textbox. Ou existe algum outro objeto que posso utilizar para exibir uma quantidade grande de texto? Vou passar o codigo da function que carrega os dados direitinho na DataGrid, porém não sei pegar o conteudo do campo HISTORICO, quem puder ajudar agradeço. Function Exibirativcont() Dim SQL As String Dim CN As ADODB.Connection Dim RS As ADODB.Recordset Set CN = New ADODB.Connection With CN .Provider = "Microsoft.Jet.OLEDB.4.0" .ConnectionString = "Data Source=F:\Advanced\CONTATOS.mdb" .Open End With Set RS = New ADODB.Recordset Set RS.ActiveConnection = CN RS.CursorLocation = adUseClient SQL = "Select CODEMP, CODCONTATO, ASSESSOR, EQUIPE, TAREFA, DATACONCLUIDA, HISTORICO, CARTA, HORA, IMPORT, CODIMP from CONTATOS_HISTORICO " & _ " WHERE CODEMP = '" & txtcodemp & "'" RS.Open SQL Set Me.DataGrid2.DataSource = RS End Function OPA! hahaha... eu tentei aqui e deu certo hahaha...nem acredito! vejam se é isso mesmo. Private Sub DataGrid2_DblClick() txthistorico.Text = DataGrid2.Columns(6) End Sub

entendido!! vou testar agorinha mesmo. vlw a dica. acho q comi bola em nome de campo mesmo.

Obrigado pelo resposta Raphael, mas não existe campo numérico, somente campo tipo TEXTO. STRING.

Depois de verificar e mudar no Access, permanece ainda o erro. update CONTATOS_EMPTESTE set CNPJ = '00000000000' , NOMEMPRESA = 'TELEFONICA S/A' , ENDEMPRESA = 'AV. MARQUES DE SÃO VICENTE, 288' , CEPEMPRESA = '01139-000' , DDD = '011' , TELEMPRESA = '111111' , FAXEMPRESA = '111111' , LIVRE = 'DO QUE?' , ID_EQUIPE = '26' , ID_TIPO = '5' , CODIGO = '11' , ID_CARGO = '20' , ID_PAIS = '1060' , ID_CIDADE = '182' , ID_UF = '26' , BAIEMPRESA = 'BELA VISTA' , DDDCIDADE = '011' , TELEFONE = '36628000' , DATALT = '29/1/2009' where CODEMP = '2498'

Obrigado pela resposta Kuroi, mas estou postando aqui o conteudo do Immediate. Os campos em branco estao entre ' '. ?strsql update CONTATOS_EMPTESTE set CNPJ = '00000000000' , NOMEMPRESA = 'TELEFONICA S/A' , ENDEMPRESA = 'AV. MARQUES DE SÃO VICENTE, 288' , CEPEMPRESA = '01139-000' , DDD = '011' , TELEMPRESA = '111111' , FAXEMPRESA = '111111' , LIVRE = 'SEM DADOS' , ID_EQUIPE = '26' , ID_TIPO = '' , CODIGO = '' , ID_CARGO = '' , ID_PAIS = '1060' , ID_CIDADE = '182' , ID_UF = '26' , BAIEMPRESA = 'BELA VISTA' , CONTATOS_CIDADE.DDD = 'SEM DADOS', CONTATOS_CIDADE.TELEFONE = 'SEM DADOS', DATALT = '29/1/2009' where CODEMP = '2498' tem idéia do q pode ser? Obrigado!

Se alguém puder me ajudar nessa função, agradeço. O erro é exibido quando carrego os dados e depois clico no botao alterar, quando peço pra atualizar pra salvar as novas modificações ele exibe esse erro: Nenhum valor foi fornecido para um ou mais parâmetros necessários Estou passando a função MODIFICADA acabei criando uma variavel para cada combo pois existiam 2 combos que não passavam o valor, agora passam valor, porém permanece o erro. Obrigado desde já. Function Atualizar_Empresa() Dim P As Integer Dim R As Integer Dim I As Integer Dim S As Integer Dim C As Integer Dim L As Integer Dim E As Integer Dim rs As ADODB.Recordset Dim lcID_EQUIPE As String Dim lcTIPO As String Dim lcCODIGO As String Dim lcID_CARGO As String Dim lcID_PAIS As String Dim lcPAIS As String Dim lcID_CIDADE As String Dim lcID_UF As String If Not Verifica_Campos Then MsgBox "Campo obrigatório vazio, favor verificar.", vbInformation, "Atenção" Exit Function End If Dim strSQL As String If Controle = "Novo" Then strSQL = "select CODEMP from CONTATOS_EMPTESTE where CODEMP = '" & Me.txtcodemp.Text & "'" Set rs = New ADODB.Recordset rs.Open strSQL, gDB, adOpenStatic, adLockReadOnly If rs.RecordCount > 0 Then MsgBox "ID Empresa já existente!", vbExclamation, "Atenção" Me.txtcodemp.SetFocus Exit Function End If strSQL = "insert into CONTATOS_EMPTESTE " strSQL = strSQL & "(CODEMP, CNPJ, NOMEMPRESA, ENDEMPRESA, CEPEMPRESA, DDD, TELEMPRESA, FAXEMPRESA " strSQL = strSQL & " LIVRE, EQUIPEMP, CATEGORIAEMP, TIPOCARTA, CARGO, PAISEMP, CIDADEMP " strSQL = strSQL & " UFCIDADE, BAIEMPRESA, DDDCIDADE, TELCONTCIDADE, DATAINC, DATALT )" strSQL = strSQL & "VALUES ( '" & txtcodemp.Text & "','" & txtcnpj.Text & "', " strSQL = strSQL & "'" & Me.txtempresa.Text & "' , " strSQL = strSQL & "'" & Me.txtend.Text & "' , " strSQL = strSQL & "'" & Me.txtCep.Text & "' , " strSQL = strSQL & "'" & Me.txtddd.Text & "' , " strSQL = strSQL & "'" & Me.txtcontato.Text & "' , " strSQL = strSQL & "'" & Me.txtfax.Text & "' , " strSQL = strSQL & "'" & Me.txtlivre.Text & "' , " strSQL = strSQL & "'" & Me.cboequipe.ItemData(Me.cboequipe.ListIndex) & "' , " strSQL = strSQL & "'" & Me.cbonumfunc.ItemData(Me.cbonumfunc.ListIndex) & "' , " strSQL = strSQL & "'" & Me.cbocarta.ItemData(Me.cbocarta.ListIndex) & "' , " strSQL = strSQL & "'" & Me.cbocargo.ItemData(Me.cbocargo.ListIndex) & "' , " strSQL = strSQL & "'" & Me.cbopais.ItemData(Me.cbopais.ListIndex) & "' , " strSQL = strSQL & "'" & Me.cbocidade.ItemData(Me.cbocidade.ListIndex) & "' , " strSQL = strSQL & "'" & Me.cboUF.ItemData(Me.cboUF.ListIndex) & "' , " strSQL = strSQL & "'" & Me.txtbairro.Text & "' , '" & Me.txtdddcad.Text & "', " strSQL = strSQL & "'" & Me.txttelefone.Text & "' , " strSQL = strSQL & "'" & Date & "')" Else strSQL = "update CONTATOS_EMPTESTE " strSQL = strSQL & " set CNPJ = '" & txtcnpj.Text & "' , " strSQL = strSQL & " NOMEMPRESA = '" & Me.txtempresa.Text & "' , " strSQL = strSQL & " ENDEMPRESA = '" & Me.txtend.Text & "' , " strSQL = strSQL & " CEPEMPRESA = '" & Me.txtCep.Text & "' , " strSQL = strSQL & " DDD = '" & Me.txtddd.Text & "' , " strSQL = strSQL & " TELEMPRESA = '" & Me.txtcontato.Text & "' , " strSQL = strSQL & " FAXEMPRESA = '" & Me.txtfax.Text & "' , " strSQL = strSQL & " LIVRE = '" & Me.txtlivre.Text & "' , " For P = 0 To Me.cboequipe.ListCount If Me.cboequipe.List(P) = Me.cboequipe.Text Then lcID_EQUIPE = Me.cboequipe.ItemData(P) Exit For Else lcID_EQUIPE = "" End If Next strSQL = strSQL & " ID_EQUIPE = '" & lcID_EQUIPE & "' ," For R = 0 To Me.cbonumfunc.ListCount If Me.cbonumfunc.List® = Me.cbonumfunc.Text Then lcTIPO = Me.cbonumfunc.ItemData® Exit For Else lcTIPO = "" End If Next strSQL = strSQL & " ID_TIPO = '" & lcTIPO & "' , " For I = 0 To Me.cbocarta.ListCount If Me.cbocarta.List(I) = Me.cbocarta.Text Then lcCODIGO = Me.cbocarta.ItemData(I) Exit For Else lcCODIGO = "" End If Next strSQL = strSQL & " CODIGO = '" & lcCODIGO & "' , " For S = 0 To Me.cbocargo.ListCount If Me.cbocargo.List(S) = Me.cbocargo.Text Then lcID_CARGO = Me.cbocargo.ItemData(S) Exit For Else lcID_CARGO = "" End If Next strSQL = strSQL & " ID_CARGO = '" & lcID_CARGO & "' , " For C = 0 To Me.cbopais.ListCount If Me.cbopais.List© = Me.cbopais.Text Then lcID_PAIS = Me.cbopais.ItemData© Exit For Else lcPAIS = "" End If Next strSQL = strSQL & " ID_PAIS = '" & lcID_PAIS & "' , " For L = 0 To Me.cbocidade.ListCount If Me.cbocidade.List(L) = Me.cbocidade.Text Then lcID_CIDADE = Me.cbocidade.ItemData(L) Exit For Else lcID_CIDADE = "" End If Next strSQL = strSQL & " ID_CIDADE = '" & lcID_CIDADE & "' , " For E = 0 To Me.cboUF.ListCount If Me.cboUF.List(E) = Me.cboUF.Text Then lcID_UF = Me.cboUF.ItemData(E) Exit For Else lcID_UF = "" End If Next strSQL = strSQL & " ID_UF = '" & lcID_UF & "' , " strSQL = strSQL & " BAIEMPRESA = '" & Me.txtbairro.Text & "' , " strSQL = strSQL & " DDDCIDADE = '" & Me.txtdddcad.Text & "' , " strSQL = strSQL & " TELEFONE = '" & Me.txttelefone.Text & "' , " strSQL = strSQL & " DATALT = '" & Date & "'" strSQL = strSQL & " where CODEMP = '" & txtcodemp.Text & "'" End If gDB.Execute strSQL If gDB.Errors.Count <> 0 Then MsgBox "Problemas na atualização da Empresa!", vbExclamation, "Atenção" Call Limpa_Campos Me.txtcodemp.BackColor = &H80000005 Me.txtempresa.BackColor = &H80000005 Else MsgBox "Empresa atualizada com sucesso", vbInformation, "Atenção" Call Limpa_Campos Me.txtcodemp.BackColor = &H80000005 Me.txtempresa.BackColor = &H80000005 End If Call Habilita_Campos(False) Call Controle_botoes(True, frmcademp) End Function