vb中如何只用一个按钮事件将数据添加到数据库中
例如:有一个文本框和一个按钮,在文本框有内容的情况下,只点一下按钮就将文本框中的数据添加到数据库中,具有和下面一样的功能:类似于两个按钮的情况:先点按钮一执行data1....
例如:有一个文本框和一个按钮,在文本框有内容的情况下,只点一下按钮就将文本框中的数据添加到数据库中,具有和下面一样的功能:
类似于两个按钮的情况:先点按钮一执行data1.recordset.addnew,将文本框中填入信息之后,再点击按钮二执行data1.recordset.update将文本框中的信息添加到数据库中。
我该如何写哪一个按钮的单击事件???十分紧急!!! 展开
类似于两个按钮的情况:先点按钮一执行data1.recordset.addnew,将文本框中填入信息之后,再点击按钮二执行data1.recordset.update将文本框中的信息添加到数据库中。
我该如何写哪一个按钮的单击事件???十分紧急!!! 展开
3个回答
展开全部
if command1.caption="准备添加" then
data1.recordset.addnew
command1.caption="确认添加"
else
if text1<> "" then
data1.recordset.update
command1.caption="准备添加"
else
msgbox "请输入文本"
text1=.setforce
end if
end if
data1.recordset.addnew
command1.caption="确认添加"
else
if text1<> "" then
data1.recordset.update
command1.caption="准备添加"
else
msgbox "请输入文本"
text1=.setforce
end if
end if
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
private sub command1_click()
dim cn as adodb.connection
dim sql as string
set cn=new adodb.connection
cn.open "数据库连接套接字"
sql="insert into 表名(字段名) values('"+text1.text+"')"
if len(text1.text)>0 then
cn.execute sql
end if
set cn=nothing
end sub
dim cn as adodb.connection
dim sql as string
set cn=new adodb.connection
cn.open "数据库连接套接字"
sql="insert into 表名(字段名) values('"+text1.text+"')"
if len(text1.text)>0 then
cn.execute sql
end if
set cn=nothing
end sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
data1.recordset.update也些在前一个按钮事件里啊
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询