vb.net与数据库连接

最新推荐文章于 2024-09-14 19:55:29 发布

heiseshandian_lpc

最新推荐文章于 2024-09-14 19:55:29 发布

阅读量365

点赞数

文章标签：数据库 vb.net textbox security exception string

本文链接：https://blog.csdn.net/heiseshandian_lpc/article/details/5636755

版权

1.绑定数据源来进行连接
2.用代码连接
先到数据库建立一个数据库和相应的表
连接数据库的代码： 
Dim str As String = "Data Source=服务器名;Initial Catalog=数据库名;Persist Security Info=True;User ID=;Password="
    dim conn As SqlClient.SqlConnection
try
            conn = New SqlClient.SqlConnection
            conn.ConnectionString = str
            conn.Open()
            Return True
        Catch ex As Exception
            MsgBox(ex.ToString)
            Return False
        End Try
登录代码：Dim str As String = "Data Source=服务器名;Initial Catalog=数据库名;Persist Security Info=True;User ID=;Password="
    dim conn As SqlClient.SqlConnection
 conn = New SqlClient.SqlConnection
            conn.ConnectionString = str
            conn.Open()

sqlstr = "Select * From Amd Where AmdName='" & TextBox1.Text & "' And AmdPwd = '" & TextBox2.Text & "'"
            Dim sqlcmd As SqlClient.SqlCommand = New SqlClient.SqlCommand(sqlstr, conn)
            Dim dr As SqlClient.SqlDataReader
            dr = sqlcmd.ExecuteReader
            If dr.Read = True Then  '判断一条记录为真
                kf.Show() '显示下个窗体
                Me.Hide() ’隐藏当前窗体
            Else
                MessageBox.Show("输入信息有误！", "提示")
                TextBox1.Text = ""
                TextBox2.Text = ""