ASP.NET - ejemplo de insercion

   
Vista:

ejemplo de insercion

Publicado por berserk (1 intervención) el 13/02/2014 18:38:30
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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
Imports System.Data
Imports System.Data.Sql
Imports System.Data.SqlClient
Partial Class _Default
    Inherits System.Web.UI.Page
 
    Protected Sub btningresar_Click(sender As Object, e As System.EventArgs) Handles btningresar.Click
        Dim conexion As String
        conexion = "Data Source=BERSERK;Initial Catalog=empresa;Integrated Security=True"
        'conexion = "Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Users\Inpahu.inpahu-HP\Documents\Visual Studio 2008\WebSites\ConexionSqlServer\App_Data\Database.mdf;Integrated Security=True;User Instance=True"
        Dim Miconexion As New SqlConnection(conexion)
        Dim Sql As String = "INSERT INTO EMPLEADO values ('" & Textcodigo.Text & "','" & Textnombre.Text & "','" & Textapellido.Text & "','" & Texttelefono.Text & "','" & Textfecha.Text & "')"
        Dim comando As New SqlCommand(Sql, Miconexion)
        Miconexion.Open()
        comando.ExecuteNonQuery()
        Miconexion.Close()
        Dim [error] As String = "registros Ingresados"
 
        Me.Page.Response.Write("<script language='JavaScript'>window.alert('" & [error] & "');</script>")
    End Sub
 
    Protected Sub btnconsultar_Click(sender As Object, e As System.EventArgs) Handles btnconsultar.Click
        Dim conexion As String
        conexion = "Data Source=BERSERK;Initial Catalog=empresa;Integrated Security=True"
        'conexion = "Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Users\Inpahu.inpahu-HP\Documents\Visual Studio 2008\WebSites\ConexionSqlServer\App_Data\Database.mdf;Integrated Security=True;User Instance=True"
        Dim Miconexion As New SqlClient.SqlConnection(conexion)
        Dim midataReader As SqlClient.SqlDataReader
        Dim comando As New SqlClient.SqlCommand("Select * from empleado Where codigo= " & Textcodigo.Text & "", Miconexion)
        Miconexion.Open()
        midataReader = comando.ExecuteReader
        Dim strTexto = ""
        If (midataReader.Read) Then
            Dim texto As String
            texto = midataReader("nombre")
            Textnombre.Text = (texto)
            'MsgBox(texto)
        Else
            Textnombre.Text = ""
            Dim [error] As String = "registros no existen"
 
            Me.Page.Response.Write("<script language='JavaScript'>window.alert('" & [error] & "');</script>")
        End If
        'While (midataReader.Read)
        'Dim texto As String
        ' texto = midataReader("nomb_depa")
        'MsgBox(texto)
        'End While
    End Sub
 
    Protected Sub btnmodificar_Click(sender As Object, e As System.EventArgs) Handles btnmodificar.Click
        Dim conexion As String
        conexion = "Data Source=BERSERK;Initial Catalog=empresa;Integrated Security=True"
        'conexion = "Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Users\Inpahu.inpahu-HP\Documents\Visual Studio 2008\WebSites\ConexionSqlServer\App_Data\Database.mdf;Integrated Security=True;User Instance=True"
        Dim Miconexion As New SqlConnection(conexion)
        Dim Sql As String = "UPDATE empleado SET nombre='" & Textnombre.Text & "' WHERE codigo=" & Textcodigo.Text & ""
        Dim comando As New SqlCommand(Sql, Miconexion)
        Miconexion.Open()
        comando.ExecuteNonQuery()
        Miconexion.Close()
        Dim [error] As String = "registros Modificados"
 
        Me.Page.Response.Write("<script language='JavaScript'>window.alert('" & [error] & "');</script>")
 
    End Sub
 
    Protected Sub btneliminar_Click(sender As Object, e As System.EventArgs) Handles btneliminar.Click
        Dim conexion As String
        conexion = "Data Source=BERSERK;Initial Catalog=empresa;Integrated Security=True"
        'conexion = "Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Users\Inpahu.inpahu-HP\Documents\Visual Studio 2008\WebSites\ConexionSqlServer\App_Data\Database.mdf;Integrated Security=True;User Instance=True"
        Dim Miconexion As New SqlConnection(conexion)
        Dim Sql As String = "DELETE empleado WHERE codigo=" & Textcodigo.Text & ""
        Dim comando As New SqlCommand(Sql, Miconexion)
        Miconexion.Open()
        comando.ExecuteNonQuery()
        Miconexion.Close()
        Dim [error] As String = "registros Eliminados"
 
        Me.Page.Response.Write("<script language='JavaScript'>window.alert('" & [error] & "');</script>")
    End Sub
 
    Protected Sub btnlimpiar_Click(sender As Object, e As System.EventArgs) Handles btnlimpiar.Click
        Textcodigo.Text = ""
        Textnombre.Text = ""
        Textapellido.Text = ""
        Texttelefono.Text = ""
        Textfecha.Text = ""
 
    End Sub
End Class
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

ejemplo de insercion

Publicado por jemp_intrepido (5 intervenciones) el 11/03/2014 22:44:57
Buenas tardes,

Que tipo de error es el de la inserccion,

Puedes revisar la longitud de los parametros que estas reciviendo.
Verificar que los parametros sean igual al numero de campos que utilizas en la inserccion.
Verificar campos obligatorios y opcionales.
verificar la entrada de caracteres especiales.
La llave primaria sea unica.

etc.........

saludos ...
www.itixmih.wordpress.com
jemp_intrepido
jempdulintre
jemp_dulce
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