Referencia Rápida Para Visual Basic 6 - Adicionando registros em banco de dados access com Dao

Adiocionando registros a um banco de dados visual basic 6 com DAO.

Uma das maneira mais prática de se acessar um banco de dados access 97 local com VB6 é o sistema DAO. Abaixo segue o esquema bem prático para sua utilização.

Dim dbLanc As Dao.Database

Dim rsLanc As Dao.Recordset

Dim strSQLLanc As String

strSQLLanc = "Select * from tblLan"

Set dbLanc = OpenDatabase("C:\teste.mdb")

Set rsLanc = dbLanc.OpenRecordset(strSQLLanc)

rsLanc.AddNew

rsLanc.Fields("Texto") = txtTexto.Text

rsLanc.Update

rsLanc.Close

dbLanc.Close