Visual Basic.NET - problema con método para hacer Select

 
Vista:
Imágen de perfil de Guillermo
Val: 46
Ha aumentado 1 puesto en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

problema con método para hacer Select

Publicado por Guillermo (23 intervenciones) el 30/06/2020 05:47:38
Hola compañeros, alguien me puede ayudar con ese error?
por favor...
ya no sé qué hacer.
gracias

captura-de-vbnet
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 melqui
Val: 384
Bronce
Ha aumentado 1 puesto en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

problema con método para hacer Select

Publicado por melqui (110 intervenciones) el 30/06/2020 10:29:02
hola guillermo, no entendi muy bien tu codigo, al parecer en tu codigo esta tentando hacer un insert mas el problema está en mi ver al llamar la conexion de la base de datos.
bueno en las buenas prácticas de programacion tienes que tener mucho cuidado cuando llamas

1
HasRows

este viene de una herencia que es SqlDataReader

cuando tu llamas esta propriedad, en la memoria tu dejas abierta es metodo. bueno resumido por lo que estoy viendo es que estas queriendo validar 2 tablas si existe 1 registro o no para poder salvar cierto? entonces yo te surgiero asi.
create una clase o un module,

coloque la conexio asi

1
2
3
4
5
6
7
Public Function CONEXAO_BANCO_DADOS_SQL() As SqlConnection
 
 
        Dim conexao As String = "aqui colocas la conexio de tu base de datos"
        Return New SqlConnection(conexao)
 
    End Function


y en tu tratamiento de insertar lo colocas asi




1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
private sub  salvar_registro
Using cn As SqlConnection = CLASE_CONEXION.MI_CONEXION
            Try
                cn.Open()
                Dim validar_codigo As String = "SELECT COUNT(*) FROM TABLA_1 INNER JOIN TABLA_2 ON  TABLA_1.COD_1 = TABLA_2.COD_1  WHERE TABLA_1.COD1 = '" &TXTCODIGO.TEXT &"'"
                Dim cmd As New SqlCommand(validar_codigo , cn)
             DIM i as interger
i=cint(cmd.ExecuteScalar())
if i=0 then
dim sql as string = "INSERT INTO TABLA_1 (COD_1, NOMBRE, APELLIDO) VALUES (@COD_1, @NOMBRE, @APELLIDO) "
      Dim cmd_2 As New SqlCommand(sql , cn)
   cmd_2.Parameters.Add(New SqlParameter("@COD_1", SqlDbType.VarChar)).Value = txtcajatexto_1.text
                cmd_2.Parameters.Add(New SqlParameter("@NOMBRE", SqlDbType.VarChar)).Value = txtcajatexto_2.text
 cmd_2.Parameters.Add(New SqlParameter("@APELLIDO", SqlDbType.VarChar)).Value = txtcajatexto_3.text
                cmd_2.ExecuteNonQuery()
                MsgBox("REGISTRO SALVO CON SUCESO. ! ", MsgBoxStyle.Information, " SUCESO")
ELSE
    MsgBox("REGISTRO YA EXISTE, VERIFICAR. ! ", MsgBoxStyle.Information, " ERROR")
end if
 
 
            Catch ex As Exception
              MSG(EX.MESSAGE)
            Finally
                cn.Close()
            End Try
        End Using
    End Sub

use este ejemplo , espero que te ayude
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
Imágen de perfil de Phil Rob
Val: 2.985
Oro
Ha mantenido su posición en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

problema con método para hacer Select

Publicado por Phil Rob (843 intervenciones) el 02/07/2020 13:32:02
Hola,

Pienso que para responder, este es necesario de ver los códigos de la clase connectionLB_Class y especialmente, el método Extrader.

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