Decio

Use o comando abaixo: X = Shell("net time \\NomeServidor /set /yes", vbHide) Isto deve resolver o seu problema.

Normalmente , quando se trabalha com dll´s de terceiros , você precisa ter a documentação da dll. Na documentação deve ter todas as chamadas as funções contidas na dll, parametros de entrada e saida, tipo de retorno das funções , etc... Sem isso é praticamente impossível adivinhar o que contém dentro da dll.

Se você não quizer verificar o campo , você tera que editar o banco de dados .Use o Access ou o VisData que vem junto com o VB: Entre no modo estrutura e no campo 'Permitir comprimento Zero' , selecione 'Sim'

Poste o código do que já foi feito e o que você está com dificuldade que tentaremos ajudar.

Teta usar o comando abaixo: NovaData = Format(Now, "DD/MM/YYYY") No lugar do Now , você coloca a sua data. e o restante você muda de acordo com a necessidade.

você pode também usar uma API do Windows , dai não precisa se preocupar com o browser padrão do usuario : Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Const SW_SHOWNORMAL = 1 Private Sub Form_Load() ShellExecute Me.hwnd, vbNullString, "www.terra.com.br", vbNullString, "C:\", SW_SHOWNORMAL End Sub Não entendi o que você quer, explique melhor.

Tenta assim: Faça referência a Microsoft Scripting RunTime Digite o código abaixo: Dim MyFS As Scripting.FileSystemObject Set MyFS = New Scripting.FileSystemObject para copiar um diretório inteiro: MyFS.CopyFolder "c:\DiretorioFonte", "e:\DiretorioDestino", True O true no final indica que se o diretório existir , ele pode ser substituido. Digite MyFS. e brinque com todas as opções que aparecem... Para formatar um disco , você pode o código abaixo: Coloque este código em um form antes do form load. Private Declare Function SHFormatDrive Lib "shell32" (ByVal hwnd As Long, ByVal Drive As Long, ByVal fmtID As Long, ByVal options As Long) As Long Public Sub Formatar(Drive As String) Dim DriveNumber& Dim RetVal& DriveNumber = (Asc(Drive) - 65) RetVal = SHFormatDrive(0, DriveNumber, 0&, 0&) End Sub Coloque este código em um botão por exemplo: Private Sub Command1_Click() Dim Message, Title, Default, MyValue Message = "Qual o driver que deseja Formatar??" Title = "Formatação de disquetes" Default = "A:" MyValue = InputBox(Message, Title, Default) Formatar UCase(MyValue) End Sub

Tenta assim: sintaxe_end= "(" & RS("TIP_LOG") & ") (" & RS("NOME_LOG") & ")" O "(" é só para concatenar com o valor do banco de dados ??

Na verdade você usa aspa simples para alfanuméricos e nenhuma aspas para numérico. As aspas duplas que existe para os dois casos é para concatenar as strings. Se você tiver o seguinte comando SQL : " Select * from Tabela Where Numero = 1" <= o campo no DB deve ser numérico " Select * from Tabela Where Numero = '1' " <= o campo no DB deve ser alfanumérico As mesmas consultas concatenadas com uma váriavel: Dim BUSCA as String BUSCA="1" " Select * from Tabela Where Numero = ' " & BUSCA & " ' " <= tem aspas simples Dim BUSCA as integer BUSCA=1 " Select * from Tabela Where Numero = " & BUSCA & " " <= não tem aspa simples

beleza..Estamos entendidos.

Não achei nada na internet para ajudar.Mas qual seria a dúvida? Eu já fiz uma dll em VC6. Praticamente você usa o mesmo código que usaria se estivesse fazendo um programa normal, sem a parte gráfica. A vantagem é que varia aplicações poderiam usar o mesmo código, ou se o programa for muito grande , não é preciso carrega-lo totalmente na memória. Sei la se ajudei... Abraço.

Dá uma olhada neste link: http://casadosprogramadores.com.br/download.html Tem o fonte de um jogo da velha. Acho que deve ser parecido com o que você está procurando.

Então dark0, é ai que está o problema . Em alguns códigos apresentados aqui, o cara salva no banco de dados que o usuario esta on-line.Quem vai dizer para o banco de dados que o usuario saiu?.Cadastrar o mesmo usuario on-line eu não achei legal. mas é só minha opinião.afinal isto é um fórum não é?? Abraços.

