首页 > 专利技术

vb连接ms-sql数据库

一、VB连接SQL Server2000数据库

1、如何创建SQL Server2000数据库

(1)启动“服务管理器"

(2)运行“企业管理器”

复习：

右击->新建数据库->输入数据库名称

进入数据库后->右击->新建表(确定列名、类型、宽度等)及表名

输入记录：在目标表上->右击->打开->返回所有行

2.连接ms-sql数据库

方法1：

(1)放置一个ADo和DataGrid1控件（工程->部件）

(2)ADO右击->属性->使用字符串连接->生成->选择数据库服务器（可以是名称也可以是一个有效的IP地址）及数据库名称

(3)在ADO上右击->属性->记录源->adCmdText->select * from stu

(4)在DataGrid1的DataSource属性中选择Adodc1

方法2：（推荐）

(1)建立模块：建立连接数据库的通用函数，其代码如下：

Public Function ExeSQL(ByVal txtSQL As String) As ADODB.Recordset

Dim cn As ADODB.Connection

Dim rs As ADODB.Recordset

Dim str As String

Dim keyWord() As String

s = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;User ID=sa;Initial Catalog=yyj;Data Source=192.168.50.44" '连接MS-SQL的数据库

's = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data\main.mdb;Persist Security Info=False"

'这是连接Access数据库的

Set cn = New ADODB.Connection

msinfocn.Open s

keyWord = Split(txtSQL)

If InStr("DELETE,UPDATE,INSERT", UCase(keyWord(0))) Then

cn.Execute txtSQL

Else

Set rs = New ADODB.Recordset

rs.CursorLocation = adUseClient

rs.Open txtSQL, cn, adOpenKeyset, adLockOptimistic

Set ExeSQL = rs

End If

End Function

(2)在窗体的通用中：

dim mrc dset

(3)在窗体的Load事件中：

set mrc=ExeSql("select * from stu")

set datagrid1.dataResource=mrc

二、附加已存在的数据库(.MDF)

企业管理器->数据库->右击->附加->...

本文发布于:2024-09-23 19:12:50，感谢您对本站的认可！

本文链接：https://www.17tex.com/tex/3/380574.html

上一篇：kail利用msf工具对ms17-010(永恒之蓝)漏洞入侵渗透Win7

下一篇：nuScenes3D目标检测数据集解析(完整版附python代码)

标签：数据库连接管理器建立通用列名输入

留言与评论（共有 0 条评论）