|
Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.
Mensajes - mikichu
Páginas: [1]
1
« en: Martes 2 de Junio de 2009, 00:23 »
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
2
« en: Miércoles 13 de Mayo de 2009, 21:08 »
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.
3
« en: Viernes 8 de Mayo de 2009, 16:48 »
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
Páginas: [1]
|
|
|