|
|
|
|
|
|
|
|
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+,
|
|
|
|
|
