Ayuda con un proyecto

[lord manson]

Los dos forms los uso porque el enunciado del ejercicio asi lo pide, sino l oabria hecho obviamente todo en uno, parece que quieran complicarlo asi o algo...
Miraré ahora lo del refresh, esque probé algo asi y no chuto, osea en el form2 introduzco los datos en el datagrid y luego me gustaria que al darle a volver al form1 en el datagrid que hay ahí me salierá actualizado lo que acabo de poner en el form2


Gracias igualmente=3

Saludos!


Manson

[cassiani]

Refrescas cuando cargues el form1 y ya esta o sino te gusta de esa forma, le creas un botoncito que diga "Actualizar" y hay refrescas 

[lord manson]

Hecho!=) muchisimas gracias! me funcionó^^

Bueno voy a seguir haciendo cosillas, si me pierdo con algo mas ya diré algo!;)


¡Saludos!


Manson

[lord manson]

Bueno de nuevo necesito el consejo de los sabios ante mi imposivilidad de solucionar un problema por mas que pruevo.

Os relato:
Pretendo que en un combobox salgan los campos de una base de datos y que por ejemplo si los campos son, nombre, edad, nacionalidad y DNI pues que al seleccionar por ejemplo nombre en el combobox me salga en el datagrid del form los  nombres, si selecciono edad, pues la edad de todos y hay un textbox que lo tengo que usar de busqueda, osea que meta un nombre y busque en los registros si existe ese registro y mostrarlo en el datagrid...

Os pongo el codigo que tengo por ahora:

Código [Seleccionar] Expandir


Option Explicit
Dim BaseDatos As Database
Dim tblAlta As TableDef
Dim rsAlta As Recordset

Private Sub Combo1_Change()
Set BaseDatos = OpenDatabase("I:\Visual Basic\Alex\Recuperacion\recuAC97")
Set tblAlta = OpenTable

End Sub

(el acceso a la base de datos está configurado graficamente con el adodc1 y me he hecho un grafico en una hoja de como fluirian los datos y he llegado a la conclusión de que es tema del adodc directamente, osea que para que me lo muestre en el combo creo saber que es cosa de el adodc, ¿Me equivoco?)

La cosa está así, haber que me podeis aconsejar.

¡Gracias de nuevo!

[seba123neo]

un combobox o listbox los podes enlazar a un campo de la base de datos directamente en las propiedades datasource y datamember...es de manual...despues lo unico que tenes que hacer es usar SQL para filtrar los datos....de paso leete un manual de SQL. la comsulta quedaria algo asi:

Código [Seleccionar] Expandir

"SELECT * FROM Tabla WHERE nombre='" & Combo1.Text & "'"

saludos.

[lord manson]

un combobox o listbox los podes enlazar a un campo de la base de datos directamente en las propiedades datasource y datamember...es de manual...despues lo unico que tenes que hacer es usar SQL para filtrar los datos....de paso leete un manual de SQL. la comsulta quedaria algo asi:

Código [Seleccionar] Expandir

"SELECT * FROM Tabla WHERE nombre='" & Combo1.Text & "'"

saludos.

Sisi, eso losé, la cosa es que en Datafield me salen los 4 campos que hay, y yo necesito seleccionar la tabla en si para que luego en la lista del combo no me muestre por ejemplo si he seleccionado nombre en el datafield "roberto" y me lo cambie en el propio combo segun avanze con el adodc

Mas bien necesito que me salgan en el combo los 4 campos(no en el datafield) y que al seleccionar uno me salgan todos los nombres de todos los registros en el datagrid.


¿Ahora mejor?

saludos! y gracias igualmente =3

[seba123neo]

ahora entiendo queres que te salgan todos los campos...pues es facil mira algo asi:

Código [Seleccionar] Expandir

Do Until rsAlta .EOF
    Combo1.AddItem rsAlta ("TuTabla")
    rsAlta .MoveNext
Loop

saludos.

[lord manson]

Pues nose porque pero no me hace caso =s no se mueve...Que raro.
Bueno realmente el do loop nunca lo habia usado no se me abria ocurrido jaja.
Te copio el codigo del form, haber si me he dejado de decirte algo...

Código [Seleccionar] Expandir


Option Explicit
Dim BaseDatos As Database
Dim tblAlta As TableDef
Dim rsAlta As Recordset
Private Sub cmdAceptar_Click()
DataGrid1.AllowUpdate = False
DataGrid1.AllowRowSizing = False
DataGrid1.AllowDelete = False
DataGrid1.AllowArrows = False
DataGrid1.AllowAddNew = False
cmdAceptar.Visible = False
End Sub
Private Sub cmdSalir_Click()
End
End Sub
Private Sub Combo1_Change()
Do Until rsAlta.EOF
    Combo1.AddItem , rsAlta("Alta")
    rsAlta.MoveNext
Loop
End Sub
Private Sub Command1_Click()
Form1.Visible = False
Form2.Visible = True
End Sub
Private Sub Command2_Click()
If Not (Adodc1.Recordset.BOF And Adodc1.Recordset.EOF) Then
        If MsgBox("¿Está seguro de Eliminar esté Registro?", _
        vbQuestion + vbYesNo, "Eliminar Registro") = vbYes Then
             Adodc1.Recordset.Delete adAffectCurrent
             Adodc1.Refresh
        End If
    Else
        MsgBox "Para eliminar un registro ¿no hace falta uno? xD"
    End If
    Adodc1.Refresh
End Sub
Private Sub Command3_Click()
DataGrid1.AllowUpdate = True
DataGrid1.AllowRowSizing = True
DataGrid1.AllowDelete = True
DataGrid1.AllowArrows = True
DataGrid1.AllowAddNew = True
cmdAceptar.Visible = True
End Sub
Private Sub cmdAdd_Click()
    Adodc1.Recordset.AddNew
End Sub
Private Sub cmdDel_Click()
    Adodc1.Recordset.Delete
End Sub
Private Sub Command4_Click()
Adodc1.BOFAction = adStayBOF
End Sub
Private Sub Command5_Click()
Form1.Visible = False
Form2.Visible = True
End Sub
Private Sub Command6_Click()
Adodc1.Refresh
End Sub
Private Sub Form_Load()
Adodc1.Refresh
End Sub


Gracias por tu atención >_<', sigo buscando mientras...haber si sale.


Saludos!

[seba123neo]

primero y principal el codigo que te di no va en el evento Change() del combo  ,va en el Load() del formulario asi carga los nombres de los campos cuando inicia el programa...

[lord manson]

ostia xDDD, fallo de nobatillo...y mira que lo pensé pero tampoco sabia cual poner jajaja

Ahora pruevo haber!.


Merci!


Manson