死亡诗社预告中文版:vb中读取数据库中的image类型问题？

在数据库里转换下
convert(binary,pwd(数据库里图片类型))这个把图片类型转换为binary
一下就是把这个转回来
select convert(char(30),convert(binary,pwd(数据库里图片类型)) from tbuser

不知符合，请看，谢谢

登录代码:
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

(你的级别好高,佩服)
ACCESS的数据类型在表设计器里更改,VB里不能直接看到和更改.
"存储的的字符到数据库就变成image类型的数据，怎么才可以读回原来的字符呢"所以这个问题应该出在表本身,你自己看一下,然后再说.

重新检查你的数据库的表的字段类型，改回text类型的就可以了