1.6w+
社区成员
- 全部
- VBS
- .NET技术
- VBA
- VB网络编程
- VB多媒体
- VB数据库
- VB控件
- VB COM/DCOM
- VB基础类
- VB API
- 问答
将文件存储到数据库中该怎么做？（100）
将文件存储到数据库(sqlServer)中该怎么做?
不是将文件的路径存储到数据库，而是将其本身加到数据库中。
有代码最好！
不是将文件的路径存储到数据库，而是将其本身加到数据库中。
有代码最好！
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
2zhk 2005-03-03
winform的。
怎么打开被存储的文件呢？
不将存储的文件存储于本地，而直接打开！
怎么打开被存储的文件呢？
不将存储的文件存储于本地，而直接打开！
ray680719 2005-03-03
up
youlongzaitian 2005-03-03
收藏，还没有存过文件！
tl_pear 2005-03-03
顶
2zhk 2005-03-03
up
1zhk 2005-03-02
winform的。
怎么打开被存储的文件呢？
不将存储的文件存储于本地，而直接打开！
怎么打开被存储的文件呢？
不将存储的文件存储于本地，而直接打开！
1zhk 2005-03-02
winform的。
怎么打开被存储的文件呢？
怎么打开被存储的文件呢？
haoztao 2005-03-02
http://dotnet.aspx.cc/ShowDetail.aspx?id=EY1XLDYV-PIDF-43LO-1WFL-FMY5ALE1F635
1zhk 2005-03-02
up
xiaohutushen 2005-03-02
up
1zhk 2005-03-02
shenleng(冷雪)具体点！！！！
shenleng 2005-03-02
将读出的数据创建为MemoryStream对象，打开使用就方便一些了
tihua 2005-03-02
ding
1zhk 2005-03-02
xdwlb(王立宾)大虾果然厉害。
只是按照你的做法，读出文件首先要将文件存储于本地，能不能不将其存储于本地，而直接打开！
只是按照你的做法，读出文件首先要将文件存储于本地，能不能不将其存储于本地，而直接打开！
xdwlb 2005-03-01
以下是读出文件的代码，和上面的不在一个程序中，参考一下：
Try
If mds.Tables("ysdd").Rows.Count = 0 Then Exit Sub
Dim row As Integer = C1TrueDBGrid1.Row
dr = mds.Tables("ysdd").Rows(row)
Dim mda As SqlDataAdapter
mda = New SqlDataAdapter("select ddnr from jygl_ysdd where xh=" & dr!序号, conn)
Dim mds1 As New DataSet
mda.Fill(mds1, "readdd")
Dim s As String
s = Application.StartupPath & "\word.doc"
If IO.File.Exists(s) Then
IO.File.Delete(s)
End If
Dim size() As Byte = mds1.Tables("readdd").Rows(0).Item(0)
Dim fs As IO.FileStream
fs = New IO.FileStream(s, IO.FileMode.CreateNew)
fs.Write(size, 0, size.Length - 0)
fs.Close()
System.Diagnostics.Process.Start(s)
Catch ex As Exception
MsgBox(ex.Source & ex.Message)
End Try
Try
If mds.Tables("ysdd").Rows.Count = 0 Then Exit Sub
Dim row As Integer = C1TrueDBGrid1.Row
dr = mds.Tables("ysdd").Rows(row)
Dim mda As SqlDataAdapter
mda = New SqlDataAdapter("select ddnr from jygl_ysdd where xh=" & dr!序号, conn)
Dim mds1 As New DataSet
mda.Fill(mds1, "readdd")
Dim s As String
s = Application.StartupPath & "\word.doc"
If IO.File.Exists(s) Then
IO.File.Delete(s)
End If
Dim size() As Byte = mds1.Tables("readdd").Rows(0).Item(0)
Dim fs As IO.FileStream
fs = New IO.FileStream(s, IO.FileMode.CreateNew)
fs.Write(size, 0, size.Length - 0)
fs.Close()
System.Diagnostics.Process.Start(s)
Catch ex As Exception
MsgBox(ex.Source & ex.Message)
End Try
xdwlb 2005-03-01
下面是我的一段代码，参考一下（存储)
Dim fs As New IO.FileStream(RTrim(TextBox4.Text), IO.FileMode.Open) 'textbox4.text 为要存储文件的路径
Dim size As String = fs.Length.ToString
Dim byts(fs.Length - 1) As Byte
fs.Read(byts, 0, fs.Length)
fs.Close()
Dim mycom As New SqlCommand
With mycom
.Connection = conninfo
.Parameters.Add("@appname", RTrim(TextBox1.Text))
.Parameters.Add("@appfilename", RTrim(TextBox2.Text))
.Parameters.Add("@nappfilename", RTrim(TextBox5.Text))
.Parameters.Add("@appversion", RTrim(TextBox3.Text))
.Parameters.Add("@appdata", byts)
End With
mycom.CommandText = "insert into appupdate (appname,appfilename,nappfilename,appversion,appdata) values (@appname,@appfilename,@nappfilename,@appversion,@appdata)"
If conninfo.State = ConnectionState.Closed Then conninfo.Open()
mycom.ExecuteNonQuery()
Dim fs As New IO.FileStream(RTrim(TextBox4.Text), IO.FileMode.Open) 'textbox4.text 为要存储文件的路径
Dim size As String = fs.Length.ToString
Dim byts(fs.Length - 1) As Byte
fs.Read(byts, 0, fs.Length)
fs.Close()
Dim mycom As New SqlCommand
With mycom
.Connection = conninfo
.Parameters.Add("@appname", RTrim(TextBox1.Text))
.Parameters.Add("@appfilename", RTrim(TextBox2.Text))
.Parameters.Add("@nappfilename", RTrim(TextBox5.Text))
.Parameters.Add("@appversion", RTrim(TextBox3.Text))
.Parameters.Add("@appdata", byts)
End With
mycom.CommandText = "insert into appupdate (appname,appfilename,nappfilename,appversion,appdata) values (@appname,@appfilename,@nappfilename,@appversion,@appdata)"
If conninfo.State = ConnectionState.Closed Then conninfo.Open()
mycom.ExecuteNonQuery()
1zhk 2005-03-01
winform的。
怎么打开被存储的文件呢？
怎么打开被存储的文件呢？
hrh1979 2005-03-01
string sql;
int filelength=0;
filelength=File1.PostedFile.ContentLength; //获取上传文件的大小
if(filelength==0)
{
}
else
{
byte[] dd=new byte[filelength]; //建立字节数组
File1.PostedFile.InputStream.Read(dd,0,filelength); //将上传文件流读入 字节数组
System.Data.OracleClient.OracleConnection con=new System.Data.OracleClient.OracleConnection();
System.Data.OracleClient.OracleCommand com=new System.Data.OracleClient.OracleCommand();
con.ConnectionString ="Password=dyscis;User ID=dyscis;Data Source=dys";
con.Open();
com.Connection =con;
sql="insert into 职工相片(职员号,职工相片) values('',:tempdata)";
com.CommandText =sql;
com.Parameters.Add(":tempdata",System.Data.OracleClient.OracleType.LongRaw ,filelength ).Value = dd;
com.ExecuteNonQuery();
Page.RegisterStartupScript("check", "<script>alert('上传成功！');</script>");
con.Close();
}
int filelength=0;
filelength=File1.PostedFile.ContentLength; //获取上传文件的大小
if(filelength==0)
{
}
else
{
byte[] dd=new byte[filelength]; //建立字节数组
File1.PostedFile.InputStream.Read(dd,0,filelength); //将上传文件流读入 字节数组
System.Data.OracleClient.OracleConnection con=new System.Data.OracleClient.OracleConnection();
System.Data.OracleClient.OracleCommand com=new System.Data.OracleClient.OracleCommand();
con.ConnectionString ="Password=dyscis;User ID=dyscis;Data Source=dys";
con.Open();
com.Connection =con;
sql="insert into 职工相片(职员号,职工相片) values('',:tempdata)";
com.CommandText =sql;
com.Parameters.Add(":tempdata",System.Data.OracleClient.OracleType.LongRaw ,filelength ).Value = dd;
com.ExecuteNonQuery();
Page.RegisterStartupScript("check", "<script>alert('上传成功！');</script>");
con.Close();
}
LoveCherry 2005-03-01
http://dotnet.aspx.cc/ShowDetail.aspx?id=EY1XLDYV-PIDF-43LO-1WFL-FMY5ALE1F635
yizhixiaozhu 2005-03-01
利用image字段
