Mensajes

¡Ostia que genial!



¡Me funciona genial!

No sabia eso de ADO y DAO, la verdad no sabia ni de su existencia xDD
He aprendido unas cuantas lecciones aunque hay cosas que no acabo de interpretar aunque atisbo para que sirven en el codigo...

Lo del segundo formulario es necesario porque así lo pide el ejercicio.
Estoy intentando adaptarlo, de momento es intento, estoy liandola mucho xD

Pero bueno =)

Muchisimas gracias tio!^^
Me sabe un poco mal porque has tenido que perder tiempo en hacer eso 
Pero que te estoy muy agradecido!=)


Un saludo, y os mantengo informado! =) Al menos os diré si apruebo el examen con lo que he aprendido 

xDDD. para mi lo veo algo dificil, pero voy a intentarlo!
nadie nacio enseñado pero tambien es cosa mia forzarme al maximo...amos a ver...=)

http://www.subir-archivos.com.ar/showrecent.php?
Es el de recuperacion.rar
Saludos y gracias!(de nuevo  )

Pues me sigue dando errores en el caso del form_activate, me sale el mismo error que he puesto antes, me dice que la variable no está establecida. y si lo pongo en el combo_load(que lo he tenido que crear, se puede hacer eso?=s) no hace nada, se ejecuta pero no muestra ningun valor.


http://www.subirimagenes.com/otros-sinttulo1copia-795376.html
http://www.subirimagenes.com/fotos-dibujo-795450.html


Nose...Estoy frustrado ya nose que tocar para que funciona


Gracias a los que haceis un esfuerzo por intentar solucionarmelo.

Ummm me dice que la variable tipo object o tipo with no esta establecida...a que se refiere? a si esta rsalta declarada? igualmente me marca como error additem, l e intentando de todos modos, con punto con coma con = u_u'
vaya n00b estoy hecho jaja

Código [Seleccionar] Expandir


Private Sub Form_Load()
    Do Until rsAlta.EOF
    Combo1.AddItem rsAlta("Alta")
    rsAlta.MoveNext
Loop
Adodc1.Refresh
End Sub


¡Saludos!


Manson

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

Ahora pruevo haber!.


Merci!


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!

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

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!

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

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


¡Saludos!


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