vb.net与SQL Server怎么样连接（在线等）

襄阳城

<p>vb.net与SQL Server怎么样连接（在线等）</p>
<p><img src="http://img.baidu.com/img/iknow/icn_point.gif"> 悬赏分：30 -</p>
<p>解决时间：2010-3-9 16:23</p>
<p>说的详细一点。。</p>
<p>最好有例子。。</p>
<p>本人在线等。。。</p>
<p>正确之后 格外加分。。。</p>
<p>提问者： 匿名</p>
<p>最佳答案</p>
<p>Dim str As String = "Data Source=服务器名;Initial Catalog=数据库名;Persist Security Info=True;User ID=;Password="</p>
<p>dim conn As SqlClient.SqlConnection</p>
<p>conn = New SqlClient.SqlConnection</p>
<p>conn.ConnectionString = str</p>
<p>conn.Open()</p>
<p>sqlstr = "Select * From Amd Where AmdName=\'" & TextBox1.Text & "\' And AmdPwd = \'" & TextBox2.Text & "\'"</p>
<p>Dim sqlcmd As SqlClient.SqlCommand = New SqlClient.SqlCommand(sqlstr， conn)</p>
<p>Dim dr As SqlClient.SqlDataReader</p>
<p>dr = sqlcmd.ExecuteReader</p>
<p>If dr.Read = True Then \'判断一条记录为真</p>
<p>kf.Show() \'显示下个窗体</p>
<p>Me.Hide() ’隐藏当前窗体</p>
<p>Else</p>
<p>MessageBox.Show("输入信息有误！"， "提示")</p>
<p>TextBox1.Text = ""</p>
<p>TextBox2.Text = ""</p>
<p>End If</p>
<p>1</p>
<p>回答者：</p>
<p>匿名 2010-3-9 16:22</p>
<p>我来评论>></p>