Programación General > Bases de Datos

 Insertar Datos a dos Tablas a la ves

(1/2) > >>

mikichu:
hola a todos tengo un full problema y no se como solucionarlo.
El tema es que tengo 2 tablas una llamada Persona(Id, Nombre, Apellido,CI,Domicilio) y otra Paciente(Id,edad,Procedencia, Ocupacion, Estado_Civil).
El punto es que al momento de LLenar la tabla Persona me llene tambien la Tabla Paciente Con el Id de la Persona.
Las tablas si o si tenen que ser separadas puesto que se trata de una generalización.
Tengo un formulario general para la introduccion de estos datos.
Si me pueden dar otra forma de hacer esto seria genial.

La Base de Datos esta en Acces
y trate de hacerlo de la siguiente manera:
Private mobjConn                As ADODB.Connection
Private mobjConn1               As ADODB.Connection
Private mobjCmd                 As ADODB.Command
Private mobjCmd1                 As ADODB.Command

  Dim strSQL          As String
  Dim strSQL1         As String

 strSQL = "INSERT INTO PERSONA(  ID"
        strSQL = strSQL & "            , Nombre"
        strSQL = strSQL & "            , Apellido"
        strSQL = strSQL & "            , CI"
        strSQL = strSQL & "            , Domicilio"
        strSQL = strSQL & "         ) VALUES ("
        strSQL = strSQL & lngIDField
        strSQL = strSQL & ", '" & Replace$(txtNombre.Text, "'", "''") & "'"
        strSQL = strSQL & ", '" & Replace$(txtApellido.Text, "'", "''") & "'"
        strSQL = strSQL & ", '" & Replace$(txtCI.Text, "'", "''") & "'"
        strSQL = strSQL & ", '" & Replace$(txtDomicilio.Text, "'", "''") & "'"
        strSQL = strSQL & ")"
       
        strSQL1 = "INSERT INTO INTERESADO(  ID"
        strSQL1 = strSQL & "            , Telefono"
        strSQL1 = strSQL & "         ) VALUES ("
        strSQL1 = strSQL & lngIDField
        strSQL1 = strSQL & ", '" & Replace$(txtTelefono.Text, "'", "''") & "'"
        strSQL1 = strSQL & ")"
   
    mobjCmd.CommandText = strSQL
    mobjCmd.Execute
    mobjCmd1.CommandText = strSQL1
    mobjCmd1.Execute
Espero que puedan ayudarme bueno bye. y gracias de antemano jejej

F_Tanori:
No entiendo que hay con ese codigo, no te funciona ? te da algun error?

ya haz logrado conectarte a la base de datos? (creo que por ahi va el problema)

Revisa este hilo

viewtopic.php?f=56&t=23439&p=82372

Una vez conectado (lo principal), podras hacer eso de muchas maneras y sin problemas

Saludos

m0skit0:
Revisa esto: viewtopic.php?f=141&t=38709

mikichu:
Me conecto bien a la Base de Datos incluso puedo realizar insersion actualizacion eliminacion en una tabla pero lo que yo quiero es hacer lo mismo pero en dos tablas al mismo tiempo es decir manipular varias tablas en una consulta. sera que se puede o tengo que hacerlo de otra manera
OTRA VES MI PROBLEMA NO ES DE CONEXION A LA BASE DE DATOS POR ESE LADO TODO VA BIEN
Bueno de todos modos Gracias por responder.

m0skit0:

--- Cita de: "mikichu" ---hacer lo mismo pero en dos tablas al mismo tiempo es decir manipular varias tablas en una consulta
--- Fin de la cita ---
Eso lo puedes hacer en la misma sentencia SQL si le especificas las tablas, a menos que sean 2 conexiones diferentes. En tal caso que yo sepa sólo lo puedes hacer tal y como has puesto.

Navegación

[0] Índice de Mensajes

[#] Página Siguiente