COMPLETAR TABLA CON CÓDIGO VB
Publicado por vestalc (5 intervenciones) el 27/05/2009 15:58:12
Tengo el siguiente problema:
quiero llenar una tabla vacia según los campos de otra tabla. el problema es que lo quiero hacer desde código vb.
el caso es que la tabla1 con tiene un número de registros y necesito coger el valor de uno de sus campos para ir generando registros con ese valor en la tabla2. lo he intentado con el siguiente código, pero me da error en la tabla2, puesto que no la abre de forma que pueda escribirse en ella (es decir en la parte addnew canta error por que no lo permite la instrucción "execute (sql2)"
Dim rst_in_con, rst_cond As New ADODB.Recordset, SQL1, sql2 As String
If nuevoregistro = "si" Then
SQL1 = "Select * from tipos_conducta"
sql2 = "select * from incidencias_conducta"
Set rst_cond = CurrentProject.Connection.Execute(SQL1)
Set rst_in_con = CurrentProject.Connection.Open
While Not rst_cond.EOF
rst_in_con.AddNew
rst_in_con!IDINCIDENCIA = Me.IDINCIDENCIA
rst_in_con!idtipo_conducta = rst_cond!idtipo_conducta
rst_in_con!tipo_conducta = 0
rst_in_con.Save
rst_cond.MoveNext
Wend
End If
quiero llenar una tabla vacia según los campos de otra tabla. el problema es que lo quiero hacer desde código vb.
el caso es que la tabla1 con tiene un número de registros y necesito coger el valor de uno de sus campos para ir generando registros con ese valor en la tabla2. lo he intentado con el siguiente código, pero me da error en la tabla2, puesto que no la abre de forma que pueda escribirse en ella (es decir en la parte addnew canta error por que no lo permite la instrucción "execute (sql2)"
Dim rst_in_con, rst_cond As New ADODB.Recordset, SQL1, sql2 As String
If nuevoregistro = "si" Then
SQL1 = "Select * from tipos_conducta"
sql2 = "select * from incidencias_conducta"
Set rst_cond = CurrentProject.Connection.Execute(SQL1)
Set rst_in_con = CurrentProject.Connection.Open
While Not rst_cond.EOF
rst_in_con.AddNew
rst_in_con!IDINCIDENCIA = Me.IDINCIDENCIA
rst_in_con!idtipo_conducta = rst_cond!idtipo_conducta
rst_in_con!tipo_conducta = 0
rst_in_con.Save
rst_cond.MoveNext
Wend
End If
Valora esta pregunta


0