UC知道vb addnew的问题
来源：百度知道 编辑：UC知道 时间：2024/05/18 01:51:23
我用的事vb6.0
我用rs.addnew想把text1 到text10里面的值
添加到数据库里面，
可是当数据里面为空的时候就没办法添加
而当我在数据库里手动加一行数据时候再rs.addnew就可以
这是为什麼？ 怎麼解决啊？
我帖部分代码上去
Private Sub cmdadd_Click() '按添加按钮清空text
txt1.Text = ""
txt2.Text = ""
txt3.Text = ""
txt4.Text = ""
txt5.Text = ""
txt6.Text = ""
txt7.Text = ""
txt8.Text = ""
txt9.Text = ""
txt10.Text = ""
end sub
Private Sub cmdbc_Click() '保存
Dim strsql As String
Dim rs As ADODB.Recordset
strsql = "select * from callout where flag=1"
Set rs = ExecuteSQL(strsql)
rs.AddNew
rs.Fields(1) = Trim(txt1.Text)
rs.Fields(2) = Trim(txt2.Text)
rs.Fields(3) = Trim(txt3.Text)
rs.Fields(4) = Trim(txt4.Text)
rs.Fields(5) = Trim(txt5.Text)
rs.Fields(6) = Trim(txt6.Text)
rs.Fields(
我用rs.addnew想把text1 到text10里面的值
添加到数据库里面，
可是当数据里面为空的时候就没办法添加
而当我在数据库里手动加一行数据时候再rs.addnew就可以
这是为什麼？ 怎麼解决啊？
我帖部分代码上去
Private Sub cmdadd_Click() '按添加按钮清空text
txt1.Text = ""
txt2.Text = ""
txt3.Text = ""
txt4.Text = ""
txt5.Text = ""
txt6.Text = ""
txt7.Text = ""
txt8.Text = ""
txt9.Text = ""
txt10.Text = ""
end sub
Private Sub cmdbc_Click() '保存
Dim strsql As String
Dim rs As ADODB.Recordset
strsql = "select * from callout where flag=1"
Set rs = ExecuteSQL(strsql)
rs.AddNew
rs.Fields(1) = Trim(txt1.Text)
rs.Fields(2) = Trim(txt2.Text)
rs.Fields(3) = Trim(txt3.Text)
rs.Fields(4) = Trim(txt4.Text)
rs.Fields(5) = Trim(txt5.Text)
rs.Fields(6) = Trim(txt6.Text)
rs.Fields(
1）AddNew 方法 (ADO)，为可更新的 Recordset 对象创建新记录。
语法：
recordset.AddNew FieldList, Values
参数：
FieldList 可选。新记录中字段的单个、一组字段名称或序列位置。
Values 可选。新记录中字段的单个或一组值。如果 Fields 是数组，那么 Values
也必须是有相同成员数的数组，否则将发生错误。字段名称的次序必须与每个数组中的字段值的次序相匹配。
2）AddNew 方法（远程数据），为可更新的 rdoResultset 对象建立一个新行。
语法：
object.AddNew
object 所在处代表一个对象表达式，其值为“应用于”列表中的一个对象。
3）AddNew 方法范例
该范例使用 AddNew 方法创建具有指定名称的新记录。
Public Sub AddNewX()
Dim cnn1 As ADODB.Connection
Dim rstEmployees As ADODB.Recordset
Dim strCnn As String
Dim strID As String
Dim strFirstName As String
Dim strLastName As String
Dim booRec