1樓：匿名使用者
要麼加乙個按鈕,起查詢作用如查詢語句(字串):
"select top 1 欄位1,欄位2,欄位3,欄位4 from 表 where 欄位1 like '%" & trim(text1.text) & "%' and 欄位2 like '%" & trim(text2.text) & "%'" and 欄位3 like '%" & trim(text3.
text) & "%' and 欄位4 like '%" & trim(text4.text) & "%'"
查詢一條符合輸入框的記錄,查詢生成的記錄集如果recordcount>0就給每個框賦值,如果<=0提示找不到資料
如果不想加按鈕的話,你可以用輸入框的keypress事件,自己規定一下如果是按回車就執行查詢或者是按f3等等
2樓：巴凌柏
你把文字框對應到字段，然後這樣
注意裡面的中括號是選擇的內容
dim str as string
if text1<>"" then
str=str & "欄位1[=/like]" & text1.text
elseif
str=str & "欄位1 like %"
endif
if text2<>"" then
str=str & " [and/or] 欄位2[=/like]" & text2.text
elseif
str=str & " [and/or]欄位2 like %"
endif
if text3<>"" then
str=str & "[and/or] 欄位3[=/like]" & text3.text
elseif
str=str & " [and/or]欄位3 like %"
endif
if text4<>"" then
str=str & "[and/or] 欄位4[=/like]" & text4.text
elseif
str=str & " [and/or]欄位4 like %"
endif
str="select * from 表名 where " & str
執行str 就可以了
3樓：
dim str as string
str="select * from 表 where "
if not text1.text=""thenstr=str&"trim(text1.text)"
end if
if not text2.text=""thenstr=str&"trim(text2.text)"
.......
if not text4.text=""thenstr=str&"trim(text4.text)"
執行 str
具體的格式我忘記了，不過這個思路應該可以達到你的要求吧。
急！！VB資料庫裡的問題，vb資料庫問題
不要用那個自動編號，寫段 自動生成你需要的指定格式的編號就行了。讀取的時候使用mid等函式擷取一下就可以了 根本就不用連續,如果你要連續,只能再建乙個字段,不要開自動編號.記錄選擇下一條,就可以直接定位的,根本不要順序的,直接movenext就到下一條記錄了 vb資料庫問題 cx變數是string型...
vb怎麼連線資料庫寫入資料
在使用前需要先安裝mysql的驅動，進行正確配置 注意 必須給出正確的伺服器名 資料庫名 表名 資料庫連線的使用者名稱 密碼 option explicit dim n as adodb.connection 定義ado連線物件 dim records as adodb.recordset 定義ad...
VS2019 VB連線ACCESS資料庫
下面的 僅供參考 imports system.data.oledb 引用命名空間 dim cnstr provider microsoft.jet.oledb.4.0,data source access資料庫檔案位置 定義連線字串 dim cn as oledbconnection new ol...