急求！VB6里关于数据库显示条数的有关问题

2012-02-03

急求！VB6里关于数据库显示条数的问题在程序中，窗体上有一个textbox,一个commandbutton，一个Data和一个与Da

急求！VB6里关于数据库显示条数的问题
在程序中，窗体上有一个textbox,一个commandbutton，一个Data和一个与Data绑定了的DBGrid（或者一堆绑定了的textbox）

我的问题是：
我动态的在Text1中输入了一个大于0、小于等于40的整数，控制调用条数
然后我用Data调用我的数据库，

比如，输入了一个数字21

情况1，我数据库里的内容大于21条，我怎么才能只调用前21条？？并且能实现当我有21条记录的时候，不能继续添加，也不能删除，只能修改？（21条以后的信息不被删改）

情况2，我数据库里内容小于21条，我怎么才能实现，可以并必须并只能添加到21条？

之后我再单击command1时候，能将我这21条（正好21条）信息录入到我的一些变量数组中？

我不会的主要是关于情况1和情况2的实现
另外关于21条信息录入我的数组中应该怎么录？最好有个简单的例子：比如我的数据库里只有“姓名”和“年龄”两项，我如何把这21条信息录入到字符串数组name(40）和age(40)的前21个位置？

急求各位大大的帮忙………………小生不胜感激%>_<%，感谢感谢感谢感谢感谢感谢感谢感谢感谢……………………

附加个小问题，如果我没点击command1前改变了text的值，能不能动态的改变Data显示条数，比如我数据库里本来有30条信息，我最开始的时候text1里输入了21，然后希望完成情况1，之后我text改为了26，有没有办法能使Data变为显示26条？并且22-26条也正是我数据库里的22-26条？……主要问题是上面的，这个附加问题如果解决不了也没事……………………

[解决办法]

select top 21 * from yourtable
[解决办法]
data sql: top 21

DBGrid1.AllowAddNew = True
DBGrid1.AllowAddNew = False
[解决办法]
情况1，我数据库里的内容大于21条，我怎么才能只调用前21条？？并且能实现当我有21条记录的时候，不能继续添加，也不能删除，只能修改？（21条以后的信息不被删改）

rs.Open "select top 21 * from yourtable", cn, adOpenKeyset, adLockOptimistic

if rs.RecordCount>21 then
msgbox "不能删除和添加"
....
exit sub
end if

情况2，我数据库里内容小于21条，我怎么才能实现，可以并必须并只能添加到21条？

rs.Open "select top 21 * from yourtable", cn, adOpenKeyset, adLockOptimistic

if rs.RecordCount<21 then
rs.Open "insert into yourtable (...) select ....", cn, adOpenKeyset, adLockOptimistic
end if

[解决办法]

VB code

Private Sub Form_Load() With Data1 .DatabaseName = "c:\11.mdb" .RecordSource = "select count(*) from itb1" 'itb1是你的表 .Refresh If .Recordset.RecordCount >= 21 Then DBGrid1.AllowAddNew = False 'DBGrid禁止添加 DBGrid1.AllowDelete = False 'DBGrid禁止删除 .RecordSource = "select top 21 * from itb1" '此为data sql: top 21 .Refresh '打开数据库 Else DBGrid1.AllowAddNew = True 'DBGrid允许添加 DBGrid1.AllowDelete = True 'DBGrid允许删除 .RecordSource = "select * from itb1" .Refresh End If End WithEnd Sub
[解决办法]
新手就该先看书：http://download.csdn.net/source/1644211

热点排行