Ae galera fiz essa função para gravar dados em uma tabela...vai ela ai pra ajudar a todos que estejam de saco cheio de criar sintaxes SQL ou nem saibam criar...em breve programarei mais algumas funções....
PAGINA 1 (PAGINA ONDE SE ENCONTRA O FORMULARIO - "index.asp")
<html>
<head>
<title>OLA</title>
</head>
<body>
<!--
************************************************
* *
* Feito Por EGON ELEMAR BRAUN FILHO *
* *
************************************************
-->
<form action="chama.asp" method="post">
NOME<input type="text" name="txtnome"><br>
DATA NASCIMENTO<input type="Text" name="txtdtnasc"><br>
IDADE<input type="text" name="txtidade"><br>
<input type="submit" value="OK"
</form>
</body>
</html>
PAGINA 2 (pagina que vira no action do FORM da pagina 1 - "chama.asp")
<%@Language=VBScript%>
<!--#Include File="gravar.asp"-->
<%
'************************************************
'* *
' * Feito Por EGON ELEMAR BRAUN FILHO *
'* *
'************************************************
Dim strCampos, strObjetos, conn, table, driver
strCampos = "nome/dtnasc/idade"
strObjetos = "txtnome'/txtdtnasc#/txtidade*"
table = "clientes"
Set conn = Server.CreateObject("ADODB.Connection")
driver = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & Server.MapPath ("bd.mdb") & ";Persist Security Info=False"
conn.open driver
Gravar conn,table, strCampos, strObjetos
response.write "BEM VINDO!!!"
%>
Explicação:1 - Crie sua conexão com o banco
2 - Crie duas variaveis (strCampos, StrObjetos, no exemplo) na strCampos você vai colocar os nomes dos campos que você tem na tabela separados por uma "/"
3 - Na strObjetos você irá fazer o mesmo só que desta vez com o nome dos objetos INPUTS de seu formulario e ANTES da barra você irá colocar um destes caracteres identificadores:
* - se o seu campo da tabela for do tipo NUMERO
# - se o seu campo na tabela for do tipo DATA/HORA
' - se o seu campo na tabela for doi tipo TEXTO
4 - crie um include na sua página para a pagina que conterá a minha função (nome da pagina gravar.asp) o include será: <!--#Include File="gravar.asp"-->5 -Chame a Função deste modo:
Gravarvariavel de conexao, nome ou variavel que contenha o nome da sua tabela,sua variavel que vai conter os campos,a sua variavel que vai conter o nome dos Objetos inputsPagina 3 (a pagina que vai conter a função de GRAVAR - "gravar.asp")
<%
'************************************************
'* *
' * Feito Por EGON ELEMAR BRAUN FILHO *
'* *
'************************************************
Public Sub Gravar(conexao, strTabela, strCampos, strObjetos)
'Variáveis
Dim strSQL, intCount, arrCampos, arrObjetos
'------------------------------------------------
'Criando os Arrays de Objetos e Campos da Tabela
arrCampos = Split(strCampos,"/")
arrObjetos = Split(strObjetos,"/")
'------------------------------------------------
strSQL = "Insert INTO " & strTabela & " ("
For Each intCount in arrCampos
strSQL = strSQL & intCount & ","
Next
strSQL = Mid(strSQL,1,Len(strSQL)-1) & ") values ("
For Each intCount in arrObjetos
If Mid(intCount,Len(intCount),1) = "*" Then
strSQL = strSQL & Request(Mid(intCount,1,Len(intCount)-1)) & ","
ElseIf Mid(intCount,Len(intCount),1) = "#" Then
strSQl = strSQL & "#" & Request(Mid(intCount,1,Len(intCount)-1)) & "#,"
ElseIf Mid(intCount,Len(intCount),1) = "'" Then
strSQl = strSQL & "'" & Request(Mid(intCount,1,Len(intCount)-1)) & "',"
End If
Next
strSQL = Mid(strSQL,1,Len(strSQL)-1) & ")"
conexao.Execute (strSQL)
End Sub
%>
espero que gostem dessa função que desenvolvi......um abraço a todos....
Pergunta
slipknot
Ae galera fiz essa função para gravar dados em uma tabela...vai ela ai pra ajudar a todos que estejam de saco cheio de criar sintaxes SQL ou nem saibam criar...em breve programarei mais algumas funções....
PAGINA 1 (PAGINA ONDE SE ENCONTRA O FORMULARIO - "index.asp")
PAGINA 2 (pagina que vira no action do FORM da pagina 1 - "chama.asp")<%@Language=VBScript%> <!--#Include File="gravar.asp"--> <% '************************************************ '* * ' * Feito Por EGON ELEMAR BRAUN FILHO * '* * '************************************************ Dim strCampos, strObjetos, conn, table, driver strCampos = "nome/dtnasc/idade" strObjetos = "txtnome'/txtdtnasc#/txtidade*" table = "clientes" Set conn = Server.CreateObject("ADODB.Connection") driver = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & Server.MapPath ("bd.mdb") & ";Persist Security Info=False" conn.open driver Gravar conn,table, strCampos, strObjetos response.write "BEM VINDO!!!" %>Explicação: 1 - Crie sua conexão com o banco 2 - Crie duas variaveis (strCampos, StrObjetos, no exemplo) na strCampos você vai colocar os nomes dos campos que você tem na tabela separados por uma "/" 3 - Na strObjetos você irá fazer o mesmo só que desta vez com o nome dos objetos INPUTS de seu formulario e ANTES da barra você irá colocar um destes caracteres identificadores: * - se o seu campo da tabela for do tipo NUMERO # - se o seu campo na tabela for do tipo DATA/HORA ' - se o seu campo na tabela for doi tipo TEXTO 4 - crie um include na sua página para a pagina que conterá a minha função (nome da pagina gravar.asp) o include será: <!--#Include File="gravar.asp"--> 5 -Chame a Função deste modo: Gravar variavel de conexao, nome ou variavel que contenha o nome da sua tabela, sua variavel que vai conter os campos, a sua variavel que vai conter o nome dos Objetos inputs Pagina 3 (a pagina que vai conter a função de GRAVAR - "gravar.asp")<% '************************************************ '* * ' * Feito Por EGON ELEMAR BRAUN FILHO * '* * '************************************************ Public Sub Gravar(conexao, strTabela, strCampos, strObjetos) 'Variáveis Dim strSQL, intCount, arrCampos, arrObjetos '------------------------------------------------ 'Criando os Arrays de Objetos e Campos da Tabela arrCampos = Split(strCampos,"/") arrObjetos = Split(strObjetos,"/") '------------------------------------------------ strSQL = "Insert INTO " & strTabela & " (" For Each intCount in arrCampos strSQL = strSQL & intCount & "," Next strSQL = Mid(strSQL,1,Len(strSQL)-1) & ") values (" For Each intCount in arrObjetos If Mid(intCount,Len(intCount),1) = "*" Then strSQL = strSQL & Request(Mid(intCount,1,Len(intCount)-1)) & "," ElseIf Mid(intCount,Len(intCount),1) = "#" Then strSQl = strSQL & "#" & Request(Mid(intCount,1,Len(intCount)-1)) & "#," ElseIf Mid(intCount,Len(intCount),1) = "'" Then strSQl = strSQL & "'" & Request(Mid(intCount,1,Len(intCount)-1)) & "'," End If Next strSQL = Mid(strSQL,1,Len(strSQL)-1) & ")" conexao.Execute (strSQL) End Sub %>espero que gostem dessa função que desenvolvi......um abraço a todos....
Link para o comentário
Compartilhar em outros sites
3 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.