‘壹’ 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
‘贰’ 如何VB连接SQL
用adodc和datagrid控件
‘叁’ vb怎样连接SQL
http://..com/question/124849874.html
http://hi..com/%C2%B7%C4%CF%C6%BD/blog/item/19f7c803f1a9b080d43f7c9b.html
‘肆’ 如何用vb链接sql的数据库
这段代码写在模块中,可以连接一个数据库
Public
DBConnct
As
New
ADODB.Connection
'连接数据库
Public
Function
Connt()
As
Boolean
'数据库连接函数
Dim
splstr
As
String
'App.Path
&
"\db\123.mdb为数据库路径
splstr
=
"Provider=Microsoft.Jet.OLEDB.4.0;Data
Source="
& App.Path
&
"\db\123.mdb"
& ";Persist
Security
Info=False"
DBConnct.Open
splstr
'连接数据库
Connt
=
True
End
Function
‘伍’ 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如何连接
dim
cn
as
adodb.connection
dim
rs
as
adodb.recordset
set
cn=new
adodb.connection
cn.open
"数据库连接套接字"
set
rs=new
adodb.recordset
rs.open
"select
sp
from
b1
where
sno='"+tbox1.text"'",cn,4,2
if
tbox2.text=rs.fields("sp")
then
'登录成功
……
else
'密码错误
……
end
if
set
rs=nothing
set
cn=nothing
‘柒’ 如何将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
问题补充：
“我想知道相对地址连接~~是SQL
移到的机子上不装SQL那怎么办？？”
1、SQL数据库连接必须是服务器，不用地址，因为在安装SQL
Server
2000
后，你的数据库地址已经确定；
2、在一般情况下不安装是不可以的，对于Access数据库现在的操作系统有其驱动，而没有SQL的，除非使用网络，例如局域网。
SQL
SERVER
2000
数据库代码比较简单，无非数据库连接语句不同，其他和Access数据库没有大的区别。
如果“程序要移动到其他机子上”，移动到的机子上必须同样安装SQL
SERVER
2000
数据库，而且服务器名称、数据库名称必须和原服务器名称、数据库名称相同，如果有数据库密码，必须保持一致。
下面是SQL数据库连接代码，请参考：
Public
conn
As
New
ADODB.Connection
conn.ConnectionString
=
"driver={SQL
Server};server=服务器名称;uid=sa;pwd=密码;database=数据库名称"
conn.Open
‘玖’ 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
‘拾’ Sql数据库和vb的连接
'使用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