VB怎么连接SQL Server数据库？

VB连接数据库方式主要有两种，一是通过ODBC接口，ODBC是windows系统里提供的接口，专门连接数据库的，可以连接多种数据库，在应用电脑的设置ODBC，也就DSN数据源（下面说到的），连接到服务器。

创新互联公司专注为客户提供全方位的互联网综合服务，包含不限于网站建设、做网站、陆丰网络推广、重庆小程序开发公司、陆丰网络营销、陆丰企业策划、陆丰品牌公关、搜索引擎seo、人物专访、企业宣传片、企业代运营等，从售前售中售后，我们都将竭诚为您服务，您的肯定，是我们最大的嘉奖；创新互联公司为所有大学生创业者提供陆丰建站搭建服务，24小时服务热线：18982081108，官方网址：www.cdcxhl.com

第二种就是ADO方式，

VB使用ADO数据库可以分为有源数据库和无源数据库，即是否使用了DSN数据源，如下例：

1、在连接数据库前首先要在VB菜单中“工程”-“引用”从中选择 microsoft activeX Data objects 2.6 library和 microsoft activeX Data objects recordset 2.6两个组件，这是在连接数据前所必做的工作。

2、接下来定义ADO的连接对象，如下所示：

Set conn = New ADODB.Connection

Set rs = New ADODB.Recordset

第一种方法采用的是无源的数据库连接方法

conn.ConnectionString = "Driver={sql server};server=JSZX3-11;uid=sa;pwd=;database=wzc"

conn.ConnectionTimeout = 30

conn.Open

rs.Open "select 用户名,密码 from login where 用户名='" Trim(Combo1.Text) "' And 密码='" Trim(Text1.Text) "'", conn, adOpenStatic, adLockReadOnly, adCmdText

If rs.EOF = True And rs.BOF Then

m = MsgBox("请重新登录", vbExclamation)

Text1.Text = ""

Text1.SetFocus

Else

Form1.Hide

End If

rs.Close

这是第二种方法连接数据库的方法，这一种方法是采用有源的方法与数据库连接的方法，代码如下所示：

Set conn = New ADODB.Connection

Set rs = New ADODB.Recordset

conn.ConnectionString = "DSN=login;uid=sa;pwd=;"

conn.ConnectionTimeout = 30

conn.Open

rs.Open "select 用户名 from login", conn, adOpenStatic, adLockReadOnly, adCmdText

Dim i As String

For t = 0 To Val(rs.RecordCount) - 1

i = Trim(rs.Fields("用户名").Value)

rs.MoveNext

Combo1.AddItem i

Next t

rs.Close

连接数据库的方法很多很多，只要各位去勇敢的偿试一下，就可以感觉数据库的方法并不是很难，本人以前也很想做这方法的工作，只是学识不深，未能完成胸中大志，如今对这些方法的多少有一些了解，特意为那些初学者以供学习之用。

VB使用ADO数据库可以分为有源数据库和无源数据库，即是否使用了DSN数据源，如下例：

1、在连接数据库前首先要在VB菜单中“工程”-“引用”从中选择 microsoft activeX Data objects 2.6 library和 microsoft activeX Data objects recordset 2.6两个组件，这是在连接数据前所必做的工作。

2、接下来定义ADO的连接对象，如下所示：

Set conn = New ADODB.Connection

Set rs = New ADODB.Recordset

第一种方法采用的是无源的数据库连接方法

conn.ConnectionString = "Driver={sql server};server=JSZX3-11;uid=sa;pwd=;database=wzc"

conn.ConnectionTimeout = 30

conn.Open

rs.Open "select 用户名,密码 from login where 用户名='" Trim(Combo1.Text) "' And 密码='" Trim(Text1.Text) "'", conn, adOpenStatic, adLockReadOnly, adCmdText

If rs.EOF = True And rs.BOF Then

m = MsgBox("请重新登录", vbExclamation)

Text1.Text = ""

Text1.SetFocus

Else

Form1.Hide

End If

rs.Close

这是第二种方法连接数据库的方法，这一种方法是采用有源的方法与数据库连接的方法，代码如下所示：

Set conn = New ADODB.Connection

Set rs = New ADODB.Recordset

conn.ConnectionString = "DSN=login;uid=sa;pwd=;"

conn.ConnectionTimeout = 30

conn.Open

