Urgente busqueda en Base de dato ??
Publicado por Rodrigo (5 intervenciones) el 22/10/2000 00:00:00
hola tengo el terrible dilema
los recordset de la base dato y la esc los tengo en modulos, la base dato la abro en el
form_load
Dim d As String
d = "select * from propietario where rol = ´" & Text1 & "´ "
Set esc = bd.OpenRecordset(d, dbOpenDynaset)
If esc.RecordCount <> 0 Then
MsgBox ("Ya existe")
Else
esc.AddNew
esc("rol") = Text1
.......
esc.Update
MsgBox ("YA ingreso")
End If
esc.Close
Lo que necesito es saber como ingresar en barias tablas a la ves (tablas propietario,propiedad , arrend,
pero preguntando si existe el rol en la tabla propietario sino se ingresa todo en las
diferentes tablas. (estoy trabanjando la base de dato en Access 97)
¿Por casualidad se puede esto, ya que estoy provando de distintas maneras?
If esc.recordcount <> 0 then
....
else
esc.AddNew
esc("propietario.rol")=text1
esc("propiedad.estado")=text15
...
end if
los recordset de la base dato y la esc los tengo en modulos, la base dato la abro en el
form_load
Dim d As String
d = "select * from propietario where rol = ´" & Text1 & "´ "
Set esc = bd.OpenRecordset(d, dbOpenDynaset)
If esc.RecordCount <> 0 Then
MsgBox ("Ya existe")
Else
esc.AddNew
esc("rol") = Text1
.......
esc.Update
MsgBox ("YA ingreso")
End If
esc.Close
Lo que necesito es saber como ingresar en barias tablas a la ves (tablas propietario,propiedad , arrend,
pero preguntando si existe el rol en la tabla propietario sino se ingresa todo en las
diferentes tablas. (estoy trabanjando la base de dato en Access 97)
¿Por casualidad se puede esto, ya que estoy provando de distintas maneras?
If esc.recordcount <> 0 then
....
else
esc.AddNew
esc("propietario.rol")=text1
esc("propiedad.estado")=text15
...
end if
Valora esta pregunta


0