Private Sub Form_Load() Set cn = New ADODB.Connection Set rs = New ADODB.Recordset cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\mdb\data.mdb;Persist Security Info=False" cn.CursorLocation = adUseClient rs.Open "select * from 填报单位", cn, adOpenDynamic, adLockOptimistic Set DataGrid1.DataSource = rs End Subdo you load this? try it baby!
楼上的 我用的可是adodc,你误会我的意思了把
看名字我感觉“药品数量”字段应该是数字型的,所以应该为: adodc1.recordsouce="update 药品 set 药品数量=1000 where 药品数量<100
把 adodc1.refresh 去掉如下写: adodc1.recordsouce="update 药品 set 药品数量='1000' where 药品数量<'100'Set DataGrid1.DataSource = Adodc1 DataGrid1.Refresh
DataGrid1.visible = false Set DataGrid1.DataSource = nothing adodc1.recordsouce="update 药品 set 药品数量='1000' where 药品数量<'100' adodc1.refresh Set DataGrid1.DataSource = Adodc1 DataGrid1.Refresh
2、你的datagrid1也需要进行刷新。
3、在adodc1的属性当中,不要设置recordsource属性。
急?还可以再加分
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\mdb\data.mdb;Persist Security Info=False"
cn.CursorLocation = adUseClient
rs.Open "select * from 填报单位", cn, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = rs
End Subdo you load this? try it baby!
我用的可是adodc,你误会我的意思了把
adodc1.recordsouce="update 药品 set 药品数量=1000 where 药品数量<100
adodc1.recordsouce="update 药品 set 药品数量='1000' where 药品数量<'100'Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh
Set DataGrid1.DataSource = nothing
adodc1.recordsouce="update 药品 set 药品数量='1000' where 药品数量<'100'
adodc1.refresh
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh
*注意控件的刷新次数,以及数据库文件是否设只读属性!如果不行的话,重启试试!