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

New one Using array of fields for inserting data in table

New one 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 New one Using array of fields for inserting data in table

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Dim rs 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