vbsql实例连接
'使用ADODB对象，必须先进行对象模型的引用，步骤如下
'通过菜单[工程] -- [引用]，勾选 Microsoft ActiveX Data Object 2.6 Library
'Microsoft ActiveX Data Object 2.7 Library
'Microsoft ActiveX Data Object 2.8 Library
'都可以
完整的代码以及相关注释如下：（代码完全可以复制使用）
需要在窗体上添加一个按钮和一个DataGrid1控件
Option Explicit
Private Sub Command1_Click()
'>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>基本知识>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
'ADODB对象模型，是VB用来操作数据库的有力工具，其中两个对象最有价值；
'1.ADODB.Connection -- 用来连接数据库文件:
'主要完成对数据库以及数据表的操作；比如：创建数据库，创建、删除、复制数据表等等。
'2.ADODB.Recordset -- 用来返回数据记录集:
'主要完成对记录的操作；比如：返回记录，添加、删除记录等等。使用SQL语句可以实现强大的功能。
'下面简单介绍使用ADODB对象进行数据库操作的步骤
'一，声明并实例化对象
Dim Conn As ADODB.Connection '声明连接数据库对象 -- 用来连接数据库文件，并对数据库以及数据表的操作
Dim Rst As ADODB.Recordset '声明数据记录集对象 -- 用来返回数据记录集，并对记录的操作
Set Conn = New ADODB.Connection '数据库对象的实例化
Set Rst = New ADODB.Recordset '记录集对象的实例化
'二，连接数据库文件
'执行 ADODB.Connection对象的Open方法，完成数据库的连接
Conn.CursorLocation = adUseClient
'注意下面的一些参数，需要根据使用者的特定情况进行修改
'Password=密码 中的“密码”，是登录SQL SERVER 的密码
'User ID=实例名 中的“实例名”，是SQL SERVER 的实例名，一般使用“sa”
'Initial Catalog=数据库名 中的“数据库名”，只你要访问的数据库名
'Data Source=SQL SERVER服务器名 中的“SQL SERVER服务器名”是你要访问使用的安装了SQL SERVER的服务器计算机名
Conn.Open "Provider=SQLOLEDB.1;Password=密码;Persist Security Info=True;User ID=实例名;Initial Catalog=数据库名;Data Source=SQL SERVER服务器名"
'三，返回记录集
'执行 ADODB.Recordset对象的Open方法，获得记录集
'注意，把“数据表名”改为你的实际数据表名称
Rst.Open "Select * From 数据表名", Conn, adOpenKeyset, adLockPessimistic
Set DataGrid1.DataSource = Rst
Set Rst = Nothing '释放记录集对象
Set Conn = Nothing '释放数据库对象
End Sub
Ⅱ VB如何连接SQL数据库
一个用VB连接SQL数据库连接的模块2007年01月22日 星期一 下午 05:29下面是一个连接数据库的模块，大家可以使用它来连接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
只要在你的标准模块中加入该代码，你就可以使用其中的函数来连接数据源了。
Ⅲ vb如何和SQL连接起来，告急
Vb6.0连数据库
1.1 ADO(ActiveX Data Object)连接方式
在连接数据库前，首先要在Visual Basic 6.0菜单中“工程”—>“引用”中选择Microsoft ActiveX Data Objects 2.6 Library 和Microsoft ActiveX Data Objects Recordset 2.6 Library这两个组件。
实例：以建立登陆系统为例，介绍无源数据库连接。在Microsoft SQL Server 2000 中建立一个Student 的数据库，在Student数据库中建立login_user(name,password)的数据表，Microsoft SQL Server服务器的名为data_server。代码如下：
Option Explicit
Public LoginSucceeded As Boolean
'引用Microsoft ActiveX Data Objects 2.6 Library
'定义连接对象和记录集
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
'对取消按钮单击事件的响应
Private Sub cmdCancel_Click()
'设置全局变量为 false
'不提示失败的登录
LoginSucceeded = False
Me.Hide
End Sub
'对登录按钮单击事件的响应
Private Sub cmdOK_Click()
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
'建立无源数据库连接
conn.ConnectionString="driver={sql server};server=data_server;uid=sa;pwd=;Database=student"
conn.ConnectionTimeout = 50
conn.Open
Dim str As String
'连接连接对象
Set rs.ActiveConnection = conn
'设置游标类型
rs.CursorType = adOpenDynamic
If Trim(txtUserName.Text = "") Then
MsgBox "用户名不能为空，请重新输入用户名！", vbOKOnly + vbExclamation, "警告"
txtUserName.SetFocus
Else
'设置查询字符串
str = "select * from login_user where name ='" & Trim(txtUserName.Text) & "'"
rs.Open str
If rs.EOF = True Then
MsgBox "没有这个用户，请重新输入用户名!", vbOKOnly + vbExclamation, "警告"
txtUserName.SetFocus
Else
'登录成功，连接主窗口
If (Trim(txtPassword.Text) = Trim(rs.Fields("password"))) Then
LoginSucceeded = True
Me.Hide
main.Show
Else
MsgBox "密码不正确，请重输入密码!", , "警告"
txtPassword.SetFocus
SendKeys "{Home}+{End}"
End If
End If
End If
End Sub
2 通过配置ODBC环境，进行数据源的注册，对数据库进行连接、访问和操作。
2.1 ODBC数据源分为以下三类：
（1） 用户DSN：只有创建数据源的用户才可以使用他们自己创建的数据源，而且只能在当前的计算机上使用。
（2） 系统DSN：任何使用你的计算机的用户和程序都可以使用的DSN。
（3） 文件DSN：除了具有系统DSN的功能之外，还能被其它用户在其它计算机上使用。
2.2 创建ODBC数据源的步骤
（1） 启动控制面板。
（2） 双击ODBC图标，启动ODBC数据源。
（3） 换到“用户DSN”标签，单击“添加”。选择SQLServer作为数据源的驱动程序。
（4） 为数据源命名，按提示操作即可创建ODBC数据源。
2.3 创建数据库连接
创建数据源是进行有源数据库连接的第一步，下面同样是运用ADO对象模型的主要元素Connection（连接）进行源数据库连接。
ConnectionString是Connection对象的属性名称，提供数据提供者或服务提供者打开到数据源的连接所需要的特定信息，包括Database、DSN、UID等。
（1） Database：字符串表达式，指定服务器上的数据库名称。
（2） UID：字符串表达式，为ODBC数据源指定用户标识（用户账号名）。
（3） PWD：字符串表达式，为ODBC数据源指定用户口令。
（4） DSN：字符串表达式，指定连接的ODBC 数据源名称。
利用已配置好的ODBC数据源进行连接。
实例：以建立查询系统为例，介绍有源数据库连接。创建ODBC数据源名称为stud，通过ADO与数据库student进行连接，代码如下：
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Private Sub Form_Load()
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.ConnectionString = "dsn=stud;uid=sa;pwd=;database=student"
conn.Open
Dim str As String
Set rs.ActiveConnection = conn
rs.CursorType = adOpenDynamic
str = "select * from login_user"
rs.Open str
txtUserName.Text = rs.Fields("name")
txtPassword.Text = rs.Fields("password")
End Sub
Ⅳ VB6.0 如何连接SQL 数据库
你在SQL SERVER中新建一个数据库，然后将这个数据库生成脚本文件，根据情况修改后转存为MASTER下的一个存储过程。至于数据库名和数据文件路径可以做成参数传入，然后在VB中用连到MASTER后执行这个存储过程。
用VB与建立的SQL数据库连接
1.使用ODBC DSN连接字符串
DSN=mySystemDSN;Uid=myUsername;Pwd=myPassword
----------------------------------------------
2.使用无ODBC DSN的连接字符串
(1)标准安全性
Driver={SQL Server};Server=MyServerName;DataBase=myDatabaseName; _
Uid=myUsername;Pwd=myPassword
------------------------------------------------
(2)信任连接(分两种）
1）连接字符串1
Driver={SQL Server};Server=MyServerName;DataBase=myDatabaseName;Uid=;Pwd=；
2）连接字符串2
Driver={SQL Server};Server=MyServerName;DataBase=myDatabaseName;Trusted_Connection=yes
---------------------------------------------------------------------------
(3)连接本地SQL SERVER
Driver={SQL Server};Server=(local);DataBase=myDatabaseName; _
Uid=myUsername;Pwd=myPassword
-------------------------------------------------------------
(4)连接远程SQL SERVER
Driver={SQL Server};Server=xxx.xxx.xxx.xxx; _
Address=xxx.xxx.xxx.xxx,1433; _
Network=DBMMSOCN;DataBase=myDatabaseName; _
Uid=myUsername;Pwd=myPassword
-------------------------------------------------------
3.使用OLEDB PROVIDER FOR SQL SERVER的连接字符串
(1)标准安全性
Provider=SQLOLEDB.1; _
Password=myPassword; _
User ID=myUsername; _
Initial Catalog=myDatabaseName; _
Data Source=MyServerName
-------------------------------------------
(2)信任连接
Provider=SQLOLEDB.1; _
Initial Catalog=myDatabaseName; _
Data Source=MyServerName; _
Integrated Security=SSPI
--------------------------------------
(3)连接到命名实例
Provider=SQLOLEDB.1; _
Initial Catalog=myDatabaseName; _
Data Source=myServerName\myInstanceName; _
Password=myPassword; _
User ID=myUsername
--------------------------------------
(4)连接到本地SQL SERVER
Provider=SQLOLEDB.1; _
Password=myPassword; _
User ID=myUsername; _
Initial Catalog=myDatabaseName; _
Data Source=(local)
-----------------------------------------
（5）连接到远程SQL SERVER
Provider=SQLOLEDB.1; _
Netwprk Library=DBMMSOCN; _
Data Source=xxx.xxx.xxx.xxx,1433; _
Password=myPassword; _
User ID=myUsername; _
Initial Catalog=myDatabaseName;
Ⅳ vb如何连接sql数据库
1、打开代码窗口，添加引用：Imports System.Data.SqlClient。
Ⅵ 如何将VB和SQL数据库进行连接
Dim
oleDbConnection1
As
OleDb.OleDbConnection
Dim
strConnect
As
Sting="Provider=SQLOLEDB；Persist
Security
Info=False；
Data
Source=服务器名；Initial
Catalog=数据库名；User
ID=sa；Password=；"
oleDbConnection1=New
System.Data.OleDb.OleDbConnection（strConnect）
填上的服务器名
和数据库名
用户名
和密码
后用这个语句可以进行连接
Ⅶ vb如何连接sql数据库,求源码
Public My_Cnn As New ADODB.Connection '连接数据库
StrCnn = "Provider=SQLOLEDB.1;Password=密码;Persist Security Info=True;User ID=用户名;Initial Catalog=数据库名;Data Source=服务器名"
My_Cnn.CursorLocation = adUseClient
My_Cnn.Open StrCnn
使用数据库
Dim sql As String
Dim My_temp As New ADODB.Recordset
执行SQL语句（一般插入，删除数据）
sql = "数据库语句"
My_cnn.Execute sql
读取数据
sql = "查询语句"
My_temp.Open sql, My_cnn, adOpenDynamic, adLockOptimistic
My_temp.field("字段名")
Ⅷ vb怎么连接sql
在窗体上添加adodc控件
鼠标右键-adodc属性-在通用选项卡里，点生成，选for
SQL
Server驱动程序-下一步-连接选项卡里
1.输入服务器名称，2.使用Windows
NT
集成安全设置。3.选择一个数据库
点测试连接，看看是否成功。按确定
点记录源选项卡，命令类型选8，命令文本（SQL）写：select
*
from
table1
确定，就连接到SQL数据库的表table1了。
Private
Sub
Command1_Click()
If
Not
Adodc1.Recordset.EOF
Then
Text1.Text
=
Adodc1.Recordset.Fields("line1")
End
If
End
Sub
Ⅸ 如何用VB实现连接SQL数据库
一是：Public Function ConnectString() _
As String
ConnectString = "Provider=SQLOLEDB;User ID=用户;Password=密码;" & "Data Source=" + IP地址 + ";" & "Initial Catalog=数据库名" _
End Function
二是：
Public Function ExecuteSQL(ByVal SQL _
As String, MsgString As String) _
As ADODB.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 ConnectString
If InStr("INSERT,DELETE,UPDATE", _
UCase$(sTokens(0))) Then
cnn.Execute SQL
MsgString = sTokens(0) & _
" query successful"
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
以上复制到模块“Mole1”中
三是:声明：
Dim ADO1 As Recordset
Option Explicit
Dim MsgText As String
Dim TXTSQL As String
四是：连接
TXTSQL = "select * from 表名"
Set ADO1 = ExecuteSQL(TXTSQL, MsgText)
ADO1.Requery
五是显示字段
Set Text1.DataSource = ADO1
Text1.DataField = "字段"
Set MSHFlexGrid1.DataSource = ADO1