insertar y añadir

Sergio18 · #1 (**permalink**) 23/04/2010, 07:23

Hola a todos, necesito ayuda, es que no se como empezar.Vereis tengo un textbox, un combobox,un msflexgrid y un boton y una base de datos de acces con una tabla con todas las provincias de España, y otra con las ciudades y lo que tengo que hacer es en el textbox pongo una ciudad y al insertarla en el msflexgrid me tiene que aparecer la ciudad , la provincias y el id (de la provincia)de esa ciudad en la misma fila y todos ello tiene que estar en otra tabla de acces que no sea ni ciudad, ni provincias, llamemosla "topo".

Saludos y gracias

Sergio18 · #2 (**permalink**) 26/04/2010, 01:53

Llevo este codigo:

Código vb:

Ver originalOption Explicit
Public rsCiudad2 As Recordset
Public cnPrueba As Connection
 
Private Sub Command1_Click()
If Text1 = "" Or Combo1 = "" Then
MsgBox "Debe ingresar datos en los campos", vbCritical, Me.Caption
Exit Sub
End If
'crear un objeto conexion
Set cnPrueba = New Connection
'Establecer sus propiedades
     With cnPrueba
        .Provider = "Microsoft.Jet.oledb.4.0"
        .ConnectionString = "prueba.mdb"
    End With
cnPrueba.Open
 
Set rsCiudad2 = New Recordset
'Establecer sus propiedades
With rsCiudad2
    .CursorLocation = adUseClient
    .Open "SELECT * FROM Ciudad2", cnPrueba, adOpenDynamic, adLockOptimistic
End With
'Añadimos los registros del formulario a la base de datos
 With rsCiudad2
.AddNew
.Fields("idprovincia") = Text2.Text
.Fields("Ciudad") = Text1.Text
.Fields("Provincia") = Combo1.Text
.Update
End With
MsgBox ("Datos Añadidos")
'Refrescamos el formulario para que se borren los datos introducidos
With rsCiudad2
MSFlexGrid1.Refresh
Text1.Text = ""
Text2.Text = ""
Combo1.Text = ""
.Update
End With
'Añadimos el formulario al msflexgrid
While Not rsCiudad2.EOF
MSFlexGrid1.AddItem rsCiudad2("idprovincia") & vbTab & rsCiudad2("ciudad") & vbTab & rsCiudad2("Provincia")
rsCiudad2.MoveNext
Wend
    'Insertamos la cabezera
    MSFlexGrid1.TextMatrix(0, 0) = "idprovincia"
    MSFlexGrid1.TextMatrix(0, 1) = "ciudad"
    MSFlexGrid1.TextMatrix(0, 2) = "Provincia"
    Screen.MousePointer = vbDefault
End Sub
 
Private Sub Command2_Click()
'Pregunta
If MsgBox("¿Está seguro de que desea eliminar el registro?", vbQuestion + vbYesNo, Me.Caption) = vbNo Then Exit Sub
'Se elimina de la base de datos.
Set cnPrueba = New ADODB.Connection
cnPrueba.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\prueba.mdb;Persist Security Info=False"
cnPrueba.Open
cnPrueba.Execute "delete from Ciudad2 "
cnPrueba.Close
Set cnPrueba = Nothing
'Se elimina el registro del msflexgrid
MSFlexGrid1.RemoveItem (MSFlexGrid1.Row)
End Sub
 
Private Sub Command3_Click()
Unload Me
End
End Sub
 
Private Sub Command4_Click()
Set cnPrueba = New Connection
'Establecer sus propiedades
     With cnPrueba
        .Provider = "Microsoft.Jet.oledb.4.0"
        .ConnectionString = "prueba.mdb"
     End With
    cnPrueba.Open
Set rsCiudad2 = New Recordset
'Establecer sus propiedades
With rsCiudad2
    .CursorLocation = adUseClient
    cnPrueba.Execute "UPDATE provincias SET Ciudad='" & Text1 & ",provincia='" & Combo1 & "'Where idprovincia  = " & Text2 & ""
    .ActiveConnection = cnPrueba
    .LockType = adLockOptimistic
End With
With rsCiudad2
    MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 1) = frmciudades.Text1.Text
    End With
End Sub
 
Private Sub Command5_Click()
Set cnPrueba = New Connection
'Establecer sus propiedades
     With cnPrueba
        .Provider = "Microsoft.Jet.oledb.4.0"
        .ConnectionString = "prueba.mdb"
    End With
