编译器错误：方法或数据成员没有找到VB6（ADDNEW）

问题描述：

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 编译器错误：方法或数据成员没有找到VB6（ADDNEW）

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

https://msdn.microsoft.com/en-us/library/ee336106(v= office.12）的.aspx – Plutonix

答

也许你没有一个正确的引用到DAO（或ADO），检查项目引用，如果你能使用Microsoft数据对象（DAO）或ADO记录集用。

方法的AddNew一般是在DAO代码的记录和共同工作的老路上。我相信你可以使用的AddNew或编辑移动代码使用ADO与更新提高你的语句，插入和删除，而不是

编译器错误：方法或数据成员没有找到VB6（ADDNEW）

相关推荐