dark0
-
Total de itens
6.198 -
Registro em
-
Última visita
Tudo que dark0 postou
-
hum.. no windows 98 às vezes dava isso, quando você mecha no msconfig, e marcava umas opções avançadas, que diziam fazer desligamento rapido.. e resolvia-se instalando o patch da microsoft do bug de desligamento do 98 (que parava naquela imagem) agora no 2000 eu li uma vez sobre isso.. mas não to lembrado onde..
-
eu já vi isso.. mas não lembro como arrumar.. huahua vo cata alguma coisa aqui..
-
como você pretende que seja? com upload? com imagem no banco de dados?
-
Verificar Se tabela existe em SQL Uma vez eu abri um tópico sobre isso.. e então, to colocando aqui, resumido.. Conecta ao Banco: url_conexao = Server.MapPath("banco.mdb") set conexao = Server.CreateObject("ADODB.Connection") conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao Mostra as Tabelas: adSchemaTables = 20 Set rsTabs = conexao.OpenSchema(adSchemaTables,array(empty, empty, empty, "TABLE")) Do while not rsTabs.EOF response.write "TABELA: <b>"& Ucase(rsTabs("TABLE_NAME")) &"</b><br>" rsTabs.MoveNext Loop abraços
-
pois é.. como o amigo andré havia falado.. quando você preencher o campo, e for passar para outro.. fica complicado fazer uma consulta com o banco, e verificar se existe, antes de passar pro proximo campo.. pois imagine um banco com uns 1000 registros.. a cada letra digitada, verificar se existe no banco (tratando-se da web.. lentidao e etc..) o que eu imagino, seria algo, tipo: o cara digita, e você coloca um botao "verificar se existe", aí, quando o cara clicar ali, ele verifica se existe, e depois segue.. ao contrario disso, não sei se é possivel..
-
beleza.. fechem o tópico então..
-
ele fica nessa pasta? System Volume Information ? essa pasta guarda informações sobre a restauração do sistema.. manda desativar a restauração do sistema, que o XP auto-exclui tudo !!
-
hum.. tava olhando aqui.. olha o que eu achei: strCaminho = Server.MapPath(strArqXls) Set dbXLS = Server.CreateObject("ADODB.Connection") 'Cria conexão Planilha dbXLS.Open "Driver=Microsoft Excel Driver (*.xls);DBQ=" & strCaminho Set rsXLS = dbXLS.OpenSchema(20) rsXLS.MoveFirst TabPrecos = rsXLS("TABLE_NAME") SQL = "Select * from [" & tabPrecos & "]" Set rsDados = dbXLS.Execute(SQL) ' Exibindo dados no browser ' considere sua planilha como um array. 'Estou exibindo uma planilha que tem 7 colunas While not rsDados.eof Response.Write rsDados(0)&" " Response.Write rsDados(1)&" " Response.Write rsDados(2)&" " Response.Write rsDados(3)&" " Response.Write rsDados(4)&" " Response.Write rsDados(5)&" " Response.Write rsDados(6) Response.Write "<br>" rsDados.movenext Wend achei mais isso: <%@LANGUAGE="VBSCRIPT"%> <% session.lcid = 1046 Response.buffer = true Response.Clear Response.addHeader "pragma", "no-cache" Response.CacheControl = "Private" Response.Expires = 0 Session.Timeout = 5 %> <html> <head> <FONT size="1" face="Verdana"> <% Const adOpenStatic = 3 Const adLockPessimistic = 2 Dim cnnExcel Dim rstExcel Dim I Dim iCols Set cnnExcel = Server.CreateObject("ADODB.Connection") cnnExcel.Open "DBQ=" & Server.MapPath("dados.xls") & ";" & _ "DRIVER={Microsoft Excel Driver (*.xls)};" Set rstExcel = Server.CreateObject("ADODB.Recordset") rstExcel.Open "SELECT * FROM cont;", cnnExcel, _ adOpenStatic, adLockPessimistic iCols = rstExcel.Fields.Count %> <table border="1"> <thead> <% For I = 0 To iCols - 1 Response.Write "<th>" Response.Write rstExcel.Fields.Item(I).Name Response.Write "</th>" & vbCrLf Next 'I %> </thead> <% rstExcel.MoveFirst Do While Not rstExcel.EOF Response.Write "<tr>" & vbCrLf For I = 0 To iCols - 1 Response.Write "<td>" Response.Write rstExcel.Fields.Item(I).Value Response.Write "</td>" & vbCrLf Next 'I Response.Write "</tr>" & vbCrLf rstExcel.MoveNext Loop %> </table> <% rstExcel.Close Set rstExcel = Nothing cnnExcel.Close Set cnnExcel = Nothing %> e mais isso: <% Set rs = db.Execute("SELECT * FROM tabela") 'Cria o objeto de conexão Set ExcelSheet = CreateObject("Excel.Sheet") 'Seta a aplicação como invisível ExcelSheet.Application.Visible = False 'Insere um valor em uma célula do db access ExcelSheet.Application.WorkSheets(1).Cells(1,1).Value = rs("campo") 'ou também para a primeira planilha (default) ExcelSheet.Application.Cells(1,1).Value = rs("campo") 'Salva o documento ExcelSheet.Application.Workbooks(1).SaveAs("teste.xls") 'Fecha o objeto, sai da aplicação ativa e libera memória ExcelSheet.Close ExcelSheet.Application.Quit set ExcelSheet = nothing %> Não testei nenhum dos codigos.. apenas achei eles na net mesmo.. teste e depois nos diga se funciona Abraços
-
pois é.. mas, de alternativo (apesar de ser site gringo..) tem o Brinkster o unico ruim, é que eles colocam banner, de vez em quando.. pois no meu site, em algumas paginas tem banner, e em outras não.. vai entender.. hehe
-
você tentou formatar, estando dentro do xp???
-
okay amanha, la na firma, eu coloco no meu site de testes, no brinkster, e ponho o link até mais.. abraços
-
qual seu problema? o MSN, ou o IE não funciona mais? Já tentou reinstalar os dois? creio que funcione..
-
se você for no painel de controle, não tera alguma opção como: Camera e Scanners? por la não dá?
-
você achou todas as teclas que precisava? eu tenho um programa, que mostra o codigo asc da tecla que você pressionar.. se quiser, eu mando pra web, e ponho link.. abraços
-
quando você ligar o pc, antes do windows começar a carregar, fique pressionando F8 (apertando e soltando). Quando o menu abrir, selecione Modo Seguro. assim, passe seu anti-virus, e ele removerá o virus sem problemas. Abraços
-
- Menu Iniciar - Configurações - Painel de Controle - Opções Regionais e de Idioma - Idiomas - Detalhes ali você escolhe o idioma do teclado abraços
-
essa função apenas testa se o campo esta vazio. <% If Not IsEmpty (strChk) Then %> se o campo str(chk) não estiver vazio, então..
-
ei cara.. nada contra vc.. mas você já havia aberto outro tópico sobre isso.. tópico ao invés de ficar abrindo 10 topicos sobre o mesmo assunto.. permanece no mesmo, pois a gente já não sabe mais em qual tópico responder.. quanto à sua duvida.. eu montaria assim: coloca um campo no seu banco, Status.. e nele você coloca (banido, não banido) e altera via codigo abraços
-
opa.. beleza? experimente usar a busca do forum.. um tópico foi aberto sobre isso: Forum de JavasCript no link acima, eu postei todos os codigos asc abraços
-
que rolo? eu li algo sobre uma sacanagem que fizeram.. mas você acha que fariam isso aqui no asp?
-
hum.. você chegou a olhar o tópico fixo? dá uma olhada.. Servidores Gratuitos Asp
-
ah hauhuahua tendi.. hehe bom.. eu acho que ele deve montar uma enquete, para os membros elegerem e tal.. (eu acho né) hehe falou brother
-
victor, você é o novo moderador asp? parabens mano !! boa sorte aí.. abraços