如何 定位datagrid1里的数据 并修改某一行的值（数据库不动)

Question

access+ado+datagrid其实很简单 就是一张表已经查询出结果了
比如
datagrid里的内容：
。
。
。
北京
深圳
上海
。
。
。
广州
。
。
。后面还有一个字段sr  是空白的（数据库里也是空白的)
现在我放一个TEXT
输入"北京"
指针就自动跳到北京那一行 然后把后面的sr 修改成"已扫描"
若输入 “广州”
也是进行同样的查询 并且修改后面的sr 修改成"已扫描"如果输入的东西 datagrid里找不到
则提示“不存在”
这个我老是写不好代码啊，要么就是指针丢失 要么就是找到了也要报“不存在"
以下是我代码：
DataGrid1.Book = 1
Do While Not Adodc1.Recordset.EOF
    If text1 = DataGrid1.Columns(1) Then
         DataGrid1.Columns(2) = "已录入"
         'MsgBox "zhaodaole"
Exit Do
End If
        DataGrid1.Book = DataGrid1.Book + 1
MsgBox "找不到"
Loop
并且修改了DataGrid1.Columns(2)也就是sr字段后 我发现数据库也跟着改了
我只要改DataGrid里显示的就行了，程序退出后 我希望数据库里SR字段还是空白的请问怎么实现呢 
谢谢大家datagrid指针

Answer 1

本帖最后由 bcrun 于 2013-05-27 12:19:35 编辑

  

Answer 2

用文本框Text1输入文字'从表格中查询地名
MySQL = "Select * From [表格] Where [地名] ='" & Text1.Text & "'"
Adodc1.RecordSource = MySQL
Adodc1.Refresh
'当无值时提示
If Adodc1.Recordset.RecordCount = 0 Then MsgBox("找不到")
'当有唯一值时赋值
If Adodc1.Recordset.RecordCount = 1 Then DataGrid1.Columns("SR") = "已扫描"

Answer 3

本帖最后由 bcrun 于 2013-05-27 12:18:24 编辑