Private Sub Command1_Click()
Data1.DatabaseName = App.Path & "\student.mdb"
Data1.RecordSource = "select * from TStuInfo where 系别='" & Combo1.Text & "' and 级别='" & Combo2.Text & "'"
DBGrid1.DataSource = Data1
DBGrid1.Refresh
End Sub
这段程序有问题吗?我要把数据显示在dbgrid1,而不用datagrid和adodc
Data1.DatabaseName = App.Path & "\student.mdb"
Data1.RecordSource = "select * from TStuInfo where 系别='" & Combo1.Text & "' and 级别='" & Combo2.Text & "'"
DBGrid1.DataSource = Data1
DBGrid1.Refresh
End Sub
这段程序有问题吗?我要把数据显示在dbgrid1,而不用datagrid和adodc
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货