[Resolvido] Comando do Access - Executar via ASP

[Célido 0]

Bom Dia!!!

 

Tenho um Sstema de Parcelamento de Contratos desenvolvido em Access, Gostaria de executá-lo via ASP.

 

Código Abaixo:

Sub cmdParcelas_Click()
	 If Me.curValor <= 0 Then 'Se valor do contrato for <= 0
		Exit Sub
	End If
	 
	 'Salva o contrato
	DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
	 
	Dim db As Database, rs As Recordset
	Dim ValParc As Currency, I As Byte
		
	Set db = CurrentDb()
	Set rs = db.OpenRecordset("tbl_Parcelas") 'Abre tbl_Parcelas
	ValParc = Me.curValor / Me.bytParcelas 'Valor de cada Parcela
		
	For I = 1 To Me.bytParcelas  'Insere as Parcela na Tabela
		rs.AddNew
		rs("lngNumContrato") = Me.lngNumContrato
		rs("bytParcela") = I
		rs("curValor") = ValParc
		'Calcula as datas de Vencto através da função DateAdd()
		rs("dtVencimento") = DateAdd("m", I - 1, Me.dtContrato)
		rs.Update
	Next
				
	rs.Close
	db.Close
	Me.subfrm_Parcelas.SetFocus 'Foco no SubForm Parcelas
   
	Me.cmdParcelas.Enabled = False 'Desativa o botão Parcelas
	Me.subfrm_Parcelas.Requery  'Atualiza o SubForm Parcelas
	
End Sub

Alguem tem uma Idéia ou Conhecimento para o Código em ASP.

 

Valeu.

 

Célido

[mibnetweb 0]

você quer converter essa rotina para asp? É isso?

[Célido 0]

Brother, é isto.

Ja procurei no forum e não vi exemplos que se aplicam.

Voce poderia ajudar no códiogo em ASP.

 

Valeu....

[Mário Monteiro 179]

mas ja esta praicamente pronto pois usa VBScript tambem

[Célido 0]

Brothers, Obrigado pelos Comentários

 

O Problema é que sempre fiz sistemas em VBA. Para ASP uso o ASPMAKER. Gosto de usar ferramentas que AGILIZAM e FACILITAM O TRABALHO.

Eu sei. A Essência é aprender. Tenho um site que desenvolvi sózinho. (www.intravisa.com). Fiz este site apenas com os exemplos da Internet e Fóruns.

 

Agora estou tentando aprender VBscript e ASP.Net.

 

o Problema é que travei. Bati a cabeça na trave em um jogo de futebol. Agora estou voltando aos poucos,.

 

Preciso de um Exemplo de Parcelamento em ASP. é Isto.

 

Se alguem puder postar um modelo. Agradeço. Colocarei a Disposição o Site Intravisa para o pessoal do Forum.

 

Login : Admnistrador

Senha: 05031963

 

Agradeço a Todos.

 

Valeu

[Célido 0]

Bom Dia!!!

 

Tenho um Sstema de Parcelamento de Contratos desenvolvido em Access, Gostaria de executá-lo via ASP.

 

Código Abaixo:

Sub cmdParcelas_Click()
	 If Me.curValor <= 0 Then 'Se valor do contrato for <= 0
		Exit Sub
	End If
	 
	 'Salva o contrato
	DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
	 
	Dim db As Database, rs As Recordset
	Dim ValParc As Currency, I As Byte
		
	Set db = CurrentDb()
	Set rs = db.OpenRecordset("tbl_Parcelas") 'Abre tbl_Parcelas
	ValParc = Me.curValor / Me.bytParcelas 'Valor de cada Parcela
		
	For I = 1 To Me.bytParcelas  'Insere as Parcela na Tabela
		rs.AddNew
		rs("lngNumContrato") = Me.lngNumContrato
		rs("bytParcela") = I
		rs("curValor") = ValParc
		'Calcula as datas de Vencto através da função DateAdd()
		rs("dtVencimento") = DateAdd("m", I - 1, Me.dtContrato)
		rs.Update
	Next
				
	rs.Close
	db.Close
	Me.subfrm_Parcelas.SetFocus 'Foco no SubForm Parcelas
   
	Me.cmdParcelas.Enabled = False 'Desativa o botão Parcelas
	Me.subfrm_Parcelas.Requery  'Atualiza o SubForm Parcelas
	
End Sub

Alguem tem uma Idéia ou Conhecimento para o Código em ASP.

 

Valeu.

 

Célido

 

Resolvido

 

Não tem jeito. A Unica Forma é faze-lo em ASP.

veja: Parcelamento em ASP x access.

veja: Solução em http://teste.intravisa.com

 

Valeu

[Mário Monteiro 179]

Que bom que resolveu mesmo nao senda da forma inicialmente proposta

[Célido 0]

Que bom que resolveu mesmo nao senda da forma inicialmente proposta

Thanks Man. Living and Learnig.

 

http://forum.imasters.com.br/public/style_emoticons/default/clap.gif