我正在写一个程序,其中有写字段的值可以为空如下:
create table student_info
( studnet_id int not null primary key,
studnet_name char(10) null,
..... null
comment varchar(200) null,
)
当comment或其他字段的值为空时,出错text不能接受null
dim rs as adodb.recordset
strsql="select * from student_info"
rs.open strsql.........
text1.text=rs.fields(....)
text2.text=rs.fields(...)
....
textn.text=rs.fields(comment)
难道每个字段都要判断一下NULL再赋值吗?(如果有30个字段)有没有更好的办法(字段必须可以为空)
create table student_info
( studnet_id int not null primary key,
studnet_name char(10) null,
..... null
comment varchar(200) null,
)
当comment或其他字段的值为空时,出错text不能接受null
dim rs as adodb.recordset
strsql="select * from student_info"
rs.open strsql.........
text1.text=rs.fields(....)
text2.text=rs.fields(...)
....
textn.text=rs.fields(comment)
难道每个字段都要判断一下NULL再赋值吗?(如果有30个字段)有没有更好的办法(字段必须可以为空)
解决方案 »
- Trim函数的问题,请高手指教,100分感谢!!!
- 出现错误:无法插入行,行必须到少有一个列值集
- 如何才能让程序没有窗口,谢谢
- 请教窗体最大化
- 有谁知道控制面板中的计划任务程序里选择时间和日期用的是什么控件!!!!!
- 为什么我的ShockwaveFlash1控件播放FLASH不出来呢?
- 紧急求助!!!!!!
- 哪里有下载正版的英文vb6.0?急!提供可用的下载地址都给分。帮忙UP的也有!
- 帮我看一段程序!为什么他不能提交到指定的asp网啊?在线等待!!!!!
- 为什么我在VB中使用ADO打开.dbf数据库并一条一条追加到SQL Server数据库(服务器上),544条记录竟用了8分钟
- 利用winsock的TCP协议方式通信,是否能通过路由器?
- 写入文本文件的问题?帮帮手!
把所有的值to text
这样一来就不用考虑字段多少的问题
例如:toText(rs.fields("字段名").value)
没有totext的含义
小弟学浅,能否详细赐教
rs.open strsql.........
FOR I=0 TO 30
text1(I).text=rs.fields(I).VALUE &""
NEXT
text1.text=rs.fields(...)
end if
text1.text=trim(rs.fields(字段) & "")
dim rs as adodb.recordset
strsql="select * from student_info"
rs.open strsql.........
on error resume next
text1.text=rs.fields(....)
text2.text=rs.fields(...)
....
textn.text=rs.fields(comment)