考勤记录查询
Imports System
Imports System.Data
Imports System.Data.SqlClient
Partial Class addkaoqin
Inherits System。Web。UI。Page
Protected Sub Button1_Click（ByVal sender As Object， ByVal e As System。EventArgs） Handles Button1.Click
Dim conn As SqlConnection
Dim constr As String
constr = ”server = localhost；database = user；uid=sa；pwd=430281199001125746”
conn = New SqlConnection(constr)
conn.Open()
Dim sql As String = ”select * from user where ttime=’" + TextBox3.Text + ”’"
Dim cmd As New SqlCommand（sq ...