VB连接数据库在同一字段中模糊查询（vb连接数据库）

大家好，我是小典，我来为大家解答以上问题。VB连接数据库在同一字段中模糊查询，vb连接数据库很多人还不知道，现在让我们一起来看看吧！

展开全部

如果这还不够详细 你得找个有时间的人给你一点一点讲了 我是不行了！~

Option Explicit

Public conn As New ADODB.Connection '定义数据连接字符串

Public rs As New ADODB.Recordset '定义记录集

Dim appdisk$, aa$, db$, trecord%, rowsel%, i%, j%

Private Sub Form_Load()

appdisk = Trim(App.Path)

If Right(appdisk, 1) <> "" Then appdisk = appdisk & ""

db = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & appdisk & "bwscale.mdb"

conn.CursorLocation = adUseClient

conn.Open db '打开数据库连接

sSQL=""

sSQL= sSQL & "select 序号,留言单位,留言内容,接收单位 from table"

if Option1.checked=true then

sSQL=sSQL & "order by 留言单位"

end if

rs.Open sSQL, conn, adOpenKeyset, adLockPessimistic '打开记录集

trecord = rs.RecordCount

MSHFlexGrid1.datasouce = rs

End Sub

本文到此讲解完毕了，希望对大家有帮助。