-1
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컴파일러 오류 : 메서드 또는 DataMember를 찾을 수 없습니다 VB6 (Addnew)
내가 코드의 문제점이 무엇인지 모르는 내가 그물에 몇 시간을 검색하고 난 아직 할 수있는 ' 솔루션을 찾지 마라. 문제는 Addnew 함수에 있어야합니다. 누락 된 라이브러리가있는 것 같습니다. 당신이 나를 도울 수 있기를 바랍니다. 나는 v 6.0을 처음 접했습니다. 감사!.
https://msdn.microsoft.com/en-us/library/ee336106(v= office.12) .aspx – Plutonix