Visual Basic.NET - No se puede crear Lista Secundaria...

   
Vista:

No se puede crear Lista Secundaria...

Publicado por Roberto Langella (6 intervenciones) el 08/09/2009 19:46:32
Hola a todos. Estoy realizando una aplicación para escritorio con VS 2005, una base de datos mdf (con una sola tabla), con conexión ADO.
No tengo problemas en conectarme a la BD, no aparece ningún error en todo el código, pero al ejecutar la aplicación, cuando quiero salvar los datos que he cargado en el cuadro de diálogo, me sale el siguiente mensaje de error: "No se puede crear una lista secundaria para el campo tbSujetos" (donde "Sujetos" es el nombre de la tabla).
Soy un autodidacta en este tema, que realizo solo por hobby. Perdón si estoy consultando por una tontería. Agradeceré me ayuden a resolver este problema.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de roger

RE:No se puede crear Lista Secundaria...

Publicado por roger (186 intervenciones) el 08/09/2009 20:43:11
mira la documentacion de microsoft al respecto

http://support.microsoft.com/default.aspx/kb/816799/es
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:No se puede crear Lista Secundaria...

Publicado por Roberto Langella (6 intervenciones) el 08/09/2009 22:07:38
Lamentablemente no me ha servido esta información. Refiere a la declaración de los componentes del cuadro de diálogo, y no tengo problemas con eso.
¿Es posible que el problema esté en la misma base de datos, en cómo está confeccionada?. Es formato mdb, me equivoqué la anterior vez al decir que es mdf. Gracias.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:No se puede crear Lista Secundaria...

Publicado por Damian (824 intervenciones) el 08/09/2009 23:35:36
Habria que ver bien como tienes el codigo, o lo realizas con controles enlazados?.
Te aconsejo que lo realises desde codigo y si ya lo tienes asi, nos podrias mandar la parte del codigo en donde te tira ese error. Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:No se puede crear Lista Secundaria...

Publicado por Roberto Langella (6 intervenciones) el 08/09/2009 23:50:56
Hola, te envío el código que tengo, del cuadro de diálogo, pero no sale el mensaje allí, sino en ejecución de la aplicación.

Imports System.Windows.Forms

Public Class Dialog1

Dim MiConexión As ADODB.Connection
Dim MiRecordset As ADODB.Recordset

Sub MiConexión1()

MiConexión = New ADODB.Connection
MiConexión.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:Documents and SettingsAdministradorMis documentosVisual Studio 2005ProjectsSimona.3M(Ültimo)Simona.mdb;Persist Security Info=False"
MiConexión.Open()

MiRecordset = New ADODB.Recordset

MiRecordset.Open("Simona", MiConexión, CursorTypeEnum.adOpenDynamic, LockTypeEnum.adLockOptimistic)

MiRecordset.Close()
MiConexión.Close()

End Sub

Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
Me.DialogResult = System.Windows.Forms.DialogResult.OK
Me.Close()
End Sub

Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.Close()
End Sub

Private Sub SujetosBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Me.Validate()
Me.SujetosBindingSource.EndEdit()
Me.SujetosTableAdapter.Update(Me.SimonaDataSet.Sujetos)

End Sub

Private Sub SujetosBindingNavigatorSaveItem_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs)
Me.Validate()
Me.SujetosBindingSource.EndEdit()
Me.SujetosTableAdapter.Update(Me.SimonaDataSet.Sujetos)

End Sub

Private Sub SujetosBindingNavigatorSaveItem_Click_2(ByVal sender As System.Object, ByVal e As System.EventArgs)
Me.Validate()
Me.SujetosBindingSource.EndEdit()
Me.SujetosTableAdapter.Update(Me.SimonaDataSet.Sujetos)

End Sub

Private Sub Dialog1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: esta línea de código carga datos en la tabla 'SimonaDataSet.Sujetos' Puede moverla o quitarla según sea necesario.
Me.SujetosTableAdapter.Fill(Me.SimonaDataSet.Sujetos)

End Sub

Private Sub Apellido_y_NombreComboBox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Apellido_y_NombreComboBox.SelectedIndexChanged

End Sub

Private Sub Fecha_de_NacimientoDateTimePicker_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Fecha_de_NacimientoDateTimePicker.ValueChanged

End Sub

Private Sub HoraDateTimePicker_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HoraDateTimePicker.ValueChanged

End Sub

Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click

End Sub

Private Sub Latitud_MinutosTextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Latitud_MinutosTextBox.TextChanged

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

End Sub

Private Sub PaísComboBox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PaísComboBox.SelectedIndexChanged

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Try
'Borrar las ediciones actuales
Me.BindingContext(Me, "tbSujetos").EndCurrentEdit()
Me.BindingContext(Me, "tbSujetos").AddNew()

Catch eEndEdit As System.Exception
System.Windows.Forms.MessageBox.Show(eEndEdit.Message)

End Try

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

End Sub
End Class
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:No se puede crear Lista Secundaria...

Publicado por Damian (49 intervenciones) el 09/09/2009 20:43:12
Por que no pones un punto de interrupcion y vas ejecutando con F8 y viendo como va todo en la ventana inmediato
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:No se puede crear Lista Secundaria...

Publicado por Roberto Langella (6 intervenciones) el 10/09/2009 21:32:07
Amigo Damián, hago esto y tampoco encuentro el error por aquí. Te dejo el fragmento de código, a ver qué opinás. Gracias.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Try
'Borrar las ediciones actuales
Me.BindingContext(Me, "tbSujetos").EndCurrentEdit()
Me.BindingContext(Me, "tbSujetos").AddNew()

Catch eEndEdit As System.Exception
System.Windows.Forms.MessageBox.Show(eEndEdit.Message)

End Try

End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar