kuroi

nossa esse codigo você copiou do seu programa o digito não mao na hora de postar?? porque olha isso daqui: If Not rsSalar.EOF Then rsSlavar("NUM_Codigo_Situacao") = Aux rsSalvar.Update[/code] afinal qual o nome do seu recordset?? é rsSalar, rsSlavar ou rsSalvar?? bom mas levando em conta q o nome esteja certo no seu programa e você só errou na hora de postar, então acho q o seu select na deve estar retornando nd, verifica ai. pra ajudar poe um breakpoint (F9) na linha q testa o EOF e veja se não é EOF, va avancando com F8.

é, valeu.... pode ser menos pratico mas o publish web site vai funcionar aqui pra mim

isso é pra insert ou update?? você não adiciona outros campos alem desses?? o erro é só pra esses ou pros outros tb?? no caso do insert, você ta lembrando de chamar o método AddNew la em cima?? e você ta lembrando tb de chamar o método Update la em baxo??

hum... qual o componente q você ta usando?? não uso crystal com delphi, mas acredito q os componentes do crystal são os mesmos pras linguagens em geral, certo?? você está usando o Crystal Reports Control ou o Design Runtime Library ou qual outro??

é.

qual o tipo do campo hora_cadastro no banco de dados?? e qual o formato da data no maskedbox?? tipo ta HH:MM, HH:MM:SS, etc?? se no banco o formato tiver Data/Hora, tenta assim ó: tabela!hora_cadastro = CDate(maskhoracadastro.Text)

não sei de livro não, mas pega essa apostila q a andreia passou ó: http://scriptbrasil.com.br/forum/index.php...st&p=371980

mas nota q você ta abrindo a tabela com todos os registros. como você sabe qual deles você ta alterando?? em vez de: Set tabela = banco.OpenRecordset("tbcompromisso") não devia ser: Set tabela = banco.OpenRecordset("select * from tbcompromisso where cod_compromisso=" & coloque_aqui_o_codigo_do_registro_q_vc_quer_alterar) ??

mas você ta usando access ou sql??

então tenta: Select sum(case tipo when 0 then 1 else 0 end) As efetuadas, sum(case tipo when 1 then 1 else 0 end) As recebidas From crjj04

não entendi. você quer uma foto pra cada pessoa?? nesse caso você pode gravar a foto no banco de dados pra cada usuario num campo no formato Objeto OLE, como é ensinado nesse tutorial aqui: http://www.macoratti.net/img_bd.htm ai você só inclui essa tabela e poe o campo no report.

serio?? tem certeza?? e como ficou o código, ta exatamente como eu passei??

posta como ficou seu codigo.

hum, mas então... o q você sabe fazer?? você conhece visual basic ou vai comecar agora?? você sabe acessar banco de dados no vb?? nem via DAO (DAO é uma biblioteca antiga pra acesso a banco, o ADO é uma biblioteca mais recente e melhor)?? pra usar ADO recomendo você ler esse tutorial: http://www.macoratti.net/ado.htm na verdade, eu nunca tentei acessar o mysql num banco de dados remoto, mas você pode tentar passando o ip do servidor e mais o login e a senha corretas do bd na connectionstring correta, q você pode encontrar aqui: http://www.connectionstrings.com/?carrier=mysql (veja a opcao OLE DB, OleDbConnection (.NET) - Standard)

hum, explica as coisas direito. qual a sua duvida?? é como conectar no mysql?? ou é como fazer o form de login?? ou é como testar se a senha ta certa?? ou é tudo isso?? ou é outra coisa?? você vai usar ADO?? você sabe trabalhar com ADO?? tenho ainda umas otras 8303430 perguntas pra te fazer, pelo q você passou não sei exatamente o q você precisa.

mas q erro q da?? isso?? Set tabela = banco.OpenRecordset("Select * From tbcompromisso Where cod_compromisso = " & txtcodpesq.Text & " Or nome = '" & txtnome.Text & "'")

query significa qualquer comando em sintaxe sql pra trabalhar com banco de dados (qualquer string de select, insert, update é uma query). não uso DAO mas imagino q você teria q usar um RecordSet assim pra retorna-la: Set tabela = banco.OpenRecordset("Select Max(cod_contato) As ultimo From tbcontato") MsgBox "O último código é " & tabela!ultimo & vbCRLF & _ "e o próximo é " & tabela!ultimo + 1[/code]

a mas você ta usando o update errado. seria assim ó: rsSalvar.Open "select * FROM TABELA_Clientes WHERE TXT_DDD = '" & txtDDD.Text & "' and TXT_Telefone = '" & TxtTel.Text & "'", CN, 1, 3 rsSalvar("situacao") = txtSituacao.Text rsSalvar.Update[/code] ai, exatamente como esta alterando o campo situacao, você pode adicionar qualquer outro campo q precisar. os demais vao permancer co mesmo valor. pra essa linha funcionar: [code]rsSalvar.Open "select * FROM TABELA_Clientes WHERE TXT_DDD = '" & txtDDD.Text & "' and TXT_Telefone = '" & TxtTel.Text & "'", CN, 1, 3 a conexao (o objeto CN) tem q estar aberta.

se você fizer a query: Select Max(cod_contato) As ultimo From tbcontato você vai obter o ultimo codigo da tabela. pra saber qual o proximo a incluir é so somar mais 1.

ta mas então qual o problema?? essa consulta ta dando algum erro?? se esta, qual a mensagem?? ou se o seu problema é q você quer alterar tb o codigo auto-numeracao, então isso não é possivel. nesse caso, você teria q alterar no access e transformar pra numero normal.

cara, visual basic não tem essa de compiladores diferentes, o visual basic alem de linguagem tb é um programa onde você vai programar e o proprio software já compila pra você e etc. o visual basic foi ate a versao 6, então é esse q recomendo pra você, procure por ai pelo Visual Studio 6.0 apesar de, como você pode ler aqui: http://scriptbrasil.com.br/forum/index.php?showtopic=104831, o visual basic já ta ultrapassado, e, atualmente usamos o Visual Basic.NET. então, se for pra recomendar, do ponto de vista de como crescer como programador, recomendo q você esqueca o Visual Basic e comece a estudar .NET. alias, de preferencia nem VB.NET e sim o C#. apesar de q, como você pode ver no outro tópico, o Visual Basic 6 tem sim suas vantagens, como por exemplo, em programacao pra desktop (windows application) é muito mais usado no brasil do q o .NET, assim talvez signifique pra você mais chance de emprego, uma vez q, no brasil a maioria dos empregos em .NET são pra Asp.NET (programacao pra web). mas outra vantagem do Visual Basic 6 é q, para iniciantes é bem mais facil de aprender. assim, se você esta ainda aprendendo, comece então com o Visual Basic 6 e mais tarde recomendo então, as versoes .NET.

deu pra entender sim, mas não deu pra entender qual a sua duvida. se for pra saber se o valor é numerico ou não, use a funcao IsNumeric().

na verdade, assim q você faz o select, todos os campos do RecordSet vao estar com os valores do registro do banco, entende?? o metodo Update do RecordSet não faz nada mas do q substituir os dados do registro atual (o registro no BANCO DE DADOS a q o RecordSet aponta no momento) pelos dados q ele (o RecordSet) possui atualmente (pra cada campo). assim, se você fizer o select, não alterar nd e imediatamente chamar o metodo Update, ele atualizara o registro pelos valores atuais (ou seja, os mesmos), ou seja vai trocar o valor de cada campo pelo valor dele mesmo ficando, assim, exatamente a mesma coisa q estava antes do select. seguindo esse raciocinio, se você trocar apenas um campo (usando o codigo rs(Nome) = txtNome.text), depois do Update, ele vai substituir o valor desse campo pelo valor novo atribuido. e os demais campos vao ser substituidos pelo proprio valor deles mesmos (já q, se você não alterou via codigo, são esses os valores q o RecordSet possui), ou seja, vao permanecer inalterados. deu pra entender?? só não sei se era bem isso q você queria saber mas foi isso q entendi pela pergunta mas qualquer coisa posta ae... mas normalmente não faco update assim, faco por query mesmo (tipo "Update Tabela Set Campo1 = valor1, Campo2 = valor2 Where Codigo = valorcod")

isso?? Select tipo, count(tipo) As efetuadas From crjj04 Group By tipo

hum valeu kadosh achei aqui o Publish Web Site. mas lembro q quando eu usava o 2003 no trampo ele já tinha a pasta bin na mesma pasta do projeto e sempre q eu recompilava ele já substituia a dll. sera q isso era próprio do 2003, ou sera q era alguma configuracao q os caras tinham feito la?? sera q da pra fazer igual no 2005??