rs.Open "select 用户名 from login", conn, adOpenStatic, adLockReadOnly, adCmdText

Dim i As String

For t = 0 To Val(rs.RecordCount) - 1

i = Trim(rs.Fields("用户名").Value)

rs.MoveNext

Combo1.AddItem i

Next t

rs.Close

连接数据库的方法很多很多，只要各位去勇敢的偿试一下，就可以感觉数据库的方法并不是很难，本人以前也很想做这方法的工作，只是学识不深，未能完成胸中大志，如今对这些方法的多少有一些了解，特意为那些初学者以供学习之用。

vb连接sqlserver

在系统中建立ADO公共查询模块

Public Function ExecuteSQL(ByVal SQL _

As String, MsgString As String) _

As ADODB.Recordset '执行SQL语句并返回Recordset对象

Dim cnn As ADODB.Connection

Dim rst As ADODB.Recordset

Dim sTokens() As String

On Error GoTo ExecuteSQL_Error

sTokens = Split(SQL)

Set cnn = New ADODB.Connection

cnn.Open CONN

'打开连接

If InStr("INSERT,DELETE,UPDATE", _

UCase$(sTokens(0))) Then

cnn.Execute SQL

MsgString = sTokens(0) _

" 查询成功"

Else

Set rst = New ADODB.Recordset

rst.Open Trim$(SQL), cnn, _

adOpenKeyset, _

adLockOptimistic

Set ExecuteSQL = rst

MsgString = "查询到" rst.RecordCount _

" 条记录 "

'获取记录的条数

End If

ExecuteSQL_Exit:

Set rst = Nothing

Set cnn = Nothing

Exit Function

ExecuteSQL_Error:

MsgString = "查询错误: " _

Err.Description

Resume ExecuteSQL_Exit

End Function

然后再应用模块中就可以使用

Dim txtSQL As String

Dim mrc As ADODB.Recordset

Dim MsgText As String

txtSQL = "select * from ... "

Set mrc = ExecuteSQL(txtSQL, MsgText)

查询了

vb和sqlserver中的datetime

第一种方法：Format

Call openRs("SELECT TT FROM TB")

Rs.MoveNext

Text3.Text = Format(Rs.Fields("TT"), "HH:MM:SS")

第二种方法：CONVERT

Call openRs("SELECT CONVERT(VARCHAR(10),TT,108) TT FROM TB")

Rs.MoveNext

Text3.Text = Rs.Fields("TT")

关于SQL和VB的一些区别？

这两门课都是关于软件开发的或者说程序开发的,在计算机专业这是

专业课,而且很重要,sql我不知你指的是sql语言还是微软的sql

server

数据库,我假设为前者,那么sql就是关于数据库开发的语言,vb是传统的程序开发语言,从这一点看,它们都是计算机开发语言,都是用来写程序的.

只是它们面对的方向不同,很久以前的程序都很小,要处理的数据也很少,一般存到文件了里就可以了,而现在的程序不象以前,现在的程序要处理的数据十分庞大,动不动就几万至几十万条,这个时候,就需要把数据分类出来,由一个专门的软件:数据库软件来管理,sql就是数据库软件里用的操作数据的语言,而vb就是开发我们通常说的程序的一们语言,与他一个层次的还有c++,java等,而sql是各个数据库管理软件都遵守的标准语言,不论是oracle,sqlserver,还是其他的,都能可以执行sql语句,只是这些数据库管理软件sql的基础上扩充了一些功能而已,

求助达人 关于VB 连接SQLSERVER以及 错误91

类模块程序有错误，加上下面两句就行：

Public Sub openconn()

If sqlconn Is Nothing = True Then

Set sqlconn = New ADODB.Connection

Set rs = New ADODB.Recordset '=================

End If

If sqlconnstate 1 Then

sqlconn.Open sconn

End If

End Sub

Public Sub closeconn()

If sqlconn.State = 1 Then

sqlconn.Close

End If

End Sub

Public Function runselectsql(ByVal ssqlstring As String) As ADODB.Recordset

Me.openconn

rs.Open ssqlstring, sqlconn, adOpenStatic, adLockReadOnly '/*这里为出现错误91的地方*/

Set runselectsql = rs '=================

End Function

分享名称：vb和sqlserver的简单介绍
路径分享：http://pwwzsj.com/article/dsschgc.html