您的位置：程序门 -> vb -> 数据库（包含打印，安装，报表)

跪求!!!!!!!如何通过ado把数据存到数据库去?

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

跪求!!!!!!!如何通过ado把数据存到数据库去?

发表于：2007-06-07 12:03:40 楼主

我现在窗体上有1个combo1和一个text1 怎么样才能把这两个的数据存到数据库通过ado空间或直接存进, 我combo1是材料名称 text1是重量数据库为clrk 帮我遍段小语句啊!!!!!

发表于：2007-06-07 13:18:451楼得分:0

给你参考参考
private sub command1_click（)
with adodc1
.commandtype = adcmdtext
.recordsource = "select * from newword where newword= ' " & richtextbox1.text & " ' "
.refresh
if not .recordset.eof then
msgbox "单词已存在! ", vbokonly + vbcritical, "错误 "
adodc1.recordset.close
else
.recordset.addnew
.recordset（ "newword ") = richtextbox1.text
.recordset（ "newwordtype ") = text2.text
.recordset（ "newwordmean ") = text3.text
.recordset（ "newwordsimple ") = text4.text
.recordset（ "newwordasc ") = asc（left（text1.text, 1))
.recordset.update
adodc1.recordset.close
msgbox "添加新单词成功! ", vbokonly + vbinformation, "提示 "
end if
end with
end sub

发表于：2007-06-07 13:43:132楼得分:0

这个是adodc的有没有adodb的

下一篇：label标签控件内文字距离的调整是哪一个属性?
上一篇：最小化窗体后为何print的数据在窗体上就没有了

其他资讯