如何用vb连接sql server数据库

1、打开代码窗口，添加引用：Imports SystemDataSqlClient。

2、输入以下代码：

“Public conn1  As SqlConnection = New SqlConnection _

("server=192168179; Initial Catalog= student; User ID= panqe;PWD=shentai768@")”，vb就已经成功连接sql数据库了。

3、代码详解：声明关键字Public（因为是全局变量，所以用Public 来声明）。

4、连接参数。

5、如果SQL 数据库就在本机，则用以下代码连接：

("server=; Integrated Security=False;Initial Catalog= student; User ID= panqe;PWD=shentai768@")。

6：如果代码太长，影响可读性，可以用空格加"_"后，回车换行。

1、打开代码窗口，添加引用：Imports SystemDataSqlClient。

2、输入以下代码：

“Public conn1  As SqlConnection = New SqlConnection _

("server=192168179; Initial Catalog= student; User ID= panqe;PWD=shentai768@")”，vb就已经成功连接sql数据库了。

3、代码详解：声明关键字Public（因为是全局变量，所以用Public 来声明）。

4、连接参数。

5、如果SQL 数据库就在本机，则用以下代码连接：

("server=; Integrated Security=False;Initial Catalog= student; User ID= panqe;PWD=shentai768@")。

6：如果代码太长，影响可读性，可以用空格加"_"后，回车换行。

用SQL数据库吧！！这个 *** 作起来要简单一些，利用ADO 你可以很轻松的就完成自己想要的东西！@

数据库连接代码如下

Option Explicit

'API 函数部分

'数据库部分

'Public rs As New ADODBRecordset '数据专用

Public Cnn As ADODBConnection '一个ADO连接字符串

Public UserFlag As Long '确定 *** 作员的权限，普通用户、超级用户、财务用户 窗体4

Public UserID As String '确定当前 *** 作员名称 窗体4

Public SelStr As String '查询选择字段标志 取 工单号 字段 窗体1

Public SELName As String '查询选择字段标志 取 委印单位 字段 窗体6、7

Public PrtSc As Integer '确定打印以纵向或是横向 窗体9

Public HZ_SELStr As String '确定承印机台 窗体9、10

Public LBFlag, PSFlag, PRTFlag As Long '汇总类别标志

Public MinDate, MaxDate As String '定义查询与汇总时段 时间段的最小最大取值

Public MXLXFlag As Long '明细类型 类型为1以承印机台显示明细 为2以纸度、纸张克数、纸类名称显示明细

Public ZDLX, ZZKZ, ZLMC As String '确定承印机台 窗体9、10

Public Sub DateConnection() '连接一个数据库的过程

Dim sql As String

'sql = "Provider=SQLOLEDB1;Persist Security Info=False;User ID=sa;PWD=sa;Initial Catalog=work_DB;Data Source=sun"

'sql = "PROVIDER=MSDataShape;Data PROVIDER=MSDASQL;driver={SQL Server};server=SUN;uid=sa;pwd=sa;database=work_DB;"

'sql = "driver={SQL Server};server=SUNSERVER;uid=sa;pwd=sa;database=work_DB" '本地访问

sql = "driver={SQL Server};server=SUN;uid=sa;pwd=sa;database=work_DB" '局域网内访问

Set Cnn = New Connection

CnnConnectionTimeout = 30

CnnCursorLocation = adUseClient '当为客户端模式时，Mode 只能是未知

CnnOpen sql

End Sub

Public Sub Main()

Call DateConnection '调用数据库连接过程 连接数据库文件

MDIForm1Show

End Sub

VB远程访问>

既然是>

以上就是关于如何用vb连接sql server数据库全部的内容，包括:如何用vb连接sql server数据库、在VB里怎么连接sql数据库、VB如何访问网络数据库等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！

欢迎分享，转载请注明来源：内存溢出

原文地址: http://outofmemory.cn/sjk/9734647.html