icyer()老大和各位高手，我该怎么做那？？？

baitianhai 2002-06-05 04:17:38

datagrid显示多文档变得一些内容（存有文件），我在下面作了一个文件添加入库的部分，该怎么做那？？？我这样做添加不进去，分不够的话，我还有
Dim strcon As New String("data source=LONG;initial catalog=sbg;persist security info=False;user id=chb;workstation id=BCH;packet size=4096")
Dim con As New SqlClient.SqlConnection("data source=LONG;initial catalog=sbg;persist security info=False;user id=chb;workstation id=BCH;packet size=4096")
Dim SqlCmd As New String("select * from 多文档信息表 ")
Dim SqlCmd1 As New String("delete from 多文档信息表 where 文档编号=@ImageID ")
Dim sqlcmd2 As New String("INSERT INTO 多文档信息表(文档编号, 文档类型, 文件名称, 创建人,创建日期,文档备注,文档内容) VALUES (@DocuID, @DocuType, @DocuName, @DocuMen,@DocuData,@DocuDemo,@DocuCon)")
Dim com As New SqlClient.SqlCommand(SqlCmd, con)
Dim com1 As New SqlClient.SqlCommand(SqlCmd1, con)
Dim com2 As New SqlClient.SqlCommand(sqlcmd2, con)
'Dim ada As New SqlClient.SqlDataAdapter(SqlCmd, strcon)
Dim ada As New SqlClient.SqlDataAdapter()
Dim dts As New Data.DataSet()
Dim dtv As New Data.DataView()
Protected WithEvents Textbox1 As System.Web.UI.WebControls.TextBox
Protected WithEvents Textbox2 As System.Web.UI.WebControls.TextBox
Protected WithEvents Textbox3 As System.Web.UI.WebControls.TextBox
Protected WithEvents Textbox4 As System.Web.UI.WebControls.TextBox
#Region " Web 窗体设计器生成的代码 "

'该调用是 Web 窗体设计器所必需的。
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

End Sub

Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
'不要使用代码编辑器修改它。
InitializeComponent()
End Sub

#End Region

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'在此处放置初始化页的用户代码
ada.SelectCommand = com
ada.DeleteCommand = com1
ada.InsertCommand = com2
con.Open()
ada.Fill(dts, "document")
dtv = dts.Tables("document").DefaultView
DataGrid1.DataSource = dtv
If Not IsPostBack Then
DataGrid1.DataBind()
End If

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'HttpPostedFile对象，用于读取图象文件属性
Dim UpFile As HttpPostedFile = UP_FILE.PostedFile
'记录文件长度变量
FileLength = UpFile.ContentLength
If UpFile.FileName <> "" Then
Dim StreamObject As System.IO.Stream = UpFile.InputStream
'文件临时储存Byte数组
Dim FileByteArray(FileLength) As Byte
'读取图象文件数据，FileByteArray为数据储存体，0为数据指针位置、FileLnegth为数据长度
Dim x = UpFile.FileName.LastIndexOf("\"), File_name = Mid(UpFile.FileName, x + 2)
StreamObject.Read(FileByteArray, 0, FileLength)
Response.Write(FileLength & " ")
Response.Write(Textbox1.Text & " ")
Response.Write(UpFile.ContentType & " ")
Response.Write(File_name & " ")
Response.Write(Textbox2.Text & " ")
Response.Write(Textbox3.Text & " ")
Response.Write(Textbox4.Text & " ")
'Response.End()
ada.InsertCommand.Parameters.Add("@DocuID", SqlDbType.Char, 40).Value = Textbox1.Text
ada.InsertCommand.Parameters.Add("@DocuType", SqlDbType.Char, 40).Value = UpFile.ContentType
ada.InsertCommand.Parameters.Add("@DocuName", SqlDbType.Char, 256).Value = File_name
ada.InsertCommand.Parameters.Add("@DocuMen", SqlDbType.Char, 40).Value = Textbox2.Text
ada.InsertCommand.Parameters.Add("@DocuData", SqlDbType.DateTime, FileLength).Value = Textbox3.Text
ada.InsertCommand.Parameters.Add("@DocuDemo", SqlDbType.VarChar, 1000).Value = Textbox4.Text
ada.InsertCommand.Parameters.Add("@DocuCon", SqlDbType.Binary, FileLength).Value = FileByteArray
'Response.Write(ada.InsertCommand.CommandText)
'Response.End()
'com2.Parameters.Add("@Image", SqlDbType.Binary, FileLength).Value = FileByteArray
'com2.Parameters.Add("@ContentType", SqlDbType.VarChar, 50).Value = UpFile.ContentType
'com2.Parameters.Add("@ImageDescription", SqlDbType.VarChar, 200).Value = txtDescription.Text
'com2.Parameters.Add("@ImageSize", SqlDbType.BigInt, 8).Value = UpFile.ContentLength
dtv.AddNew()
ada.Update(dts, "document")
DataGrid1.DataBind()
txtMessage.Text = "OK!你已经成功上传你的文件"
Else
txtMessage.Text = "请选择正确的文件"
End If
Dim a As New PetroFMClass.Facility()
a.FacilityNo = 1
Dim s = a.GetFacilitiesItemValue("文档编号")
Dim marry() As String = Split(s, ",", -1)
Dim border = UBound(marry), i, sql
sql = "select * from ImageStore where 文档编号='" & marry(0) & "'"
For i = 1 To border
Response.Write(marry(i) & " ")
sql = sql & " or 文档编号='" & marry(i) & "'"
Next
Response.Write(sql)
DataGrid1.DataBind()
End Sub

...全文