vb.net 中如何使用SQL语句查询数据库 VB.NET中怎么使用SQL语句
vb.net \u4e2d\u5982\u4f55\u4f7f\u7528SQL\u8bed\u53e5\u67e5\u8be2\u6570\u636e\u5e93dim
myselectquery
as
string
=
"select
*
from
\u88681
where
\u59d3\u540d='\u5c0f\u5f3a'"
dim
mycommand
as
new
sqlcommand
(myselectquery,
conn)
'\u5efa\u7acb\u4e00\u4e2acommand\u63a7\u4ef6\uff0cconn\u662f\u4f60\u7684sqlconnection\u5bf9\u8c61
conn.open()'\u6253\u5f00\u6570\u636e\u8fde\u63a5
dim
myreader
as
sqldatareader'\u5b9a\u4e49\u4e00\u4e2areader\u7528\u6765\u8bfb\u6570\u636e
myreader
=
mycommand.executereader()'\u8fd0\u884c\u4f60\u7684\u67e5\u8be2\uff0c\u7ed3\u679c\u5230myreader
if
myreader.read()
then
'\u5982\u679c\u67e5\u5230\u4e86\u6570\u636e
msgbox(myreader.getstring(0))
'\u663e\u793a\u7b2c\u4e00\u4e2a\u5b57\u6bb5
end
if
\u5176\u5b9e\u5f88\u591a\u4eba\u5e76\u4e0d\u60f3\u6210\u4e3a\u67d0\u4e2a\u8bed\u8a00\u7684\u4e13\u5bb6\u5b66\u8005\uff0c\u4ed6\u53ea\u662f\u60f3\u5b66\u4ed6\u9700\u8981\u7684\u90e8\u5206\u3002
\u56e0\u6b64\u8ba9\u8fd9\u4e9b\u4eba\u53bb\u5b66\u5168\u90e8\u7684\u4e1c\u897f\u662f\u4e0d\u73b0\u5b9e\u7684\uff0c\u4ed6\u53ea\u60f3\u5403\u67d0\u4e2a\u83dc\uff0c\u4ed6\u5e76\u4e0d\u60f3\u5f53\u53a8\u5e08\u3002\u8ba9\u4e00\u4e2a\u521d\u5b66\u8005\u4ece\u4e00\u5927\u5806\u8d44\u6599\u4e2d\u53bb\u627e\u4ed6\u8981\u7684\u4e1c\u897f\uff0c\u53ea\u4f1a\u8ba9\u4ed6\u4ea7\u751f\u754f\u96be\u60c5\u7eea\u3002
\u56e0\u6b64\uff0c\u5404\u4f4d\u6709\u7ecf\u9a8c\u7684\u524d\u8f88\u770b\u5230\u8fd9\u4e9b\u770b\u8d77\u6765\u5f88\u83dc\u7684\u95ee\u9898\uff0c\u8010\u5fc3\u6559\u4e00\u4e0b\uff0c\u4e5f\u8bb8\u4f60\u6572\u51fa\u6765\u7684\u51e0\u884c\u8bed\u53e5\uff0c\u4f1a\u8ba9\u4ed6\u7701\u53bb\u51e0\u5929\u751a\u81f3\u534a\u4e2a\u6708\u7684\u65f6\u95f4\uff0c\u7f29\u77ed\u4ed6\u5b66\u4e60\u7684\u8fc7\u7a0b\uff0c\u4ed6\u770b\u5230\u7ed3\u679c\uff0c\u81ea\u7136\u5c31\u6709\u5174\u8da3\u4e86\uff0c\u52a9\u4eba\u4e3a\u4e50\uff0c\u4e0d\u662f\u5417\u3002
\u4e0b\u9762\u662f\u7b54\u6848\u3002
Imports System.Data
Imports System.Data.SqlClient '\u4ee5\u4e0a\u662f\u5fc5\u987b\u58f0\u660e\u7684\u3002
Dim MyDataset As New DataSet '\u5b9a\u4e49\u6570\u636e\u5e93
Dim MySql As New SqlDataAdapter ("select * from \u8868A ", "server=xx.xx.xx.xx\yy;uid=xx;pwd=xx;database=kgsys") 'server \u540e\u9762\u662fip\u5730\u5740\u548csql\u7684\u5b9e\u4f8b\uff0cuid\u7528\u6237\u540d\uff0cpwd\u5bc6\u7801\uff0cdatabase\u662fsql\u4e0a\u8981\u8bbf\u95ee\u7684\u6570\u636e\u5e93\u540d\u3002
MySql.fill (MyDataset,"ABC") 'MyDataset.tables("ABC")\u5c31\u662f\u4f60\u6700\u540e\u67e5\u8be2\u56de\u6765\u5f97\u5230\u7684\u8868\u4e86\u3002
Dim ConnectionString As String = _
"Provider=Microsoft.Jet.OleDb.4.0;_DatacSource = App.Path+\temp.mdb"
Dim myconn As OleDbConnection = New OleDbConnection()
myconn.ConnectionString = ConnectionString
Dim strcom As String = "select * form 通讯录"
OleDbConnection1.Open()
Dim strdele As String="DELTEL 表 WHERE 姓名='MMM'"
Dim mycommand As OleDbCommand = New OleDbCommand(strdele, myconn)
mycommand.ExecuteNonQuery() '从数据库中删除记录
DataSet1.Tables("通讯录").Rows(mybind.Position).Delete() '逻辑删除
DataSet1.Tables("通讯录").AcceptChanges()
OleDbConnection1.Close()
如果简单的数据库，用Xml实现就可以了
扩展阅读：www.sony.com.cn ... vmess链接怎么使用 安卓 ... vbnet教程 ... vue$set使用 ... svipvb怎么打不开了 ... vivo手机usb老是弹出 ... svipvb什么浏览器能打开 ... vuex最详细完整的使用用法 ... vlookup溢出怎么解决 ...
