Thêm dữ liệu vào trong một trường nText vào SQL Server

Rất nhiều lập trình viên hỏi làm thế nào để thêm (insert) dữ liệu vào trong một trường nText vào SQL Server với ADO. Phần lớn các câu SQL thường dùng string chuẩn và nó sẽ gặp vấn đề khi cập nhật các ký tự đặc biệt. Sau đây chúng tôi sẽ giúp các bạn tránh được các lỗi thường gặp đó.

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

Dim lRecs Dim moADOCon Dim moADOCom Set moADOCon = Server.CreateObject(''ADODB.Connection'') Set moADOCom = Server.CreateObject(''ADODB.Command'') moADOCon.Open ''your connection string'' With moADOCom .ActiveConnection = moADOCon .CommandText = ''spPost'' .CommandType = adCmdStoredProc .Parameters.Append .CreateParameter(''@RETURN_VALUE'', adInteger, adParamReturnValue,0) .Parameters.Append .CreateParameter(''@ReplyToID'', adInteger, adParamInput, , msPostID) .Parameters.Append .CreateParameter(''@fk_author_id'', adInteger, adParamInput, , clng(Session(''intMemberID''))) .Parameters.Append .CreateParameter(''@fk_interest_id'', adInteger, adParamInput, , msInterestID) .Parameters.Append .CreateParameter(''@subject'', adVarWChar, adParamInput, 50, msSubject) .Parameters.Append .CreateParameter(''@bodytext'', adVarWChar, adParamInput, 1073741823, msBodyText) .Execute lRecs, , adExecuteNoRecords End With moADOCon.Close Set moADOCom = nothing Set moADOCon = nothing Theo diễn đàn tin học Nguồn : Thêm dữ liệu vào trong một trường nText vào SQL Server

Posted in: Học lập trình SQL Server