这段代码为什么参数无效？非常短，来看看，come

2014-07-06 12:32:01 497 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

PTA 说反话加强版 C语言说反话加强版问题描述：　　给定一句英语，要求你编写程序，将句中所有单词的顺序颠倒输出。　　输入格式：　　　　　测试输入包含一个测试用例，在一行内给出总长度不超过500 000的字符串。字符串由若干单词和若干空格组成，其中单词是由英文字母（大小写有区分）组成的字符串，单词之间用若干个空格分开。　　输出格式：　　　　每个测试用例的输出占一行，输出倒序后的句子，并且保证单词间只有1个... 阅读详情

Dim conn As New OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=test.mdb")
conn.Open()
Dim d As String = " select zhaopian from 表1 where name='1'"
Dim comm As New OleDbCommand(d, conn)
Dim reader As OleDbDataReader = comm.ExecuteReader
reader.Read()
Dim photofile() As Byte
photofile = reader.GetValue(0)
Dim streamph As New MemoryStream(photofile)
PictureBox1.Image = Image.FromStream(streamph)
conn.Close()

...全文

P1529 [USACO2.4] 回家 Bessie Come Home 题目描述了一个牧场最短路径问题，要求找出距离谷仓Z最近的母牛所在牧场。母牛分布在大写字母A-Y标记的牧场，小写字母牧场无牛。输入给出P条道路连接情况（带权边），输出离Z最近的母牛所在牧场及其最短路径长度。核心算法采用DFS+剪枝策略，通过邻接矩阵存储图结构，并利用dis数组记录最短距离进行优化。最终遍历所有大写字母牧场，找出离Z最近的母牛位置。示例输入输出展示了算法正确性，如输入5条边时输出B 11，表示B牧场母牛到Z的最短路径为11。阅读详情

祀城

VB 16,718 成员 110,520 内容

+ 关注 + 加入社区

切换为时间正序

geyewei 2014-07-08

打赏
举报

刚刚用SQL server 2008r2+VS2008实验了一下，可以正常保存到数据库并取出来显示到窗体上。操作如下：数据库方面，新建一个表tmp1,表里面两个字段： ID nvarchar(50) zhaopian image 程序方面：新建一个窗体，拖拽两个按钮和两个PictureBox，给PictureBox1设置好图片，粘贴下面的代码： Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim ms As New System.IO.MemoryStream() PictureBox1.Image.Save(ms, PictureBox1.Image.RawFormat) Using cnn As New SqlClient.SqlConnection(gsConsvr), cmm As New SqlClient.SqlCommand cnn.Open() cmm.Connection = cnn cmm.CommandText = "INSERT INTO tmp1(ID,zhaopian)VALUES(@id,@zhaopian)" cmm.Parameters.Add(New SqlClient.SqlParameter("@id", 1)) cmm.Parameters.Add(New SqlClient.SqlParameter("@zhaopian", SqlDbType.Image)).Value = ms.GetBuffer cmm.ExecuteNonQuery() End Using End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Using cnn As New SqlClient.SqlConnection(gsConsvr), cmm As New SqlClient.SqlCommand 'gsConsvr是连库字符串 cnn.Open() cmm.Connection = cnn cmm.CommandText = "SELECT zhaopian FROM tmp1 where id='1'" Dim bytes() As Byte = cmm.ExecuteScalar Dim ms As New System.IO.MemoryStream(bytes) PictureBox2.Image = Image.FromStream(ms) End Using End Sub 执行以后，点击第一个按钮，保存到数据库里面，点击第二个按钮就可以读出来并显示到PictureBox2了。代码很粗糙，凑合着看吧。

祀城 2014-07-08

打赏
举报

引用 29 楼 geyewei 的回复:

刚刚在网上搜了一下，这篇文章或许对你有帮助吧。 http://wenku.baidu.com/link?url=E9WWkUGXmqtxeRf8YDDaEJPnl3RhognrxUlmH2qGpRWFubNjZ89WG9512Qk7bwjLcO9GraIcHprMzfXiZWwP_mO7QxhpbnVFhgr_jLLTbaq

我用的是.net，控件还不太一样，不过我现在大体知道思路了，之前一直执着取出来，现在觉得能先存进去再取出来才能更好的避免其他错误，谢了。我才刚开始学

祀城 2014-07-08

打赏
举报

引用 28 楼 geyewei 的回复:

[quote=引用 26 楼 yang1010363827 的回复:] Cmd.Parameters.Add(New OleDb.OleDbParameter("@zhaopian", OleDbType.Image)).Value = ms.GetBuffer 这条怎么改？

