请问如何将数据库中的值赋给变量 - VB / 基础类

来源：百度文库 编辑：神马文学网 时间：2024/04/29 14:04:31
VB连接的access数据库中有一个表cws,其中只存储了一个字段cws用来存储数字，如何将这个存储的数字赋值给一个int变量N呢？使用了一个data1控件，输入文本框已经关联了这个字段
语句该如何写？
dim   N   as   integer
N=………………
  • 对我有用[0]
  • 丢个板砖[0]
  • 引用
  • 举报
  • 管理
  • TOP
回复次数：3
  •  
  • SupermanKing
  • (人类)
  • 等　级：
#1楼 得分：0回复于：2006-10-16 02:11:55 rs.Open   "Select   *   From   cws ",conn,3,3
N=rs( "cws ")
  • 对我有用[0]
  • 丢个板砖[0]
  • 引用
  • 举报
  • 管理
  • TOP
精华推荐：VB变态应用活动：我最近写的FlashBit。
  •  
  • fohodo
  • 等　级：
#2楼 得分：0回复于：2006-10-16 09:58:56 刚刚学数据库编程，楼上的大哥不好意思啊
我可能没说明白，把代码全贴出来帮我看看
Private   Sub   Command1_Click()
Dim   i   As   Integer
Dim   j   As   Integer
Dim   N   As   Integer
rs.Open   "Select   *   From3   cws ",   conn,   3,   3
N   =   rs( "cws ")
      If   Trim(Text1.Text)   =   " "   Then   '如果无输入
                MsgBox   "请输入数量！ ",   vbOKOnly   +   vbCritical,   "错误 "
    End   If
    If   Val(Text1.Text)   >   208   Then
                MsgBox   "对不起，本系统暂时最多只支持100个，请重新输入！ ",   vbOKOnly   +   vbCritical,   "错误 "
                Text1.Text   =   " "
    End   If
    If   Val(Text1.Text)   =   0   Then
                MsgBox   "数量必须大于0！ ",   vbOKOnly   +   vbCritical,   "错误 "
                Text1.Text   =   " "
    End   If
  If   Val(Text1.Text)   >   0   And   Val(Text1.Text)   <=   208   Then   '设置数量
            For   i   =   0   To   N   -   1
            form1.Command1(i).Visible   =   True
            Next   i
            For   j   =   N   To   99
              form1.Command1(j).Visible   =   False
              Next   j
              Data1.Recordset.Edit
              Unload   Me
                End   If
End   Sub
这个代码需要如何修改？
在线等…………
  • 对我有用[0]
  • 丢个板砖[0]
  • 引用
  • 举报
  • 管理
  • TOP
精华推荐：【评选】版内活动：挖掘VB潜能，征集变态应用
  •  
  • fohodo
  • 等　级：
#3楼 得分：0回复于：2006-10-16 10:10:20 呵呵，自己试着已经搞定了
就用N   =   Data1.Recordset!cws就可以赋值了
不过，还是谢谢楼上那位兄弟啊。
请问如何将数据库中的值赋给变量 - VB / 基础类 请问VB能否在程序运行过程中将变量的值赋给数据库的字段? - VB6论坛 - 编程论坛 CCF技术论坛 - 在VB中将数据库里的某一字段的值赋给一个变量，这个语句如何写？ vb数据库 VB,里的LIXTBOX 如何,引用数据库里的信息 数据库设计中的14个技巧 - MS-SQL Server / 基础类 请问如何给狗狗打胎？ 数据库基础 VB数据库编程技术 VB和数据库123 VB数据库编程技术！ 如何将数据库中被锁表解锁_Mssql实例教程_Mssql_数据库 如何将sql数据库备份到本地 详细说明VB.NET变量中四点 求救，如何将一个字符串加密？ Java / J2SE / 基础类 如何将CString转换为char[] VC/MFC / 基础类 VB编程基础 软件加密方法 - VB / 数据库(包 VB数据库编程技术123 Oracle数据库基础心得 界定课题中的研究变量 第六章 : Makefile中的变量 批处理入门 -- 批处理中的变量 Oracle入门基础：绑定变量测试