请一段VB查询数据库并显示的代码

private

sub

search()

dim

str

as

string;

dim

res

as

adodbrecordset

dim

cnn

as

ADODBConnection

//数据库的连接，根据实际情况设置

Set

cnn

=

New

ADODBConnection

cnnProvider

=

"MicrosoftJetOLEDB40"

cnnFile

=

"Data

Source="

&

AppPath

&

"\datamdb;Persist

Security

Info=False

cnnOpen

cnnFile

str="

select

from

authorityInfo

where

编号='"&

trim(text1)

&"'"

set

resOpen

str,

cnn,

adOpenStatic,

adLockOptimistic

MSHFlexGrid1datasource=res

end

sub

Ado3RecordSource = "select from 借出记录 where 编号='" + Text1Text + "'"

Ado3Refresh

if rseof = true then

Text4Text = Ado3RecordsetFields("名称")

Text2Text = Ado3RecordsetFields("读者编号")

Text5Text = Ado3RecordsetFields("条形码")

Text6Text = Ado3RecordsetFields("应还日期")

Text7Text = Ado3RecordsetFields("押金")

else

Text4Text = ""

Text2Text = ""

Text5Text = ""

Text6Text = ""

Text7Text = ""

Chk1Value = 0

Else

End If

分类: 电脑/网络 >> 程序设计 >> 其他编程语言

问题描述:

Private Sub Command1_Click()

If Text1Text = text2text Then MsgBox "text1中的值与数据库中的一样"

End Sub

在程序中引用adodc，并且text2textfield设计为“用户名”这样在text2中正确的显示用户名。当在text1中输入同样的一个用户名按命令按钮，不执行此任务。这是怎么回事儿？为什么这两个字符串不相等？怎么改？

解析:

Private Sub Command1_Click()

If trim(cstr(Text1Text)) = trim(cstr(text2text)) Then MsgBox "text1中的值与数据库中的一样"

End Sub

以上就是关于请一段VB查询数据库并显示的代码全部的内容，包括:请一段VB查询数据库并显示的代码、vb如何查询数据库记录是否存在、VB中SQL数据库的查找等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！