我没有Access的环境，无法做实验，你看看这样改行不行？ cmm.Parameters.Add(New OleDbParameter("@zhaopian", OleDbType.VarBinary)).Value = ms.GetBuffer [/quote] 存进去了，长二进制数据，但是我在access里点它打不开。取出的代码我改成了 Dim Conn As New OleDb.OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=test.mdb") Dim Cmd As New OleDb.OleDbCommand Conn.Open() Cmd.Connection = Conn Cmd.CommandText = "SELECT zhaopian FROM 表1 where id='6'" Dim bytes() As Byte = Cmd.ExecuteScalar Dim ms As New System.IO.MemoryStream(bytes) PictureBox2.Image = Image.FromStream(ms) Conn.Close() 然后就。。 System.Data.OleDb.OleDbException (0x80040E07): 标准表达式中数据类型不匹配。

geyewei 2014-07-08

打赏
举报

刚刚在网上搜了一下，这篇文章或许对你有帮助吧。 http://wenku.baidu.com/link?url=E9WWkUGXmqtxeRf8YDDaEJPnl3RhognrxUlmH2qGpRWFubNjZ89WG9512Qk7bwjLcO9GraIcHprMzfXiZWwP_mO7QxhpbnVFhgr_jLLTbaq

geyewei 2014-07-08

打赏
举报

引用 26 楼 yang1010363827 的回复:

Cmd.Parameters.Add(New OleDb.OleDbParameter("@zhaopian", OleDbType.Image)).Value = ms.GetBuffer 这条怎么改？

我没有Access的环境，无法做实验，你看看这样改行不行？ cmm.Parameters.Add(New OleDbParameter("@zhaopian", OleDbType.VarBinary)).Value = ms.GetBuffer

祀城 2014-07-08

打赏
举报

引用 25 楼 geyewei 的回复:

刚刚用SQL server 2008r2+VS2008实验了一下，可以正常保存到数据库并取出来显示到窗体上。操作如下：数据库方面，新建一个表tmp1,表里面两个字段： ID nvarchar(50) zhaopian image 程序方面：新建一个窗体，拖拽两个按钮和两个PictureBox，给PictureBox1设置好图片，粘贴下面的代码： Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim ms As New System.IO.MemoryStream() PictureBox1.Image.Save(ms, PictureBox1.Image.RawFormat) Using cnn As New SqlClient.SqlConnection(gsConsvr), cmm As New SqlClient.SqlCommand cnn.Open() cmm.Connection = cnn cmm.CommandText = "INSERT INTO tmp1(ID,zhaopian)VALUES(@id,@zhaopian)" cmm.Parameters.Add(New SqlClient.SqlParameter("@id", 1)) cmm.Parameters.Add(New SqlClient.SqlParameter("@zhaopian", SqlDbType.Image)).Value = ms.GetBuffer cmm.ExecuteNonQuery() End Using End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Using cnn As New SqlClient.SqlConnection(gsConsvr), cmm As New SqlClient.SqlCommand 'gsConsvr是连库字符串 cnn.Open() cmm.Connection = cnn cmm.CommandText = "SELECT zhaopian FROM tmp1 where id='1'" Dim bytes() As Byte = cmm.ExecuteScalar Dim ms As New System.IO.MemoryStream(bytes) PictureBox2.Image = Image.FromStream(ms) End Using End Sub 执行以后，点击第一个按钮，保存到数据库里面，点击第二个按钮就可以读出来并显示到PictureBox2了。代码很粗糙，凑合着看吧。

不会sql。。。也没装。。在access中怎么写

祀城 2014-07-08

打赏
举报

引用 25 楼 geyewei 的回复:

刚刚用SQL server 2008r2+VS2008实验了一下，可以正常保存到数据库并取出来显示到窗体上。操作如下：数据库方面，新建一个表tmp1,表里面两个字段： ID nvarchar(50) zhaopian image 程序方面：新建一个窗体，拖拽两个按钮和两个PictureBox，给PictureBox1设置好图片，粘贴下面的代码： Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim ms As New System.IO.MemoryStream() PictureBox1.Image.Save(ms, PictureBox1.Image.RawFormat) Using cnn As New SqlClient.SqlConnection(gsConsvr), cmm As New SqlClient.SqlCommand cnn.Open() cmm.Connection = cnn cmm.CommandText = "INSERT INTO tmp1(ID,zhaopian)VALUES(@id,@zhaopian)" cmm.Parameters.Add(New SqlClient.SqlParameter("@id", 1)) cmm.Parameters.Add(New SqlClient.SqlParameter("@zhaopian", SqlDbType.Image)).Value = ms.GetBuffer cmm.ExecuteNonQuery() End Using End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Using cnn As New SqlClient.SqlConnection(gsConsvr), cmm As New SqlClient.SqlCommand 'gsConsvr是连库字符串 cnn.Open() cmm.Connection = cnn cmm.CommandText = "SELECT zhaopian FROM tmp1 where id='1'" Dim bytes() As Byte = cmm.ExecuteScalar Dim ms As New System.IO.MemoryStream(bytes) PictureBox2.Image = Image.FromStream(ms) End Using End Sub 执行以后，点击第一个按钮，保存到数据库里面，点击第二个按钮就可以读出来并显示到PictureBox2了。代码很粗糙，凑合着看吧。

