<div>
Adjusted points from 15 to 50
</div>


<div>
Dim cn As New ADODB.Connection<br />
Dim rs As New ADODB.Recordset<br />
<br />
cn.Open &quot;DSN=Visual FoxPro Tables;UID=;PWD=;SourceDB=<wbr />d:\My Work;SourceType=DBF;Exclus<wbr />ive=No;Bac<wbr />kgroundFet<wbr />ch=Yes;Col<wbr />late=Machi<wbr />ne;Null=Ye<wbr />s;Deleted=<wbr />Yes;&quot;<br />
rs.Open &quot;select * from test&quot;, cn<br />
<br />
' Add new record<br />
rs.addnew<br />
rs.fields(0)=122<br />
rs.fields(1)=&quot;xxx&quot;<br />
rs.update<br />
<br />
'Edit record<br />
rs.fields(0)=133<br />
rs.update<br />
<br />
'Delete record<br />
rs.delete<br />
rs.update<br />
<br />
PS Test.dbf is a table in d:/My Work directory<br />
<br />
HTH
</div>


Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset

cn.Open "DSN=Visual FoxPro Tables;UID=;PWD=;SourceDB=d:\My Work;SourceType=DBF;Exclusive=No;BackgroundFetch=Yes;Collate=Machine;Null=Yes;Deleted=Yes;"
rs.Open "select * from test", cn

' Add new record
rs.addnew
rs.fields(0)=122
rs.fields(1)="xxx"
rs.update

'Edit record
rs.fields(0)=133
rs.update

'Delete record
rs.delete
rs.update

PS Test.dbf is a table in d:/My Work directory

HTH

<div>
<div class="content wysiwyg-content">
 on a form, Insert, modify and delete a record on a dbf table with ADODC ( i will apreciate to receive the code to know how to do it!!)
</div>
</div>


 on a form, Insert, modify and delete a record on a dbf table with ADODC ( i will apreciate to receive the code to know how to do it!!)

database acces with vb 6.0

Visual Basic is Microsoft’s event-driven programming language and integrated development environment (IDE) for its Component Object Model (COM) programming model. It is relatively easy to learn and use because of its graphical development features and BASIC heritage. It has been replaced with VB.NET, and is very similar to VBA (Visual Basic for Applications), the programming language for the Microsoft Office product line.