属性的使用无效

欢迎您:游客帮助

我参与的帖子

属性的使用无效 [已结贴,结贴人:patty0]

patty0
patty
等级:

发表于：2008-05-06 00:22:20 楼主

想在文本框里写入字符串,然后保存到相应的数据库列表中,已经连上了数据库,可编译是却一直提示"属性的使用无效",出错处是text2.text.
是我没有申明吗?要怎么做?请大家帮帮我啊~~~

问题点数：20 回复次数：20 修改删除举报引用回复

daisy8675
莫依 MS MVP VB
等级:

发表于：2008-05-06 00:39:031楼得分:0

你的代码怎么写的?

修改删除举报引用回复

patty0
patty
等级:

发表于：2008-05-06 22:54:352楼得分:0

Private Sub Command1_Click()
Dim cn As Connection
Dim rs As New Recordset
Dim sum, ConStr As String
Set cn = New Connection
ConStr = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "\ttj02.Mdb"
cn.Open ConStr
cn.CursorLocation = adUseClient
rs.Open "Select * From nr", cn, 1, 3
sum = rs("neirong") + Text2.Text
Dim o As String
o = Form1.combo
rs.Close
rs.Open "Select * From nr Where ziliao= '" & o & "'"
MsgBox " " & sum & " "
rs.AddNew
rs("neirong") = sum
rs.Update
rs.Close
Set rs = Nothing
End Sub

修改删除举报引用回复

patty0
patty
等级:

发表于：2008-05-06 22:55:263楼得分:0

Private Sub Command1_Click()
Dim cn As Connection
Dim rs As New Recordset
Dim sum, ConStr As String
Set cn = New Connection
ConStr = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "\ttj02.Mdb"
cn.Open ConStr
cn.CursorLocation = adUseClient
rs.Open "Select * From nr", cn, 1, 3
sum = rs("neirong") + Text2.Text
Dim o As String
o = Form1.combo
rs.Close
rs.Open "Select * From nr Where ziliao= '" & o & "'"
MsgBox " " & sum & " "
rs.AddNew
rs("neirong") = sum
rs.Update
rs.Close
Set rs = Nothing
End Sub

修改删除举报引用回复

dbcontrols
泰山
等级:

发表于：2008-05-07 08:29:584楼得分:0

cn.Open ConStr
cn.CursorLocation = adUseClient

两行的位置颠倒一下试试

修改删除举报引用回复

wxrwan
每天进步一点点就是成功的开始
等级:

发表于：2008-05-07 09:14:195楼得分:0

rs("neirong") 换成rs!neirong

修改删除举报引用回复

wxrwan
每天进步一点点就是成功的开始
等级:

发表于：2008-05-07 09:14:586楼得分:0

用rs.fields("neirong")也行

修改删除举报引用回复

dbcontrols
泰山
等级:

发表于：2008-05-07 09:16:487楼得分:0

还是你眼贼

引用 5 楼 wxrwan 的回复:
rs("neirong") 换成rs!neirong

修改删除举报引用回复

vbman2003
家人
等级:

发表于：2008-05-07 10:44:388楼得分:0

sum = rs("neirong") + Text2.Text
---------------------
sum = val(rs("neirong")) + val(Text2.Text)

修改删除举报引用回复

patty0
patty
等级:

发表于：2008-05-07 16:03:309楼得分:0

5楼正解!
可SUM完全没取到数据啊,MsgBox " " & sum & " " 为空,怎么回事?我明明在文本框里写数据了,好象没进去啊~~~

修改删除举报引用回复

vbman2003
家人
等级:

发表于：2008-05-07 16:35:5010楼得分:0

因为你rs("neirong")件null

修改删除举报引用回复

vbman2003
家人
等级:

发表于：2008-05-07 16:43:4411楼得分:0

rs("neirong")、rs!neirong是二种不同的写法，结果一样的

修改删除举报引用回复

vbman2003
家人
等级:

发表于：2008-05-07 17:02:0112楼得分:2

你声明变量的方法：
Dim sum, ConStr As String
这样sum并不是string，而是Variant，所以当你rs("neirong") is null的时候，Variant对包含null的表达式，计算结果总是null

修改删除举报引用回复

patty0
patty
等级:

发表于：2008-05-07 23:19:2313楼得分:0

