我在文件表中创建了一个目录。现在我需要在该目录中插入文件。由于无法设置parent_path_locator,我想不出如何实现这一点。我在代码中做了所有这些。
这就是我创建目录的方式;
Dim insertDir = "insert into dbo.DocumentStore(name,is_directory,is_archive) output INSERTED.path_locator values(@name,1,0)"
Using sqlCommand As New SqlCommand(insertDir, con)
sqlCommand.Parameters.Add("@name", SqlDbType.VarChar).Value = Me.txtGroupName.Text
parentPathLocator = sqlCommand.ExecuteScalar()
End Using
注意:我看到我们可以使用dbo.GetNewPathLocator(path)根据路径定位器获取子目录路径。但我不知道如何在我的情况下使用它来插入文件。
更新:我发现如何在TSQL TSQL中执行此操作,但如何在代码中执行此操作?
答案 0 :(得分:2)
最后我想出了如何做到这一点:
创建文件夹并获取路径定位器
Dim insertDir = "insert into dbo.DocumentStore(name,is_directory,is_archive) output INSERTED.path_locator values(@name,1,0)"
Using sqlCommand As New SqlCommand(insertDir, con)
sqlCommand.Parameters.Add("@name", SqlDbType.VarChar).Value = Me.txtGroupName.Text
parentPathLocator = sqlCommand.ExecuteScalar()
End Using
创建一个新的hierachyID
Dim retnewpath = "select CONVERT(VARCHAR(20), CONVERT(BIGINT, SUBSTRING(CONVERT(BINARY(16), NEWID()), 1, 6))) +'.'+ CONVERT(VARCHAR(20), CONVERT(BIGINT, SUBSTRING(CONVERT(BINARY(16), NEWID()), 7, 6))) +'.'+ CONVERT(VARCHAR(20), CONVERT(BIGINT, SUBSTRING(CONVERT(BINARY(16), NEWID()), 13, 4))) as path"
Using sqlCommand As New SqlCommand(retnewpath, con)
subpathlocator = sqlCommand.ExecuteScalar()
subpathlocator = parentPathLocator.ToString() & subpathlocator & "/"
End Using
使用新的hierarchyid作为路径定位器插入文件
Dim insertStr = "insert into dbo.DocumentStore(name,file_stream,path_locator) output INSERTED.stream_id values(@name,@file_stream,@parent_path_locator)"
Using sqlCommand As New SqlCommand(insertStr, con)
sqlCommand.Parameters.Add("@name", SqlDbType.VarChar).Value = Path.GetFileName(filename)
sqlCommand.Parameters.Add("@file_stream", SqlDbType.VarBinary).Value = fileStream
sqlCommand.Parameters.AddWithValue("@parent_path_locator", subpathlocator)
streamID = sqlCommand.ExecuteScalar()
End Using
我使用这个link来创建hierachyId,所以我还没完全理解它。