USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  ASP - Active Server Page    (Miscelâneas)

Título da Dica:  ASP x DBF
Postada em 2/10/2003 por ^HEAVY-METAL^            
Como vi que muitas pessoas tiveram o mesmo problema com arquivos DBF estou postando a codificação para abrir um DBF e para alterar registros do mesmo.

Dim oConn

Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "Driver={Microsoft dBASE Driver (*.dbf)};" & _
"DriverID=21;" & _
"Dbq=c:\dados"

Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.CursorLocation = adUseServer
objRS.CursorType = adOpenForwardOnly
objRS.LockType = adLockOptimistic

objRS.Open "Select * From SceAlu.dbf Where Cod_Alu = '" & codigo & "'", oConn, , , adCmdText

objRS("Nom_Alu") = Request.Form("nom_alu")
objRS("Nat_Alu") = Request.Form("nat_alu")
objRS("Est_Nat") = Request.Form("uf_alu")
objRS("Sex_Alu") = Request.Form("sexo_alu")
objRS("Cod_Pai") = Request.Form("cod_pai")
objRS("Cod_Mae") = Request.Form("cod_mae")
objRS("Cod_Res") = Request.Form("cod_res")
objRS("Eml_Alu") = Request.Form("eml_alu")

objRS.Update
objRS.Close

Set objRS = Nothing

oConn.Close
set oConn = nothing

T+,
 


CyberWEB Network Ltda.    © Copyright 2000-2020   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página