hola , antes que me regañen por no buscar las faqs o ejemplos me preguntaba si quisieran ayudarme con este codigo de veras lo necesito
busque en la web una aplicacion que lea una base de datos en acces y funciona ya que visualiza los registros y hasta busca segun un item, pero quiero añadir el boton para añadir un nuevo registro, otro para modificar y otro para eliminar un registro si quisieran colaborarme se los agradeceria
este es el codigo de los botones
por si a alguno mas le sirve la base de datos se llama biblio2.mdb
Código:
Public Class frmBiblioteca
Dim dt As New DataTable
Dim intfila As Integer = 0
Private Sub frmBiblioteca_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'********************************************************************
'* Carga los datos de la basa de datos y lospone en una data table (dt) y muestra el primer registro
'*osck *
' ************************************************************
Dim strconexion As String = "Provider =Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=biblio2.mdb"
Dim strSQL As String = "SELECT * FROM LIBROS "
Dim dataAdapter As New OleDb.OleDbDataAdapter(strSQL, strconexion)
dataAdapter.Fill(dt)
dataAdapter.Dispose()
ActualizaTexto()
End Sub
Private Sub ActualizaTexto()
'***********************************************************
'* esta funcion carga los datos de un registro a los cuadros de texto
'************************************************************
TxtISBN.Text = CStr(dt.Rows(intfila)("ISBN"))
TxtTitulo.Text = CStr(dt.Rows(intfila)("TITULO"))
TxtAutor.Text = CStr(dt.Rows(intfila)("AUTOR"))
Txteditorial.Text = CStr(dt.Rows(intfila)("EDITORIAL"))
TxtAño.Text = CStr(dt.Rows(intfila)("AÑO"))
Txtlugar.Text = CStr(dt.Rows(intfila)("LUGAR"))
Txtpaginas.Text = CStr(dt.Rows(intfila)("PAGINAS"))
End Sub
Private Sub BotBuscar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BotBuscar.Click
Dim strBuscaISBN As String
Dim Encontrado As Boolean = False
Dim i As Integer
strBuscaISBN = CStr(InputBox("Escribe el ISBN del libro a Buscar"))
For i = 0 To dt.Rows.Count - 1
If CStr(dt.Rows(i)("ISBN")) = strBuscaISBN Then
Encontrado = True
intfila = i
ActualizaTexto()
End If
Next
If Not Encontrado Then
MsgBox("no se encontro libro con este ISBN en nuestros registros" & strBuscaISBN)
End If
End Sub
End Class