vb中读取数据库中的image类型问题?
存储的的字符到数据库就变成image类型的数据,怎么才可以读回原来的字符呢?大家怎么不支持啊??我是在SQLSERVER中的问题了,我故意定义成image类型,主要是为了...
存储的的字符到数据库就变成image类型的数据,怎么才可以读回原来的字符呢?
大家怎么不支持啊??
我是在SQL SERVER 中的问题了,我故意定义成image类型,主要是为了加密用的,只是读出来的时候就乱码了,(存的时候是字符string),取回也要读到真正的数据才可以证明密码正确,所以现在问题不就 在这里码???
大家,懂了没? 展开
大家怎么不支持啊??
我是在SQL SERVER 中的问题了,我故意定义成image类型,主要是为了加密用的,只是读出来的时候就乱码了,(存的时候是字符string),取回也要读到真正的数据才可以证明密码正确,所以现在问题不就 在这里码???
大家,懂了没? 展开
4个回答
展开全部
登录代码:
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
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类型的数据,怎么才可以读回原来的字符呢"所以这个问题应该出在表本身,你自己看一下,然后再说.
ACCESS的数据类型在表设计器里更改,VB里不能直接看到和更改.
"存储的的字符到数据库就变成image类型的数据,怎么才可以读回原来的字符呢"所以这个问题应该出在表本身,你自己看一下,然后再说.
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
重新检查你的数据库的表的字段类型,改回text类型的就可以了
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询