ayuda con mi codigo
Hola que tal, haber si alguien me puede echar una mano con mi codigo, gracias.
.....
a = "INSERT INTO CURSOS (CURSO, SUB_ACCION)VALUES (" & Text1.Text & " , " & Text2.Text & " )"
Set tRs = New ADODB.Recordset
tRs.Open a, cnn, adOpenDynamic, adLockOptimistic
With tRs
.AddNew
.Update
.MoveLast
If (.BOF And .EOF) Then
MsgBox "No se puede añadir el nuevo registro"
Else
With ListView1.ListItems.Add(, , tRs.Fields("CURSO") & "")
.SubItems(1) = Trim$(tRs.Fields("SUB_ACCION") & "")
End With
End If
End With
End Sub
....
Al intentar añadir un componente me da el siguiente error : " No se han especificado valores para algunos de los parámetros requeridos"
GRACIAS A TODOS. SALU2
.....
a = "INSERT INTO CURSOS (CURSO, SUB_ACCION)VALUES (" & Text1.Text & " , " & Text2.Text & " )"
Set tRs = New ADODB.Recordset
tRs.Open a, cnn, adOpenDynamic, adLockOptimistic
With tRs
.AddNew
.Update
.MoveLast
If (.BOF And .EOF) Then
MsgBox "No se puede añadir el nuevo registro"
Else
With ListView1.ListItems.Add(, , tRs.Fields("CURSO") & "")
.SubItems(1) = Trim$(tRs.Fields("SUB_ACCION") & "")
End With
End If
End With
End Sub
....
Al intentar añadir un componente me da el siguiente error : " No se han especificado valores para algunos de los parámetros requeridos"
GRACIAS A TODOS. SALU2
