VB里面的ADDNEW怎么用啊?

我是个新手...刚刚想弄个ADDNEW于是就做成了这样 Private Sub Command1_Click() With Adodc1 .Recordset.AddNew "标题", bttex.Text .Recordset.AddNew "文章", wztex.Text .Recordset.UpdateBatch End With End Sub 但是如果这样写的话,会在数据库的不同列中出现输入的东西,怎么样才可以让他在同一列中添加文字啊?

VB的AddNew是指AddNew 方法 (ADO),是为可更新的 Recordset 对象创建新记录。

    AddNew 方法 (ADO),为可更新的 Recordset 对象创建新记录。

    Recordset 对象 (ADO)

    Recordset 对象表示的是来自基本表或命令执行结果的记录全集。任何时候,Recordset
    对象所指的当前记录均为集合内的单个记录。

    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 booRecordAdded As Boolean

    ' 打开连接。
      Set cnn1 = New ADODB.Connection
      strCnn = "Provider=sqloledb;" & _
         "Data Source=srv;Initial Catalog=pubs;User Id=sa;Password=;"
      cnn1.Open strCnn
         
      ' 打开 Employee 表。
      Set rstEmployees = New ADODB.Recordset
      rstEmployees.CursorType = adOpenKeyset
      rstEmployees.LockType = adLockOptimistic
      rstEmployees.Open "employee", cnn1, , , adCmdTable

      ' 从用户获取数据,雇员 ID 的格式应为:
      ' 名、中间名和姓的三个首字母,
      ' 五位数字,以及性别标识 M 或 F。
      ' 例如,Bill Sornsin 的雇员 ID 为:B-S55555M。
      strID = Trim(InputBox("Enter employee ID:"))
      strFirstName = Trim(InputBox("Enter first name:"))
      strLastName = Trim(InputBox("Enter last name:"))

      ' 只在用户输入姓和名之后进行。
      If (strID <> "") And (strFirstName <> "") _
         And (strLastName <> "") Then

         rstEmployees.AddNew
         rstEmployees!emp_id = strID
         rstEmployees!fname = strFirstName
         rstEmployees!lname = strLastName
         rstEmployees.Update
         booRecordAdded = True

         ' 显示新添加的数据。
         MsgBox "New record: " & rstEmployees!emp_id & " " & _
            rstEmployees!fname & " " & rstEmployees!lname

      Else
         MsgBox "Please enter an employee ID, " & _
            "first name, and last name."
      End If
         
      ' 删除新记录,因为这只是演示。
      cnn1.Execute "DELETE FROM employee WHERE emp_id = '" & strID & "'"
         
      rstEmployees.Close
      cnn1.Close

    End Sub



温馨提示:答案为网友推荐,仅供参考
第1个回答  2014-07-16
数据源addnew本身就是添加一行,楼主执行两次当然出现两行,应该放在一行上,然后addnew的两个参数给两个数组就行了,用法还这么用(字段名,内容),只不过这两个数组注意点成员数得一样,就能达到你的要求了,试试吧本回答被提问者采纳
相似回答