2 dudas que tengo

[Sergio18]

1. Tengo un msflexgrid conectado a una base de datos de acces y lo k quiero hacer es que cuando yo borre una fila de la tabla que tenga puesto tambien se borre la fila de la base de datos.

2. Quiero que cuando añada un registro a la base de datos desde un formulario echo en visual basic, el msflexgrid al que esta conectado se actualize sin tener que salir y volver a entrar (creo que se hace con el refresh pero es k no se donde ponerlo)

Gracias y espero que alguien me ayuda

Salu2

[valentino_m]

mira para que cuando cargas un registro nuevo a la base desde el form tienes que volver a llamar la rutina que cargue el msflexgrid, segun entiendo vos lo tenes agregada a la rutina en el evento load del form, por eso se carga cuando abris la pantalla y muestra los valores neuvos, bueno la misma rutina que carga el msflex debes ponerla despues que insertes el registro en la base, espero te sirva y sino publica el codigo asi te podemos ayudar mejor
saludos

[Sergio18]

Yo lo quiero hacer desde un boton aqui te muestro el codigo que tengo en el

Código vb:

Private Sub Command1_Click()
'Todos los campos que tenemos tienen que estar rellenos
If Text1 = "" Or Text2 = "" Or Text3 = "" Or Text4 = "" Or Text5 = "" Or Text6 = "" Or Combo1 = "" Then
MsgBox "Debes ingresar todos los datos", 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
'Crear un conjunto de registros desde la tabla Tbl_Direccion
Set rsTbl_Direccion = New Recordset
'Establecer sus propiedades
With rsTbl_Direccion
    .CursorLocation = adUseClient
    .Open "SELECT * FROM tbl_direccion", cnprueba, adOpenDynamic, adLockOptimistic
End With
'Añadimos los registros del formulario a la base de datos
With rsTbl_Direccion
.AddNew
.Fields("Nombre") = Text1.Text
.Fields("Apellidos") = Text4.Text
.Fields("Direccion") = Text5.Text
.Fields("Ciudad") = Combo1.Text
.Fields("Provincia") = Combo2.Text
.Fields("Telefono") = Text2.Text
.Fields("CP") = Text6.Text
.Update
MSFlexGrid1.Refresh
End With
MsgBox ("Datos exportados")
End Sub
 

En este boton lo que quiero es que se actualize el msflexgrid cuando inserte los datos, y en otro boton que borre la fila de la base de datos que yo seleccione del msflexgrid (espero que se entienda lo que digo)
Salu2

[Sergio18]

¿¿Nadie sabe hacerlo??

Salu2

[Sergio18]

Acabo de terminar el de borrar pero me falta el de actualizar, que alguien me ayude que me estoy estresando

Código vb:

'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 tbl_direccion where Id = " & MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 0)
cnPrueba.Close
Set cnPrueba = Nothing
'Se elimina el registro del msflexgrid
MSFlexGrid1.RemoveItem (MSFlexGrid1.Row)
 

[Insomnia]

Hola

Yo no utilizo el MsFlexGrid, pero con el Data Grid, después de realizar un cambio (insert, delete, update), yo le suelo volver a pasar el origen de datos (el recordset) y luego lo refresco. Algo como:

Código vb:

' Despues de realizar el Delete
Set Datagrid1.DataSource = reg
DataGrid1.Refresh
 

No se si eso te servirá con el MsFlexGrid, pero por intentar ...

--Saludos--

[Sergio18]

hola Insomnia, menos mal que alguien contesta, ya he probado ejemplo asi y no me han resultado pero no se si sera porque no se puede o porque los pongo mal yo:

Código vb:

' Despues de realizar el Delete
Set Datagrid1.DataSource = reg
DataGrid1.Refresh
 

Código vb:

set msflexgrid1.textmatrix = reg
msflexgrid1.refresh
 

Gracias por contestar

[Insomnia]

Hola

He estado mirando un poco las diferencias entre el datagrid y msflexgrid, y me parece que el msflexgrid no se puede cargar directamente con la propiedad .DataSource y un recordset.

Como haces para llenar de datos el msflexgrid?, creo que hay que recorrer todo el recordset e ir rellenando todas las celdas.

--Saludos--

[Sergio18]

Eso lo he echo con ado, importando un archivo de acces al msflexgrid,lo tengo posteado aqui:

http://www.forosdelweb.com/f69/exportar-acces-796989/

[Insomnia]

Hola

Si no me equivoco, tendrías que volver a rellenar el msflexgrid de la misma forma (limpiandolo primero y volviendolo a llenar)

Código vb:

msflexgrid1.clear
 
While Not rsTbl_Direccion.EOF
   MSFlexGrid1.AddItem rsTbl_Direccion("id") & vbTab & rsTbl_Direccion("nombre") & vbTab & rsTbl_Direccion("apellidos") & vbTab & rsTbl_Direccion("direccion") & vbTab & rsTbl_Direccion("ciudad") & vbTab & rsTbl_Direccion("provincia") & vbTab & rsTbl_Direccion("telefono") & vbTab & rsTbl_Direccion("cp")
 
   rsTbl_Direccion.MoveNext
 
