Guardar informacíon en BD access (VB .net 2008)

[GENESISBM]

Buenas!

Estoy muy verde aun con las bases de datos, mi problema es el siguiente:

Tengo una aplicación que pedira un registro, el login ya esta hecho, ahora estoy haciendo el registro, todos los datos del login estan guardados en una base de datos acces, en dos campos "usuario" y "password", hasta aquí no he tenido muchos problemas, lo que hecho es: bindear desde la ventana propiedades de Visual Studio, el campo "text" hacia el campo de la base de datos que he querido.

Ahora bien, yo tengo un par de campos mas en la base de datos que querria rellenar, sin que el usuario intervenga (vamos que no ponga nada), esos son "fechaalta" y "estado", en fechaalta pondre la fecha exacta de cuando se registra el usuario, y en "estado" pondre un simple "1".

El problema es que nose como hacer con codigo insertar en dicho campo un texto o un numero, solo se asignarle a un campo una propiedad, desde la ventana propiedades. Seguro que es muy facil y hay mil respuestas por google o por este mismo foro, seguramente no sabre plantearlo >_<, haber si me podeis ayudar.

Luego si podeis, para no crear un segundo post, me gustaria tambien, hacer lo mismo que hago insertando un textbox a un campo de la base de datos, pero alrebes, recuperar el campo de la base de datos al textbox.

Gracias y disculpar las molestias! ^^

[adrian_]

Hola

La solucion es muy sencilla necesitas un adaptador para conectar con mdb desde .net mas adelante te dejo codigo de como tienes que hacerlo tambien vas a tener que agregar referencias para que no tengas problemas.

en un modulo agregas el codigo siguiente

Imports System
Imports System.Data.OleDb
Imports XtremeReportControl

Public Function CadenaConeccion() As String
Dim csb As New OleDbConnectionStringBuilder

csb.Provider = "Microsoft.ACE.OLEDB.12.0"
csb.DataSource = App_path() & ".mdb"

Return csb.ConnectionString
End Function

y en tus formularios colocas esto

Dim scon As String = CadenaConeccion()
Dim sel As String = "Select * From Tabla Where Condicion='" & Condicion & "'"

Using con As New OleDb.OleDbConnection(scon)
Dim cmd As New OleDb.OleDbCommand(sel, con)
con.Open()
Dim dr As OleDb.OleDbDataReader = cmd.ExecuteReader

Try
While dr.Read
Txt.Text = dr(0).ToString
End While

Catch ex As Exception
MessageBox.Show("Error: " + ex.Message, "Empresa", MessageBoxButtons.OK, MessageBoxIcon.Error)
Finally
If Not (dr Is Nothing) Then
dr.Close()
End If
If con.State = ConnectionState.Open Then
con.Close()
End If
End Try
End Using

con ese codigo conectas y consultas suerte

[GENESISBM]

Gracias adrian, eso lo tengo hecho, mi codigo del formulario de registro, es el siguiente:

Código:

Imports System.Data.OleDb
Public Class registro
    Private Sub UsuariosBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Me.Validate()
        Me.UsuariosBindingSource.EndEdit()
        Me.UsuariosTableAdapter.Update(Me.DatosDataSet.usuarios)
    End Sub

    Private Sub registro_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: esta línea de código carga datos en la tabla 'DatosDataSet.usuarios' Puede moverla o quitarla según sea necesario.
        Me.UsuariosTableAdapter.Fill(Me.DatosDataSet.usuarios)
        'TODO: esta línea de código carga datos en la tabla 'datos.Usuarios' Puede moverla o quitarla según sea necesario.
        Me.UsuariosTableAdapter.Fill(Me.DatosDataSet.usuarios)
        Me.Validate()
        Me.UsuariosBindingSource.EndEdit()
        Me.UsuariosTableAdapter.Update(Me.DatosDataSet.usuarios)
        Me.UsuariosBindingSource.AddNew()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Close()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim I As Integer
        usuario.Text = UCase(usuario.Text)
        I = Len(usuario.Text)
        usuario.SelectionStart = I
        If Me.ValidateChildren Then
            Try
                Me.UsuariosBindingSource.EndEdit()
                Me.UsuariosTableAdapter.Update(Me.DatosDataSet.usuarios)
                Me.UsuariosBindingSource.AddNew()
                ' Me.UsuariosBindingSource.AddNew(Me.DatosDataSet.usuarios.estatus)
                MsgBox("Se Guardo Los Datos Correctamente")
            Catch ex As Exception
                MessageBox.Show("Error: " + ex.Message)
            End Try
        Else
            MessageBox.Show(Me.ValidateChildren, "errores de validacion. ", "Guardar", MessageBoxButtons.OK, MessageBoxIcon.Warning)
        End If
    End Sub

    Private Sub UsuariosBindingNavigatorSaveItem_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Me.Validate()
        Me.UsuariosBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.DatosDataSet)

    End Sub

End Class

Seguramente sera lo mismo, lo que yo lo tengo hecho, es agregando un origen de datos, y eso es una conexion mas manual. Despues tengo 3 textbox hechos, uno con nombre de usuario contraseña y email. y en la venta propiedades de eso textbox me voy a "(databindings)" , le doi a los botones elipsis que hay , y añado a la propiedad "text" del textbox, el campo a donde lo quiero añadir.

Pues yo quiero hacer exactamente lo mismo, pero en vez de una propiedad del textbox, agregar a otro campo distinto de mi base de datos, otro dato distinto que no se muestra en el formulario, un campo que edito internamente, por ejemplo quiero añadir el numero "1" en el campo "estado" a cada registro nuevo de la base de datos.

Gracias!!

[GENESISBM]

Solucionado!