Private Sub CommandButton1_Click()
'代码开始语句，name可变更
Set conn = CreateObject("adodb.connection") '无需变更
conn.Open "Driver=SQL Server;SERVER=localhost;Database=jy;uid=sa;pwd=Aa123456" 'localhost为数据库ip地址，dbname为数据库名称，name为用户名，password为密码
If conn.State = 1 Then '无需变更
'MsgBox "数据库连接无异常!" '检查语句，可删除
'此处编辑CURD，个人习惯使用下列方法
sqll = "select 子件编号 from dbo.bom" '查询语句，按实际需求变更
Set rs1 = conn.Execute(sqll) '无需变更
SQL = "insert into dbo.bom (子件编号) values ('开心朋朋')"
rs.Open.SQL , cnn, 1, 3
Range("b2").CopyFromRecordset rs1 '数据库查询结果将在 lie 列 hang 行开始展示
Range("A25") = 200 '数据库查询结果将在 lie 列 hang 行开始展示
End If '无需变更
End Sub
第1个回答 2017-10-16
1.使用ADO控件
首先需要在vb部件中添加ADO控件——属性
在此我们可以看到，有三种方式可以实现VB与数据库的连接。
1.data link文件连接：数据连接文件。
UDL文件存储数据库连接的方式和使用“ODBC”数据源名称（DSN）非常相似。UDL文件存储OLE DB连接信息，例如
提供程序、用户名、密码和其他选项等。
2.ODBC数据源连接方式
ODBC数据源的连接方式有三种类型
1.用户数据源:作为位于计算机本地的用户数据源而创建的，并且只能被创建的用户所使用。
2.系统数据源：作为属于计算机或系统二不是特定用户的系统数据源而创建，用户必须有访问权才能使用。
3.文件数据源：指定到文件中作为文件数据源而定义的，任何已经正确安装了驱动程序的用户皆可以使用这种数据源。
打开电脑——控制面板——管理工具——数据源ODBC
在此创建后，就可以在VB里面通过ODBC数据源进行相应的连接
3.使用连接字符串
这需要利用一些应用程序的软件比如Microsoft access,vb自带的应用程序管理也可以，来建立数据库，然后就可
以进行相应的交互了。
4.代码交互
在vb中通过引用对象，就可以通过代码来取代控件，来实现与数据库的连接交互。
通过引用microsoft activex data objects对象来实现，代码如下：
Dim objCn As New Connection
objCn.Open "Provider=Microsoft.Jet.OLEDB.3.51;" & _
"Data Source=" '数据库的存放路径
Set objcf.ActiveConnection = objCn
也可以通过数据源的建立，步骤与ODBC的数据源连接类似。然后在代码中实现连接
Set objCn = New Connection '实例化Connection对象
objCn.Open "DSN=数据源2DSN" '建立数据库连接
5.通过SQL server建立的数据库进行代码连接。
首先，在sql server中通过sql语句建立数据库，然后在vb中进行连接，代码如下：
cn.connectionstring="provider=sqloledb.1; persist security info=false;user id=登陆用户名;password=登陆密码;initial catalog=数据库名;data source=服务器别名/Ip"
你好，本题已解答,如果满意
请点右下角“采纳答案”。
首先需要在vb部件中添加ADO控件——属性
在此我们可以看到，有三种方式可以实现VB与数据库的连接。
1.data link文件连接：数据连接文件。
UDL文件存储数据库连接的方式和使用“ODBC”数据源名称（DSN）非常相似。UDL文件存储OLE DB连接信息，例如
提供程序、用户名、密码和其他选项等。
2.ODBC数据源连接方式
ODBC数据源的连接方式有三种类型
1.用户数据源:作为位于计算机本地的用户数据源而创建的，并且只能被创建的用户所使用。
2.系统数据源：作为属于计算机或系统二不是特定用户的系统数据源而创建，用户必须有访问权才能使用。
3.文件数据源：指定到文件中作为文件数据源而定义的，任何已经正确安装了驱动程序的用户皆可以使用这种数据源。
打开电脑——控制面板——管理工具——数据源ODBC
在此创建后，就可以在VB里面通过ODBC数据源进行相应的连接
3.使用连接字符串
这需要利用一些应用程序的软件比如Microsoft access,vb自带的应用程序管理也可以，来建立数据库，然后就可
以进行相应的交互了。
4.代码交互
在vb中通过引用对象，就可以通过代码来取代控件，来实现与数据库的连接交互。
通过引用microsoft activex data objects对象来实现，代码如下：
Dim objCn As New Connection
objCn.Open "Provider=Microsoft.Jet.OLEDB.3.51;" & _
"Data Source=" '数据库的存放路径
Set objcf.ActiveConnection = objCn
也可以通过数据源的建立，步骤与ODBC的数据源连接类似。然后在代码中实现连接
Set objCn = New Connection '实例化Connection对象
objCn.Open "DSN=数据源2DSN" '建立数据库连接
5.通过SQL server建立的数据库进行代码连接。
首先，在sql server中通过sql语句建立数据库，然后在vb中进行连接，代码如下：
cn.connectionstring="provider=sqloledb.1; persist security info=false;user id=登陆用户名;password=登陆密码;initial catalog=数据库名;data source=服务器别名/Ip"
你好，本题已解答,如果满意
请点右下角“采纳答案”。
