• 全部
  • VBS
  • .NET技术
  • VBA
  • VB网络编程
  • VB多媒体
  • VB数据库
  • VB控件
  • VB COM/DCOM
  • VB基础类
  • VB API
  • 问答

将文件存储到数据库中该怎么做?(100)

2zhk 2005-03-01 02:22:39
将文件存储到数据库(sqlServer)中该怎么做?
不是将文件的路径存储到数据库,而是将其本身加到数据库中。
有代码最好!
...全文
399 点赞 收藏 22
写回复
22 条回复
切换为时间正序
当前发帖距今超过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
回复
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()
回复
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();
}
回复
LoveCherry 2005-03-01
http://dotnet.aspx.cc/ShowDetail.aspx?id=EY1XLDYV-PIDF-43LO-1WFL-FMY5ALE1F635
回复
yizhixiaozhu 2005-03-01
利用image字段
回复
发帖
VB
创建于2007-09-28

1.6w+

社区成员

VB技术相关讨论,主要为经典vb,即VB6.0
申请成为版主
帖子事件
创建了帖子
2005-03-01 02:22
社区公告
暂无公告