• Lunes 23 de Diciembre de 2024, 03:11

Autor Tema:  Bases De Datos, Control Data Y Data Grid  (Leído 2241 veces)

seether

  • Miembro activo
  • **
  • Mensajes: 52
  • Nacionalidad: cl
    • Ver Perfil
Bases De Datos, Control Data Y Data Grid
« en: Viernes 13 de Octubre de 2006, 04:32 »
0
hola chicos, que tal, yo soy un poco nuevo en esto, y ultimamente estaba trabajando co una base de datos en VB. Mi consulta es que no se como conectar la base de datos con un control data, luego que se muestre en un data grid. Tambien necesito que al bajar de fila, esta baje entera, y al presionar la tecla enter, que se pueda modificar.

Gracias




 :huh:

Angel38

  • Miembro MUY activo
  • ***
  • Mensajes: 370
    • Ver Perfil
Re: Bases De Datos, Control Data Y Data Grid
« Respuesta #1 en: Domingo 15 de Octubre de 2006, 04:34 »
0
Y no necesitas que de paso te hagamos todo el proyecto????




A investigar mijo, luego pregunte que no entiende.
[size=109]Se me olvidó instalar los Drivers de Cordura en mi Cerebro.

seether

  • Miembro activo
  • **
  • Mensajes: 52
  • Nacionalidad: cl
    • Ver Perfil
Re: Bases De Datos, Control Data Y Data Grid
« Respuesta #2 en: Domingo 17 de Diciembre de 2006, 03:15 »
0
Buen, Creo que  a esta fecha es un poco tarde para publicar un codigo, pero como esta respuesta se ha visto mucho, creo que lo voy a publicar.

Bueno para que la fila del datagrid se mueva completa, es muy sencillo, solo agregando este codigo al datagrid:
Código: Text
  1.  
  2. DataGrid1.MarqueeStyle = dbgHighlightRow
  3.  
  4.  
y nada mas.

para conectar la base de datos con access, no se puede conectar con un control data, porque como dijo F_Tanori ®"no son compatibles", y es verdad. Entonces para poder conectar esta base de datos hay que usar un "Control adodc".

y para que la carge al iniciar use este codigo:

Código: Text
  1.  
  2. Private Sub Form_Load()
  3.     cs.Provider = "Microsoft.jet.OLEDB.4.0."
  4.     cs.ConnectionString = "llamados.mdb"
  5.     cs.Open
  6.     rs.Open " select * from numero", cs, adOpenKeyset, adLockOptimistic
  7.     Label14.Caption = Now
  8.     Label18.Caption = Format(Now(), "Hh:mm:ss")
  9. End Sub
  10.  
  11.  

Bueno, espero que cuando uno pregunte,no respondan asi, ya que cuando uno es nuevo en la materia no sabe como referirse a este.

Publico esto porque he visto muchos post con "Aqui no se hacen tareas".

Saludos  :hola:

Seether  :smartass: