使用asp.net Web服务将数组插入数据库
我试图将一个数组调用分发器传递给webservices,以插入MSSQL 2012表中使用asp.net Web服务将数组插入数据库,asp.net,sql-server,ajax,vb.net,web-services,Asp.net,Sql Server,Ajax,Vb.net,Web Services,我试图将一个数组调用分发器传递给webservices,以插入MSSQL 2012表中 <script> var dealers = new Array(); dealers.push(new Array("123", "870503-23-5370", "021")); dealers.push(new Array("456", "830503-23-5371", "031")); dealers.push(new Array("789", "870
<script>
var dealers = new Array();
dealers.push(new Array("123", "870503-23-5370", "021"));
dealers.push(new Array("456", "830503-23-5371", "031"));
dealers.push(new Array("789", "870103-11-5372", "041"));
dealers.push(new Array("654", "870501-23-5373", "051"));
dealers.push(new Array("321", "880503-12-5374", "061"));
dealers.push(new Array("987", "870803-23-5375", "071"));
dealers.push(new Array("109", "870508-06-5376", "081"));
dealers.push(new Array("174", "810503-03-5377", "091"));
dealers.push(new Array("509", "870103-01-5378", "101"));
dealers.push(new Array("687", "870501-12-5379", "131"));
$(document).ready( function() {
$('#btnSubmit').click(function() {
$.ajax({
type: "post",
url: "Service1.asmx/DailyCheckDealer",
data: JSON.stringify({ records: dealers }),
contentType: "application/json; charset=utf-8",
dataType: "json",
success: onSuccess,
failure: onError
});
});
})
function onSuccess(response) {
alert(response.d);
}
function onError() {
alert("fail");
}
</script>
var=新数组();
经销商推送(新阵列(“123”、“870503-23-5370”、“021”);
推送(新阵列(“456”、“830503-23-5371”、“031”);
经销商推送(新阵列(“789”、“870103-11-5372”、“041”);
推送(新阵列(“654”、“870501-23-5373”、“051”);
推送(新阵列(“321”、“880503-12-5374”、“061”);
推送(新阵列(“987”、“870803-23-5375”、“071”);
推送(新阵列(“109”、“870508-06-5376”、“081”);
推送(新阵列(“174”、“810503-03-5377”、“091”);
推送(新阵列(“509”、“870103-01-5378”、“101”);
推送(新阵列(“687”、“870501-12-5379”、“131”);
$(文档).ready(函数(){
$('#btnsupmit')。单击(函数(){
$.ajax({
类型:“post”,
url:“Service1.asmx/DailyCheckDealer”,
数据:JSON.stringify({records:derers}),
contentType:“应用程序/json;字符集=utf-8”,
数据类型:“json”,
成功:一旦成功,
失败:onError
});
});
})
函数onSuccess(响应){
警报(response.d);
}
函数onError(){
警报(“失败”);
}
而且我对ASP.NETVB还是新手。有人能帮我提供如何处理数组和插入数据库的示例代码吗
Public Class Service1
Inherits System.Web.Services.WebService
<WebMethod()> _
Public Function DailyCheckDealer() As String
"How process the array and inserted into database"
End Function
End Class
公共类服务1
继承System.Web.Services.WebService
_
公共函数DailyCheckDealer()作为字符串
“如何处理数组并将其插入数据库”
端函数
末级
更新:
如果您已按以下方式更改我的Web服务:
<WebMethod()> _
Public Function DailyCheckDealer(records As String()()) As String
Dim mylist As List(Of String()) = records.ToList()
Dim datarow As String = ""
Dim result As String = "Done"
For i As Integer = 0 To mylist.Count - 1
Dim m As String() = mylist(i)
For j As Integer = 0 To m.Length - 1
datarow += m(j) + " "
Dim objDealer As New Dealer
Dim myConnString = System.Configuration.ConfigurationManager.AppSettings("MY_CONNECTION")
Dim myConnection = New SqlConnection(myConnString)
Dim myCommand = New SqlCommand()
myCommand.CommandType = CommandType.StoredProcedure
myCommand.Connection = myConnection
myCommand.CommandText = "DailyCheckDealer"
myCommand.Parameters.Add("@DataRow", SqlDbType.VarChar, 22).Value = datarow
myConnection.Open()
myCommand.ExecuteNonQuery()
myConnection.Close()
Next
Next
Return result
End Function
_
公共函数DailyCheckDealer(记录为String()())作为String
Dim mylist As List(字符串()的列表)=records.ToList()
Dim datarow As String=“”
将结果设置为String=“Done”
对于i,整数=0到mylist.Count-1
Dim m As String()=mylist(i)
对于j,整数=0到m。长度-1
数据行+=m(j)+“
Dim objDealer作为新经销商
Dim myConnString=System.Configuration.ConfigurationManager.AppSettings(“我的连接”)
Dim myConnection=新的SqlConnection(myConnString)
Dim myCommand=New SqlCommand()
myCommand.CommandType=CommandType.StoredProcess
myCommand.Connection=myConnection
myCommand.CommandText=“DailyCheckDealer”
myCommand.Parameters.Add(“@DataRow”,SqlDbType.VarChar,22)。Value=DataRow
myConnection.Open()
myCommand.ExecuteOnQuery()
myConnection.Close()
下一个
下一个
返回结果
端函数
假设它应该向数据库中插入10条记录,但对于我的结果,它只插入第一条记录
更新:
对不起,我的错误信息的结果。整个记录被插入数据库,而不是10条记录
CREATE TYPE [dbo].[typHierarchy] AS TABLE(
[element_id] [int] IDENTITY(1,1) NOT NULL,
[sequenceNo] [int] NULL,
[parent_ID] [int] NULL,
[Object_ID] [int] NULL,
[NAME] [nvarchar](2000) NULL,
[StringValue] [nvarchar](max) NOT NULL,
[ValueType] [varchar](10) NOT NULL,
PRIMARY KEY CLUSTERED
(
[element_id] ASC
)WITH (IGNORE_DUP_KEY = OFF)
)
/*
taken from https://www.simple-talk.com/sql/t-sql-programming/consuming-json-strings-in-sql-server/
*/
CREATE PROC dbo.spParseJSON
@strJSON NVARCHAR(MAX)--, @strColumnList VARCHAR(2000)
AS
--SET @strJSON = REPLACE(@strJSON,'\','')
DECLARE @objJSONTable typHierarchy
DECLARE @FirstObject INT, --the index of the first open bracket found in the JSON string
@OpenDelimiter INT,--the index of the next open bracket found in the JSON string
@NextOpenDelimiter INT,--the index of subsequent open bracket found in the JSON string
@NextCloseDelimiter INT,--the index of subsequent close bracket found in the JSON string
@Type NVARCHAR(10),--whether it denotes an object or an array
@NextCloseDelimiterChar CHAR(1),--either a '}' or a ']'
@Contents NVARCHAR(MAX), --the unparsed contents of the bracketed expression
@Start INT, --index of the start of the token that you are parsing
@end INT,--index of the end of the token that you are parsing
@param INT,--the parameter at the end of the next Object/Array token
@EndOfName INT,--the index of the start of the parameter at end of Object/Array token
@token NVARCHAR(200),--either a string or object
@value NVARCHAR(MAX), -- the value as a string
@SequenceNo int, -- the sequence number within a list
@name NVARCHAR(200), --the name as a string
@parent_ID INT,--the next parent ID to allocate
@lenJSON INT,--the current length of the JSON String
@characters NCHAR(36),--used to convert hex to decimal
@result BIGINT,--the value of the hex symbol being parsed
@index SMALLINT,--used for parsing the hex value
@Escape INT --the index of the next escape character
DECLARE @Strings TABLE /* in this temporary table we keep all strings, even the names of the elements, since they are 'escaped' in a different way, and may contain, unescaped, brackets denoting objects or lists. These are replaced in the JSON string by tokens representing the string */
(String_ID INT IDENTITY(1, 1),
StringValue NVARCHAR(MAX))
SELECT--initialise the characters to convert hex to ascii
@characters='0123456789abcdefghijklmnopqrstuvwxyz',
@SequenceNo=0, --set the sequence no. to something sensible.
/* firstly we process all strings. This is done because [{} and ] aren't escaped in strings, which complicates an iterative parse. */
@parent_ID=0;
WHILE 1=1 --forever until there is nothing more to do
BEGIN
SELECT @start=PATINDEX('%[^a-zA-Z]["]%', @strJSON collate SQL_Latin1_General_CP850_Bin);--next delimited string
IF @start=0 BREAK --no more so drop through the WHILE loop
IF SUBSTRING(@strJSON, @start+1, 1)='"'
BEGIN --Delimited Name
SET @start=@Start+1;
SET @end=PATINDEX('%[^\]["]%', RIGHT(@strJSON, LEN(@strJSON+'|')-@start) collate SQL_Latin1_General_CP850_Bin);
END
IF @end=0 --no end delimiter to last string
BREAK --no more
SELECT @token=SUBSTRING(@strJSON, @start+1, @end-1)
--now put in the escaped control characters
SELECT @token=REPLACE(@token, FROMString, TOString)
FROM
(SELECT '\"' AS FromString, '"' AS ToString
UNION ALL SELECT '\\', '\'
UNION ALL SELECT '\/', '/'
UNION ALL SELECT '\b', CHAR(08)
UNION ALL SELECT '\f', CHAR(12)
UNION ALL SELECT '\n', CHAR(10)
UNION ALL SELECT '\r', CHAR(13)
UNION ALL SELECT '\t', CHAR(09)) substitutions
SELECT @result=0, @escape=1
--Begin to take out any hex escape codes
WHILE @escape>0
BEGIN
SELECT @index=0,
--find the next hex escape sequence
@escape=PATINDEX('%\x[0-9a-f][0-9a-f][0-9a-f][0-9a-f]%', @token collate SQL_Latin1_General_CP850_Bin)
IF @escape>0 --IF there is one
BEGIN
WHILE @index<4 --there are always four digits to a \x sequence
BEGIN
SELECT --determine its value
@result=@result+POWER(16, @index)
*(CHARINDEX(SUBSTRING(@token, @escape+2+3-@index, 1),
@characters)-1), @index=@index+1 ;
END
-- and replace the hex sequence by its unicode value
SELECT @token=STUFF(@token, @escape, 6, NCHAR(@result))
END
END
--now store the string away
INSERT INTO @Strings (StringValue) SELECT @token
-- and replace the string with a token
SELECT @strJSON=STUFF(@strJSON, @start, @end+1,
'@string'+CONVERT(NVARCHAR(5), @@identity))
END
-- all strings are now removed. Now we find the first leaf.
WHILE 1=1 --forever until there is nothing more to do
BEGIN
SELECT @parent_ID=@parent_ID+1
--find the first object or list by looking for the open bracket
SELECT @FirstObject=PATINDEX('%[{[[]%', @strJSON collate SQL_Latin1_General_CP850_Bin)--object or array
IF @FirstObject = 0 BREAK
IF (SUBSTRING(@strJSON, @FirstObject, 1)='{')
SELECT @NextCloseDelimiterChar='}', @type='object'
ELSE
SELECT @NextCloseDelimiterChar=']', @type='array'
SELECT @OpenDelimiter=@firstObject
WHILE 1=1 --find the innermost object or list...
BEGIN
SELECT @lenJSON=LEN(@strJSON+'|')-1
--find the matching close-delimiter proceeding after the open-delimiter
SELECT @NextCloseDelimiter=CHARINDEX(@NextCloseDelimiterChar, @strJSON,
@OpenDelimiter+1)
--is there an intervening open-delimiter of either type
SELECT @NextOpenDelimiter=PATINDEX('%[{[[]%',
RIGHT(@strJSON, @lenJSON-@OpenDelimiter)collate SQL_Latin1_General_CP850_Bin)--object
IF @NextOpenDelimiter=0 BREAK
SELECT @NextOpenDelimiter=@NextOpenDelimiter+@OpenDelimiter
IF @NextCloseDelimiter<@NextOpenDelimiter BREAK
IF SUBSTRING(@strJSON, @NextOpenDelimiter, 1)='{'
SELECT @NextCloseDelimiterChar='}', @type='object'
ELSE
SELECT @NextCloseDelimiterChar=']', @type='array'
SELECT @OpenDelimiter=@NextOpenDelimiter
END
---and parse out the list or name/value pairs
SELECT @contents=SUBSTRING(@strJSON, @OpenDelimiter+1,
@NextCloseDelimiter-@OpenDelimiter-1)
SELECT @strJSON=STUFF(@strJSON, @OpenDelimiter,
@NextCloseDelimiter-@OpenDelimiter+1,
'@'+@type+CONVERT(NVARCHAR(5), @parent_ID))
WHILE (PATINDEX('%[A-Za-z0-9@+.e]%', @contents collate SQL_Latin1_General_CP850_Bin))<>0
BEGIN
IF @Type='Object' --it will be a 0-n list containing a string followed by a string, number,boolean, or null
BEGIN
SELECT @SequenceNo=0,@end=CHARINDEX(':', ' '+@contents)--IF there is anything, it will be a string-based name.
SELECT @start=PATINDEX('%[^A-Za-z@][@]%', ' '+@contents collate SQL_Latin1_General_CP850_Bin)--AAAAAAAA
SELECT @token=SUBSTRING(' '+@contents, @start+1, @End-@Start-1),
@endofname=PATINDEX('%[0-9]%', @token collate SQL_Latin1_General_CP850_Bin),
@param=RIGHT(@token, LEN(@token)-@endofname+1)
SELECT @token=LEFT(@token, @endofname-1),
@Contents=RIGHT(' '+@contents, LEN(' '+@contents+'|')-@end-1)
SELECT @name=stringvalue FROM @strings WHERE string_id=@param --fetch the name
END
ELSE
SELECT @Name=null,@SequenceNo=@SequenceNo+1
SELECT @end=CHARINDEX(',', @contents)-- a string-token, object-token, list-token, number,boolean, or null
--for debugging|start
--SELECT [@startxxx] = @start
--for debugging|end
IF @end=0
SELECT @end=PATINDEX('%[A-Za-z0-9@+.e][^A-Za-z0-9@+.e]%', @Contents+' ' collate SQL_Latin1_General_CP850_Bin) + 1
--include negative values|start
--SELECT @start=PATINDEX('%[^A-Za-z0-9@+.e][A-Za-z0-9@+.e]%', ' ' + @contents collate SQL_Latin1_General_CP850_Bin)
SELECT @start=PATINDEX('%[^A-Za-z0-9@+.e][A-Za-z0-9@+.e][^-?[0-9]\d*(\.\d+)?$]%', ' ' + @contents collate SQL_Latin1_General_CP850_Bin)
--include negative values|end
--for debugging|start
--SELECT [@value] = @value, [@Contents] = @Contents, [@start] = @start
--for debugging|end
--select @start,@end, LEN(@contents+'|'), @contents
SELECT @Value=RTRIM(SUBSTRING(@contents, @start, @End-@Start)),
@Contents=RIGHT(@contents+' ', LEN(@contents+'|')-@end)
IF SUBSTRING(@value, 1, 7)='@object'
INSERT INTO @objJSONTable (NAME, SequenceNo, parent_ID, StringValue, Object_ID, ValueType)
SELECT @name, @SequenceNo, @parent_ID, SUBSTRING(@value, 8, 5), SUBSTRING(@value, 8, 5), 'object'
ELSE
IF SUBSTRING(@value, 1, 6)='@array'
INSERT INTO @objJSONTable (NAME, SequenceNo, parent_ID, StringValue, Object_ID, ValueType)
SELECT @name, @SequenceNo, @parent_ID, SUBSTRING(@value, 7, 5), SUBSTRING(@value, 7, 5), 'array'
ELSE
IF SUBSTRING(@value, 1, 7)='@string'
INSERT INTO @objJSONTable (NAME, SequenceNo, parent_ID, StringValue, ValueType)
SELECT @name, @SequenceNo, @parent_ID, stringvalue, 'string'
FROM @strings
WHERE string_id=SUBSTRING(@value, 8, 5)
ELSE
IF @value IN ('true', 'false')
INSERT INTO @objJSONTable (NAME, SequenceNo, parent_ID, StringValue, ValueType)
SELECT @name, @SequenceNo, @parent_ID, @value, 'boolean'
ELSE
IF @value='null'
INSERT INTO @objJSONTable (NAME, SequenceNo, parent_ID, StringValue, ValueType)
SELECT @name, @SequenceNo, @parent_ID, @value, 'null'
ELSE
IF PATINDEX('%[^0-9]%', @value collate SQL_Latin1_General_CP850_Bin)>0
--BEGIN
INSERT INTO @objJSONTable (NAME, SequenceNo, parent_ID, StringValue, ValueType)
SELECT @name, @SequenceNo, @parent_ID, @value, 'real'
--for debugging|start
--SELECT [@value] = @value, [@Contents] = @Contents
--for debugging|end
--END
ELSE
INSERT INTO @objJSONTable (NAME, SequenceNo, parent_ID, StringValue, ValueType)
SELECT @name, @SequenceNo, @parent_ID, @value, 'int'
IF @Contents=' ' SELECT @SequenceNo=0
END
END
INSERT INTO @objJSONTable (NAME, SequenceNo, parent_ID, StringValue, Object_ID, ValueType)
SELECT '-',1, NULL, '', @parent_id-1, @type
--for debugging|start
--SELECT 'R E T U R N', * FROM @objJSONTable
--for debugging|end
DELETE h
FROM @objJSONTable h
WHERE h.NAME = '-'
--for debugging|start
--SELECT 'after delete', * FROM @objJSONTable
--for debugging|end
--SELECT *
--INTO #tbl
--FROM dbo.udfSplitString(@strColumnList)
SELECT ID = t.NAME
INTO #tbl
FROM @objJSONTable t
--for debugging|start
--SELECT '#tbl', t.* FROM #tbl t
--for debugging|end
DECLARE @strCurrentColumn VARCHAR(100)
, @strSQLColumn VARCHAR(1000)
--, @strSQL VARCHAR(2000) = 'SELECT * FROM (SELECT h.NAME, h.StringValue FROM @objJSONTable h) a PIVOT(MAX(StringValue) FOR NAME IN (*columnNamesHere*)) AS p'
, @strSQL NVARCHAR(MAX) = 'SELECT * FROM (SELECT h.NAME, h.StringValue FROM @objJSONTable h) a PIVOT(MAX(StringValue) FOR NAME IN (*columnNamesHere*)) AS p'
--for debugging|start
--SELECT [@strSQL] = @strSQL
--for debugging|end
SELECT TOP 1 @strCurrentColumn = t.ID
FROM #tbl t
WHILE @@ROWCOUNT > 0
BEGIN
--for debugging|start
--SELECT CONCAT('loop all columns >>> ', @strCurrentColumn)
--for debugging|end
SET @strSQLColumn = CONCAT(@strSQLColumn, '[', @strCurrentColumn, '], ')
DELETE #tbl
WHERE ID = @strCurrentColumn
SELECT TOP 1 @strCurrentColumn = t.ID
FROM #tbl t
END --WHILE @@ROWCOUNT > 0
SET @strSQLColumn = LEFT(@strSQLColumn, LEN(@strSQLColumn) - 1)
SET @strSQL = REPLACE(@strSQL, '*columnNamesHere*', @strSQLColumn)
--for debugging|start
--SELECT [@strSQLColumn] = @strSQLColumn, [@strSQL] = @strSQL
DROP TABLE #tbl
--for debugging|end
DECLARE @strParmDefinition NVARCHAR(500)
SET @strParmDefinition = N'@objJSONTable typHierarchy READONLY'
EXEC sys.sp_executesql @strSQL, @strParmDefinition
, @objJSONTable = @objJSONTable
将类型[dbo].[typHierarchy]创建为表(
[element_id][int]标识(1,1)不为空,
[sequenceNo][int]NULL,
[parent_ID][int]NULL,
[Object_ID][int]NULL,
[NAME][nvarchar](2000)空,
[StringValue][nvarchar](最大值)不为空,
[ValueType][varchar](10)不为空,
主键群集
(
[element_id]ASC
)使用(忽略重复键=关闭)
)
/*
取自https://www.simple-talk.com/sql/t-sql-programming/consuming-json-strings-in-sql-server/
*/
创建PROC dbo.spParseJSON
@strJSON NVARCHAR(最大值)-,@strColumnList VARCHAR(2000年)
作为
--设置@strJSON=REPLACE(@strJSON,'\','')
声明@objJSONTable类型层次结构
DECLARE@FirstObject INT,--在JSON字符串中找到的第一个开括号的索引
@OpenDelimiter INT,--在JSON字符串中找到的下一个打开括号的索引
@NEXTOPENDELIMITOR INT,--在JSON字符串中找到的后续开括号的索引
@NextCloseDelimiter INT,--在JSON字符串中找到的后续右括号的索引
@输入NVARCHAR(10),--它表示对象还是数组
@NextCloseDelimiterChar字符(1),--一个'}'或一个']'
@Contents NVARCHAR(MAX)——括号内表达式的未解析内容
@Start INT,--正在分析的标记的开始索引
@end INT,--正在分析的标记的末尾的索引
@param INT,--下一个对象/数组标记末尾的参数
@EndOfName INT,--对象/数组标记末尾的参数开头的索引
@标记NVARCHAR(200),--字符串或对象
@值NVARCHAR(MAX),--作为字符串的值
@SequenceNo int,--列表中的序列号
@名称NVARCHAR(200),--以字符串形式显示的名称
@parent_ID INT,-要分配的下一个父ID
@lenJSON INT,--JSON字符串的当前长度
@字符NCHAR(36),--用于将十六进制转换为十进制
@result BIGINT,--正在解析的十六进制符号的值
@索引SMALLINT,--用于解析十六进制值
@Escape INT——下一个转义字符的索引
声明@Strings TABLE/*在这个临时表中,我们保留所有字符串,甚至元素的名称,因为它们以不同的方式“转义”,并且可能包含表示对象或列表的未转义括号。这些在JSON字符串中被表示字符串的标记替换*/
(字符串_ID INT IDENTITY(1,1),
Str
<ScriptMethod> _
<WebMethod()> _
Public Function DailyCheckDealer(dealers As String()()) As String
' insert to db here
Return String.Empty
End Function
<script>
var dealers = new Array();
dealers.push({ ID: "123", Phone: "870503-23-5370", Code: "021"));
...
</script>
Public Class Dealer
Public Property ID() As String
Get
Return m_ID
End Get
Set
m_ID = Value
End Set
End Property
Private m_ID As String
Public Property Code() As String
Get
Return m_Code
End Get
Set
m_Code = Value
End Set
End Property
Private m_Code As String
Public Property Phone() As String
Get
Return m_Phone
End Get
Set
m_Phone = Value
End Set
End Property
Private m_Phone As String
End Class
<WebService> _
<ScriptService> _
Public Class Service1
Inherits System.Web.Services.WebService
<ScriptMethod> _
<WebMethod> _
Public Function DailyCheckDealer(dealers As Dealer()) As String
' insert to db here
Return String.Empty
End Function
End Class