lcs_sp

E ai pessoal beleza ??? Estou usando o FSO para verificar a data de criação do backup se e do dia anterior, até ai tudo bem, porém, quando o usuário fecha o sistema e rega o backup e abre o sistema novamente ele ainda apresenta a data de criação antiga, ele não atualiza a data. O código esta abaixo: Dim pasta_backup As String pasta_backup = GetSetting("UniCEASA", "configura", "caminho_backup", "") Set fso = CreateObject("Scripting.FileSystemObject") If fso.FileExists(pasta_backup) = True Then Set fso = Nothing Set fso = CreateObject("Scripting.FileSystemObject") Set novo = fso.GetFile(pasta_backup) If DateDiff("d", novo.datecreated, Now()) >= 2 Then If Weekday(Now()) = 2 And DateDiff("d", novo.datecreated, Now()) = 3 Then GoTo new_temp End If frm_ScrollUP.lbl_msg.Caption = IIf(InStr(1, frm_ScrollUP.lbl_msg.Caption, "Backup") <> 0, frm_ScrollUP.lbl_msg.Caption, "- Realize o Backup do dia" & Chr(13) & FormatDateTime(DateAdd("d", IIf(Weekday(Now) = 2, -3, -1), Now()), vbShortDate)) Else frm_ScrollUP.lbl_msg.Caption = frm_ScrollUP.lbl_msg.Caption & Chr(13) & "- Realize o Backup do dia" & Chr(13) & FormatDateTime(DateAdd("d", IIf(Weekday(Now) = 2, -3, -1), Now()), vbShortDate) End If End If Else frm_ScrollUP.Show frm_ScrollUP.lbl_msg.Caption = "- Realize o Backup do dia" & Chr(13) & FormatDateTime(DateAdd("d", -1, Now()), vbShortDate) End If Set fso = Nothing Set novo = Nothing End If

Olá, acho que nã entendi, e o icone dos forms ????

vê se é isso montei um sisteminha só pra ver se funciona e os campos de aluguel ficaram na cor verde, se precisar me manda seu email que te mando o fonte Private Sub Form_Load() Set cnn2 = CreateObject("ADODB.Connection") cnn2.Open "DRIVER={MySQL ODBC 3.51 Driver};user=root;password=;server=127.0.0.1;database=test;option=20499" Set rs2 = CreateObject("ADODB.RecordSet") Set rs2.ActiveConnection = cnn2 ssql = "select * from complexo" rs2.Open ssql, cnn2 Dim i As Integer i = 0 Do While Not rs2.EOF i = i + 1 MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1 MSFlexGrid1.TextMatrix(i, 0) = rs2(0) MSFlexGrid1.Row = i MSFlexGrid1.CellBackColor = IIf(rs2(0) = "ALUGUEL", &HC0FFC0, vbWhite) rs2.movenext Loop End Sub

Olá, Utilize o mysqlconfiginstance dentro do diretório \bin e quando chegar em "Please select the database usage" selecione "multifunctional database" ai ele vai funcionar tanto com MyISAM como INNODB

O usuário root por padrão não tem permissão de acesso remoto, de uma olhada no site abaixo http://phpbrasil.com/articles/article.php/id/511

Vamos lá "number(5)", "varchar(5)" são os tipos de campos (data(data), int(inteiro), varchar(caracteres) ) Chaves para criar uma chave primária: após a listar os campos inclua primary key(campo) para chave extrangeira foreign key (campo) references tabela_a_relacionar(campo_da_tabela)

vê se te ajuda: linha=numero da linha que você quer trocar a cor max = msflex.Cols - 1 For i = 0 To max msflex.Row = linha msflex.col = i msflex.CellBackColor = &HC0FFC0 <-- insira aqui a cor Next

não entendi, tente detalhar melhor. você quer trocar a cor de fundo de uma flex ???

DER Diagrama Entidade Relacionamento "E a estrutura relacional de um banco de dados" MER Modelagem Entidade Relacionamento "E o modelo fisico do banco de dados"

Aparentemente nada, tente fazer isto msgbox "select SUM(paginas) as totalpaginas from tb_impressao where cliente='" & cliente & "'" e vê o que volta

Vlw Obrigado vou dar uma olhada

Bruno, vê se é isso Dim frmTmp As Form For Each frmTmp In Forms t = t + 1 Next MsgBox t-1

Bruno Ai vai. Para fazer o cálculo do IMC basta dividir seu peso em quilogramas pela altura ao quadrado (em metros). O número que será gerado deve ser comparado aos valores da tabela IMC para se saber se você está abaixo, em seu peso ideal ou acima do peso. Por exemplo, se você pesa 60Kg e mede 1,67m, você deve utilizar a seguinte fórmula para calcular o IMC: IMC = 60 ÷ 1,67² IMC = 60 ÷ 2,78 IMC = 21,5

Acho que não entendi??? você quer que um determinado botão seja acionado caso o usuário pressione F12 quando o form estiver aberto ??? se for altere a propriedade keypreview do form para true e na função keyup identifique a tecla que você deseja

Olá, Vou ser sincero, não li todo o tutorial, mas se não tiver aqui não dá , aborda tudo sobre o printer http://www.macoratti.net/printer.htm

Olá Bruno, tente usar o Click funciona corretamente

Protocolo TCP tem uma porta especifica de comunicação, mas em qualquer condição não dá par utilizar a mesma porta para dois tipos diferentes de aplicação.

Qual banco de dados que você usa? no MySQL ficaria assim: select date_format(data,'%d-%m-%Y') from tabela

Antônio o MySQL somente grava datas no formato 'AAAA-MM-DD', você pode fazer calculos normalmente com este sistema de datas, eu utilizo numa boa, e se for por causa de alguma aplicação e só formatar a data antes de exibir.

Paulo, Verifique as configurações regionais no painel de controle e veja o formato da data, se estiver correto tente formatar na query.

Como os dados teriam que aparecer na 2º List ??

Precisa salvar antes de uma olhada neste site http://www.icmc.usp.br/manuals/BigDummy/ftp.html

abra o bloco de notas

vê se te ajuda: Dim vet Dim i As Integer Dim msg2 As String vet = "1,2,3,4,5,6" vet = Split(vet, ",") For i = 1 To UBound(vet) Step 2 msg2 = msg2 & "-" & vet(i) & "-" & vet(i - 1) Next MsgBox msg2

Alexandre, crie um arquivo com extensão .bat exe.: "arqiovo.bat" aqui um exemplo do conteudo do arquivo @echo off cls echo ---------------------------------------------------- echo - Sistema de Backup na WEB - echo - Modulo DIARIO - echo ---------------------------------------------------- @echo off ftp -s:put.txt ftp.dominio.com.br crie um arquivo "put.txt" com os comando para acesso ao ftp ex: usuario senha prompt cd dados bin hash mput base.zip close bye