Dim w_type As String
w_type = e.Form.Controls("ComboBox1").value
Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter="Excel文件|*.xls|Word文件|*.doc|Access文件|*.mdb|图档|*.bmp;*.jpg;*.gif|文本文件|*.txt" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
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 String
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 W_L As String
Select Case w_Length
Case w_Length<1024
W_L = w_Length+"KB"
Case 1024<=w_Length<1048576
W_L = w_Length/1024+"MB"
Case Else
W_L = w_Length/1048576+"GB"
End Select
With MainTable
Dim cmd As New SQLCommand
cmd.C
cmd.CommandText = "Insert Into {wdjbxxb} ([wdmc],[wdlx],[wddx],[cjsj],[xgsj]) Values ('"
cmd.CommandText = cmd.CommandText & w_Name & "','" & w_type & "','" & w_Length & "','" & w_CreationTime & "','" & w_LastWriteTime & "')"
cmd.ExecuteNonQuery
DataTables("SQL_wdjbxxb").Save()
Tables("SQL_wdjbxxb").Current.Load()
End With
老师，出现问题1：“从字符串“GB”到类型“Double”的转换无效。
去掉GB那段代码的转化 出现问题2：“未将对象引用到实例化“ 但内容已经填到数据库字段里
加好友 
发短信
Post By：2016/4/20 9:15:00 [显示全部帖子]
此主题相关图片如下：截图目录树.png
