请教各位一个关于数据插入的问题

Question

'******************************************************************************
    ' 函数名称: CReplaceComma
    ' 功能:     替换要转换成SQL语句中的 '
    ' 参数:     sStrIn 信息内容
    ' 返回值:   处理后的串
    ' 作成 :    zycheng/2003.05.13
    ' 修正履历：
    '******************************************************************************
    Public Function CReplaceComma(ByVal sStrIn As String) As String
        Dim nStart As Long
        Dim nPos As Long        nStart = 1
        While InStr(nStart, sStrIn, "'", CompareMethod.Text) > 0
            nPos = InStr(nStart, sStrIn, "'", CompareMethod.Text)
            sStrIn = Left(sStrIn, nPos - 1) + "‘" + Right(sStrIn, Len(sStrIn) - nPos)
            nStart = nPos + 2
        End While
        CReplaceComma = sStrIn
    End FunctionInsql = "insert into SSBWH values('" & CReplaceComma(recName(0)) & "','" & CReplaceComma(recName(1)) & "','" & CReplaceComma(recName(2)) & "','" & CReplaceComma(recName(3)) & "','" & CReplaceComma(recName(4) & "'))"

Answer 1

楼主用的是vb吧?
对于字符里有一个'的,最好通过basic语言处理成两个',这样sql能够处理
1->2
2->4

Answer 2

Insql = "insert into SSBWH values('" & recName(0) & "','" & recName(1) & "','" & recName(2) & "','''" & recName(3) & "''','" & recName(4) & "')"

Answer 3

to beckhambobo(beckham):
   你说的有道理，但是我的字段的值不是整个的在两个双引号之间，而是其中包含这个引号。如： str = di>'10' 这种，那我是不是用replace函数将其中的换成两个引号呀