[Resolvido] Novo comando sql :)

[_UsP_ 0]

Função versão 2.0, que insere, deleta, faz update e seleciona. No banco de dados.

Interessante vale conferir ;)

 

SELECT

 

Function SelectInTable(DataBase,Table,Columns,Registers,tipo)

Set conexao = Server.CreateObject("ADODB.Connection")

Conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DataBase&".mdb")

Columns = Split(Columns,";")

Registers = Split(Registers,";")

tipo = Split(tipo,";")

if UBound(Columns) <> Ubound(Registers) or Ubound(Registers) <> Ubound(tipo) or Ubound(tipo) <> UBound(Columns) then

Response.Write "Erro..."

else

sqlSelect = "SELECT*FROM ["&table&"] WHERE "

For ColumnsCount = 1 to UBound(Columns)

if tipo(nRegisters) = "texto" then

sqlSelect = sqlSelect & Columns(nColumns) & " = " & "'"&Registers(nRegisters)&"'"

elseif tipo(nRegisters) = "numero" then

ssqlSelect = sqlSelect & Columns(nColumns) & " = " & ""&Cint(Registers(nRegisters))&""

elseif tipo(nRegisters) = "data" then

sqlSelect = sqlSelect & Columns(nColumns) & " = " & "#"&Registers(nRegisters)&"#"

end if

if ColumnsCount < UBound(Columns) - 1 then

sqlSelect = sqlSelect & " and "

else

sqlSelect = sqlSelect & ""

end if

nColumns = nColumns + 1

nRegisters = nRegisters + 1

next

'Response.Write sqlSelect

'Response.end

Set Selecionado = Conexao.Execute(sqlSelect)

if Selecionado.eof then

Session("Return") = false

else

Session("Return") = true

end if

end if

End Function

 

DELETE

 

Function DeleteInTable(DataBase,Table,Columns,Registers,tipo)

Set conexao = Server.CreateObject("ADODB.Connection")

Conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DataBase&".mdb")

Columns = Split(Columns,";")

Registers = Split(Registers,";")

tipo = Split(tipo,";")

if UBound(Columns) <> Ubound(Registers) or Ubound(Registers) <> Ubound(tipo) or Ubound(tipo) <> UBound(Columns) then

Response.Write "Erro..."

else

sqlDelete = "DELETE*FROM ["&table&"] WHERE "

For ColumnsCount = 1 to UBound(Columns)

if tipo(nRegisters) = "texto" then

sqlDelete = sqlDelete & Columns(nColumns) & " = " & "'"&Registers(nRegisters)&"'"

elseif tipo(nRegisters) = "numero" then

sqlDelete = sqlDelete & Columns(nColumns) & " = " & ""&Cint(Registers(nRegisters))&""

elseif tipo(nRegisters) = "data" then

sqlDelete = sqlDelete & Columns(nColumns) & " = " & "#"&Registers(nRegisters)&"#"

end if

if ColumnsCount < UBound(Columns) then

sqlDelete = sqlDelete & " and "

else

sqlDelete = sqlDelete & ""

end if

nColumns = nColumns + 1

nRegisters = nRegisters + 1

next

Conexao.Execute(sqlDelete)

Response.Write "Dados deletados com susseso!"

end if

End Function

 

UPDATE

 

Function UpdateInTable(DataBase,Table,Columns,Registers,tipo)

Set conexao = Server.CreateObject("ADODB.Connection")

Conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DataBase&".mdb")

Columns = Split(Columns,";")

Registers = Split(Registers,";")

tipo = Split(tipo,";")

if UBound(Columns) <> Ubound(Registers) or Ubound(Registers) <> Ubound(tipo) or Ubound(tipo) <> UBound(Columns) then

Response.Write "Erro..."

else

sqlUpdate = "UPDATE ["&table&"] SET "

For ColumnsCount = 0 to UBound(Columns) - 2

if tipo(nRegisters) = "texto" then

sqlUpdate = sqlUpdate & Columns(nColumns) & " = " & "'"&Registers(nRegisters)&"'"

elseif tipo(nRegisters) = "numero" then

sqlUpdate = sqlUpdate & Columns(nColumns) & " = " & ""&Cint(Registers(nRegisters))&""

elseif tipo(nRegisters) = "data" then

sqlUpdate = sqlUpdate & Columns(nColumns) & " = " & "#"&Registers(nRegisters)&"#"

end if

if ColumnsCount < UBound(Columns) - 2 then

sqlUpdate = sqlUpdate & ", "

else

sqlUpdate = sqlUpdate & " "

end if

nColumns = nColumns + 1

nRegisters = nRegisters + 1

next

if tipo(nRegisters) = "texto" then

sqlUpdate = sqlUpdate & " WHERE " & Columns(nColumns) & " = " & "'"&Registers(nRegisters)&"'"

elseif tipo(nRegisters) = "numero" then

sqlUpdate = sqlUpdate & " WHERE " & Columns(nColumns) & " = " & ""&Cint(Registers(nRegisters))&""

elseif tipo(nRegisters) = "data" then

sqlUpdate = sqlUpdate & " WHERE " & Columns(nColumns) & " = " & "#"&Registers(nRegisters)&"#"

end if

Conexao.execute(sqlUpdate)

Response.Write "Update concluido com susseso!"

end if

End Function

 

INSERT

 

Function InsertInTable(DataBase,Table,Columns,Registers,tipo)

Set conexao = Server.CreateObject("ADODB.Connection")

Conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DataBase&".mdb")

Columns = Split(Columns,";")

Registers = Split(Registers,";")

tipo = Split(tipo,";")

if UBound(Columns) <> Ubound(Registers) or Ubound(Registers) <> Ubound(tipo) or Ubound(tipo) <> UBound(Columns) then

Response.Write "Erro..."

else

sqlInsert = "INSERT INTO ["&table&"]("

For ColumnsCount = 1 to UBound(Columns)

sqlInsert = sqlInsert & Columns(nColumns)

if ColumnsCount < UBound(Columns) then

sqlInsert = sqlInsert & ", "

else

sqlInsert = sqlInsert & " )"

end if

nColumns = nColumns + 1

next

sqlInsert = sqlInsert & " VALUES ("

For RegistersCount = 1 to UBound(Registers)

if tipo(nRegisters) = "texto" then

sqlInsert = sqlInsert & "'"&Registers(nRegisters)&"'"

elseif tipo(nRegisters) = "numero" then

sqlInsert = sqlInsert & ""&Cint(Registers(nRegisters))&""

elseif tipo(nRegisters) = "data" then

sqlInsert = sqlInsert & "#"&Registers(nRegisters)&"#"

end if

if RegistersCount < UBound(Registers) then

sqlInsert = sqlInsert & ", "

else

sqlInsert = sqlInsert & " )"

end if

nRegisters = nRegisters + 1

next

Conexao.Execute(sqlInsert)

Response.Write "Dados inseridos com susseso!"

end if

End Function

 

 

vlw ae galera :D Função feita por min ^_^