Programación General > Bases de Datos

 Insertar Datos a dos Tablas a la ves

<< < (2/2)

seba123neo:
Hola, para que 2 conexiones y 2 comandos ? con uno solo es suficiete...aparte el error es que estas mezclando las variables strSQL y strSQL1...

saludos.

mikichu:
Bueno Gracias a todos por su ayuda pero al fin pude hacer lo que queria les dejo el codigo p que lo chequeenn
Des pues de insertar en una tabla borro la variable de consulta strSQL y la vuelvo a llenar para ejecutar otra consulta
todo utiliza la misma conecionn
 Private mobjConn                As ADODB.Connection
Private mobjCmd                 As ADODB.Command
Private mobjRst                 As ADODB.Recordset


 If mstrMaintMode = "ADD" Then
strSQL = "INSERT INTO INTERESADO(  ID"
        strSQL = strSQL & "            , Telefono"
        strSQL = strSQL & "         ) VALUES ("
        strSQL = strSQL & lngIDField
        strSQL = strSQL & ", '" & Replace$(txtTelefono.Text, "'", "''") & "'"
        strSQL = strSQL & ")"
   Else
        lngIDField = CLng(lvPersona_Interesado.SelectedItem)
       
        strSQL = "UPDATE INTERESADO SET "
        strSQL = strSQL & "  Telefono   = '" & Replace$(txtTelefono.Text, "'", "''") & "'"
        strSQL = strSQL & " WHERE ID = " & lngIDField
    End If
    mobjCmd.CommandText = strSQL
    mobjCmd.Execute
     strSQL = " "
   
    If mstrMaintMode = "ADD" Then
   
        'lngIDField = GetNextCustID()
       
        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 & ")"  
   
    Else
        'lngIDField = CLng(lvPersona_Interesado.SelectedItem)
       
        strSQL = "UPDATE PERSONA SET "
        strSQL = strSQL & "  Nombre   = '" & Replace$(txtNombre.Text, "'", "''") & "'"
        strSQL = strSQL & ", Apellido    = '" & Replace$(txtApellido.Text, "'", "''") & "'"
        strSQL = strSQL & ", CI  = '" & Replace$(txtCI.Text, "'", "''") & "'"
        strSQL = strSQL & ", Domicilio  = '" & Replace$(txtDomicilio.Text, "'", "''") & "'"
        strSQL = strSQL & " WHERE ID = " & lngIDField
       
        strSQL = "UPDATE INTERESADO SET "
        strSQL = strSQL & "  Telefono   = '" & Replace$(txtTelefono.Text, "'", "''") & "'"
        strSQL = strSQL & " WHERE ID = " & lngIDField
 
    End If
   
    mobjCmd.CommandText = strSQL
    mobjCmd.Execute

Navegación

[0] Índice de Mensajes

[*] Página Anterior