vs怎样连接mysql数据库连接

vs2015连接mysql方法：

一.点开工具中的连接到数据库

二.复制sql数据库的服务器名到vs中

三.选择连接的数据库名称

四.选择高级属性最下面的一行全部复制 得到 Data Source = DESKTOP - DFOPNE4Integrated Security = True

五.点开web.config，把复制到字符串的替换到ConnectionString的引号部位中

六.这时就有两种连接方式可以选择了

static string strcon = "server=DESKTOP-DFOPNE4Integrated Security=SSPIdatabase=Library"

SqlConnection con = new SqlConnection(strcon)

vs连接mysql数据库的方法：

新建一个工程名叫mysql,编程环境选择c#,然后选择windows窗体应用程序,新建一个窗体用于显示查询到sql数据库的数据集

从工具箱向form1窗体上拖一个按钮和datagridview控件，按钮是触发连接数据库获取数据集，按钮的名称为显示，datagridview控件是用于显示数据集内容

单击解决方案资源管理器中的引用文件夹然后右键选择添加引用，选择浏览后打开mysql.data.dll，这是c#连接mysql数据库的动态库，里面封装了很多常用的 *** 作数据库的方法

在解决方案资源管理器中的form1.cs的代码中加入using MySql.Data.MySqlClient这就是代码中的实际引用mysql.data.dll中的内容，有了这个c#就能很方便地 *** 作sql数据库

在按钮的单击事件中添加如下代码

 string str = "Server=127.0.0.1User ID=rootPassword=123456Database=testCharSet=gbk"

     MySqlConnection con = new MySqlConnection(str)//实例化链接

     con.Open()//开启连接

     string strcmd = "select * from user"

     MySqlCommand cmd = new MySqlCommand(strcmd, con)

     MySqlDataAdapter ada = new MySqlDataAdapter(cmd)

     DataSet ds = new DataSet()

     ada.Fill(ds)//查询结果填充数据集

     dataGridView1.DataSource = ds.Tables[0]

     con.Close()//关闭连接

使用navicat软件在数据库test中新建表user，然后新建两个字段username和password(图中的栏位),navicat软件是mysql的图形化界面工具，负责新建表以及备份等数据库 *** 作，直观地通过界面来 *** 作

数据库建好后就可以执行工程了，单击显示按钮执行结果如下，出现username和password说明数据库连接成功，由于没有添加数据所以下面为空

你有数据库吗？

连接你的数据库的位置，加他的 连接条件就可以拉下面是一个连接数据库的模块，大家可以使用它来连接SQL数据库，使用起来比ADO控件还简单：

代码如下：

Public rsNew As ADODB.Recordset

Public CnNew As ADODB.Connection

Public addFlag As Boolean

'连接数据库

Public Function OpenCn() As Boolean

Dim Mag As String

On Error GoTo strErrMag

Set CnNew = New ADODB.Connection

CnNew.ConnectionTimeout = 25

CnNew.Provider = "sqloledb"

CnNew.Properties("data source").value = "" 'SQL服务器的名

CnNew.Properties("initial catalog").value = "pubs"'库名

CnNew.Properties("integrated security").value = "SSPI"'登陆类型

'con.Properties("user id").value = "sa"

'con.Properties("password").value = "wwww"

CnNew.Open

OpenCn = True

addFlag = True

Exit Function

strErrMag:

Mag = "数据库末连接"

Call MsgBox(Mag, vbOKCancel, "错误:数据库连接")

addFlag = False

End

End Function

Public Sub Clocn()

'闭关数据库

On Error Resume Next

If CnNew.State <>adStateClosed Then CnNew.Close

Set CnNew = Nothing

End Sub

Public Function OpenRs(ByVal strSql As String) As Boolean

'连接数据库记录集

Dim Mag As String

Dim rpy As Boolean

On Error GoTo strErrMag

Set rsNew = New ADODB.Recordset

If addFlag = False Then rpy = OpenCn

With rsNew

.ActiveConnection = CnNew

.CursorLocation = adUseClient

.CursorType = adOpenKeyset

.LockType = adLockOptimistic

.Open strSql

End With

addFlag = True

OpenRs = True

Exit Function

strErrMag:

Mag = "数据库数据集末连接"

Call MsgBox(Mag, vbOKOnly, "错误:数据库连接")

OpenRs = False

End

End Function

Public Sub cloRs()

'闭关数据集

On Error Resume Next

If rsNew.State <>adStateClosed Then rsNew.Close

Set rsNew = Nothing

End Sub

---