Normas del foro

Curso Hacker
Bienvenido(a), Visitante. Favor de ingresar o registrarse.
¿Perdiste tu email de activación? - Diciembre 04, 2008, 12:47:00
Inicio Ayuda Ingresar Registrarse
Visita: Articulos - Juegos Gratis - Da Foros

Comunidad Underground Hispana  |  Programacion  |  Programación  |  Visual Basic y Net (Moderador: ANYD00M)  |  Tema: Manejo de Base de Datos en VB? 0 Usuarios y 1 Visitante están viendo este tema. « anterior próximo »
Páginas: [1] Ir Abajo Imprimir
Autor Tema: Manejo de Base de Datos en VB?  (Leído 824 veces)
PaRy
Miembro
*****
Desconectado Desconectado

Mensajes: 110



Ver Perfil
« en: Julio 26, 2006, 12:21:23 »
juegos gratis
Se puede crear un programa en el cual se introduzcan datos que a continuacion se transfieran a unabase de datos?

Por ejemplo, un programa en donde uno introduce nombre, telefono, etc... y que estos datospasen directamente a una base de datos...
En línea
-:-

Necesitas ser usuario para ver los enlaces Crear Usuario  Hacer Sesion
-:-
sickness1
Si no robarias a un pobre xq entonces si hackearias a cualquiera?
Colaborador
*****
Desconectado Desconectado

Mensajes: 974

Ya llego... Es el fin al fin!


Ver Perfil
« Respuesta #1 en: Julio 26, 2006, 12:29:54 »
Claro!!! Te recomiedo que hagas una base de datos en access que es como mejor se maneja el visual y la acoples, si tienes problemas con el codigo te lo paso con un ejemplo! Venga suerte
En línea
PaRy
Miembro
*****
Desconectado Desconectado

Mensajes: 110



Ver Perfil
« Respuesta #2 en: Julio 26, 2006, 12:39:08 »
Cita de: sickness1 en Julio 26, 2006, 12:29:54
Claro!!! Te recomiedo que hagas una base de datos en access que es como mejor se maneja el visual y la acoples, si tienes problemas con el codigo te lo paso con un ejemplo! Venga suerte

Si no es molestia, podrias poner un ejemplo? Gracias por tu respuesta  Grin
En línea
-:-

Necesitas ser usuario para ver los enlaces Crear Usuario  Hacer Sesion
-:-
sickness1
Si no robarias a un pobre xq entonces si hackearias a cualquiera?
Colaborador
*****
Desconectado Desconectado

Mensajes: 974

Ya llego... Es el fin al fin!


Ver Perfil
« Respuesta #3 en: Julio 26, 2006, 12:50:14 »
El tema da para largo....
mejor te paso un link xq estoy mirando el codigo y hay que hacer un porron de cosas... tendria que hacerte una guia entera para conectar la base de datos...

Necesitas ser usuario para ver los enlaces Crear Usuario  Hacer Sesion

Te recomiendo que vayas, en el menu, a proyecto/componentes y alli selecciones todos los componentes que veas que tienen un Data, aceptas y en el formulario añadas un elemento que se llama data a secas donde el connectionstring te dara la conecsion a la base de datos que quieras hacer y  el recordsource la sentencia que debes hacer (normalmente sera select * from nombredelatabla), despues para conectar a esta tabla los text pones este codigo, el tema no es sencillo, aqui tienes incluido como añadir, borrar y hacer lo que quieras... Los text son arrays, vaya que todos se llaman igual y se denomina por un numero, al igual que los botones de commando; Espero te sirva de algo Wink Venga

