Strak

Imports System.Data.SqlClient
Imports System.Data
Partial Class Default2
Inherits System.Web.UI.Page
Public cn As New SqlConnection("data source=(local);" & _"initial catalog=citas;" & _
" Integrated security =yes")
Public dt As New DataTable
Public sql As String
Protected SubButton2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
sql = "insert into paciente(idpac,ape,dir,telef)"
sql = sql & "values('" & TextBox1.Text& "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "')"
Dim da As New SqlDataAdapter(sql, cn)
da.Fill(dt)
MsgBox("RegistroGuardado con eXito....")

End Sub

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
sql = "select * from paciente"Dim da As New SqlDataAdapter(sql, cn)
dt.Clear()
da.Fill(dt)
TextBox1.Text = "P00" & Trim(Str(dt.Rows.Count + 1))
TextBox2.Text = ""
TextBox3.Text = ""TextBox4.Text = ""
End Sub

Protected Sub Button5_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button5.Click
sql = "select * from paciente"Dim da As New SqlDataAdapter(sql, cn)
dt.Clear()
da.Fill(dt)
GridView1.DataSource = dt
GridView1.DataBind()
End Sub

Protected Sub Button3_Click(ByValsender As Object, ByVal e As System.EventArgs) Handles Button3.Click
sql = "update paciente set ape='" & TextBox2.Text & "',dir='" & TextBox3.Text & "',telef='" &TextBox4.Text & "' where idpac='" & TextBox1.Text & "'"
Dim da As New SqlDataAdapter(sql, cn)
da.Fill(dt)
MsgBox("Registro Modificado con Exito...")
End Sub...