Diseñar aplicaciones de escritorio utilizando a basic.net como lenguaje de programación y base de datos: MS Access, SQL Server
miércoles, 30 de marzo de 2011
Tecnología y Educación
Tener una eduación muy precaria conlleva a l manipulación populacha de los políticos
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
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
Suscribirse a:
Entradas (Atom)