Legal a função sua... Achei esta que eu tinha feito no Borland , veja se também ajuda... void getdata() { strcpy(dt," - Data:"); struct date d; getdate(&d); struct time t; gettime(&t); static char dia[6]; static char mes[6]; static char ano[6]; static char hora[6]; static char min [6]; static char seg [6]; itoa(d.da_year, ano, 10); itoa(d.da_day, dia, 10); itoa(d.da_mon, mes, 10); strcat(dt,dia); strcat(dt,"/"); strcat(dt,mes); strcat(dt,"/"); strcat(dt,ano); itoa(t.ti_hour,hora,10); itoa(t.ti_min,min,10); itoa(t.ti_sec,seg,10); strcat(dt," - Hora:"); strcat(dt,hora); strcat(dt,":"); strcat(dt,min); strcat(dt,":"); strcat(dt,seg); } //*************************************************************************

Até que enfim achei alguém que concorda comigo... dark0 , eu também já tive que usar um esquema de banco de dados por não poder usar o Global.asa , mas convenhamos , não funciona em todas as situações. O ASP cancela uma sessão de usuario se ele ficar inativo por um tempo pré-determinado , e isto não tem como você saber somente contando os 2 minutos.

Guto, eu entendi sua explicação , só não acho explicação lógica para existir este comando, sendo que ele é praticamente inútil, tanto que eu sempre usei o a comando Split e nunca precisei usar estes parametros opcionais.

você testou o código? você consegue pegar o código ascii de qualquer tecla , inclusive das teclas especiais Fx , setas ou Caps look, enfim todas as teclas, dai você faz qualquer coisa. Olha este exemplo. Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If (KeyCode = 112 And Shift = 6) Then MsgBox "Pressionou CTRL ALT F1" If (KeyCode = 16 And Shift = 3) Then MsgBox "Pressionou CTRL SHIFT" If (KeyCode = 112 And Shift = 4) Then MsgBox "Pressionou ALT F1" End Sub Já teclas que o Windows esta esperando tipo ALT TAB já é meio complicado.

estou até agora tentando achar uma utilidade para este -1 e não consegui.... Ou se restringe o resultado indicando em qtas partes vai ter a substring, ou não se coloca nada que vai ter o mesmo efeito do -1.Não entendi...

Bom , parece que você já resolveu o problema, mas se você quer reconhecer as teclas use este código (envento Key Down do form): Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) MsgBox KeyCode & " - " & Shift End Sub Em KeyCode vem o códico asii da tecla pressionada e em Shift o estado da tecla Shift (0=não pressionada e 1 = pressionada)

Tenta estes dois: DOS.H TIME.H Usei na época o C da MS, acho que a sintax do C da Borland é diferente. Só não testo para você porque estou temporariamente sem micro.

Eu também já contestei e continuo contestando sobre esta forma de vericar usuarios on-line salvando em banco de dados sem usar o global.asa. As duas formas juntas (global.asa + salvar db) podem ser interessantes. Se o cara não fechar a janela ou se o micro travar você não vai saber quando o usuario saiu.Por mais que vocês falem que funcina e por mais estratégias mirabolantes para que o sistema saiba que o usuario saiu, eu não acredito que funcione 100%. E tenho dito... T+

Se já estava funcionando fica meio díficil saber , tente ver se o caminho da figura é este mesmo: Server.MapPath("../logos/" & quallogo(idloja)), quallogo(idloja) Tente usar um 'response.write para ver se o caminho esta correto. O que tem em quallogo(idloja)) e para que serve a virgula depois desta variavel?? (, quallogo(idloja))

Se você procurar , você vai encontra vários , aqui mesmo no SB. Eu indico um que eu fiz (com idéias minha e exemplos de outros contadores). Procure na área de downloads\ASP\Contadores e tente achar o arquivo ContadorDGHP-V1.0-R00 . Ele salva em arquivo texto, mas você poderia alterar para usar banco de dados. T++

você poderia explicar isto melhor?

Se você precisa mesmo de alterar cores de menus, apela para a gambiarra: Use label's e frames para isto. Mude a propriedade do frame para invisivel e quando você clicar no label , mude a propriedade do frame visible para true . Dentro deste frame você pode utilizar quantos labels forem necessários e da cor que bem entender. Se você posicionar os labels da mesma forma que os menus tradicionais vai ficar identico