Hola a todos:
Tengo 2 formularios uno se llama socios y otro Sociosfindnsocio cuando ejecuto me sale el siguiente error
Excepción no controlada del tipo 'System.StackOverflowException' en Videoclub.exe y me da error.
El codigo donde me da error es en socios en MyBase.New
#Region " Código generado por el Diseñador de Windows Forms "
Public Sub New()
MyBase.New()
'El Diseñador de Windows Forms requiere esta llamada.
InitializeComponent()
'Agregar cualquier inicialización después de la llamada a InitializeComponent()
End Sub
...
En Sociosfindnsocio tengo el siguiente codigo
Imports System.Data.SqlClient
Public Class frmSociosFindnsocio
Inherits System.Windows.Forms.Form
Dim oSocios As New frmSocios
Private Sub cmdAccept_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAccept.Click
If MsgBox("¿Desea buscar este registro?", MsgBoxStyle.OKCancel + MsgBoxStyle.Question, "Buscar") = MsgBoxResult.OK Then
Try
Dim oBusNumsocio As New SqlConnection
oBusNumsocio.ConnectionString = "Server=(local);Database=video;Trusted_Connection= True;"
Dim oCommandnumsocio As New SqlCommand("Select * from socios where numsocio=" & Me.txtNumsocio.Text, BusNumsocio)
Dim oDataBusNumsocio As SqlDataReader
oBusNumsocio.Open()
oDataBusNumsocio = oCommandnumsocio.ExecuteReader
If oDataBusNumsocio.HasRows Then
oDataBusNumsocio.Read()
oBusNumsocio.Close()
oDataBusNumsocio.Close()
Else
MsgBox("Registro(s) no encontrado(s)", MsgBoxStyle.OKOnly + MsgBoxStyle.Information, "Busqueda no realizada") oBusNumsocio.Close()
oDataBusNumsocio.Close()
Me.Close()
End If
Catch ex As Exception
MsgBox(ex.Message)
Catch ex As SqlException
MsgBox(ex.Message)
End Try
End If
End Sub
End Class
Y si no pongo Dim oSocios As New frmSocios no me da error, a que puede ser debido, hay alguna solución
Muchas Gracias y espero haberme explicado bien
