kuroi

ai de um Close no RecordSet antes de abrir (antes da linha rs.Open sql, bd, adOpenStatic, adLockOptimistic). ou simplesmente troque a linha rs.Open sql, bd, adOpenStatic, adLockOptimistic por Set rs = bd.Execute(sql)

mas é só fazer a mesma coisa, sem precisar setar o row. assim q o usuario seleciona uma linha qualquer do grid, a propriedade Row do grid já muda automaticamente e armazena a linha selecionada. pelo menos é assim no DataGrid, imagino q o DbGrid seja igual. mas de qualquer forma você tb pode pegar pelos dados do RecordSet.

a mas você não pode fechar o RecordSet depois. quando você seta o RecordSet no DataGrid, o grid fica vinculado com o RecordSet. assim q você fechar o RecordSet ele não vai ter mais nada, por consequencia o grid tb não. você não pode fechar o RecordSet e muito menos a conexao. só feche os dois na hora q você não precisar mais mostrar nd no grid.

hum pensei q Text1 fosse uma textbox. antes do Find, de sempre um MoveFirst pra ir pro primeiro registro. porque ele comeca a procurar a partir da posicao atual do recordset. faca tipo assim: ado.RecordSet.MoveFirst ado.Recordset.Find "paciente= ' " & Text1 & " ' "[/code]

mas tipo assim. tem q ver o q você quer dizer com servidor e cliente nesse caso. se o cara criou a sala, ele vai ter o wisock servidor, seria isso?? e os clientes vao se conectar nele?? mas ai não da... como saber em qual ip se conectar se o cara pode abrir a sala em qualquer pc?? o q você acho q você deveria usar seria um programa servidor q deve ser rodado em um unico pc escolhido pra ser o servidor e ele deve ficar o tempo todo rodando e é esse programa q vai gerenciar as salas e os usuarios. quando um cara criar uma sala ele vai mandar uma mensagem pro servidor e o servidor vai armazenar na memoria dele q a sala foi criada e então vai enviar pra todas as conexoes o aviso de q a sala foi criada. o mesmo vale pra quando um usuario entrar, enviar mensagem e etc. esse unico programa no servidor tem q saber quem esta conectado em q sala, pra quem enviar cada uma das mensagens (e pra quem não enviar) e etc. quem sugeriu o timer fui eu. acho q fica melhor assim.

tenta declarar a dataVencimento assim: var dataVencimento = new Date(document.getElementById("vencimentoPedido").value);

ted, campos texto (varchar) devem ir entre aspas simples. agora os numericos geralmente não, dependendo do banco, acho q tem uns q aceitam e outros q não. access por exemplo só aceita sem aspas, pode testar. o q você quer dizer com "não funciona"?? ele da alguma mensagem de erro ou simplesmente seleciona todos?? se der a mensagem de erro, então poste pra gente saber qual é. se ele simplesmente seleciona todos então em vez de executar o sql, só de teste de um print (Response.Write) de como fica a query toda e depois posta pra gente ver.

como assim?? você quer dizer q não quer q nenhum campo tenha o mesmo valor em nenhuma das linhas?? mas ai tem q ver o q você quer q ele tenha no lugar então. tipo assim, você tem os campos a, b, c. assim: a | b | c -------------------------- x | y | z k | y | w[/code] no caso, o valor 'y' aparece duas vezes na coluna b. entretanto os valores de a e c são diferentes. ou seja se os registros são diferentes, ele vai selecionar os dois. se eu fosse sumir com um dos 'y', o q eu iria fazer com os valores de a e c?? explica melhor pra gente, tipo de um exemplo do q o seu select esta retornando e o q você quer q retorne.

tem. e tem q ser um array. não entendi o q você quis dizer. cada winsock suporta apenas uma conexao. por isso você precisa de outros, senao você vai ter sempre só um usuario no seu chat falando sozinho hahaha.

antes de abrir a conexao (no seu codigo, objeto bd), adicione a linha: bd.CursorLocation = adUseClient mas o q acontece de errado?? ele da alguma mensagem de erro ou simplesmetne não preenche o DataGrid?? e caso filtro não retorne dados?? ele ta mostrando o msgbox q você fez??

qual exatamente a mensagem q aparece??

não seria Select Distinct limp_lote_prog.* From ... ??

hum, tenta então por entre aspas simples. assim: ado.Recordset.Find " paciente = '" & Text1.Text & "'"

ado.Recordset.Find ("data=") & Text1 acho q esse codigo acima ta errado não?? o não certo, pra qualquer tipo de dados, acho q seria assim: ado.Recordset.Find "data = " & Text1.Text

nesse caso, no Unload, tenta então finalizar o form. tipo assim Set Form1 = Nothing é isso q você ta fazendo não vai funcionar mesmo, já q o Winsock q você cria não esta carregado. mas você não ta trabalhando com array de winsock?? é bem mais facil trabalhar assim, ai é só dar o Load pra adicionar um novo. pra criar o controle em tempo de execucao é bem mais trampo, mas pra adicionar tem q ser assim: Dim wskAdmin2 As Winsock Set wskAdmin2 = Controls.Add("MSWinsock.Winsock.1", "wskAdmin2", Form1)[/code] onde Form1 é o nome do seu formulario. ai das proximas vezes q você precisar acessar esse controle Winsock, não acesse pela variavel e sim pelo controle no form tipo assim: [code]Me.Controls("wskAdmin2").LocalPort = xSala(i).Porta

