vb中读取数据库中的image类型问题?

存储的的字符到数据库就变成image类型的数据,怎么才可以读回原来的字符呢?大家怎么不支持啊??我是在SQLSERVER中的问题了,我故意定义成image类型,主要是为了... 存储的的字符到数据库就变成image类型的数据,怎么才可以读回原来的字符呢?

大家怎么不支持啊??

我是在SQL SERVER 中的问题了,我故意定义成image类型,主要是为了加密用的,只是读出来的时候就乱码了,(存的时候是字符string),取回也要读到真正的数据才可以证明密码正确,所以现在问题不就 在这里码???
大家,懂了没?
展开
 我来答
百度网友573b62a53
2006-07-23 · 超过10用户采纳过TA的回答
知道答主
回答量:49
采纳率:0%
帮助的人:46.3万
展开全部
在数据库里转换下
convert(binary,pwd(数据库里图片类型))这个把图片类型转换为binary
一下就是把这个转回来
select convert(char(30),convert(binary,pwd(数据库里图片类型)) from tbuser

不知符合,请看,谢谢
百度网友c679116f94f
2006-07-18 · TA获得超过1.3万个赞
知道大有可为答主
回答量:5366
采纳率:0%
帮助的人:3493万
展开全部
登录代码:
Option Explicit
Dim yonghu As String
Dim mima As String

Private Sub cmdOK_Click()
'检查正确的密码
If txtPassword = mima And txtUserName = yonghu Then
'将代码放在这里传递
Form2.Show
Form2.Label1.Caption = "登录成功!"
Else
MsgBox "无效的密码,请重试!", , "登录"
txtPassword.SetFocus
SendKeys "{Home}+{End}"
End If
End Sub

Private Sub Form_Load()
'连接数据库存放用户名密码的表
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\data_ref\db4.mdb;Persist Security Info=False"
Adodc1.RecordSource = "select * from ps"
Adodc1.Refresh
yonghu = Adodc1.Recordset(0) '传递用户名
mima = Adodc1.Recordset(1) '传递密码
End Sub

修改部分的代码:
Option Explicit
Dim yonghu As String
Dim mima As String
Dim ym As Variant

Private Sub cmdOK_Click()
ym = MsgBox("修改用户名密码!", vbOK, "修改") '
If ym = vbOK Then
Adodc1.Recordset(0) = Text1 '传递新用户名
Adodc1.Recordset(1) = Text2 '传递新密码
Adodc1.Recordset.Update '修改数据处理
Form2.Show
Form2.Label1.Caption = "成功修改用户名和密码!"
Else
Unload Me
End If
End Sub

Private Sub Form_Load()
Text1 = "": Text2 = ""
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\data_ref\db4.mdb;Persist Security Info=False"
Adodc1.RecordSource = "select * from ps"
Adodc1.Refresh
yonghu = Adodc1.Recordset(0)
mima = Adodc1.Recordset(1)
End Sub

Private Sub txtPassword_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 And txtPassword = mima Then '核实原密码
Text1.Enabled = True
Text2.Enabled = True
Text1.SetFocus
End If
End Sub

Private Sub txtUserName_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 And txtUserName = yonghu Then '核实原用户名
txtPassword.SetFocus
End If
End Sub

工程文件附后上传.
DB4.MDB数据库存放D:\DATA_REF目录夹,原用户名和密码分别为:user和111111

祝你学习成功!
附件:mima.rar
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
XnnYygn
2006-07-19 · TA获得超过751个赞
知道小有建树答主
回答量:1001
采纳率:0%
帮助的人:0
展开全部
(你的级别好高,佩服)
ACCESS的数据类型在表设计器里更改,VB里不能直接看到和更改.
"存储的的字符到数据库就变成image类型的数据,怎么才可以读回原来的字符呢"所以这个问题应该出在表本身,你自己看一下,然后再说.
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
netrommel店
2006-07-19 · 本人从事工作和认证中总结或收集的资料
netrommel店
采纳数:527 获赞数:3111

向TA提问 私信TA
展开全部
重新检查你的数据库的表的字段类型,改回text类型的就可以了
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 1条折叠回答
收起 更多回答(2)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式