VB利用变量查询日期型数据.rar

VB利用变量查询日期型数据，结合SQLServer数据库实现的，可根据出生日期查询学生信息。查询部分的具体代码如下： 　　Private Sub Cmd_Find_Click() '【查询】按钮 　　If Text1.Text = "" Then 　　 MsgBox "请输入要查询的出生年月！", , "信息提示" 　　 Text1.Text = "" 　　 Text1.SetFocus 　　 Exit Sub 　　ElseIf Not IsDate(Text1.Text) Then 　　 MsgBox "请输入正确的数据类型", , "信息提示" 　　 Text1.Text = "" 　　 Text1.SetFocus 　　 Exit Sub 　　Else 　　 MyDate = Format(Text1.Text, "short date") '给变量赋值 　　 Adodc1.RecordSource = "select * from tb_stu where 出生年月= '" Str(MyDate) "'" 　　 Adodc1.Refresh 　　 Set DataGrid1.DataSource = Adodc1 　　End If 　　还有更多代码，请您下载完整的实例。