Dim contador As Integer
Private Sub Command1_Click(Index As Integer)
    Select Case Index
        Case 0
            Command1(7).Enabled = True
            For i = 0 To 6
                Command1(i).Enabled = False
            Next i
            Adodc1.Recordset.AddNew
            For i = 0 To 4
                Text1(i).Locked = False
            Next i
            contador = contador + 1
            Text1(0).SetFocus
        Case 7 ; Este es para añadir
            Command1(7).Enabled = False
            For i = 0 To 4
                Adodc1.Recordset.Fields(i).Value = Text1(i).Text
            Next i
            Adodc1.Recordset.Fields(5).Value = Adodc1.Recordset.RecordCount
            Adodc1.Recordset.MoveLast
            contador = Adodc1.Recordset.RecordCount
            Adodc3.Recordset.AddNew; Aki añado
            Text2(0).Text = Adodc1.Recordset.RecordCount
            Adodc2.RecordSource = "select * from propiedades where direccion ='" & DataCombo1.Text & "'"
            Adodc2.Refresh
            Text2(1).Text = Adodc2.Recordset.Fields(0)
            Adodc2.RecordSource = "select * from propiedades"
            Adodc3.Recordset.Fields(0).Value = Text2(0).Text
            Adodc3.Recordset.Fields(1).Value = Text2(1).Text
            Adodc2.RecordSource = "select * from propiedades"
            Adodc2.Refresh
            Adodc3.Recordset.MoveLast
            For i = 0 To 4
                Text1(i).Locked = True
            Next i
            For i = 0 To 6
                Command1(i).Enabled = True
            Next i
        Case 3 ; Este va a l primer registro
            If Adodc1.Recordset.RecordCount <> 0 Then
                Adodc1.Recordset.MoveFirst
            End If
            contador = 1
        Case 4 ; Este va uno hacia atras
            If Adodc1.Recordset.BOF = False Then
                Adodc1.Recordset.MovePrevious
                contador = contador - 1
                If Adodc1.Recordset.BOF = True Then
                    Adodc1.Recordset.MoveFirst
                    contador = 1
                End If
            End If
           
        Case 5 ; Este va un registro hacia adelante
            If Adodc1.Recordset.EOF = False Then
                Adodc1.Recordset.MoveNext
                contador = contador + 1
                If Adodc1.Recordset.EOF = True Then
                    Adodc1.Recordset.MoveLast
                    contador = Adodc1.Recordset.RecordCount
                End If
            End If
        Case 6 ; Este va al ultimo
            If Adodc1.Recordset.RecordCount <> 0 Then
                Adodc1.Recordset.MoveLast
                contador = Adodc1.Recordset.RecordCount
            End If
        Case 1 ; Este es para permitir la edicion de los registros
            For i = 0 To 4
                Text1(i).Locked = False
            Next i
            For i = 0 To 7
                Command1(i).Enabled = False
            Next i
            Command1(Cool.Visible = True
        Case 8 ; Este es para aceptar la edicion
            For i = 0 To 4
                Text1(i).Locked = True
            Next i
            For i = 0 To 7
                Command1(i).Enabled = True
            Next i
            Command1(8  ).Visible = False
            Adodc1.Recordset.Update
        Case 2 ; Este es para borrar
            Adodc1.Recordset.Delete
            Adodc1.Recordset.MoveNext
            If Adodc1.Recordset.EOF = True And Adodc1.Recordset.RecordCount <> 0 Then
                Adodc1.Recordset.MoveLast
                contador = Adodc1.Recordset.RecordCount
            ElseIf Adodc1.Recordset.BOF = True And Adodc1.Recordset.RecordCount <> 0 Then
                Adodc1.Recordset.MoveFirst
                contador = 1
            End If
            MsgBox "Registro eliminado", vbOKOnly
    End Select
    Label2.Caption = " Registro  " & contador & "/" & Adodc1.Recordset.RecordCount
End Sub

Private Sub Form_Load()
    For i = 0 To 4
        Text1(i).Locked = True
    Next i
    If Adodc1.Recordset.RecordCount <> 0 Then
        contador = 1
    Else
        contador = 0
    End If
    Label2.Caption = " Registro  " & contador & "/" & Adodc1.Recordset.RecordCount
End Sub
« Última modificación: Julio 26, 2006, 03:47:32 por sickness1 » En línea
PaRy
Miembro
*****
Desconectado Desconectado

Mensajes: 110



Ver Perfil
« Respuesta #4 en: Julio 26, 2006, 12:59:44 »
Muchas gracias, y disculpa las molestias  Wink
En línea
-:-

Necesitas ser usuario para ver los enlaces Crear Usuario  Hacer Sesion
-:-
sickness1
Si no robarias a un pobre xq entonces si hackearias a cualquiera?
Colaborador
*****
Desconectado Desconectado

Mensajes: 974

Ya llego... Es el fin al fin!


Ver Perfil
« Respuesta #5 en: Julio 26, 2006, 01:02:59 »
Ya siento que el codigo sea tan complicado pero esta pensado para bloquear los botones cuando no se deban pulsar, permitir escritura o no en los text y demas parafernalia de seguridad que lo vuelve un poco mas complejo... Bueno ya sabes que estamos por aki! bye
En línea
Biocode
Habitual
*****
Desconectado Desconectado

Mensajes: 364



Ver Perfil
« Respuesta #6 en: Julio 26, 2006, 05:50:48 »
« Última modificación: Agosto 09, 2006, 04:02:59 por Biocode » En línea
SYSELOY
Visitante
« Respuesta #7 en: Agosto 25, 2006, 06:18:23 »
hola: yo te paso esre cod.,peo rienes que hacer la base de daros como te dijeron anteriormente ok:
publica en un modulo:
''''''''''''''''''''''''''''
public function dbsistema() as database
   set dbsistema=opendatabase("aqui pon la ruta de la base de datos y el nombre con la extension .mdb")
end function
'''''''''''''''''''''''
ahora en el formulario publica en forma general
dim RS as recordset
''''''''''''''''''''''''
luego conectas  la tabla a la variable RS en el evento load del formulario

private sub form_load()
set RS=dbsistema.openrecordset("Aui pon la tabla deseada",dbopendynaset)
End sub

luego conectas los campos a los textbox
asi:
sub leer()
text1.text=RS!Nombres
text2.text=RS!Apellidos
text3.text=RS!Telefono
y asi etc.
End sub

para grabar:
lo de leer aslo alreves:
ejem:
sub graba()
rs!Nombre=text1.text
y asi lo demas
end sub

ahora crea  commandbotons y cambia las propiedades segun deses ok
en el nuevo:
private sub cmdnuevo_click()
text1.text=""
text2.text=""
text3.text=""
RS.addnew
text1.setfocus
end sub

ahora en el grabar:
private sub cmdgrabar_click()
 graba
 RS.update
end sub
bueno amigo cualquier cosa pasa la voz
espero que te  sirva de algo ok
chao.
En línea
Páginas: [1] Ir Arriba Imprimir 
Comunidad Underground Hispana  |  Programacion  |  Programación  |  Visual Basic y Net (Moderador: ANYD00M)  |  Tema: Manejo de Base de Datos en VB? « anterior próximo »
Ir a:  


Ranking-Hits
Powered by SMF 1.1.7 | SMF © 2006-2007, Simple Machines LLC