Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
With con
.Provider = "MSDASQL"
.ConnectionString = "Driver={Microsoft Visual FoxPro Driver};SourceType=DBF;SourceDB=" & Path & ";Exclusive=No;Collate=Machine;NULL=NO;DELETED=NO;BACKGROUNDFETCH=NO;"
.Open
End With
Set rsNature = con.Execute("select * from Nature_surete order by id_nature")
txtCarac = Trim$(rsNature!carac)
con.Execute ("insert into Type_surete values('" & Trim$(txtCarac.Text) & "')")
con.Execute ("insert into Type_surete [blue](MyFieldName)[/blue] values('" & Trim$(txtCarac.Text) & "')")