表示不会sql。。。也没装 Dim ms As New System.IO.MemoryStream() PictureBox1.Image.Save(ms, PictureBox1.Image.RawFormat) Dim Conn As New OleDb.OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=test.mdb") Dim Cmd As New OleDb.OleDbCommand Conn.Open() Cmd.Connection = Conn Cmd.CommandText = "INSERT INTO 表1(ID,zhaopian)VALUES(@id,@zhaopian)" Cmd.Parameters.Add(New OleDb.OleDbParameter("@ID", 1)) Cmd.Parameters.Add(New OleDb.OleDbParameter("@zhaopian", OleDbType.Image)).Value = ms.GetBuffer Cmd.ExecuteNonQuery() Conn.Close() Cmd.Parameters.Add(New OleDb.OleDbParameter("@zhaopian", OleDbType.Image)).Value = ms.GetBuffer 这条怎么改？

BrightFireOfCy 2014-07-07

打赏
举报

lz，name加方括号括起来

祀城 2014-07-07

打赏
举报

引用 23 楼 geyewei 的回复:

是不是存进去的数据不正确呀？

...那应该怎么存？

wind_cloud2011 2014-07-07

打赏
举报

会不会是zhaopian类型问题，应该是OLE 对象吧，怎么显示是itmap image?

geyewei 2014-07-07

打赏
举报

是不是存进去的数据不正确呀？

祀城 2014-07-07

打赏
举报

引用 19 楼 BrightFireOfCy 的回复:

lz，name加方括号括起来

。。不行，不是这个问题

落之叶 2014-07-07

打赏
举报

引用 20 楼 yang1010363827 的回复:

[quote=引用 18 楼 wind_cloud2011 的回复:] 会不会是zhaopian类型问题，应该是OLE 对象吧，怎么显示是itmap image?

ole对象没错，我在里面插入image图，显示的就都是itmap image[/quote] 插入图片时就错了，好好看一下你的插入图片吧

祀城 2014-07-07

打赏
举报

引用 18 楼 wind_cloud2011 的回复:

会不会是zhaopian类型问题，应该是OLE 对象吧，怎么显示是itmap image?

ole对象没错，我在里面插入image图，显示的就都是itmap image

祀城 2014-07-06

打赏
举报

把1旁边的‘’去掉就会显示标准表达式中数据类型不匹配我要显示的是access中的ole图片

祀城 2014-07-06

打赏
举报

引用 15 楼 wind_cloud2011 的回复:

从数据库里取回，并显示　pic是图片字段，取出第６条记录
Dim Conn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\db2.mdb")
Dim Cmd As New OleDb.OleDbCommand
Dim DataRd As OleDb.OleDbDataReader
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Cmd.CommandText = "select pic from biao where 编号=6" '注意选择编号
Conn.Open()
DataRd = Cmd.ExecuteReader
If DataRd.Read Then
Dim da() As Byte
da = DataRd(0)
Dim streamph As MemoryStream = New MemoryStream(da)
PictureBox1.Image = Bitmap.FromStream(streamph)
End If
DataRd.Close()
Conn.Close()
End Sub

Dim Conn As New OleDb.OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=test.mdb")
Dim Cmd As New OleDb.OleDbCommand
Dim DataRd As OleDb.OleDbDataReader
Cmd.Connection = Conn
Cmd.CommandText = "select zhaopian from 表1 where ID=1" '注意选择编号
Conn.Open()
DataRd = Cmd.ExecuteReader
If DataRd.Read Then
Dim da() As Byte
da = DataRd(0)
Dim streamph As MemoryStream = New MemoryStream(da)
PictureBox1.Image = Bitmap.FromStream(streamph)
End If
DataRd.Close()
Conn.Close()
我光换了个查询就参数不对，数据库是这样

落叶1210 2014-07-06

打赏
举报

首先，你要标出哪一句代码的参数无效！以下代码： Dim photofile() As Byte //变量名，怎么有个括号，而且，既然想保存img对象，是不是该定义一个数组 photofile = reader.GetValue(0) //不知道 GetValue(0) 返回的结果和 Byte[]之间是否存在强制转换？ Dim streamph As New MemoryStream(photofile)//如果photofile 为 null，则会出现参数无效的情况。 PictureBox1.Image = Image.FromStream(streamph) conn.Close()