Ctrl+T里面找Microsoft DataGrid ... 然后工具箱里就多一个图标,在窗体上画一个 用来显示记录集 strSQL = "select 组号,款式,颜色,尺寸 from biaodou" '在VB菜单:工程->引用 里面找 Microsoft ActiveX Data Object 2.8 Library,并勾选上 Dim cn As New ADODB.Connection Dim rst As New ADODB.Recordset Dim SqlStr As String cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Mode=ReadWrite;Persist Security Info=False;Jet OLEDB:Database Password=111" SqlStr = select 组号,款式,颜色,尺寸 from biaodou" rst.CursorLocation = adUseClient rst.Open SqlStr, cn, adOpenDynamic, adLockOptimistic, adCmdText '打开记录集 Set DataGrid1.DataSource = rst '给DataGrid修改数据源
然后工具箱里就多一个图标,在窗体上画一个
用来显示记录集
strSQL = "select 组号,款式,颜色,尺寸 from biaodou"
'在VB菜单:工程->引用 里面找 Microsoft ActiveX Data Object 2.8 Library,并勾选上 Dim cn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim SqlStr As String
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Mode=ReadWrite;Persist Security Info=False;Jet OLEDB:Database Password=111"
SqlStr = select 组号,款式,颜色,尺寸 from biaodou"
rst.CursorLocation = adUseClient
rst.Open SqlStr, cn, adOpenDynamic, adLockOptimistic, adCmdText '打开记录集
Set DataGrid1.DataSource = rst '给DataGrid修改数据源
对于某一记录集(相当于表中某一行)
Rs.Fields.Count '返回的记录集总列数
Rs.Fields(i).value'第i列的值
Rs.MoveNext'下一条记录
http://download.csdn.net/source/1644211
zhuhao = Cbo5.Text
kuanshi = Cbo6.Text
yanshe = Cbo7.Text
shima = Cbo8.Text
查询没有符合选择的这几个项, 显示出来,就是如何在strSQL = "select *from 后面写表达式让选的和数据库里的比较
我知道可以这样写 可是后面还有颜色 尺寸呀! 如何写
1.就是上面提到的Rs.Fields(字段索引)这个你需要记住表头字段的顺序,举例Rs.Fields(字段索引).value。举例:Rs.Fields(0)
2.Rs(字段名称).value 解释同上。举例:Rs(0)
3.Rs.Fields(字段名称) 举例:Rs.Fields("用户名")
4.Rs(字段名称) 解释同上。举例:Rs("用户名")
如: 我要查询 1组 ST009 黑色 L 500 460 结果集显示
组号 款式 颜色 尺寸 领到 完成 剩余
1组 ST009 黑色 L 500 460
如果把 领到 减去 完成 写入 剩余
UPDATA 表名 SET 剩余=领到 - 完成
真的可以吗!!!晕!!