文件名称:VB利用变量查询日期型数据.rar
文件大小:64KB
文件格式:RAR
更新时间:2022-07-30 11:27:17
VB源码-网络相关
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 还有更多代码,请您下载完整的实例。
【文件预览】:
srcfans.com
----VB利用变量查询日期型数据()
--------db_ExpStu.mdb(452KB)
--------Form1.frm(7KB)
--------工程1.vbp(1KB)
--------Form1.frx(21B)
--------MSSCCPRJ.SCC(190B)
--------DataBase()
--------工程1.vbw(51B)