建站
咨詢
售后
建站咨詢
新聞中心
vb.net 中如何使用SQL語句查詢數(shù)據(jù)庫
dim
創(chuàng)新互聯(lián)是一家專注于成都做網(wǎng)站、成都網(wǎng)站設(shè)計、成都外貿(mào)網(wǎng)站建設(shè)與策劃設(shè)計,太康網(wǎng)站建設(shè)哪家好?創(chuàng)新互聯(lián)做網(wǎng)站,專注于網(wǎng)站建設(shè)10多年,網(wǎng)設(shè)計領(lǐng)域的專業(yè)建站公司;建站業(yè)務(wù)涵蓋:太康等地區(qū)。太康做網(wǎng)站價格咨詢:18982081108
myselectquery
as
string
=
"select
*
from
表1
where
姓名='小強'"
dim
mycommand
as
new
sqlcommand
(myselectquery,
conn)
'建立一個command控件，conn是你的sqlconnection對象
conn.open()'打開數(shù)據(jù)連接
dim
myreader
as
sqldatareader'定義一個reader用來讀數(shù)據(jù)
myreader
=
mycommand.executereader()'運行你的查詢，結(jié)果到myreader
if
myreader.read()
then
'如果查到了數(shù)據(jù)
msgbox(myreader.getstring(0))
'顯示第一個字段
end
if
vb.net改端口物理地址怎么查
1、點擊右側(cè)的網(wǎng)絡(luò)連接，在彈出的對話框中點擊打開網(wǎng)絡(luò)和共享中心。
2、在網(wǎng)絡(luò)和共享中心界面中點擊更改適配器設(shè)置。
3、進入網(wǎng)絡(luò)連接界面，右鍵本地連接。
4、在彈出的菜單中選擇屬性。
5、在本地連接屬性界面中點擊配置按鈕。
6、切換到高級選項卡，在屬性列表中找到并點擊網(wǎng)絡(luò)地址，在右側(cè)輸入修改后的網(wǎng)絡(luò)地址，點擊確定按鈕。
7、使用命令提示符，輸入Ipconfig-all，可以查看修改后的物理地址。
vb.net 如何用通配符查找文件
步驟如下：
窗體上添加2個列表框，一個按鈕：
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim MyDir As String = "C:\123"
'搜索并顯示子文件夾
ListBox1.Items.Clear()
For Each MySubDir As String In System.IO.Directory.GetDirectories(MyDir)
ListBox1.Items.Add(MySubDir)
Next
'搜索并顯示文件
ListBox2.Items.Clear()
For Each MyFile As String In System.IO.Directory.GetFiles(MyDir)
ListBox2.Items.Add(MyFile)
Next
End Sub
End Class
在vb.net中如何查詢MDB數(shù)據(jù)庫的數(shù)據(jù)
以下是完整模塊
Imports
System.Data
Imports
System.IO
Imports
System.Data.OleDb
Module
Module1
Public
cn
As
New
OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data
Source="
Application.StartupPath
"\mdb數(shù)據(jù)庫名字.mdb")
'定義連接
Public
DataBaseRST
As
Integer
'用來返回數(shù)據(jù)庫執(zhí)行結(jié)果
Public
Function
DataModify(ByVal
str
As
String)
As
Boolean
'進行數(shù)據(jù)庫修改操作
Dim
cmdinsert
As
New
OleDbCommand
Try
cmdinsert.CommandText
=
str
cmdinsert.Connection
=
cn
If
cn.State
=
ConnectionState.Closed
Then
cn.Open()
DataBaseRST
=
cmdinsert.ExecuteNonQuery()
'用來返回執(zhí)行的結(jié)果
cn.Close()
Return
True
Catch
ex
As
Exception
MessageBox.Show(Err.Description,
"Error",
MessageBoxButtons.OK,
MessageBoxIcon.Error)
Return
False
End
Try
End
Function
Public
Function
Search(ByVal
str
As
String,
ByVal
DGV
As
DataGridView)
As
Boolean
'查詢
str---查詢命令，DGV---DataGridView，用來顯示數(shù)據(jù)的控件
Dim
tb
As
New
DataTable
Try
Dim
ap
As
New
OleDb.OleDbDataAdapter(str,
cn)
ap.Fill(tb)
DGV.DataSource
=
tb
Return
True
Catch
ex
As
Exception
MessageBox.Show(Err.Description,
"Error",
MessageBoxButtons.OK,
MessageBoxIcon.Error)
Return
False
End
Try
End
Function
End
Module
'以下是調(diào)用方法
DataModify("
insert
into
aa
values
('1','2')")'-------這里是數(shù)據(jù)庫更新操作
Search("select
bb
from
aa",DataGridView1)'-----------這里是數(shù)據(jù)表查詢操作
網(wǎng)頁名稱：如何在vb.net中查詢 怎么查看vb程序代碼
本文URL：http://fisionsoft.com.cn/article/docoepo.html
