FAQs：怎样用VB.NET 使用参数查询数据库？
问题
-
为了帮助大家更好地学习 Visual Basic技术，微软论坛技术支持团队编辑了一些列的 "Visual Basic 常见问题及解答" 精华帖。
本帖的主题是：怎样用VB.NET 使用参数查询数据库？
如果您觉得这个帖子对您的学习、工作有所帮助，请再把这个帖子分享给你的同学、同事和朋友。
如果您想阅读更多的 "Visual Basic 常见问题及解答"，请打开索引页面：
http://social.msdn.microsoft.com/Forums/zh-CN/vbasiczhchs/thread/c9ab4b8e-99dc-49a2-bcea-30f3ecc3c3b7
如果您对我们的论坛在线支持服务有任何的意见或建议，请通过邮件告诉我们。
立刻免费下载 MSDN 论坛好帮手
答案
-
代码示例：（SQL Server）
Imports System.Data.SqlClient
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
Dim con As SqlConnection = New SqlConnection( _
"Data Source=.;Integrated Security=True;AttachDbFilename=D:\myDB.mdf")
con.Open()
Dim cmdText As String = _
"INSERT INTO Customer(UserName, [Password]) VALUES (@UserName,@Password)"
Dim cmd As SqlCommand = New SqlCommand(cmdText, con)
With cmd.Parameters
.Add(New SqlParameter("@UserName", txtUserName.Text))
.Add(New SqlParameter("@Password", txtPassword.Text))
End With
cmd.ExecuteNonQuery()
con.Close()
con = Nothing
End Sub
End Class
代码示例:（ＭＳ ＡＣＣＥＳＳ）
Imports System.Data.OleDb
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
Dim con As OleDbConnection = New OleDbConnection( _
"Provider=Microsoft.jet.oledb.4.0;data source=D:\myDB.mdb")
con.Open()
Dim cmdText As String = "INSERT INTO Customer(UserName, [Password]) VALUES (?,?)"
Dim cmd As OleDbCommand = New OleDbCommand(cmdText, con)
cmd.CommandType = CommandType.Text ‘ The default is CommandType.Text
With cmd.Parameters
.Add("@p1", OleDbType.VarChar).Value = txtUserName.Text
.Add("@p2", OleDbType.VarChar).Value = txtPassword.Text
End With
cmd.ExecuteNonQuery()
con.Close()
con = Nothing
End Sub
End Class
详细资料：
http://msdn.microsoft.com/zh-cn/library/system.data.oledb.oledbcommand.parameters.aspx
http://support.microsoft.com/kb/310070
如果您对我们的论坛在线支持服务有任何的意见或建议，请通过邮件告诉我们。
- 已标记为答案 微软论坛技术支持团队 2011年3月3日 2:20