Wend
msflexgrid1.refresh
 

De todas formas me parece un control bastante complicado, mira un poco los controles DataGrid o el MsHFlexGrid (Microsoft Hierarchical FlexGrid) que los puedes enlazar directamente a un recordset como te he puesto en el ejemplo anterior (a mi me parecen más sencillos de manejar). Si necesitas un ejemplo creo que tengo algo.

--Saludos--

[Sergio18]

De todas formas me parece un control bastante complicado, mira un poco los controles DataGrid o el MsHFlexGrid que los puedes enlazar directamente a un recordset (a mi me parecen más sencillos de manejar)

Ya se que es mas facil con datagrid , he estado viendo muchos ejemplos googleando, con datagrid, pero me han mandado que lo haga con msflexfrid.

Voy a probar tu manera a ver si me va

Gracias

edito:

Código vb:

'Borrar el registro
msflexgrid1.clear 
'Añadimos
While Not rsTbl_Direccion.EOF   
MSFlexGrid1.AddItem rsTbl_Direccion("id") & vbTab & rsTbl_Direccion("nombre") & vbTab & rsTbl_Direccion("apellidos") & vbTab & rsTbl_Direccion("direccion") & vbTab & rsTbl_Direccion("ciudad") & vbTab & rsTbl_Direccion("provincia") & vbTab & rsTbl_Direccion("telefono") & vbTab & rsTbl_Direccion("cp")    
rsTbl_Direccion.MoveNext 
Wend
'Refrescamos
msflexgrid1.refresh
 

No me va, lo unico que hace es eliminar los datos que tengo en las celdas
Salu2

[Sergio18]

Yo tengo puesto esto pero no hace nada, aver si tu sabes el porque:

Código vb:

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 "update tbl_direccion set Nombre = Nombre, Apellidos = Apellidos, Ciudad = Ciudad, Provincia = Provincia, Telefono = Telefono, CP = CP  WHERE id = " & MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 0)
cnPrueba.Close
Set cnPrueba = Nothing
'Se actualiza el registro del msflexgrid
MSFlexGrid1.Refresh
 

[Insomnia]

Hola

Al utilizar clear te elimina todo lo que tienes, luego tienes que volver a llenarlo de la misma forma que has echo la 1ª vez, dependiendo de donde hayas declarado la conexión a la bd y el recordset, puede que tengas que volver a crear el recordset con toda la select y llenar todo (tienes todo el código en el enlace que tu mismo me has enviado, repite el código utilizado para llenar)

--Saludos--

[Sergio18]

En cierto modo si que va porque le doy a actualizar y se pone el registro pero se me borran los demas dejando las celdas vacias.Le vuelvo a dar y me aparecen todos los datos pero me empieza a añadir celdas vacias cada vez que le doy. Lo he puesto asi:

Código vb:

Private Sub Command3_Click()
'Borrar el registro
MSFlexGrid1.Clear
While Not rsTbl_Direccion.EOF
MSFlexGrid1.AddItem rsTbl_Direccion("id") & vbTab & rsTbl_Direccion("nombre") & vbTab & rsTbl_Direccion("apellidos") & vbTab & rsTbl_Direccion("direccion") & vbTab & rsTbl_Direccion("ciudad") & vbTab & rsTbl_Direccion("provincia") & vbTab & rsTbl_Direccion("telefono") & vbTab & rsTbl_Direccion("cp")
rsTbl_Direccion.MoveNext
Wend
'Refrescamos
MSFlexGrid1.Refresh
Set cnPrueba = New Connection
'Establecer sus propiedades
     With cnPrueba
        .Provider = "Microsoft.Jet.oledb.4.0"
        .ConnectionString = "prueba.mdb"
    End With
cnPrueba.Open
'Crear un conjunto de registros desde la tabla Tbl_Direccion
Set rsTbl_Direccion = New Recordset
'Establecer sus propiedades
With rsTbl_Direccion
    .CursorLocation = adUseClient
    .Open "SELECT * FROM tbl_direccion", cnPrueba, adOpenDynamic, adLockOptimistic
End With
 
End Sub
 

Saludos

[Insomnia]

Hola

Me parece que no tienes muy claros algunos conceptos, en la linea 4-6 estas intentando llenar el msflexgrid antes de abrir la conexión a la bd y antes de crear el recordset y a eso no le veo sentido. Intenta comprender el concepto.

Para realizar algo con una bd primero tienes que crear una conexión con ella, que será diferente según el metodo utilizado y según la bd (access, sql server,...). Eso lo estas haciendo en las lineas 10-16

Una vez que tienes la conexión, puedes realizar acciones con la bd (Select, insert, delete), para guardar los datos obtenidos de una select te hace falta un recorset que eso lo tienes en las lineas 18-26.

Una vez que tienes los datos en el recordset es cuando puedes pasarlo a un control grid (msflexgrid, datagrid,...) o a unos textos o lo que quieras.

Resumiendo (y si he comprendido bien el código), las lineas 3-9 tienen que ir al final, es decir, despues de la linea 23.

