得到mdb数据库指定表的某行然后写入

来源：百度知道 编辑：UC知道 时间：2024/06/04 04:55:08
数据库：
data.mdb
表名：
dat
内容：

派单编号 客户地址 联系人 电话 ...... 返回时间
1 某区某街 某人 33256262 ...... ???
3 某区某街 某人 33256262 ...... ???
9 某区某街 某人 33256262 ...... ???
11 某区某街 某人 33256262 ...... ???
12 某区某街 某人 33256262 ...... ???
18 某区某街 某人 33256262 ...... ???

输入派单编号，点一个按钮，就打印当前时间，到对应的行返回时间里。

派单编号 是自定义输入的，不一定是序列也不是自动编号！

很容易，我来写写：
1 新建工程；在窗体上加入一个按钮command1，一个文本框text1,
2 添加引用；工程-引用-Microsoft ActiveX Data Objects 2.7 Library；
3 将工程保存在d:\MY_project文件夹
4 我一看就知道你的数据库是access数据库，哈哈。
代码如下：
private sub command1_click()
on error goto errmsg '遇到错误，转到errmsg
dim MyConStr as string '连数据库字符串
dim sqlstr as string '查询语句
dim textv as string '对应表中的字段a b c
dim t as string
textv=text1.text
t=format(now,"yyyy.mm.dd-hh:mm:ss")
dim conn2 as New ADODB.connection ’连接对象
MyConStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db.mdb"
conn2.open MyConStr '建立数据库连接
sqlstr="update dat set 返回时间= '" & t & "' where 派单编号='" & textv & "' " '语句

conn2.Execute sqlstr

set conn2=nothing

errmsg:
if err.number<>0 then
MsgBox CStr(Err.Number) + CStr(Err.Description), v