| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2381 人关注过本帖
标题:怎样用sql语句实现往数据库里面的图片的查询,更新和插入
只看楼主 加入收藏
guolisong
Rank: 1
等 级:新手上路
帖 子:30
专家分:0
注 册:2007-9-26
收藏
 问题点数:0 回复次数:6 
怎样用sql语句实现往数据库里面的图片的查询,更新和插入
刚才直接用常规的sql语句 发现不能用 如下
insert into t_biao (xm,xb,zp,nl) values('"& txtxm.text &"','"& txtxb.text &"",'"& PBzp.Image &"','"& txtnl.text &"")结果显示有错误 说是没有为image设置的连接字符串 &
我根本不知道怎么办了 在书上也没见到这样的问题
有哪位朋友碰到过此类问题的 能不能指点我一下 可以让我节省一点时间接着往下赶活 谢谢你们了
搜索更多相关主题的帖子: 数据库 sql 语句 查询 
2007-10-16 20:16
purana
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:广东-广州
等 级:版主
威 望:66
帖 子:6039
专家分:0
注 册:2005-6-17
收藏
得分:0 
没有这样写法.
插入图片是通过流来实现的.

我的msn: myfend@
2007-10-16 20:20
guolisong
Rank: 1
等 级:新手上路
帖 子:30
专家分:0
注 册:2007-9-26
收藏
得分:0 
以下是引用purana在2007-10-16 20:20:30的发言:
没有这样写法.
插入图片是通过流来实现的.

谢谢指点 我回去上msdn上找一找

2007-10-16 20:26
guolisong
Rank: 1
等 级:新手上路
帖 子:30
专家分:0
注 册:2007-9-26
收藏
得分:0 

楼上的版主 我在msdn上找了也没找着 您能不能再给我一点提示?谢谢

2007-10-17 09:26
qlong0728
Rank: 3Rank: 3
等 级:新手上路
威 望:8
帖 子:272
专家分:0
注 册:2007-6-15
收藏
得分:0 

Dim conn As New SqlClient.SqlConnection
Dim SQLtile As String
Dim fs As IO.FileStream

数据库链接:
Dim strConn As String = "data source=127.0.0.1;initial catalog=hhdata;user id=sa;password=1234567890;"
conn = New SqlClient.SqlConnection(strConn)
conn.Open()

打开图片:
Dim Opendlg As New OpenFileDialog
Opendlg.Title = "Select a picture file"
Opendlg.Filter = "(*.bmp)|*bmp|(*.jpg)|*.jpg"
Opendlg.ShowDialog()
TextBox2.Text = Opendlg.FileName.ToString()
fs = New IO.FileStream(Opendlg.FileName.ToString(), IO.FileMode.Open, IO.FileAccess.Read)

保存图片:
Dim sqltile As String
sqltile = "INSERT INTO employees (lastname,firstname,photo) VALUES (@lastname,@firstname,@photo)"
Dim cmdkh As New SqlClient.SqlCommand(sqltile, conn)
Dim Data(fs.Length) As Byte
fs.Read(Data, 0, Int(fs.Length))
Dim prm1 As New SqlClient.SqlParameter("@lastname", TextBox2.Text)
Dim prm2 As New SqlClient.SqlParameter("@firstname", TextBox2.Text)
Dim prm3 As New SqlClient.SqlParameter("@photo", SqlDbType.VarBinary, Int(fs.Length), ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Current, Data)
cmdkh.Parameters.Add(prm1)
cmdkh.Parameters.Add(prm2)
cmdkh.Parameters.Add(prm3)
cmdkh.ExecuteNonQuery()
fs.Close()

提取显示图片:
Dim bh As New DataSet
Dim dabh As New SqlClient.SqlDataAdapter
SQLtile = "select * from employees"
dabh.SelectCommand = New SqlClient.SqlCommand(SQLtile, conn)
dabh.Fill(bh)
Dim data() As Byte = bh.Tables(0).Rows(0)("photo")
Dim stmphoto As New IO.MemoryStream(data)
PictureBox1.Image = Image.FromStream(stmphoto)

以上代码在VB2005上测试通过
注:photo的数据类型是 image

[此贴子已经被作者于2007-10-17 11:36:36编辑过]


程序人员写程序,又拿程序换酒钱。 奔驰宝马贵者趣,公交自行程序员。 不见满街漂亮妹,哪个归得程序员。
2007-10-17 11:30
guolisong
Rank: 1
等 级:新手上路
帖 子:30
专家分:0
注 册:2007-9-26
收藏
得分:0 
真是太谢谢版主了 顺便说一句
程序人员写程序,又拿程序换酒钱。
奔驰宝马贵者趣,公交自行程序员。
不见满街漂亮妹,哪个归得程序员。
写得挺有意思!
2007-10-17 20:18
梦幻倩影
Rank: 5Rank: 5
等 级:职业侠客
威 望:8
帖 子:162
专家分:352
注 册:2016-8-19
收藏
得分:0 
如果文件不存或者没有选择图片,则保存会出错
最好先判断一下是否存在,在执行对图片的读取:
fs = New IO.FileStream(Opendlg.FileName.ToString(), IO.FileMode.Open, IO.FileAccess.Read)
2016-09-11 10:19
快速回复:怎样用sql语句实现往数据库里面的图片的查询,更新和插入
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.028630 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved