请教关于ADO的问题，有点棘手！在线等待

Question

这样呢？"update table0 set HBXU='" & Cstr(strHBXU) & "' where HBID='" & CStr(intHBID) & "'"

Answer 1

按以下代码执行，可以将空格代替回车键记录下来的
    Dim txtaa As String
    Dim intT As Integer, i As Integer
    Dim strT As String
    Dim strA() As String
    txtaa = Text1.Text   ‘获取多行的文本信息
    strA = Split(txtaa, Chr(13))  ’遇回车分割
    intT = UBound(strA)
    For i = 0 To intT
        strT = strT & " " & strA(i) ‘将分割的字符以空格分割记录下来，重组
    Next
    MsgBox strT
    mysql = "insert into aname(name) values('" & strT & "')"
    rs.Open mysql, conn, 3, 1