㈠ 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数据库
1、打开代码窗口，添加引用：Imports System.Data.SqlClient。
㈢ 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数据库呀
你用ADO试试，那个更方便，给你连库参考代码供调试：
Public Cnn As New ADODB.Connection
Cnn.ConnectionString = "Driver={SQLServer};Server=ZIYA\ZSSDBA;Database=db_Mtjk;Uid=sa;Pwd=sa"
Cnn.Open
这个我多年来都这么用，没错！
其中Server=ZIYA\ZSSDBA这是你启动sqlserver能看到，如实写
Database=是你的数据库名称
Uid=sa;Pwd=sa"这是你数据库的用户名和密码
数据库连起来后还需对表操作，建议还用ADO
这里几句话肯定是不够的，只起到抛砖引玉的启发作用，你需要有一本VB数据库开发的书在手头。开始感到很恼火，连通以后就越做越轻松了！
㈤ VB怎么连接MSSql数据库
要连接SQL数据库有两种方法用ADODC或ADO。
方法一:
（ADODC)
首先须引用Projects-Components-Microsoft
ADO
Data
Controls
6.0
(OLEDB)。
之后在表单设置ADODC控件。然后Form_Load()输入以下代码：
Private
Sub
Form_Load()
ADODC1.ConnectionString
=
"Provider=SQLOLEDB;Password=密码;Persist
Security
Info=False;User
ID=用户名;Initial
Catalog=数据库名;Data
Source=服务器名"
ADODC1.CommandType
=
adCmdText
ADODC1.RecordSource
=
"select
*
from
表格名称"
ADODC1.Refresh
End
Sub
方法二:
(ADO)
首先须引用Projects-References-Microsoft
Active
X
Data
Objects
2.0
Library。
注意以下两段须写在程式最上面（Gerenal一般）中。
Dim
cn
As
New
ADODB.Connection
Dim
rs
As
New
ADODB.Recordset
Dim
SQL
As
String
然后在Form_Load()输入以下代码：
Private
Sub
Form_Load()
cn.ConnectionString
=
"Provider=SQLOLEDB;Password=密码;Persist
Security
Info=False;User
ID=用户名;Initial
Catalog=数据库名;Data
Source=服务器名"
cn.Open
If
rs.State
=
adStateOpen
Then
rs.Close
rs.CursorLocation
=
adUseClient
SQL
=
"select
*
from
表格名"
rs.Open
Trim$(SQL),
cn,
adOpenKeyset,
adLockPessimistic
End
Sub
㈥ vb怎么连接sql
一、配置ODBC数据源
1、在控制面板中，双击管理工具，然后打开ODBC数据源管理器。
2、在“系统DSN”选项卡中，单击“添加”按钮，打开“创建新数据源”对话框，在“名称”列表框中选择“SQL Server”。选好单击完成
3、在打开“建立新的数据源到SQL Server”对话框，在“名称”文本框输入新数据源的名称，描述数据源按理解的方式来写(随意)。“服务器”就选择要连接到的服务器。
4、选择使用用户输入登录的ID和密码的SQL 验证
。选连接SQL默认设置
5、再下一步下一步，完成。测试数据源看连接是否成功就行了。成功后按确定。
二、VB中设置连接
1、添加部件Mircrosoft ADO Data Control 6.0(OLEDB),把部件拖到窗体。
2、对ADO部件点右键选属性，选择使用连接字符串，按生成。
3、选择Mircosoft OLE DB Providar for SQL Server
按下一步
1、输入服务器名称
2、使用指定的服务器信息
3、在服务器上选择数据库
这时就选择在SQL Server建好的数据库就行了
5、测试连接可以看到连接是否成功。
㈦ SQL数据库是怎么和VB做的系统连接的
你在vb中添加一个 micsoft AOD Data control 6.0 步骤： 工程——部件 —— 再找到 micsoft AOD Data control 6.0 然后如图所示在form 窗体添加Adodc1控件——右击Adodc1控件选择ADODC属性 ——点击生成——选择 micsoft jet 4.0 OLE DB Provider —— 选择你要连接到数据库——测试连接——确定——选择记录源——选择2—— adcmdTABLE ——选择你要用的表 就OK 了 有点复杂吧。。
㈧ 在VB程序中怎么样能与SQL数据库相连
这是用DAO 打开access数据库：
首先在 “工程－引用”选择microsoft DAO 3.6 Object Library，将数据库保存在工程所保存的文件夹内
然后代码如下：
dim db1 As Database
dim rs1 as recordset
Set db1 = OpenDatabase(App.Path & "\db1.mdb", False, False, ";Pwd=111")'假设数据库名为db1.mdb，数据库密码为111。这样db1就连接上数据库db1.mdb了。下面代码继续对数据库操作
set rs1=db1.openrecordset("select * from 表1") 'rs1 连接上表1
rs1.movefirst '移到表的第一条记录
rs1.edit
rs1("姓名")="张三"
rs1.update '这样就修改了第一条记录的姓名字段为“张三”
㈨ 用SQL怎么建立数据库，然后再和VB编的程序连接急求解！！！
SQL？sql server？那就下载个工具，再按照步骤创建数据库。这个很简单，一看就会。
VB链接数据库的话，有两种方法。
第一，用语句创建。涉及JDBC驱动，ADODB类中一些过程的调用，还是挺麻烦的
第二，用ADODC控件来连接数据库。只需要在控件里设置少部分内容，就可以实现与数据库的链接。另外，可添加DATAGRID控件来显示数据库中表的内容。
我推荐楼主先用第一种方法来搞！毕竟，控件再方便，也只是集成了这些语句而已，为了自己好，还是多写几句，肯定没坏处！
对于第二种方案，楼主有需要的话我可以贡献我的毕设给你看，是access数据库跟VB链接的。[email protected]
㈩ 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