Author : Prashant Barakale
Date Submitted : 2/14/2006
Category : Database
Compatibility : VB 6
This code has been accessed 7469 times.
Task : Using Array of fields for inserting data in table
Declarations
Code
Dim conn As New ADODB.Connection
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