vs与sql数据库链接代码

//先可以创建一个连接数据库的字符串常量或变量

格式如下

string

Sql

=

"Server

=

服务器名称；DataBase

=

数据库名；UID

=

用户名；

PWD

=

密码；

"

//然后创建一个SqlConnection的对象

并且把链接数据库的Sql

字符串变量作为参数

//这样就会调用SqlConnection类的参数为String类型的构造函数为你的Connct对象赋值

SqlConnection

Connct

=

new

SqlConnection(Sql)；

然后你只需要

Connct.open()

就可以对数据库进行一些 *** 作

或者是绑定数据源

你有数据库吗？

连接你的数据库的位置，加他的 连接条件就可以拉下面是一个连接数据库的模块，大家可以使用它来连接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

"Data Source=服务器名Initial Catalog=数据库名Persist Security Info=TrueUser ID=saPassword=“”；

这是数据库连接字符串

在vs用的时候要这样

SqlConnection conn = new SqlConnection(数据库连接字符串)

来声明

conn.Open()//打开数据库

这里执行数据库 *** 作

conn.Close()关闭数据库

---