请高手指点:
我让用户在文本框中输入数据以添加到数据库,但是怎样检测字段长度,以免程序出错.不要事先设定文本框的MaxLength,这样太麻烦,因为字段太多太多太太多.如果用户输入的数据太长,只截取前面一部分,用户输入的数据仍然有效.
VB+Access
比如数据结构:编号、姓名、性别、住址、电话……
如何检测字段(编号、姓名、性别、住址、电话……)的最大长度,
直接用Access打开数据库查看是不好的,因为字段太多,再说程序也不通用,对于其它表的操作就不能直接用该程序了.
例如:
Set RstSave = New ADODB.Recordset
RstSave.Open mTable, Conn1, 1, 3
RstSave.AddNew
n = 1
For Each Fs In RstSave.Fields
RstSave.Fields(n - 1).Value = Text1(n).Text
n = n + 1
Next
RstSave.Update
RstSave.Close
MsgBox "成功添加了一条记录"
如何保证Text1(n).Text的长度不超过字段最大长度?
-----------------------------------------------
谢谢各位的回答
在VB中怎么得到Access数据库中的某个字段的最大长度???...
可以直接用Access打开数据库查看~~~ ^^ 或者,在VB中用出错处理解决。。。比如写入时出错,就截一 部分重写,再出错,再截,如此循环~~
在vb中如何得到access表中某一字段的最大值
1,按照该字段降序排列,首记录的该字段就是最大值。方法二:利用SQL 的函数,Max()Select Max(字段名) As AAAA From 表名 返回的记录集,只有一条记录、一个字段AAA,该记录的该字段值就是所求
如何用VB筛选Access表中的最大值和最小值
用一条SQL语句即可解决:Dim rs As New Recordset Set rs = conn.Execute("select max(字段名),min(字段名),avg(字段名) from 表名")然后rs(0)就是最大值,rs(1)是最小值,rs(2)是平均值 至于如何显示到窗体控件上这你应该会吧。
菜鸟急求vb6.0对access数据库操作中取出某列最大值的代码
select max(某列)from 某表 where 某条件 或在VB6中 假定rs为查询出来的数据集 dim themax rs.movefirst for i = 1 to rs.recordcount if i= 1 then themax = rs("某列")else if themax<rs("某列")then themax = rs("某列")end if end if rs.movenext next i ...
VB读取ACCESS数据库最大日期
select top 1 * from 表名 order by 日期字段名 desc 也就是根据日期字段由大到小排列,并且只返回一条记录。注意,这个字段一定要是日期时间型的,如果是字符型的日期字串,可能会造成排序混乱
如何使用VB6.0中 ADO控件获取ACCESS数据库表中字段的最大值并把最大值...
Dim sql As String Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "c:\\成绩.mdb;"sql = "select * from 学生成绩表 ORDER BY 数学 DESC "Adodc1.RecordSource = sql Adodc1.Refresh Text1 = Adodc1.Recordset("数学")
请问如何用vb.net读取access数据库某一字段的最后一条记录?
你这已经完成一半了 然后就是应该申明一个表格,来接收语句操作的返回值 比如 dim dt as datatable=comonmodule.sqlopera(strr,tablename)dt.rows(0).columns(0).tostring 就是得到的结果的第一行第一列的值 我以 你的 SQLOpera 是自己写的一个方法,可以返回一个表,作为条件。
用VB计算access的表里符合条件的个数
VB中连接 Access 数据库,直接用 Data 数据控件就可以了,其在设置上也比较简单.如:窗体中放置 Data1 数据控件 在 Form_Load()事件中初试化数据控件并连接数据源 With Data1 .DataName="数据文件路径及名称" 如:"C:\\zbc.mdb".RecordSource="SELECT * FROM AB".Refresh End With 就OK了 要想...
vb中如何调用Access数据表中的某一个记?
在VB6.0中调用Access数据表中的某个记录,可借助ADO控件实现。具体操作如下:1. 首先,确保在项目中添加ADO控件。在“工程”菜单下的“部件…”选项中,选择并添加Microsoft ActiveX Data Objects 2.5 到工具箱。2. 将ADO控件拖至窗体,然后在代码编辑器中编写代码,通过ADO对象连接Access数据库。例如...
vb读取ACCESS数据库的最后一行信息的方法?
你排序,然后用倒序,并且只读第一行就行了,比如我们都知道ID是从小到大的 所以就 select top 1 * from [User] order by [Id] desc