cyberalexxx

se for windows xp já tem é só registrar a DLL scrrun.dll

eu faria assim: No onchange do combo voce testa o valor selecionado e gera uma instrução SQl, tipo sql = "Select * from tabela where valor between 1 and 50" ai voce atualiza seu Adodc e datagrid: adodc.RecordSource = SQL adodc.Refresh dagrid.Refresh

O que eu tinha em mente seria o seguinte: supondo a seguinte tabela: nome(varchar) idade(Int) endereço(varchar) supondo o seguinte arquivo texto: arquivo.txt Dino da Silva Sauro;50000;Caverna Bob Esponja;10;Fundo do Mar Set FSO = Server.CreateObject("Scripting.FileSystemObject") Set arquivo = FSO.OpenTextFile("c:\arquivo.txt",1) Do while arquivo.AtEndOfStream=false linha = arquivo.Readline campo = split(linha,";") sql = "Insert into tabela (nome,idade,endereco) Values('" & campo(0) & "', " & campo(1) & ", '" & campo(2) & "')" conecta.execute(sql) loop mais ou menos isso!!

Tópico sobre txt com FSO: http://scriptbrasil.com.br/forum/index.php?showtopic=59757 O FSO já vem com o Windows XP é só registrar a DLL : clieque no menu iniciar, depois em executar e digite: regsvr32 scrrun.dll

use FSO para ler o arquivo texto (se não souber busque aki no forum que tem) depois de um split em cada linha por ; para separar os campos então de um insert no banco simples!!

Time() - hora Date() - Data Now() - Data e hora

Mesmo achando que seu cliente ficou louco, pois se a empresa fosse minha eu iria querer um sistema desktop dentro da empresa e as funções externas como implantação de pedidos por parte dos vendedores poderia ser feita através de acesso remoto ao meu servidor. Mais caso a empresa não seja muito grande e o Kara tenha Host próprio com IP fixo pode até rodar legal. Segue algumas dicas: Como já disse anteriormente não de preço sem conhecer a empresa, diga que vai mandar um consultor para avaliar o projeto, sendo assim o ideal é conhecer toda a rotina administrativa da empresa vai ajudar muito na lógica de programação e você vai ganhar tempo depois. Estruture o sistema por modulos (contas a pagar, contas a receber) fica mais facil a manutenção. exemplo de lógica: comece estruturando as tabelas e analisando os relacionamentos. exemplo de um sistema em funcionamento: isso é um pedacinho do sistema e viu a trabalheira que dá?? Qualquer duvida que tiver na parte de regra de negócios me avise que tenho bastante experiencia com isso. []'s

Você vai fazer isso em ASP??? Isso é ERP (Enterprise Resource Planning)!! Ta muito caro isso no mercado, pesquise por SAP, Oracle, Magnus/EMS (Datasul), Microsiga e por ai vai. são sistemas integrados para gestão de negócios, normalmente são vendidas licensas dos modulos do sistema como contabilida, estoque, faturamento, contas a pagar, contas a receber, caixas e bancos, chão de fábrica. Seria melhor voce usar alguma linguagem desktop com um banco de dados bem robusto para fazer isso. Desenvolvi algo bem inferior (bem inferior mesmo!!) a isso q você quer em VB no mes passado só que não vendi o sistema, fechei com o cara uma licença de uso por R$ 250/mes com direito a 8 hs tecnicas/mes para futuras adequações do sistema com a necessidade dele. Outro toque, não se atente somente às horas de programação, pois para fazer isso voce vai precisar passar um bom tempo no cliente para ver as "regras de negócio" do mesmo. qualquer coisa entre em contato!!

A DLL scrrun.dll esta registrada???

OUTRA PERGUNTA! Nas partes em vermelho q destaquei, é possivel fazer um include? ou c não, fazer conexao com BD? VLW Pode sim!!

poderia fazer um upload pro rapidshare

Antes de dar um insert no banco recupere o ultimo valor do campo codigo, da pra fazer usando Select top 1 com um order by codigo desc e na hora do insert do novo registro informe que o valor do campo código será o valor recuperado +1

não da pra simplesmente comparar? if valorretornado = "231.1999" then valor = 24,50 end if

é quase isso:

já que o negócio é logica segue abaixo um enigma: 1 - Voce vai resgatar uma princesa em um castelo 2 - Existem dois guardas na entrada no castelo 3 - Um guarda só fala a verdade 4 - O outro guarda só mente 5 - Voce não sabe quem é o mentiroso 6 - Existem duas portas de acesso ao castelo 7 - Uma porta leva a morte 8 - a outra porta leva a prinicesa 9 - Voce tem o direito de fazer 1 pergunta a 1 só dos guardas sem saber quem é quem. 10 - Que pergunta voce faria para descubrir onde esta a princesa??? esse é Florida!! alguém se propoe! é pura lógica. se achar que sabe comente aki e me mande a resposta por PM pra não perder a graça.

Se é que eu te entendi o ideal seria criar uma função para fazer a validação: function valida(campo) if campo = "sim" then valida = "xxxx" else valida = "" end if end function para usar response.write valida(rs("campo")) response.write valida(rs("campo2"))

Pode ser mais simples ainda: MsgBox WeekdayName(Weekday(Date)) Abraços, Graymalkin boa!!! isso que eu fiz é mania de ASP, pois você nunca sabe em q pais o cliente vai hospedar o site (versão do S.O.) sendo assim sempre fiz as funções na unha para português. []'s

fiz rapidinho, texta ai: function diadasemana(dia) dias="domingo,segunda,terça,quarta,quinta,sexta,sabado" diaextenso=split(dias,",") diadasemana=diaextenso(Weekday(dia)-1) end function

antes de gravar faça isso, ou então coloque no onchange do campo PIN pin = txtpin.text if len(pin) <> 4 or isnumeric(pin) = false then msgbox "PIN Invalido!" & VbCtrlf & "Digite 4 numeros no campo PIN!", vbCritical txtpin.SetFocus exit sub end if

também acho q seja isso, para poder funcionar alguém tera que acessar o site!!

Seria isso??? Dim rs As New ADODB.Recordset pin = txt_pin.Text matricula = txt_matricula.Text sql = "SELECT * FROM users WHERE pin = '" & pin & "'" Set rs = conn.Execute(sql) If rs.EOF And rs.BOF Then Dim botao As Integer botao = MsgBox("Sera incluido novo PIN, confirma?", vbYesNo + vbQuestion, "Novo PIN") If botao = vbYes Then sql = "INSERT INTO Users (Login, Password) VAlUES(" & matricula & ", '" & pin & "')" conn.Execute (sql) Else Exit Sub End If Else MsgBox "PIN já existe!", vbCritical Exit Sub End If Set rs = Nothing

beleza: Quando tiver mais duvidas sobre funções vbscript é só dar uma olhada na MSDN: http://msdn.microsoft.com/library/default....rifunctions.asp

de uma olhada na parte em vermelho: Voce esta abrindo o objeto Rs dentro do loop do próprio objeto Rs isso é estranho, nunca vi, tenta assim:

Para 2 Gigas de informação nem o access iria suportar, voce tera que usar outro tipo de banco de dados como o Mysql que é gratis ou SQLserver entre outros.

um tópico sobre o assunto: http://scriptbrasil.com.br/forum/index.php?showtopic=57324 use a busca do forum e procure por combo que você ira encotrar mais tópicos em que esse assunto já foi discutido. []'s