DataTables("SQL_wdjbxxb").Load
Dim w_type As String
w_type = e.Form.Controls("ComboBox1").value
Dim dr As DataRow = Tables("SQL_wdjbxxb").Current.DataRow
If dr.RowState = DataRowState.Added Then '如果是新增行,必须先保存才能插入文件
dr.Save()
End If
Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter="所有文件|*.*" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
' dr.SQLInsertFile("image",dlg.FileName) '插入文件
'dr.SQLInsertFile("wdmc",dlg.FileName)
MessageBox.Show("您已选择了1份文档,这些文档将被导入到万盛文管服务器,在导入之前,您可能需要设置这些文档的类型以及共享权限!","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Question)
End If
Dim lujing = dlg.FileName
Dim ifo As new FileInfo(lujing)
Dim w_CreationTime As String
Dim w_LastWriteTime As String
Dim w_LastAccessTime As String
Dim w_ReadOnly As String
Dim w_Hidden As String
Dim w_Path As String
Dim w_Length As Double
Dim w_Name As String
Dim w_Extension As String
w_CreationTime = ifo.CreationTime
w_LastWriteTime = ifo.LastWriteTime
w_LastAccessTime = ifo.LastAccessTime
w_ReadOnly = ifo.ReadOnly
w_Hidden = ifo.Hidden
w_Path = ifo.Path
w_Length = ifo.Length
w_Name = ifo.Name
w_Extension = ifo.Extension
Dim User1 As String = _UserName
Dim User2 As String = _UserName
Dim W_L As String
Select Case w_Length
Case Is <1048576
W_L =format(w_Length/1024,"0.00")& "KB"
Case Is < 1073741824
W_L =format(w_Length/1048576,"0.00")& "MB"
Case Else
W_L =format(w_Length/1073741824,"0.00")& "GB"
End Select
With MainTable
Dim cmd As New SQLCommand
cmd.C
cmd.CommandText = "Insert Into {wdjbxxb} ([wdmc],[wdlx],[wddx],[wdcjr],[cjsj],[wdxgr],[xgsj]) Values ('"
cmd.CommandText = cmd.CommandText & w_Name & "','" & w_type & "','" & W_L & "','" & User1 & "','" & w_CreationTime & "','" & User2 & "','" & w_LastWriteTime & "')"
cmd.ExecuteNonQuery
DataTables("SQL_wdjbxxb").Save()
Tables("SQL_wdjbxxb").Current.Load()
End With
'Messagebox.show(w_type)
Forms("文档类型选择窗口").Close()
Forms("文档权限设置").Open()
老师这边我已经获得了大部分信息，现在怎么将文件已二进制的方式和获得的信息一起存入数据库内？
加好友 
发短信
Post By：2016/4/22 11:14:00 [只看该作者]
此主题相关图片如下：截图0422.png