Puede que este confundido, pero te recomiendo que intesten entender el significado de lo que estas haciendo en cada parte del código, para poder aplicarlo luego de distinta forma.

Si me he equivocado presuponiendo que no tienes claros algunos conceptos perdoname, pero es la impresión que me ha dado.

--Saludos--

[Sergio18]

No pasa nada, pero claros los tenia lo que pasa es que lo hice a prisa sin pensar, y ahora lo acabo de terminar.

Código vb:

Private Sub Command1_Click()
'Todos los campos que tenemos tienen que estar rellenos
If Text1 = "" Or Text2 = "" Or Text3 = "" Or Text4 = "" Or Text5 = "" Or Text6 = "" Or Combo1 = "" Then
MsgBox "Debe ingresar datos en todos 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
'Crear un conjunto de registros desde la tabla Tbl_Direccion
Set rsTbl_Direccion = New Recordset
'Establecer sus propiedades
With rsTbl_Direccion
    .CursorLocation = adUseClient
    .Open "SELECT * FROM tbl_direccion", cnPrueba, adOpenDynamic, adLockOptimistic
End With
'Añadimos los registros del formulario a la base de datos
With rsTbl_Direccion
.AddNew
.Fields("Nombre") = Text1.Text
.Fields("Apellidos") = Text4.Text
.Fields("Direccion") = Text5.Text
.Fields("Ciudad") = Combo1.Text
.Fields("Provincia") = Combo2.Text
.Fields("Telefono") = Text2.Text
.Fields("CP") = Text6.Text
.Update
End With
MsgBox ("Datos exportados")
With rsTbl_Direccion
MSFlexGrid1.Refresh
Text1.Text = ""
Text2.Text = ""
Combo1.Text = ""
Combo2.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
.Update
End With
While Not rsTbl_Direccion.EOF
MSFlexGrid1.AddItem rsTbl_Direccion("id") & vbTab & rsTbl_Direccion("nombre") & vbTab & rsTbl_Direccion("apellidos") & vbTab & rsTbl_Direccion("direccion") & vbTab & rsTbl_Direccion("ciudad") & vbTab & rsTbl_Direccion("provincia") & vbTab & rsTbl_Direccion("telefono") & vbTab & rsTbl_Direccion("cp")
rsTbl_Direccion.MoveNext
Wend
    'Insertamos la cabezera
    MSFlexGrid1.TextMatrix(0, 0) = "ID"
    MSFlexGrid1.TextMatrix(0, 1) = "Nombre"
    MSFlexGrid1.TextMatrix(0, 2) = "Apellidos"
    MSFlexGrid1.TextMatrix(0, 3) = "Direccion"
    MSFlexGrid1.TextMatrix(0, 4) = "Ciudad"
    MSFlexGrid1.TextMatrix(0, 5) = "Provincia"
    MSFlexGrid1.TextMatrix(0, 6) = "Telefono"
    MSFlexGrid1.TextMatrix(0, 7) = "CP"
    Screen.MousePointer = vbDefault
Set cnPrueba = New Connection
'Establecer sus propiedades
     With cnPrueba
        .Provider = "Microsoft.Jet.oledb.4.0"
        .ConnectionString = "prueba.mdb"
    End With
cnPrueba.Open
'Crear un conjunto de registros desde la tabla Tbl_Direccion
Set rsTbl_Direccion = New Recordset
'Establecer sus propiedades
With rsTbl_Direccion
    .CursorLocation = adUseClient
    .Open "SELECT * FROM tbl_direccion", cnPrueba, adOpenDynamic, adLockOptimistic
End With
End Sub
 

Resumen de codigo: Lo que hace este codigo es al llenar un formulario, este lo exporta a la base de datos de acces y actualiza el msflexgrid en modo ejecucion sin tener que entrar y salir.

Muchas Gracias Insomnia me has sido de mucha no te puedes imaginar lo desesperado que estaba con esto.

Saludos

[Sergio18]

Por cierto ya si no es mucha molestia, me gustaria que me dijeras como hacer que al dar en la tecla TAB vaya directamente a siguiente cuadro de texto, es que por ejemplo yo estoy en nombre,y al darle al TAB de mede irse a apellido se va al boton de exportar,y de hay se va a otro...etc, como podria hacer que de nombre me pase a apellidos, de hay a direccion etc...

Saludos

[Insomnia]

Hola

Me alegro de que solucionaras el código. La pregunta del Tab es más sencilla. En todos los controles, tienes dos propiedades para definir el orden de moverse con el Tab.

1.- TabStop: Con los valores True o False defines si quieres que al pulsar Tab pase o no por este control
2.- Tab Index: El orden en el que va a pasar por este control

De esta forma si quieres que el primer control en obtener el foco sea el nombre tienes que poner TabIndex 1, en el apellido TabIndex 2 y así el orden de los controles que quieras.

--Saludos--

[Sergio18]

Ok ya esta echo, Gracias otra vez

Código vb:

Text1.TabIndex = 1
Text4.TabIndex = 2
Text5.TabIndex = 3
Combo1.TabIndex = 4
Combo2.TabIndex = 5
Text2.TabIndex = 6
Text6.TabIndex = 7
 

Saludos