Visual Basic.NET - Agregar a Base de Datos Acces

Hola que tal!

Pues me revise todos los Post de este foro y no encontr respuesta a mi problema y espero por ahi en un futuro no muy lejano alguien responda.

Mi Problema es el Siguiente:

Tengo Un Programa que Envia Correos
Tengo Una Base de Datos
EL Programa usa los campos de la tabla de Usuario y Contrasela para poder accesar.
Lo Unico que me falta es Agregar los datos de Un Formulario a la Base de Datos de Acces.

Ese es el Unico Problema, Añadir Datos de los TextBox a la Tabla de Acces.

Bueno me despido y Esperando alguna respuesta Gracias!

| Bahia de Banderas, Nay, Mex |

Hola! A ver si puedo responderte.
Creas una conexion a la base de datos.
Creas un dataSet. Lo cargas con el metodo fill y el adaptador de datos.
Ahora tienes en el dataset tu tabla a modificar
Creas una nueva fila en el dataset
Rellenas la fila con los textbox.
La añades al dataset.
Actualizas la base de datos con el commandbuilder y el adaptador.
Ya tienes la insercion hecha.

Espero haberte ayudado, si no es así dimelo y te escribo un código de ejemplo.

Saludos

Gracias David pero la verdad aun no comprendo muy bien eso de DataSet y Adapter y esos terminos te gradeceria mucho un codigo explicativo.

Gracias de nuevo!

Bueno, pues vamos por partes.
Partes de tener un par de textbox y una tabla en la base de datos y quieres añadir los textbox a la tabla.

' Conecta con la base de datos. Cadena conexion es donde indicas el proveedor de bases de datos.
Dim conn As OleDbConnection = new OleDbConnection(cadenaConexion)

' Haz el select de la tabla que quieras insertar para rellenar el dataset. Por ejemplo producto

Dim consulta As String = "SELECT * FROM Producto"
Dim DSProducto As DataSet = New DataSet

' Crea el adaptador de datos para rellenar el dataset

Dim cmd As OleDbDataAdapter = New OleDbDataAdapter(consulta, conn)
cmd.Fill(DSProducto)

'Ahora tienes en el dataset la tabla que quieres modificar. Creea una fila de ese tipo y rellenala con los textbox

Dim NuevaFila As DataRow = DSProducto.Tables("Producto").NewRow
NuevaFila("Codigo") = TBCodigo.Text
NuevaFila("Concepto") = TBConcepto.Text

' Ahora insertas en la base de datos, creo que esta es la forma mas fácil.

insertar = "INSERT INTO Producto (Codigo,Concepto) VALUES
('" & NuevaFila("Codigo") & "','" & NuevaFila("Concepto") & ")"

' Ejecuta la consulta y se actualiza la base de datos con un oledbcommand
Dim cmd As New OleDbCommand(consulta, conn)
cmd.ExecuteNonQuery()

' Cierra la base de datos
conn.Close()

' Vaya rollo, espero que te sirva. Al principio es un poco lioso pero luego insertas siempre igual.
Para actualizar lo mismo solo que con un UPDATE en vez de INSERT.
A ver si te sirve
Saludos

Hola!

Solo Tengo una duda en lo siguiente

insertar = "INSERT INTO Producto (Codigo,Concepto) VALUES
('" & NuevaFila("Codigo") & "','" & NuevaFila("Concepto") & ")"

Eso me Hace un gran desmadre y al parecer no declaraste " insertar " o no se verdad... es lo malo de ser novato :p a ver si me puedes seguir hechando la mano....

De Antemano Muchas Gracias

Ja Ja...

Bueno Mira paso lo siguiente:
Adapte el codigo que me enviaste al siguiente:

-------------------------------------------------------------------------------------
[Esto lo tengo en Un Boton por supuesto
Y la Base de Datos tiene La Tabla llamada Producto y los campos Codigo y Concepto ]

Dim conn As OleDbConnection = New OleDbConnection("Provider = Microsoft.Jet.OLEDB.4.0; Data Source = C:\Documents and Settings\GNGC\Mis documentos\BdD.mdb")
Dim consulta As String = "SELECT * FROM Producto"
Dim DSProducto As DataSet = New DataSet()
Dim cmd As OleDbDataAdapter = New OleDbDataAdapter(consulta, conn)
cmd.Fill(DSProducto)
Dim NuevaFila As DataRow = DSProducto.Tables("Producto").NewRow() ' Aqui Es donde Me da el Error
NuevaFila("Codigo") = TextBox1.Text
NuevaFila("Concepto") = TextBox2.Text

Dim insertar As String
insertar = "INSERT INTO Producto(Codigo,Concepto) VALUES('" & NuevaFila("Codigo") & "','" & NuevaFila("Concepto") & ")"

Dim cmd1 As New OleDbCommand(consulta, conn) ' Aqui tenias cmd pero ya estaba declarada asi que la cambie por cmd1
cmd1.ExecuteNonQuery()

conn.Close()

Hola! Por lo que veo te puse mal el comando fill en la sentencia.
cmd.Fill(DSProducto)
No especificas el nombre de la tabla con lo que creo que al hacer una nueva fila, no encuentra la tabla.
pon esto.
cmd.Fill(DSProducto, "Producto")

Ahora esa parte te funcionará. Otra cosa. Creo que al hacer una nueva fila debes de rellenarla entera. En este caso si la fila solo tiene los dos campos que mencionas estará bien, sino igual te da un error.
A ver si te funciona.
Saludos

figbjfipojgbmñlv

Se soluciono el problema para darme otro ups!

jejeje Al parecer ya es el Ultimo por que es la sentencia final

El Error esta en

cmd1.ExecuteNonQuery() ´Ese es el Error, dice que la conexion debe estar abierta, pero que no ya la abiamos abierto?