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
| Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.Odbc
Imports System.Data.OleDb
Imports System.IO
Partial Class _Default
Inherits System.Web.UI.Page
Dim Data1 As String
Dim con As SqlConnection
Dim MyCommand As SqlCommand
Dim oReader As SqlDataReader
Dim da As SqlDataAdapter
Function SelectCalendar1() As String
Dim DateNaissance As Date
Dim cnn As SqlConnection
Dim cmd As SqlCommand
Dim ds As New DataSet
On Error Resume Next
Data1 = SqlDataSource1.ConnectionString
cnn = New SqlConnection(Data1)
cmd = New SqlCommand("Update Agent Set DateNaissance = @DateNaissance WHERE Num = @Num ", cnn)
cmd.Parameters.Add("@DateNaissance ", SqlDbType.DateTime).Value = Me.Calendar1.SelectedDate().Date
cnn.Open()
cmd.ExecuteNonQuery()
Me.Validate()
cnn.Close()
ds.Dispose()
cnn = New SqlConnection(Data1)
cmd = New SqlCommand("SELECT * FROM Agent", cnn)
cnn.Open()
da = New SqlDataAdapter(cmd)
da.Fill(ds, "Agent")
cnn.Dispose()
cmd.Dispose()
da.Dispose()
cnn.Close()
con = New SqlConnection(Data1)
con.Open()
Me.form1.DataBind()
End Function
End Class |
Partager