HOLA EN ACCES AHI T MANDO TODAS LAS TRANSACCIONES POSIBLES
permite conectar con acces point usado en boton ver
Dim NWindOleDbConn As OleDb.OleDbConnection
NWindOleDbConn = New OleDb.OleDbConnection()
NWindOleDbConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\Itsur\PrograII\Estudiantes.mdb"
NWindOleDbConn.Open()
Dim NWindAdapter As New OleDb.OleDbDataAdapter("Select * from Materia", NWindOleDbConn)
Dim NWindDataSet As DataSet = New DataSet
NWindAdapter.Fill(NWindDataSet, "Materia")
DataGridView1.DataSource = NWindDataSet
DataGridView1.DataMember = "Materia"
DataGridView1.Refresh()
_______________________________
sirve para guardar en una base da datos acces
Dim NWindOleDbConn As OleDb.OleDbConnection
NWindOleDbConn = New OleDb.OleDbConnection()
NWindOleDbConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\Itsur\PrograII\Estudiantes.mdb"
NWindOleDbConn.Open()
Dim Sql As String
Sql = "Insert Into Materia(id_materia, nombre, creditos) values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "')"
Dim comando As OleDb.OleDbCommand
comando = New OleDb.OleDbCommand(Sql, NWindOleDbConn)
comando.ExecuteNonQuery()
MessageBox.Show("Guardado")
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox1.Focus()
Dim NWindAdapter As New OleDb.OleDbDataAdapter("Select * from Materia", NWindOleDbConn)
Dim NWindDataSet As DataSet = New DataSet
NWindAdapter.Fill(NWindDataSet, "Materia")
DataGridView1.DataSource = NWindDataSet
DataGridView1.DataMember = "Materia"
DataGridView1.Refresh()
---------------------------------------------------------------
para modificar con acces
Dim NWindOleDbConn As OleDb.OleDbConnection
NWindOleDbConn = New OleDb.OleDbConnection()
NWindOleDbConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\Itsur\PrograII\Estudiantes.mdb"
NWindOleDbConn.Open()
Dim Sql = "Update Materia set nombre='" & TextBox2.Text & "' where id_materia = '" & TextBox1.Text & "'"
Dim comando As OleDb.OleDbCommand
comando = New OleDb.OleDbCommand(Sql, NWindOleDbConn)
comando.ExecuteNonQuery()
Dim NWindAdapter As New OleDb.OleDbDataAdapter("Select * from Materia", NWindOleDbConn)
Dim NWindDataSet As DataSet = New DataSet
NWindAdapter.Fill(NWindDataSet, "Materia")
DataGridView1.DataSource = NWindDataSet
DataGridView1.DataMember = "Materia"
DataGridView1.Refresh()
____________________________________
para borrar con acces
Dim NWindOleDbConn As OleDb.OleDbConnection
NWindOleDbConn = New OleDb.OleDbConnection()
NWindOleDbConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\Itsur\PrograII\Estudiantes.mdb"
NWindOleDbConn.Open()
Dim Sql As String
Sql = "delete * from Materia where id_materia = '" & TextBox1.Text & "'"
Dim comando As OleDb.OleDbCommand
comando = New OleDb.OleDbCommand(Sql, NWindOleDbConn)
comando.ExecuteNonQuery()
MsgBox("Borrado")
Dim NWindAdapter As New OleDb.OleDbDataAdapter("Select * from Materia", NWindOleDbConn)
Dim NWindDataSet As DataSet = New DataSet
NWindAdapter.Fill(NWindDataSet, "Materia")
DataGridView1.DataSource = NWindDataSet
DataGridView1.DataMember = "Materia"
DataGridView1.Refresh()
________________________________________
para buscar con acces
Dim NWindOleDbConn As OleDb.OleDbConnection
NWindOleDbConn = New OleDb.OleDbConnection()
NWindOleDbConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\Itsur\PrograII\Estudiantes.mdb"
NWindOleDbConn.Open()
Dim NWindAdapter As New OleDb.OleDbDataAdapter("Select * from Materia where id_materia = '" & TextBox1.Text & "'", NWindOleDbConn)
Dim NWindDataSet As DataSet = New DataSet
NWindAdapter.Fill(NWindDataSet, "Materia")
DataGridView1.DataSource = NWindDataSet
DataGridView1.DataMember = "Materia"
DataGridView1.Refresh()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox1.Focus()
MessageBox.Show("buscado")
finnnn