Help with database

[baker89]

I am really stuck right now. How do you start with an empty recordset and the program add a record when the program launches. I have tried the simple:
Data1.RecordSet.AddNew, but I get 'Error 91'.

I would really appreciate if someone could help me with this.

Thx!!!

[dglienna]

Post your code. Bound controls are harder to work with

[baker89]

I would post my code but I don't really have any working code. I would simply like to know how to have the program start a new record on runtime. My recordset will be empty when the program first loads.

Also, I was wondering if there is any good source out there where I could full instructions on how access databases work.

Thx!!

[s00263668]

To insert new record, you can try to use SQL statement

[dglienna]

You should create the table first in Access, but you don't need to add records.

You could delete all records when the program starts as well.

Read about SQL

[Hack]

Here is a good start.

[Thread1]

i think the code below is a good one to start with, ADO (http://www.w3schools.com/ado/ado_intro.asp).. just read the comments to know what the code is doing..

Option Explicit

Dim m_cn As ADODB.Connection
Dim m_rs As ADODB.Recordset

' open connection/recordset
Private Sub Form_Load()
  
  Set m_cn = New ADODB.Connection
  m_cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=<MDB filename>;"
    
  Set m_rs = New ADODB.Recordset
  m_rs.Open "SELECT * FROM <table name>", m_cn, adOpenKeyset, adLockOptimistic

End Sub


' close connection/recordset
Private Sub Form_Unload(Cancel As Integer)
  m_rs.Close
  Set m_rs = Nothing
  m_cn.Close
  Set m_cn = Nothing
End Sub


' add one record
Private Sub Command1_Click()
  
  m_rs.AddNew
  m_rs("field1").Value = "value1"
  m_rs("field2").Value = "value2"
  m_rs("fieldN").Value = "valueN"
  m_rs.Update

End Sub