Sisteminha De Emprestimo...

[webdotx]

Ai galera eu estou bolando um jeito aqui pra fazer um sisteminha de emprestimo mais eu ainda estou bem no inicio e pintou uma duvida, o codigo abaixo gera a quantidade de parcelas que o usuario deseja - veja

<%
vezes = request.Form("numero")
if vezes = request.Form("numero") then
For i = 1 to vezes
response.write ("<table width='40%' border='1' bordercolor='ffffff'cellspacing='5' cellpadding='1' align='center'>")
response.write ("  <thead>")
response.write ("  <tr>")
response.write ("    <th>Parcelas</th><th>Data</th><th>Movimento</th><th>Valor</th>")
response.write ("  </tr>")
response.write ("  </thead>")
response.write ("  <tr>")
response.write ("    <td align='center' bordercolor='336699'>"&i&"'<br></td>")
response.write ("    <td align='center' ><input type='text' name='data' size='8'><br></td>")
response.write ("    <td align='center' ><input type='text' name='movimento' size='4'><br></td>")
response.write ("    <td align='center' ><input type='text' name='valor' size='10'><br></td>")
response.write ("  </tr>")
response.write ("</table>")
Next

end if
%> 

Agora minha dúvida é como eu envio as informaçoes que o usuario vai digitar para o banco de dados???

[Guest Guest]

Pow galera da uma força ahe...

[ursolouco]

Ai galera eu estou bolando um jeito aqui pra fazer um sisteminha de emprestimo mais eu ainda estou bem no inicio e pintou uma duvida, o codigo abaixo gera a quantidade de parcelas que o usuario deseja - veja

CODE 

<%

vezes = request.Form("numero")

if vezes = request.Form("numero") then

For i = 1 to vezes

response.write ("<table width='40%' border='1' bordercolor='ffffff'cellspacing='5' cellpadding='1' align='center'>")

response.write ("  <thead>")

response.write ("  <tr>")

response.write ("    <th>Parcelas</th><th>Data</th><th>Movimento</th><th>Valor</th>")

response.write ("  </tr>")

response.write ("  </thead>")

response.write ("  <tr>")

response.write ("    <td align='center' bordercolor='336699'>"&i&"'<br></td>")

response.write ("    <td align='center' ><input type='text' name='data' size='8'><br></td>")

response.write ("    <td align='center' ><input type='text' name='movimento' size='4'><br></td>")

response.write ("    <td align='center' ><input type='text' name='valor' size='10'><br></td>")

response.write ("  </tr>")

response.write ("</table>")

Next

end if

%> 

Agora minha dúvida é como eu envio as informaçoes que o usuario vai digitar para o banco de dados???

Brother!!!

Ajudar, claro, com maior prazer, agora vamos ver o que você precisa especificamente.

Alguma perguntas para ajudar você desenvolver seu sistema:

1° - Qual Banco de dados você vai usar ?

2° - Sua tabela já esta pronta ?

3°- O campos e tipo de dados que vão ser recebidos

4°- Redirecionar ou emitir na tela o aviso de sucesso ?

Abraços!!!

[urso]

[webdotx]

[urso]

Brother!!!

Ajudar, claro, com maior prazer, agora vamos ver o que você precisa especificamente.

Alguma perguntas para ajudar você desenvolver seu sistema:

1° - Qual Banco de dados você vai usar ?

2° - Sua tabela já esta pronta ?

3°- O campos e tipo de dados que vão ser recebidos

4°- Redirecionar ou emitir na tela o aviso de sucesso ?

Abraços!!!

1º - Access

2º - já e o sistema já esta conectado ao BD

3º - Data(tipo data no BD) - Movimento (tipo numero) Valor (tipo moeda) Parcelas (tipo numero) Juros (tipo Moeda)

4º - Bom como eu não entendi oque você quiz dizer com o redirecionar eu opto por emitir na tela o aviso de sucesso

[ursolouco]

1º - Access

2º - já e o sistema já esta conectado ao BD

3º - Data(tipo data no BD) - Movimento (tipo numero) Valor (tipo moeda) Parcelas (tipo numero) Juros (tipo Moeda)

4º - Bom como eu não entendi oque você quiz dizer com o redirecionar eu opto por emitir na tela o aviso de sucesso

Bzl Brother!!!

Mais ou menos isso aqui..

<%
Dim Conn, strConn, cBanco
cBanco = Server.MapPath("banco.mdb")
strConn = "Provider  = Microsoft.Jet.Oledb.4.0; Data Source =  "& cBanco &";"
Set Conn  = Server.CreateObject("Adodb.Connection")
Conn.Open(strConn)

Session.LCID = 1046
nData =   FormatDateTime(Resquest.Form("Data"), 2)
nMovimento  = CInt(Request.Form("Movimento"))
nValor = CCur(Request.Form("Valor"))
nParcelas = CInt(Request.Form("Parcelas"))
nJuros = CCur(Request.Form("Juros"))

iSQL = "INSERT INTO Tabela VALUES('"nData"','"nMovimento"','"nValor"','"nParcelas"','"nJuros"') "

Conn.Execute(iSQL)
Response.Write("Tudo OK, sistema atualizado")

Conn.Close
Set Conn = Nothing
%>

[webdotx]

brigadao vou tentar com seu cod e te direi se vai funcinar com meu cod OK?