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

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

Answer 1

您可能没有正确引用DAO（或ADO），如果能够使用Microsoft数据对象（DAO）或带记录集的ADO，请检入项目引用。

AddNew方法通常是使用记录集的旧方法，在DAO代码中很常见。我相信您可以移动代码以使用ADO并使用更新，插入和删除以及不使用AddNew或编辑

来改进您的语句

编译器错误：找不到方法或数据库vb6（Addnew）

1 个答案: