miércoles, 30 de marzo de 2011

viernes, 11 de febrero de 2011

Configurar Conexión de Ruta de BD

La base de datos debe copiarse dentro de la carpeta Bin/debug de la aplicación:
Archivo de configuración.

Imports System.Data.OleDb
Public Class conexion
Public Shared conex As String = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
"Data source=" & ruta() & "\agenda.accdb;"
Public Shared CN As New OleDbConnection(conexion.conex)
Public Shared Function Listar(ByVal consulta As String) As DataTable
Dim adapter As New OleDbDataAdapter(consulta, conexion.conex)
Dim tabla As New DataTable
adapter.Fill(tabla)
Return tabla
End Function
Public Shared Sub Insertar(ByVal consulta As String)
Dim cmd As New OleDbCommand(consulta, conexion.CN)
conexion.CN.Open()
cmd.ExecuteNonQuery()
conexion.CN.Close()
End Sub
Public Shared Sub LlenarCombo(ByVal CB As ComboBox, ByVal sql As String, ByVal valor As String, ByVal nombre As String)
cb.DataSource = Listar(sql)
cb.DisplayMember = nombre
cb.ValueMember = valor
End Sub
Public Shared Function ruta() As String
Return System.AppDomain.CurrentDomain.BaseDirectory()
End Function
End Class

jueves, 10 de febrero de 2011

Eliminar Registro

If MessageBox.Show("Esta SEguro de eliminar los datos", "Mensaje", MessageBoxButtons.OKCancel, MessageBoxIcon.Information) = Windows.Forms.DialogResult.OK Then
Dim fila As Integer = Me.DataGridView1.CurrentRow.Cells("idinsti").Value
Dim sql As String
sql = "delete from institucion where idinsti=" & fila
conexion.Insertar(sql)
DataGridView1.DataSource = conexion.Listar("select*from institucion")

End If

En el Botón Grabar

Dim sql As String
sql = "insert into institucion(abrev,nombrecompleto)values('" & Me.TextBox1.Text & "','" & Me.TextBox2.Text & "')"
conexion.Insertar(sql)

Agregar Nuevo Registro en ACCESS

En el Archivo conex agregar el siguiente código:
Public Shared CN As New OleDbConnection(conexion.conex)
Public Shared Sub Insertar(ByVal consulta As String)
Dim cmd As New OleDbCommand(consulta, conexion.CN)
conexion.CN.Open()
cmd.ExecuteNonQuery()
conexion.CN.Close()
End Sub
Public Shared Sub LlenarCombo(ByVal CB As ComboBox, ByVal sql As String, ByVal valor As String, ByVal nombre As String)
cb.DataSource = Listar(sql)
cb.DisplayMember = nombre
cb.ValueMember = valor

End Sub