
No se encuentra la tabla 0
Publicado por NG (4 intervenciones) el 19/09/2012 14:21:17
Buen Dia, soy nueva en el foro
tengo un inconveniente y no encuentro la manera de solucionarlo
tengo una base de datos en access "empleado" tengo varios textbox Nombre, Legajo, etc.. y el siguiente codigo que detallo abajo, cuando lo ejecuto me tira un error que no encuentra la base 0. (empleado, es la unica que tengo)
Cuando lo pruebo en donde estudio funciona correcto pero en mi casa con el mismo codigo me tira error, debe ser algo que tengo que confirgurar y no logro darme cuenta que puede ser.
Ojala me puedan ayudar
desde ya muchas gracias!!
**********************************
Imports System.Data.OleDb
********************************
Public Class form1
*********************************
Dim conexion As New OleDb.OleDbConnection
Dim ds As New DataSet
Dim da As New OleDb.OleDbDataAdapter
Dim nroreg As Integer
Private Sub Llenartxt()
TxtLegajo.Text = ds.Tables(0).Rows(nroreg)("legajo")
TxtNombre.Text = ds.Tables(0).Rows(nroreg)("nombre")
TxtFecha.Text = ds.Tables(0).Rows(nroreg)("fecha")
TxtBasico.Text = ds.Tables(0).Rows(nroreg)("basico")
TxtPremio.Text = ds.Tables(0).Rows(nroreg)("premio")
TxtCasado.Text = ds.Tables(0).Rows(nroreg)("casado")
TxtArea.Text = ds.Tables(0).Rows(nroreg)("Area")
ChkCasado.Checked = ds.Tables(0).Rows(nroreg)("casado")
End Sub
********************************
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
conexion = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Bases\EMPLEADO.MDB")
conexion.Open()
da = New OleDb.OleDbDataAdapter("select * from empleados",conexion.ConnectionString)
da.Fill(ds)
nroreg = 0
Llenartxt()
tengo un inconveniente y no encuentro la manera de solucionarlo
tengo una base de datos en access "empleado" tengo varios textbox Nombre, Legajo, etc.. y el siguiente codigo que detallo abajo, cuando lo ejecuto me tira un error que no encuentra la base 0. (empleado, es la unica que tengo)
Cuando lo pruebo en donde estudio funciona correcto pero en mi casa con el mismo codigo me tira error, debe ser algo que tengo que confirgurar y no logro darme cuenta que puede ser.
Ojala me puedan ayudar
desde ya muchas gracias!!
**********************************
Imports System.Data.OleDb
********************************
Public Class form1
*********************************
Dim conexion As New OleDb.OleDbConnection
Dim ds As New DataSet
Dim da As New OleDb.OleDbDataAdapter
Dim nroreg As Integer
Private Sub Llenartxt()
TxtLegajo.Text = ds.Tables(0).Rows(nroreg)("legajo")
TxtNombre.Text = ds.Tables(0).Rows(nroreg)("nombre")
TxtFecha.Text = ds.Tables(0).Rows(nroreg)("fecha")
TxtBasico.Text = ds.Tables(0).Rows(nroreg)("basico")
TxtPremio.Text = ds.Tables(0).Rows(nroreg)("premio")
TxtCasado.Text = ds.Tables(0).Rows(nroreg)("casado")
TxtArea.Text = ds.Tables(0).Rows(nroreg)("Area")
ChkCasado.Checked = ds.Tables(0).Rows(nroreg)("casado")
End Sub
********************************
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
conexion = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Bases\EMPLEADO.MDB")
conexion.Open()
da = New OleDb.OleDbDataAdapter("select * from empleados",conexion.ConnectionString)
da.Fill(ds)
nroreg = 0
Llenartxt()
Valora esta pregunta


0