TODOPIC

Lenguajes de programación para PC => Visual Basic => Mensaje iniciado por: groundman en 07 de Marzo de 2009, 20:06:54

Título: guardar datos ADO
Publicado por: groundman 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?
Título: Re: guardar datos ADO
Publicado por: manuelroin24 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 ??
Título: Re: guardar datos ADO
Publicado por: groundman 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.
Título: Re: guardar datos ADO
Publicado por: groundman 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.
Título: Re: guardar datos ADO
Publicado por: Gonzalo_BlackHawk 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.
Título: Re: guardar datos ADO
Publicado por: groundman 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.
Título: Re: guardar datos ADO
Publicado por: groundman 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?
Título: Re: guardar datos ADO
Publicado por: groundman 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