• Home
 · 
• Databases/Data Access/DAO/ADO
 · 
• Using Array of fields for inserting data in table

Using Array of fields for inserting data in table

Using Array of fields for inserting data in table

API Declarations


--make connection with table using ADO Data Control
--Place 2 text boxes & set their name property to txtname,txtcity
--Place one button with the name btnInsert

--Syntax --> Array(Fields),Array(Values)



Rate Using Array of fields for inserting data in table

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Dim records As New ADODB.Recordset

Private Sub Form_Load()

cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\table\db1.mdb;Persist Security Info=False"

cn.Open
rs.Open "select * from Details", cn, adOpenDynamic, adLockOptimistic

End Sub

Private Sub btnInsert_Click()

'----we can provide fix values

If rs.BOF = True Then
rs.AddNew Array("name", "city"), Array("Hema Salunke", "Pune")
rs.Update
Else
rs.MoveLast
rs.AddNew Array("name", "city"), Array("Hema Salunke", "Pune")
rs.Update

'--we can also provide control contained value 

If rs.BOF = True Then
rs.AddNew Array("name", "city"), Array(txtname, txtcity)
rs.Update
Else
rs.MoveLast
rs.AddNew Array("name", "city"), Array(txtName, txtCity)
rs.Update

End If