コンパイラエラー：メソッドまたはデータメンバーが見つかりませんVB6（AddNewの）

Question

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

私はコードの問題が何であるかを知らないと私はネット上で時間のカップルを検索し、私はまだすることができ」 seソリューションを見つける。問題は、Addnew関数にある必要があります、私は欠けているライブラリがあると思います。 あなたが私を助けてくれることを願っています、私はv 6.0で新しくなりました。ありがとう！

Answer 1

DAO（またはADO）への正しい参照がない可能性があります。Microsoft Data Object（DAO）またはADO with recordsetを使用できる場合は、プロジェクト参照をチェックインしてください。

AddNewメソッドは一般的に、DAOコードでレコードセットと共通の作業をする古い方法です。私はあなたがADOを使用するコードを移動し、更新、挿入、削除し、AddNewやEditを使用せずにステートメントを改善できると信じています。