VB中如何刷新数据库

数据库因该是刷新成功了的，只是你控件上没显示而已。

把你的数据显示（查询语句就可以了“select * from 表名”）写成过程，每次要刷新的时候先初始化DATA控件，再调用数据显示的过程就可以了。

DATA控件自身没有自动刷新的功能，必须手动执行语句

可能有下面两个错误:

1.if 语句是否成立.最好都用 cint()这个函数

2.sql 语句中的库存和商品ID是否用的数字类型.如果是的话你的SQL语句就是错的,比较数字类型的时候不需要加 '' 号

*************************

你先在IF语句里加一个msgbox "1",先看看是否运行.

还有你那个where前面要有个空格

Private Sub Form_Click()

ado_Open

sql = "select * from yymg_frm"

Newado

ListView1.ListItems.Clear

For i = 1 To ado.RecordCount

With ListView1

.ListItems.Add i, , ado.Fields(1)

End With

ado.MoveNext

Next i

End Sub

---