kuroi

usando API, conheco esse jeito. sem precisar alterar o horario do pc q estiver sendo usado: '''ISSO VAI NAS DECLARACOES DO MODULE OU DO FORMULARIO QUE TERA ESSA FUNCAO Option Explicit Private Declare Function NetRemoteTOD Lib "NETAPI32.DLL" (ByVal server As String, buffer As Any) As Long Private Declare Function NetApiBufferFree Lib "NETAPI32.DLL" (ByVal buffer As Long) As Long Private Declare Sub CopyMemory Lib "KERNEL32" Alias "RtlMoveMemory" (hpvDest As Any, hpvSource As Any, ByVal cbCopy As Long) Private Type TIME_OF_DAY t_elapsedt As Long t_msecs As Long t_hours As Long t_mins As Long t_secs As Long t_hunds As Long t_timezone As Long t_tinterval As Long t_day As Long t_month As Long t_year As Long t_weekday As Long End Type ''''ESSA É A FUNCAO ''''PRA CHAMAR É SÓ POR strDataHora = BuscarDataHora("[IP OU NOME DO SERVIDOR]") '''' A Data vira em string data e hora no format abaixo. depois você separa e converte em data ' Função para retornar a Data/Hora de um computador na rede ' RETORNO: ' string no formato dd/mm/yyyy-hh:mm:ss ' PARAMETROS: ' sComputador: Nome de um computador da rede. Ex: \\SERVIDOR1 ' Private Function BuscarDataHora(sComputador As String) As String Dim sRetorno As String Dim todTime As TIME_OF_DAY Dim ptrTime As Long Dim lRetorno As Long Dim sServidor As String Dim dRemoto As Date On Error GoTo ERRO sRetorno = "" Screen.MousePointer = vbHourglass sServidor = StrConv(sComputador, vbUnicode) lRetorno = NetRemoteTOD(sServidor, ptrTime) If lRetorno = 0 Then CopyMemory todTime, ByVal ptrTime, Len(todTime) 'COPIA O PONTEIRO RETORNADO PARA A ESTRUTURA TIME_OF_DAY dRemoto = DateSerial(70, 1, 1) + (todTime.t_elapsedt / 60 / 60 / 24) 'CONVERTE O TEMPO DECORRIDO DESDE 1/Jan/70 PARA UMA DATA dRemoto = dRemoto - (todTime.t_timezone / 60 / 24) 'AJUSTAR PARA DIFERENÇAS DO TimeZone sRetorno = Format(dRemoto, "dd/mm/yyyy") & "-" & Format(dRemoto, "hh:mm:ss") NetApiBufferFree (ptrTime) 'LIBERA O PONTEIRO DA MEMÓRIA Else 'Erro 53: cannot find server MsgBox "Não pode encontrar o servidor." & vbCrLf & vbCrLf & sServidor, vbExclamation, "Atenção" End If GoTo FIM ERRO: MsgBox Err.Number & vbCrLf & Err.De ion, vbCritical, "Erro" FIM: Screen.MousePointer = vbDefault BuscarDataHora = sRetorno Exit Function End Function

ve se assim fica mais facil: strsql = "Select * from Login Where Usuario = '" & txtUsuario.text & "' ANd Senha = '" & txtSenha.text & "'" set rs = cn.execute(strsql) if rs.eof then msgbox "Usuário ou senha Inválido!" exit sub end if 'AQUI VOCE CONTINUA COMO SE ELE TIVESSE DIGITADO A SENHA CERTA

fui ver agora... no visual basic, entra em project -> references e procura q vai tar la "microsoft scrpiting runtime". pra q serve esse componente?

no google talvez

porque os numeros estao entre aspas? no caso do none acho q o certo seria: Set Picture1.Picture = Nothing presta atencao, sem aspas.

conheco um componente q chama farpoint Spread q faz isso. da pra por combo, checkbox, option button e o q você imaginar no grid. mas esse componente é pago e não sei onde encontrar pirata ou algum cracker. não sei se tem outro componente q faz isso.

rs![ite.cod] ou rs![not.cod]

descobri... se alguém tiver interessado: http://www.macoratti.net/filesyst.htm

se tenho um arquivo qualquer gravado no hd, como fazer para saber, pelo visual basic, os dados como tamanho do arquivo e data modificação?

em vez de If Trim(rs.Fields("último").Value) = "Null" Then faca If IsNull(rs.Fields("último").Value) Then

tópico véio, ne? tava dando uma pesquisada e vim parar aqui e fiquei com duvidas. qual a diferença entre d (day) e y (day of year)? fiz varios testes e todos trouxeram o mesmo valor. a mesma coisa pra w e ww.

Restaura: Form1.WindowState = vbNormal Maximiza: Form1.WindowState = vbMaximized Minimiza: Form1.WindowState = vbMinimized

de uma olhada nesses topicos: http://scriptbrasil.com.br/forum/index.php...s&highlite=mapi

propriedads MinButton e MaxButton do Form (ponha False).

interessante... pode ser uma pergunta tonta mas... o q é um firmware?

Ouvi dizer q estava sendo lancado um novo processador modelo sempron compativel com o socket 939. já existe no mercado esse novo processador? procurei na internet e não achei nada... qual sera o preço?

porque você da o Nothing?

tente preencher a propriedade tag dessas caixas com algum texto para identificacao, exemplo, o nome do frame. ai, você ve se a tag corresponde as caixas q estao dentro do frame.

tenta aqui: http://www.ecs.com.tw/ECSWeb/Downloads/Pro...enuID=0&LanID=0

já me encontrei em várias situações em que tive que correr com algum serviço, ou trabalho e em muitos desses casos pedi favores para alguém, inclusive pro pessoal do forum (graymalkin q o diga). mas nunca pedi trabalho pronto e, se me oferecessem, recusaria. porque antes de qualquer nota na escola ou prazo do servico o q eu via era uma oportunidade de aprender mais.

valeu cara, fudido esse seu componente. sera q um dia vou ter capacidade de fazer um negocio desse?

tem certeza q o crystal ta instalado corretamente no pc? não aparece a opção Crystal Reports Control?

valeu, graymalkin. sei q e pedir demais, mas sera q não tem um jeito de enviar e-mail no formato html? usando mapi ou qualquer outro componente... ou ate mesmo alguma API?

valeu, graymalkin, mas sera q não tem como preencher o campo cco? ou não tem outro jeito de enviar mensagem para varias pessoas sem que elas saibam para quem estou enviando?

se alguém, souber tb agradeco, pois já tive muito problema com isso.