我只想把文本框中文本写入数据库,不需要做什么计算,不知道哪里写错了

修改删除举报引用回复

tanjiunnya
tanjiunnyann
等级:

发表于：2008-05-07 23:25:3114楼得分:0

lz, 肯定是你的Data Type 用错了吧？

你的 rs("neirong")是什么Data Type? String? Integer?
你在Text1 输入了什么东西？可否详细写出来？

修改删除举报引用回复

vbman2003
家人
等级:

发表于：2008-05-08 07:00:3115楼得分:2

引用 13 楼 patty0 的回复:
我只想把文本框中文本写入数据库,不需要做什么计算,不知道哪里写错了

你要不清楚错误所在，以后还是会犯类似的错误，你试下：

如果sum是string:
sum = format(rs("neirong")) & Text2.Text

如果sum是long：
　　sum = val(format(rs("neirong"))) + Text2.Text

修改删除举报引用回复

patty0
patty
等级:

发表于：2008-05-08 21:58:4116楼得分:0

Text2 输入的是字符串,我用了15楼的方法, format报错!
之前的代码去掉错误后,MsgBox " " & sum & " " 为空,后来去看数据库,发现增加了好几空行,本来想实现对1-16行相应字段的数据写入,怎么会变成增加行,且是空的?

修改删除举报引用回复

vbman2003
家人
等级:

发表于：2008-05-09 07:23:5217楼得分:8

Private Sub Command1_Click()
Dim cn As Connection
Dim rs As New Recordset
Dim sum as long, ConStr As String

Set cn = New Connection
ConStr = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "\ttj02.Mdb"
cn.Open ConStr
'cn.CursorLocation = adUseClient
'rs.Open "Select * From nr", cn, 1, 3 '这个记录集会返回表中所有数据，你如果只想得到一条neirong值，就应该加WHERE子句有条件的打开。
Dim o As String
　o = Form1.combo
rs.Open "Select * From nr Where ziliao= '" & o & "'", cn, 1, 3　
'有可能上面返回了空记录集，所以要加判断：
if not rs.eof and not rs.bof then
sum = val(format(rs("neirong"))) + val(Text2.Text) '我把sum声明为long
else
sum = val(Text2.Text)
end if
　　rs.Close
　　MsgBox sum

　　'rs.Open "Select * From nr Where ziliao= '" & o & "'" '用addnew方法添加数据按如下语句打开记录集
　rs.Open "Select * From nr Where 1＝0",cn,3,3
rs.AddNew
rs("neirong") = sum
rs.Update
rs.Close
Set rs = Nothing
set cn=nothing
End Sub

修改删除举报引用回复

ZOU_SEAFARER
颓废程序员^_^
等级:

发表于：2008-05-09 07:35:4818楼得分:8

rs.Open "Select * From nr Where ziliao= '" & o & "'"
你这个查询都不知道出多少记录哦

rs.Open "Select * From nr Where ziliao= '" & o & "'", cn, 1, 3　

我只想把文本框中文本写入数据库,不需要做什么计算,不知道哪里写错了

if not rs.eof and not rs.bof then
for i = 1 to rs.Count
rs("neirong")= rs("neirong") & vbnullstring & Text2.Text
rs.movenext
next
rs.update
end if

rs.Close
　

修改删除举报引用回复

patty0
patty
等级:

发表于：2008-05-09 22:09:5819楼得分:0

17楼请问这句是什么意思?
rs.Open "Select * From nr Where 1＝0",cn,3,3

修改删除举报引用回复

vbman2003
家人
等级:

发表于：2008-05-10 09:33:0920楼得分:0

引用 19 楼 patty0 的回复:
17楼请问这句是什么意思?
rs.Open "Select * From nr Where 1＝0",cn,3,3

这个是返回一个只有字段名称没有数据的记录集。在用addnew方法添加数据时，没有特别需要可以这样处理。

修改删除举报引用回复

将帖子提前放进我的网摘推荐给好友

我要提问帖子加分结贴去... 管理菜单

网站简介－广告服务－网站地图－帮助－联系方式－诚聘英才－English－问题报告
世纪乐知（北京）网络技术有限公司版权所有京 ICP 证 020026 号
Copyright © 2000-2007, CSDN.NET, All Rights Reserved