§uiciDa£

tipo, se você estver usando ACCESS o campo TEXT vale 255 caracteres, as vezes é isso, no access muda o campo de text p/ MEMORANDO t+

ae galera sempre quando eu tnto executar esse codigo ele fik preso num loop infinito...porque ? Private Sub Calendar1_Click() conm.Open "Select * From consultas where dia = '" & Calendar1.Day & "' and mes = '" & Calendar1.Month & "' and ano = '" & Calendar1.Year & "'", con i = 0 Do While not conm.eof consultas_cb.AddItem conm.Fields("paciente") & " -- " & conm.Fields("hora inicio") & ":" & conm.Fields("minuto inicio") Loop conm.Close End Sub e eu já tentei com Do While i < conm.recordcount mais também num da...porque ?? vlww t+

ae galera, gostaria de saber como faço pra ver os aplicativos rodando (ctrl alt del) pra mostrar num listbox ? alguém tm alguma ideia ?? obs : já pesquisei e num axei nd t+

Opa opa opa já consegui galera, foi distração minha...eu esqueci dos (0), (1) etc fiko assim frase = List1.Text vetor = Split(frase, " -") textvs.Text = vetor(0) cr.Open "Select * From clientes where nome = '" & textvs.Text & "'", con1, adOpenKeyset, adLockOptimistic, adCmdText ct.Open "Select * From consultas where nome = '" & textvs.Text & "' and dia = '" & Calendar1.Day & "' and mes = '" & Calendar1.Month & "'", con1, adOpenKeyset, adLockOptimistic, adCmdText vl carrega_coisas cr.Close ct.Close SSTab1.Tab = 1 desculpa a mancada t+

ae cara aproveitando o tópico eu fui usar o split pra faze um negocio com bd, só q deu erro oplha como ficou Private Sub List1_Click() textvs.Text = Split(List1.Text, "-") cr.Open "Select * From clientes where nome = '" & textvs.Text & "'", con1, adOpenKeyset, adLockOptimistic, adCmdText ct.Open "Select * From consultas where nome = '" & textvs.Text & "' and dia = '" & Calendar1.Day & "' and mes = '" & Calendar1.Month & "'", con1, adOpenKeyset, adLockOptimistic, adCmdText vl carrega_coisas cr.Close ct.Close SSTab1.Tab = 1 End Sub ele da esse erro : type mismatch nesta linha textvs.Text = Split(List1.Text, " ") o q q é oO vlw t+

faz assim i=0 max = rs.recordCount do while i < max i=i+1 dbcombo1.additem rs.fields("campo do db") rs.movenext loop basicamente é isso, qualque coisa me adciona no MSN q eu t explico melhor t+

vishhhh galera seis me ajudaram p/ caramba... brigadao vo da uma olhada no tuts de grafico brigado a todos, qualque coisa eu posto denovo t+

tipo galera, qria sabe como faço pra pegar o qtiver antes do ESPAÇO " " tipo tem um txtbox com o nome ex: "Bruno cerquiare" dae pega só o bruno -- e qria sabe também como q eu coloco um programa na inicialização do windows, pra carrega junto... -- ahhhhh e alguém sabe algum tutorial sobre gráficos ? vlw t+

axo q é assim cara oO cliente.Open "Select * From nomecli where nome LIKE '%" & txtnome.Text & "%' order by nome

eu uso assim galera rs.Open "SELECT * FROM cds WHERE Codigo='" & txtFiltro.Text & "', ... bla bla bla t+

coloca a linha da sua conexao aqui ... pra gente ve como ta ... o meu tava dando erro de invés da versao 3.51 era 4.0 ve aí

faz um seguinte, cria um listbox, um button, e um textbox(chamado de "n") e adciona este codigo Private Sub Command1_Click() List1.Clear i = 0 Do While i < Val(n.Text) i = i + 1 List1.AddItem i & " + " & n.Text & " = " & Val(i) + Val(n) Loop End Sub Private Sub List1_Click() MsgBox List1.Text, vbInformation, "curtiu" End Sub Private Sub n_Change() Command1.Enabled = True End Sub se você não intendeu me adciona no MSN q eu te ajudo... aqui deu certo

cara eu já pesquisei mais não axei o que eu qria... eu so qro sabe o ascii das teclas, ctrl, alt, f4 dae o resto eu faço t+

ae galera...blza ? eu tava desenvolvendo um sisteminha pro meu primo q é o seguinte, ele abre o programa e o prog executa em fullscreen, e pedi um login e uma senha ateh ai td bm... dae eu qria sabe, como q eu blokeio aqla tecla WINDOW, q tem uma janelinha do lado do ALT, como bloquio o ALT + F4 e o ALT+TAB e se possivel o CTRL ALT DEL se alguém souber ajuda eu por favor é urgente vlw

eu faço assim cara format(now,"hh:mm:ss") te +

em q evento você colocou, porque eu sempre coloco no lostfocus dae a pessoa digita 19051989 e quando sai ele já transforma ... 19/05/1989 agra num sei o q acontece nu seu codigo

usa assim ó text1.text = format(text1.text. "##/##/####") t+

hey galera... eu estou com o borland c++ builder 6, mais é muito estranho mexer nele, alguém tem algum tutorial ou site sobre ele (eu já tnho alguma experienccia em c++) vlw t+

usa isso if (mc._x > 550) { mc._x = 0 } onde 550 é a largura do stage e faz a mskm coisa co _y

desculpa se tão chato cara, mais como eu faço pra lista só os .jpg ? eu tnho q usa left() ? ou existe otro jeito oO vlw

puxa cara esse negocio de variaveois eu consegui, mai não achei nada de dir() não vo tnta de novo, mais se você souber algum exemplo me passa falou

AH TA AGRA Q EU TO COMEÇANDO A ENTEDER ... EU VO TNTA FAZE UNS TESTES AQUI, VLW GALERA T+ (opss caps lock ligado )

mmais como q é essa rotina, é while, for ou q ?? é só você dar um jeito de quebra ela tipo do while i < 1000 i=i+1 if i > 250 then i = 1001 end if loop , ou ainda usar goto, exit sub explica melhor o seu loop

já tento stopallsounds(); ?? coloca aonde você qer q ela pare stopAllSounds(); é pra para oO

hey galera... eu qria sabe como q eu faço um scan pelo pc do usuario pra listar todos os arquivos jpeg, jpg e gif (isso é possivel ?) e também qria saber como passo uma variavel de form pra otro form tipo eu tnho 2 form (login e form1) como eu passo o login do form login, pro form 1 ...vlw