编译器错误：找不到方法或数据成员 vb6 (Addnew)答案

【问题标题】：Compiler error: method or datamember not found vb6 (Addnew)编译器错误：找不到方法或数据成员 vb6 (Addnew)
【发布时间】：2017-10-17 21:36:19
【问题描述】：

Private Sub Command1_Click()
Dim contador As Integer
Dim tabla As TableDef
Dim columna As Field
Dim baseDeDatos As Database
Dim directorioDB As String
Set tabla = baseDeDatos.OpenTable("Empleados")
tabla.AddNew
tabla!Legajo = Text1.Text
tabla.AddNew
tabla!Nombre = Text2.Text
If Text3.Text > 19 And Text3.Text < 51 Then
    tabla.AddNew
    tabla!Edad = Text3.Text
    Label4.Caption = "Terminado"
Else
    Label4.Caption = "Registro no cargado. Rango de edad entre 20 y 50 años"
End If
tabla.Update
If contador = 10 Then
    Command1.Caption = "Cargados 10 registros"
Else
    contador = contador + 1
End If
End Function

Private Sub Form_Load()
Dim tabla As TableDef
Dim columna As Field
Dim baseDeDatos As Database
Dim directorioDB As String
Set archivo = New FileSystemObject

If Not archivo.FileExists("C:\Users\tam45949\Desktop\tp2programacion2.mdb") Then
    Set baseDeDatos = DBEngine.Workspaces(0).CreateDatabase("C:\Users\tam45949\Desktop\tp2programacion2.mdb", dbLangSpanish)
End If

Set baseDeDatos = OpenDatabase("C:\Users\tam45949\Desktop\tp2programacion2.mdb")
Set tabla = baseDeDatos.CreateTableDef("Empleados")
Set columna1 = tabla.CreateField("Legajo", dbInteger)
tabla.Fields.Append (columna1)
Set columna2 = tabla.CreateField("Nombre", dbText, 30)
tabla.Fields.Append (columna2)
Set columna3 = tabla.CreateField("Edad", dbInteger)
tabla.Fields.Append (columna3)
baseDeDatos.TableDefs.Append tabla
End Sub

Private Sub Form_Terminate()
    tabla.Close
    baseDeDatos.Close
End Sub

Link to the library list

我不知道代码有什么问题，我在网上搜索了几个小时，但仍然找不到解决方案。问题应该出在 Addnew 函数中，我猜是缺少库。希望你能帮助我，我是 v b 6.0 的新手。谢谢！。

【问题讨论】：

msdn.microsoft.com/en-us/library/ee336106(v=office.12).aspx

标签： methods vb6 datamember

【解决方案1】：

您可能没有正确引用 DAO（或 ADO），如果您能够将 Microsoft 数据对象 (DAO) 或 ADO 与记录集一起使用，请检查项目引用。

AddNew 方法通常是处理记录集的旧方法，在 DAO 代码中很常见。我相信您可以移动代码以使用 ADO 并使用 update 、 insert 和 delete 改进您的语句，而不是使用 AddNew 或 Edit

【讨论】：