[求助]如何获取字符并添加到表中

mrl

例如有文本： 张三；李四；王五六；（名字数量不定）

问1:如何获得名字的数量

问2:如何将每个名字添加入员工表中

海狸先生

用;　号分格吗？dim stra() as string,rs as new ADODB.recordset,i as integerstra()=split("张三;李四;王五六",";")msgbox "数量为" & Ubound(stra)rs.open "员工表",currentproject.conntion,3,3for i=lbound(stra)to Ubound(stra)rs.addnewrs("名字")=stra(i)rs.updatenextrs.close

mrl

真行！谢谢

mrl

rs.Open "订单", CurrentProject.conntion, 3, 3这句提示：对象不支持该属性或方法 Dim stra() As String, rs As New ADODB.Recordset, i As Integer

     

        stra() = Split(Me.Text5, ",")

        MsgBox "数量为" & UBound(stra)        rs.Open "订单", CurrentProject.conntion, 3, 3        For i = LBound(stra) To UBound(stra)            rs.AddNew           rs("编号") = stra(i)

           rs("数量") = Me.Text6

           rs("客户") = Me.Text客户

           rs("单号") = Me.Text单号

            rs.Update        Next       rs.Close