Question

VB textbox往access内写入数据的问题

例如：
第一次textbox内为"示波器"写入access的时间是2012-01-01 01:01:01
第二次textbox内为"示波器"写入access的时间是2012-01-02 01:01:01
若textbox往access内写入的都为"示波器"时,在Access内的数据第二次的将第一次的覆盖掉,如何操作?

Answer 1

1.用txtbox的textchange事件 编写代码 检查数据库里是否有名字相同的datarow
eg：Dim dataObj As New dataAppClass
Dim dt As New DataTable
dt = dataObj.getNameData(txtbox.Text)
If dt.Rows.Count = 0 Then
（第一个分支）
。。。 。。。
else
（第二个分支）
。。。 。。。
end if
//dataAppClass是一个自定义的类
getNameData是类里面的一个Function
功能就一个通过条件（txtbox.text）找到表里的记录用 select * from 表名 where 名字=示波器
2.如果没有名字一样的，进入第一个分支，新建一条记录
insert into <数据表> （名字,时间） values (’示波器','data.today.toshortdatastring‘)
3.如果有名字一样的，进入第二个分支，修改已有记录
updata <数据表> set (时间='data.today.toshortdatastring') where 名字='示波器'
//我简单试过代码可行，不管你信不信，反正我是信了。 做任务，求采纳。
祝你好运~

Answer 2

用ADO. 比较标准, 好理解. 大概语句如下.
r1.open "select count(*) as rc from a where 字段='示波器'", mydb
if r1!rc>0 then
q1.commandtext = " update ............."
else
q1.commandtext = "insert .............."
endif
r1.close
q1.execute.

Answer 3

在插入之前先删除第一次的,然后在插入第二次的.
或者用更新语句.

追问

删除第一次的数据怎么写啊？是一整行哦

追答

你插入是怎么写的?