Generar reportes en .net con bd access
Cerrado
ALLANDAVID
Mensajes enviados
1
Fecha de inscripción
lunes, 13 de julio de 2009
Estatus
Miembro
Última intervención
lunes, 13 de julio de 2009
-
13 jul 2009 a las 02:00
GORF - 4 sep 2009 a las 17:21
GORF - 4 sep 2009 a las 17:21
Consulta también:
- Generar reportes en .net con bd access
- Access descargar - Programas - Bases de datos
- Descargar 3dp net - Programas - Limpieza y optimización
- .Net framework v4.0.3019 windows 7 - Programas - Otros
- Kmspico net - Programas - Otros
1 respuesta
ALLAN.
ESPERO TE SIRVA ESTE CODIGO, SEGUN ENTENDI TU PROBLEMA O DUDA ES COMO HACE UNA CONSULTA (SELECT) A UNA BASE DE DATOS EN ACCES, PARA VISUAL.NET.
SI ES ASI CHECA ESTE CODIGO.
Private Sub CmdIngre_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdIngre.Click
' Abrimos una conexión con la base de datos de Access
Dim cadenaConexion As String = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=HojaDeVida.mdb"
Dim cnn As New OleDb.OleDbConnection(cadenaConexion)
' Escribimos la consulta SQL de datos añadidos
Dim sql As String = _
"INSERT INTO DatosPersonales (" & _
", id, nombre, fecha_ingre, run, fecha_nac, grupo_sanguineo, telefono, celular, profesion, tip, placa" & _
") VALUES ( " & _
" NULL, 11-06-1999, ValorCampo2, 11-06-1984, ValorCampo3, ValorCampo2)"
' Creamos un objeto OleDbCommand para ejecutar la consulta SQL
Dim cmd As New OleDb.OleDbCommand(sql, cnn)
' Abrimos la conexión y ejecutamos la consulta
cnn.Open()
Dim r As Int32 = cmd.ExecuteNonQuery()
' Comprobamos si se ha añadido el registro
If r <> 0 Then MessageBox.Show("Registro añadido")
End Sub
ESPERO QUE CON ESTO SE RESUELVA TU PROBLEMA
ESPERO TE SIRVA ESTE CODIGO, SEGUN ENTENDI TU PROBLEMA O DUDA ES COMO HACE UNA CONSULTA (SELECT) A UNA BASE DE DATOS EN ACCES, PARA VISUAL.NET.
SI ES ASI CHECA ESTE CODIGO.
Private Sub CmdIngre_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdIngre.Click
' Abrimos una conexión con la base de datos de Access
Dim cadenaConexion As String = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=HojaDeVida.mdb"
Dim cnn As New OleDb.OleDbConnection(cadenaConexion)
' Escribimos la consulta SQL de datos añadidos
Dim sql As String = _
"INSERT INTO DatosPersonales (" & _
", id, nombre, fecha_ingre, run, fecha_nac, grupo_sanguineo, telefono, celular, profesion, tip, placa" & _
") VALUES ( " & _
" NULL, 11-06-1999, ValorCampo2, 11-06-1984, ValorCampo3, ValorCampo2)"
' Creamos un objeto OleDbCommand para ejecutar la consulta SQL
Dim cmd As New OleDb.OleDbCommand(sql, cnn)
' Abrimos la conexión y ejecutamos la consulta
cnn.Open()
Dim r As Int32 = cmd.ExecuteNonQuery()
' Comprobamos si se ha añadido el registro
If r <> 0 Then MessageBox.Show("Registro añadido")
End Sub
ESPERO QUE CON ESTO SE RESUELVA TU PROBLEMA