Question

我首先要感谢你试图帮我解决我的问题。我试图将输入到文本框中的信息存储到我的Project表中的以下字段[ProjectName]，[ProjectDate]，[ProjectLeader]中。文本框信息将以逗号分隔。我希望以下文字进入相应的领域＆＃34; 2015年5月25日，野生动物战略，John Doe＆＃34;。

这是我到目前为止的代码：

Private Sub Submit_Click()

Dim textPhrase As String
Dim words() As String
Dim i As Integer
Dim Query As QueryDefs



textPhrase = phrase
words = Split(textPhrase, ",")

SQL = "parameters P1 text;INSERT INTO [Project] (ProjectDate, ProjectName, ProjectLeader) VALUES ([P1])"

Set Query = CurrentDb.CreateQueryDef("FsInsert", SQL)

For i = LBound(words) To UBound(words)
  qdf.Parameters("P1").Value = words(i)
  qdf.Execute
    Next i

CurrentDb.QueryDefs.Delete ("FsInsert")


End Sub

我一直收到错误代码，＆＃34;查询值和目标字段的数量不一样＆＃34;。

感谢任何帮助。

Answer 1

Private Sub Submit_Click()

    Dim MyConnection As ADODB.Connection
    Set MyConnection = CurrentProject.Connection
    Dim rsDataEntry As ADODB.Recordset
    Set rsDataEntry = New ADODB.Recordset

            Dim words() As String
            Dim i As Integer
            words = Split(phrase, ",")

    rsDataEntry.Open "select * from Project where ProjectName=''", MyConnection, adOpenDynamic, adLockOptimistic
            With rsDataEntry

        .AddNew
        !ProjectDate = words(0)
        !ProjectName = words(1)
        !ProjectLeader = words(2)

        .Update

            End With

    rsDataEntry.Close
    Set rsDataEntry = Nothing

    MyConnection.Close
    Set MyConnection = Nothing
    MsgBox "Done!"
End Sub

如何将文本字符串拆分为多个表字段

1 个答案: