Autor Tema: guardar datos ADO  (Leído 5661 veces)

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado groundman

  • Colaborador
  • PIC24H
  • *****
  • Mensajes: 1870
    • www.ingeniopic.com
guardar datos ADO
« en: 07 de Marzo de 2009, 20:06:54 »
hola.tengo que realizar un programa el cual tiene unos botones en el formulario de vbasic 6.0 y lo que quiero es mediante programa poder modificar el nombre de los botones.esto ya lo he realizado.pero cuando reinicio el programa,los nombres vuelven a ser los que tenia por defecto como es normal.

mi intencion es usar el data.pero no se como crear una base de datos .mdb,se que vbasic tiene una por defecto.   biblio.mdb
pero mi intencion es fabricarla con los valores que yo quiera que tenga por defecto.y luego poder modificarlos.
que programa hay que usar para realizar un .mdf?
Montando mi primera impresora 3D (Raprep Prusa i3)

Desconectado manuelroin24

  • Colaborador
  • PIC24F
  • *****
  • Mensajes: 665
Re: guardar datos ADO
« Respuesta #1 en: 07 de Marzo de 2009, 22:00:32 »
si deseas que los controles tenga su nombre cuando inicias el programa entonces carga los datos de los nombre en el evento Form_load del formulario

Crear una base de datos completa desde visual basic ?? o lo que quieres crear es una tabla dentro de una base de datos ??
El conocimiento se consigue a base de esfuerzo...

Desconectado groundman

  • Colaborador
  • PIC24H
  • *****
  • Mensajes: 1870
    • www.ingeniopic.com
Re: guardar datos ADO
« Respuesta #2 en: 08 de Marzo de 2009, 11:59:53 »
hola manuelroin24.lo que quiero es crear una base de datos y con vbasic adjuntar un control data a esta  base de datos y a una tabla.
pero la base de datos tiene que tener extension .MDB  y no se con que programa crearla o si se puede hacer desde vbasic.
e intentado hacer la base de datos desde excel pero no sirve aun poniendo la extension .MDB

ya que el poner los nombres a los botones es facil al ejecutar el programa.pero quiero que con el programa en ejecucion se les pueda cambiar y que cuando
cierre el programa y lo abra,si he cambiado algun nombre.este salga como lo modifique la ultima vez.
Montando mi primera impresora 3D (Raprep Prusa i3)

Desconectado groundman

  • Colaborador
  • PIC24H
  • *****
  • Mensajes: 1870
    • www.ingeniopic.com
Re: guardar datos ADO
« Respuesta #3 en: 08 de Marzo de 2009, 20:21:44 »
por fin he podido crear un archivo .MDB

estas son las lineas de codigo:

Dim cat As ADOX.Catalog
Set cat = New ADOX.Catalog
cat.Create "provider=microsoft.jet.oledb.4.0;" & _
          "data source=c:\enchufes\enchufes.mdb"

pero hay que ir a proyecto-referencias y activar ->Microsoft ADO Ext. 6.0 de DDL and security
y segun el codigo anterior.se nos creara el archivo enchufes.mdb en la carpeta c:\enchufes .  previamente creada.

haber si sigo profundizando,que llevo medio dia intentando hacer una base de datos.
Montando mi primera impresora 3D (Raprep Prusa i3)

Desconectado Gonzalo_BlackHawk

  • Colaborador
  • PIC24F
  • *****
  • Mensajes: 519
Re: guardar datos ADO
« Respuesta #4 en: 08 de Marzo de 2009, 21:43:31 »
Groundman, dejando de lado las bases de datos, porque no guardas los nombres de los botones en el registro? VB te proporciona las instrucciones SaveSetting y GetSetting para guardar muy facilmente configuraciónes en el registro de Windows.
"Siempre piensa si el jugo vale la exprimida..."

"La muerte esta tan segura de vencer que nos da toda una vida de ventaja."

Desconectado groundman

  • Colaborador
  • PIC24H
  • *****
  • Mensajes: 1870
    • www.ingeniopic.com
Re: guardar datos ADO
« Respuesta #5 en: 09 de Marzo de 2009, 18:59:56 »
jejeje.si yo supiera hacer eso.....
estoy empezando a programar vbasic.y me esta costando entender como funciona.aunque voy tirando.

te agradeceria que me pusieras algun ejemplo de lo que comentas,asi quizas pueda terminar el proyecto en el que estoy.para postearlo en proyectos.
gracias.
Montando mi primera impresora 3D (Raprep Prusa i3)

Desconectado groundman

  • Colaborador
  • PIC24H
  • *****
  • Mensajes: 1870
    • www.ingeniopic.com
Re: guardar datos ADO
« Respuesta #6 en: 09 de Marzo de 2009, 19:37:41 »
he encontrado esto:

Private Sub Form_Unload(Cancel As Integer)

End Sub
 
    If Not Me.WindowState = 1 Then
        Call SaveSetting(NombreProg, "Tamaño", "Height", Me.Height)
        Call SaveSetting(NombreProg, "Tamaño", "Width", Me.Width)
        Call SaveSetting(NombreProg, "Posicion", "Left", Me.Left)
        Call SaveSetting(NombreProg, "Posicion", "Top", Me.Top)
    End If
 
End Sub

segun veo, esto es para guardar la posicion del formulario del ecritorio.al salir del programa.
como puedo usarlo para guardar los nombres de los botones?al salir del programa?
Montando mi primera impresora 3D (Raprep Prusa i3)

Desconectado groundman

  • Colaborador
  • PIC24H
  • *****
  • Mensajes: 1870
    • www.ingeniopic.com
Re: guardar datos ADO
« Respuesta #7 en: 10 de Marzo de 2009, 21:12:42 »
y tambien he encontrado algo que creo que me servira:

Private Sub Command1_Click()
    Dim Nombre$, Num%
    Dim NumFic%

    Nombre = "Pérez, Pepito"
    Num = 22

    NumFic = FreeFile
    Open "C:\Prueba.txt" For Output As NumFic
    Print #NumFic, Nombre, Num
    Close NumFic

End Sub
Private Sub Command2_Click()
    Dim Cadena$, Numero%
    Dim nF%

    nF = FreeFile
    Open "C:\Prueba.txt" For Input As nF
    Input #nF, Cadena, Numero
    Close nF

    MsgBox "Cadena= " & Cadena & vbCrLf & _
           "Número= " & Numero

End Sub

se utiliza para guardar y leer datos de una carpeta de un archivo.

y aqui se explica todo: http://www.elguille.info/vb/cursos_vb/BASICO/basico12.htm
Montando mi primera impresora 3D (Raprep Prusa i3)


 

anything