cnPrueba.Open
Set rsCiudad2 = New Recordset
'Establecer sus propiedades
With rsCiudad2
    .CursorLocation = adUseClient
    .Open "SELECT * FROM Ciudad2", cnPrueba, adOpenDynamic, adLockOptimistic
End With
'Limpiamos el formulario
With rsCiudad2
MSFlexGrid1.Refresh
Text1.Text = ""
Combo1.Text = ""
Text2.Text = ""
.Update
End With
End Sub
Private Sub Form_Load()
Set cnPrueba = New Connection
'Establecer sus propiedades
     With cnPrueba
        .Provider = "Microsoft.Jet.oledb.4.0"
        .ConnectionString = "prueba.mdb"
    End With
cnPrueba.Open
'Visualizar el formulario
    frmciudades.Show
    frmciudades.Refresh
    MSFlexGrid1.Refresh
'crear un objeto conexion
    Set cnPrueba = New Connection
'Establecer sus propiedades
     With cnPrueba
        .Provider = "Microsoft.Jet.oledb.4.0"
        .ConnectionString = "prueba.mdb"
    End With
cnPrueba.Open
 
    Set rsCiudad2 = New Recordset
'Establecer sus propiedades
    With rsCiudad2
        .Source = "select idprovincia,ciudad,provincia from Ciudad2"
        .ActiveConnection = cnPrueba
        .LockType = adLockOptimistic
    End With
rsCiudad2.Open Options:=adCmdText
'Añadimos la cabezera
    MSFlexGrid1.Cols = 3
    MSFlexGrid1.FixedCols = 0
    While Not rsCiudad2.EOF
    MSFlexGrid1.AddItem rsCiudad2("idprovincia") & vbTab & rsCiudad2("Ciudad") & vbTab & rsCiudad2("provincia")
    rsCiudad2.MoveNext
    Wend
    'Insertamos la cabezera
    MSFlexGrid1.TextMatrix(0, 0) = "idprovincia"
    MSFlexGrid1.TextMatrix(0, 1) = "Ciudad"
    MSFlexGrid1.TextMatrix(0, 2) = "Provincia"
    Screen.MousePointer = vbDefault
    
MSFlexGrid1.ColWidth(1) = 2000
MSFlexGrid1.ColWidth(2) = 2000
End Sub
 
Private Sub MSFlexGrid1_Click()
frmciudades.Text2.Text = MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 0)
frmciudades.Text1.Text = MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 1)
frmciudades.Combo1.Text = MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 2)
End Sub

Lo que me falta es que cuando yo ponga la ciudad y la provincia en el msflexgrid tambien se ponga el Id que concuerde con la provincia que yo ponga, alguien se le ocurre algo??

Saludos

XYON126 · #3 (**permalink**) 27/04/2010, 03:15

Hola sergio!

No se si te servira pero bueno, Ya te has planteado que todas las BBDD y sobre todo la de ACCES usan un ID unico para cada dato, posiblemente este ID si lo llamas igual al resto de datos que necesitas te sirva de identificador como comentas pues es fijo he invariable en la BBD hasta que borres ese registro de la misma.Ah! ademas el ID se llama asi ID y suele ser un número.

Un saludo

Sergio18 · #4 (**permalink**) 27/04/2010, 03:33

Lo acabo de terminar de hacer ahora mismo, lo que e echo a sido declarar una variable y rellenarla con datos, y despues una consulta que me indique el id de la provincia que ponga:

Código vb:

Ver originalDim idprovincia As Long
idprovincia = 0
'------------------------------------------------------------------------------
'Crear un conjunto de registros desde la tabla Ciudad2
Set rsCiudad2 = New Recordset
'------------------------------------------------------------------------------
'Establecer sus propiedades
With rsCiudad2
    .CursorLocation = adUseClient
    .Open "select idprovincias from provincias where provincias='" & Combo1.Text & "'", cnPrueba, adOpenDynamic, adLockOptimistic
End With
If Not rsCiudad2.EOF Then
    idprovincia = rsCiudad2.Fields(0)
End If
rsCiudad2.Close
rsCiudad2.Open "select * from ciudad2"
'------------------------------------------------------------------------------
'Añadimos los registros del formulario a la base de datos
 With rsCiudad2
.AddNew
.Fields("Ciudad") = Text1.Text
.Fields("idprovincia") = idprovincia
.Update
End With
MsgBox ("Datos Añadidos")

Saludos y Gracias por contestar