dポイントプレゼントキャンペーン実施中!

開発環境
ASP&SQLサーバー2000
テキストエリアに入力した文字列をテーブルの「ntext」で定義したフィールドにストアドから更新しているのですが、改行コード又は半角スペース以降の文字列が欠落してしまい悩んでおります。
よろしくお願い致します。
ストアドのパラメータ↓
.Parameters.Append objComm.CreateParameter("@Tekiyou1",adVarWChar,adParamInput,1073741823)

A 回答 (1件)

お世話になります。



以下のテストプログラムは TextArea の値を正しく挿入しました。
参考になさってください。
■test1.asp
<%
' Submit が押された時だけ
If Request.Form("PostBack") = "True" Then
  Dim Conn
  Dim cmd

  Set Conn = Server.CreateObject("ADODB.Connection")
  Conn.Open "Provider=SQLOLEDB;Data Source=(local);Initial Catalog=Test;","test_sql", "test_sql"

  Set cmd = Server.CreateObject("ADODB.Command")
  Set cmd.ActiveConnection = Conn
  cmd.CommandText = "TestProc ?"
  cmd.Parameters(0).Value = Request.Form("tarea")
  cmd.Execute

  Set cmd = Nothing
  Conn.Close()
  Set Conn = Nothing
End If
%>
<html>
<head><title>test</title></head>
<body>
<form action="test1.asp" method="post" name="testForm">
<input type="hidden" name="PostBack" value="True" >
<textarea name="tarea"></textarea>
<input type="submit">
</form>
</body>
<html>

■TestProc(ストアドプロシージャ)
CREATE PROCEDURE dbo.TestProc(@param1 NTEXT) AS
-- Table3.Field1 は ntext 型
INSERT INTO Table3(Field1) Values(@param1)
RETURN 0
GO
    • good
    • 0
この回答へのお礼

naganaga_001様
ありがとうございました。
ご丁寧なアドバイスを頂きまして大変助かりました。
ご回答頂いたプログラムを参考にし、無事に更新できるようになりました。

お礼日時:2007/01/19 00:07

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!