UC知道VB + Mssql 不能录入太长的数据
来源：百度知道 编辑：UC知道 时间：2024/05/22 02:12:31
我用VB写的程序，MsSQL的数据库
On Error Resume Next
Set Conn = CreateObject("ADODB.Connection")
ConnStr = "Provider=SQLOLEDB.1;Password=" & BasePassWord & ";Persist Security Info=True;User ID=" & BaseUserName & ";Initial Catalog=" & BaseName & ";Data Source = " & BaseServerIP
Conn.Open ConnStr
If Err Then
OpenSql = False
Else
OpenSql = True
End If
Set Rs = CreateObject("adodb.recordset")
Sql = "Select * From WebPages Where WebPageUrl='" & WebPageUrl & "' and WebSiteId=" & WebSiteId
Rs.Open Sql, Conn, 1, 3
If Rs.EOF Then
Rs.Addnew
Rs("WebSiteId") = WebSiteId
Rs("WebPageUrl") = WebPageUrl
Rs("WebPageTitle") = FileTitle
Rs("WebPageKeyWords") = FileKeyWords
Rs("WebPageDescription") = ChkStr(FileDescription)
Rs("WebPageMain") = FileMain
Rs(&q
On Error Resume Next
Set Conn = CreateObject("ADODB.Connection")
ConnStr = "Provider=SQLOLEDB.1;Password=" & BasePassWord & ";Persist Security Info=True;User ID=" & BaseUserName & ";Initial Catalog=" & BaseName & ";Data Source = " & BaseServerIP
Conn.Open ConnStr
If Err Then
OpenSql = False
Else
OpenSql = True
End If
Set Rs = CreateObject("adodb.recordset")
Sql = "Select * From WebPages Where WebPageUrl='" & WebPageUrl & "' and WebSiteId=" & WebSiteId
Rs.Open Sql, Conn, 1, 3
If Rs.EOF Then
Rs.Addnew
Rs("WebSiteId") = WebSiteId
Rs("WebPageUrl") = WebPageUrl
Rs("WebPageTitle") = FileTitle
Rs("WebPageKeyWords") = FileKeyWords
Rs("WebPageDescription") = ChkStr(FileDescription)
Rs("WebPageMain") = FileMain
Rs(&q
WebPageMain 字段类型改为 varchar(5000) 试试
FileMain是什么类型的数据?会不会你给出的本来是文件或者其他类型却被你当成字符型处理了?
能把FileMain的值给出来么？估计可能是这个字符串有问题。NText的最大长度是 2^31 - 1 (1,073,741,823) 个字符的可变长度.所以应该不是长度不够的问题。
路过