Código HTML:<META HTTP-EQUIV="Refresh" CONTENT="3; URL=www.extrem.22web.net">
Código HTML:<META HTTP-EQUIV="Refresh" CONTENT="3; URL=www.extrem.22web.net">
<META HTTP-EQUIV="Refresh" CONTENT="3; URL=www.extrem.22web.net">
hola soy nuevo en el foro estoy estudiando programacion en visual estudio.net estoy intentando hacer un programa
para ingresr datos y que se guarden en un archivo de acces pero al intentar iniciar la busqueda de datos me sale este error,y no se que hacer ,solicito ayuda porfavor ,gracias
"
no se controlo oledbexcepción
El motor de base de datos de Microsoft Access no puede encontrar la tabla o consulta de entrada 'personal'. Asegúrese de que existe y de que el nombre está escrito correctamente."
Function Buscar_registro(ByVal xid As String) As Boolean
Dim id As Double
'convertir cadena en numericco
id = Convert.ToInt32(id)
'conexion
Dim conexion As New OleDbConnection
conexion.ConnectionString = "Provider = Microsoft.ACE.OLEDB.12.0; Data Source = R:\microsoft office\plantilla.accdb; Persist Security Info = false"
Dim cadenasql As String = "SELECT * FROM personal WHERE id = " & id
Dim adaptador As New OleDbDataAdapter(cadenasql, conexion)
Dim Ds As New DataSet
adaptador.Fill(Ds)
conexion.Open() ' aqui es donde me marca el fallo en conexion.open()
conexion.Close()
If (Ds.Tables(0).Rows.Count = 0) Then
Return False
Else
Text_nombre.Text = Ds.Tables(0).Rows(0)("nombre").ToString()
Text_direccion.Text = Ds.Tables(0).Rows(0)("direccion").ToString()
Text_edad.Text = Ds.Tables(0).Rows(0)("edad").ToString()
Ds.Dispose()
Return True
End If
End Function
personarme por el error
en realidad me salta el error en
adaptador.fill(Ds)
Nadie contesta mi simple pregunta y por lo que veo hay otros mensajes menos importantes que si son visitados y leidos.... Una verguenza el foro
buenas tardes tengo un problema con la actualzaicion de datagridview mediante UPDATE ...
coloque un datagridview en un form3 donde me modifca toda la columna no solo la celda especifica....
cod:
Public Class Form3
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
Me.Close()
End Sub
Private Sub LISTABindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) Handles LISTABindingNavigatorSaveItem.Click
Me.Validate()
Me.LISTABindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.STOCKDataSet)
End Sub
Private Sub Form3_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'TODO: esta línea de código carga datos en la tabla 'STOCKDataSet.LISTA' Puede moverla o quitarla según sea necesario.
Me.LISTATableAdapter.Fill(Me.STOCKDataSet.LISTA)
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
System.Diagnostics.Process.Start("D:\BASE DATOS\proyectoeligerm\proy\proy\bin\Debug\STOCK.xl sx")
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim loFila As DataGridViewRow = Me.LISTADataGridView.CurrentRow()
MsgBox("Fila / registros eliminados", vbInformation, "correcto")
End Sub
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
Me.LISTATableAdapter.BUSCAR2(Me.STOCKDataSet.LISTA , NOMTextBox.Text, DIMTextBox.Text)
MsgBox("Registro/s encontrado/s", vbInformation, "correcto")
End Sub
Private Sub Button6_Click(sender As Object, e As EventArgs)
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Me.LISTATableAdapter.MODIFICAR2(NOMTextBox.Text, EXISTENTESTextBox.Text, NOMTextBox.Text)
Me.LISTATableAdapter.Fill(Me.STOCKDataSet.LISTA)
MsgBox("Modificación de registro exitosa", vbInformation, "correcto")
End Sub
Private Sub PrintGrid_Click(ByVal sender As System.Object, ByVal e As _
System.EventArgs) Handles PrintGrid.Click
PrintDocument1.Print()
End Sub
Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, _
ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles _
PrintDocument1.PrintPage
Dim myPaintArgs As New PaintEventArgs(e.Graphics, New Rectangle(New _
Point(0, 0), Me.Size))
Me.InvokePaint(LISTADataGridView, myPaintArgs)
End Sub
End Class
foto:
https://social.msdn.microsoft.com/Forums/getfile/985445
https://social.msdn.microsoft.com/Forums/getfile/985446
archivo proyecto ....
https://1drv.ms/u/s!AmtavNxyY_MkhVpJktwLLYLMvmQF
me ayudan please....