VB 版 (精华区)

发信人: surfman (大地的孩子), 信区: VB
标  题: Re: 问题又来了，大家快帮帮忙吧
发信站: 哈工大紫丁香 (Sat Dec 15 09:06:17 2001) , 转信

1.addnew和edit不能同时出现，另外要判断text控件是否为空字符，如果是要让相应的fi
eld等于NULL。
2.text控件的text值是字符型，而recordcount属性应该为整型，应该用val函数转换一下
。
  记录添加不进去可能是IF语句的问题，总是满足flag=false。
【 在 heuguest (★☆＠※△▲＆＃) 的大作中提到: 】
: 我想实现向数据库的输入，其中油添加、修改、删除等功能
: 但是怎么也不能实现，比如说添加功能吧：
: 我打算通过在一个text数组里面输入相应的内容
: 一按添加按钮就可以添加到数据库里面去了，可是我变的代码却怎么也实现不了
: 本人初学oo编程，是不是还没有入门？给我感觉自己都摸不着头脑
: 请大家指教//bow，部分代码如下
:  Dim db As Database
: Dim rs As Recordset
: Private Sub Cmdadd_Click()
:  Dim flag As Boolean
:  Dim i As Integer
: Set db = DBEngine.Workspaces(0).OpenDatabase("C:\vb\db1.mdb")
: Set rs = db.OpenRecordset("表1")
:  If Text1(0).Text = rs.RecordCount + 1 Then
:    flag = True
:  ElseIf Text1(0).Text <= rs.RecordCount Then
:    flag = False
:  Else
:    MsgBox "您所输入的期数无效，请重新输入！", vbCritical
:    Text1(0).SetFocus
:  End If
:   If flag Then Call CheckData
:   rs.AddNew
:   rs.Edit
:   For i = 0 To 8
:    rs.Fields(i) = Text1(i)
:   Next
:   rs.Update
: End Sub




--

※ 来源:．哈工大紫丁香 http://bbs.hit.edu.cn [FROM: 202.118.234.140]