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.DataImports 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.SqlDataReaderDim 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
0