opa é verdade o Nothing não vai funcionar no Winsock. mas sei la, fiz uns testes aqui e não deu 9 nenhuma vez aqui na rede do trampo. só posso imaginar q seja alguma coisa na sua rede, sei la. no programa servidor, na hora de dar o close tb, faz um for e de close em todos os indices, talvez ajude.

pro DataGrid é só você setar as propriedades Row (linha) e Col (coluna) e pegar o Text. imagino q pro DbGrid deve ser igual. tipo assim: Private Sub CommadButton_Click() Dbgrid.Col = 0 Dbgrid.Row = 0 Flexgrid.textmatrix(1, 0) = Dbgrid.text Dbgrid.Col = 1 Flexgrid.textmatrix(1, 1) = Dbgrid.text Dbgrid.Col = 0 Dbgrid.Row = 1 Flexgrid.textmatrix(2, 0) = Dbgrid.text Dbgrid.Col = 1 Flexgrid.textmatrix(2, 1) = Dbgrid.text End Sub[/code]

e o principal de tudo, o html

entra em menu Project -> References e marque a opcao Microsoft DAO Object Library.

marvi, então tenta por essa div dentro da sua primeira table q ta dentro da div teste, com margin-left 515px, sem hacks. tipo o codigo ficaria assim: ... ... <body background="imagens/ideiaplano.jpg" topmargin="0" leftmargin="0" bgcolor="#968665" bgproperties="fixed"> <div id="teste"> <table align=center border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="779" id="AutoNumber1"> <tr> <td width="100%" background="imagens/fundo.png"> <div style="position:absolute; margin-top: 230px; margin-left: 515px;"> <script type="text/javascript"> AC_FL_RunContent( 'codebase','http://fpdownload.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,0,0','id','topo','align','middle','height','275','width','255','src','imagens/ideiabiz1','quality','high','name','topo','allowscriptaccess','sameDomain','wmode','transparent','pluginspage','http://www.macromedia.com/go/getflashplayer','movie','imagens/ideiabiz1','menu','false' ); //end AC code </script><noscript> <object classid="clsid:d27cdb6e-ae6d-11cf-96b8-444553540000" codebase="http://fpdownload.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,0,0" id="topo" align="middle" height="275" width="255"> <param name="allowScriptAccess" value="sameDomain"> <param name="movie" value="imagens/ideiabiz1.swf"> <param name="menu" value="false"> <param name="quality" value="high"> <param name="wmode" value="transparent"> <embed src="imagens/ideiabiz1.swf" quality="high" name="topo" allowscriptaccess="sameDomain" type="application/x-shockwave-flash" wmode='transparent' pluginspage="http://www.macromedia.com/go/getflashplayer" align="center" height="275" width="255"></object></noscript> </div> <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber2" height="477"> .... ....[/code] porque ai ele vai ter como referencia o inicio da tabela pra por a margin. ele tava dando problema porque a referencia antes era o inicio da pagina, e isso muda de acordo com a resolucao. caso não funcione, tenta por na table debaixo no primeiro td. só pra comentar, da uma olhada nesse codigo q ele ta estranho. como você tem dois heads e dois bodys??

é tipo, o programa comeca e você tem só um Winsock com Listen. cehga a primeira conexao, esse primeiro Winsock conecta e um novo Winsock é adicionado e fica esperando outra conexao. ai chega mais uma conexao, ai o ultimo Winsock conecta, e um novo é adicionado e fica escutando e assim por diante. acho q tem q setar a porta sim. mas pode ser a mesma porta, já q como ela esta sendo usada pela mesma aplicacao, não deve dar conflito.

como o flavio disse, poste um printscreen dos erros, ou, caso o site teja hospedado passa o endereco. mas marvi, você ta pondo a div dentro da tabela?? acho q pra funcionar do jeito q você quer, você teria q por ela direto no body.

acontece q agora sempre q você for usar o controle Winsock você vai ter q passar o indice ao q se refere. o mesmo vale pros eventos, pois os eventos ocorrem pra cada indice e não para todos. tipo recorta todo o codigo q esta dentro do ConnectionRequest, apague a sub ConnectionRequest e a chame de novo q ai ele vai montar o codigo certinho, passando como o parametro o Index do controle onde ocorre o evento. faca o mesmo pros outros eventos do Winsock q você tiver.

pra concatenar, use o operador &. tipo assim: Text1.Text = var1 & "º" & var2 & "'" ue, tem certeza?? ainda acho q é / 100 * 60. faca por regra de tres, ó: v -- x 100 -- 60 onde v é o valor quebrado q você pegou do resultado e x o resultado (o numero convertido) vai dar q 100x = 60v, ou seja x = v * 60 / 100 alem do mais 50 * 60 / 100 = 30, ou seja, o calculo do nosso exemplo vai bater, pode fazer na calculadora. pra fazer / 60 * 100, seria pra fazer o calculo inverso.

opa, se o numero q você quiser pegar a parte decimal esta na variavel A3, é só fazer tipo assim: parte_decimal = (A3 - Int(A3)) * 100 ai, no exemplo, pro numero 22,5, você vai ter o valor 50 retornado pra varavel parte_decimal. ai você fazendo o calculo q eu indiquei no outro post (/ 100 * 60) você vai obter o valor em minutos (30). ai depois pra mostrar o resultado, se você pegar Int(A3) você retorna a parte inteira. ai é só concatenar com a parte quebrada q foi calculada.