Rafael - BH
não registrado
|
|
Postada em 18/10/2005 09:51 hs
Ola. Tenho um problema no meu sistema. Meu sistema manipula arquivos .mp3 e .mpg (uma juke box) , porem no banco de dados existem referencias a arquivos que nao existem e causam bugs no programa ( rodar uma musica nao existente). Gostaria de fazer uma consulta no banco de dados pelo codigo da faixa (numerados aleatoriamente) e ver se ela existe no diretorio especificado c:musicas. A tabela que tem o codigo das musicas se chama Tfaixas.Codfaixa (access) Grato pela ajuda |
|
|
|
|
|
|
|
Postada em 18/10/2005 10:30 hs
na rotina atualizafaixa faça a seguinte alteração: Do While Not TBFaixas.EOF
'DoEvents
If Dir("C:musicas" & TBFaixas("CodFaixa")) <> "" Then ' irá verificar se o arquivo existe
If IsNull(TBFaixas("Faixa")) = True Then
frmPrinc.lblFaixa(intIndice).Caption = ""
frmPrincMini.lblFaixa(intIndice).Caption = ""
Else
frmPrinc.lblFaixa(intIndice).Caption = UCase(TBFaixas("Faixa"))
frmPrincMini.lblFaixa(intIndice).Caption = UCase(TBFaixas("Faixa"))
TBFaixas.MoveNext
intIndice = intIndice + 1
End If
End If
Loop
dsmn
|
|
|
|
|
|
Postada em 18/10/2005 10:35 hs
SE o codfaixa não tiver o nome completo, exemplo falta a extensão voce deverá colocar a linha do if da seguinte forma: If Dir("C:musicas" & TBFaixas("CodFaixa") & ".mp3") <> "" OR Dir("C:musicas" & TBFaixas("CodFaixa") & ".mpg") Then
dsmn
|
|
|
|
|
|
Postada em 18/10/2005 11:00 hs
Descuple a instrução TBFaixas.MoveNext deverá estar entre o novo END IF e o LOOP
dsmn
|
|
|
|
