vb连接sql数据库 vb链接sql

VB 远程访问SQL SERVER数据库

WordTemps.Selection.TypeText AdoRs!规格

我曾经试用几个方法。

vb连接sql数据库 vb链接sql

vb连接sql数据库 vb链接sql

2.将程序打包成CAB，做成BS结构的。通过ADO的远程组件RDS进行连接。详细的自己百度吧。不过这个对一般人来说有点难度。

3.可以在做一个服务端，通过WINSOCK组件，传送字串，也能实现此功能。

这个问题是这样的，用户权限不够,密码可能不同。。。确认数据库混合登录模式的情况下，

上设一个USERS用户，加上密码，在客户机这边也加一个相同名字的，也加上相同的密码

当然您也可以用权限更大的比如administrator。一般来说，USERS用户没有其它权限，相对电脑在网络上要安全，又能访这是以上是通用的连库代码。其实你2个问题，只需要改一个地方。最简单的处理方式。问SQL

xp 用户加USERS用户，要在控制面板，管理工具，电脑管理-用户里边加。

这个问题是这样的，用户权限不够,密码可能不同。。。确认数据库混合登录模式的情况下，

上设一个USERS用户，加上密码，在客户机这边也加一个相同名字的，也加上相同的密码

当然您也可以用权限更大的比如administrator。一般来说，USERS用户没有其它权限，相对电脑在网络上要安全，又能访问SQL

xp 用户加USERS用户，要在控制面板，管理工具，电脑管理-用户里边加。

VB的ADO连接SQL数据库读取存储过程时显示超时，为什么啊？

其实就是因为你没有设置记录源.

"Persist Security Info=False; " & _

这样就可以用此用户登录了。

"Connect Timeout=2;" & _

"User ID=safrom; " & _

"password; " & _

"Initial Catalog=UFSystem; " & _

"Data Source="

如果数据量过大的时候经常会超时的

你可以通过设置Connect Timeout来改变超时时间

vb中数据库联系失败

另外,团IDC网上有许多产品团购,便宜有

右击ADODC，属性，记录源，选择 adcmdtable ，再在下面选择你要连接的数据库的表。

dbpw

也可以编cnn.Open "Provider=SQLOLEDB.1; " & _程设置的。

一般都用adCmdTable的命令类型直接于表相连接

同意

有关vb连接sql数据库的问题

cnstr

不知道你需要连的是哪个数据库，我以SQLSERVER数据库为例子

1、SqlConnection类位于名称空间System.Data.Sql,所以先using System.Data'通过菜单[工程] -- [引用]，勾选 Microsoft ActiveX Data Object 2.6 Library.Sql

2、Dim sqlConnection1 As Sql.SqlConnection

Dim strConnect As String=”data source=名;initial catalog=数据库名;user id=sa;password=;”

sqlConnection1.open ‘打开数据库

sqlConnection1.close ‘关闭连接，释放资源

第二个问题，同样也是改data sour2，ConnectString是一个变量的名称；ce=名;改为data source=192.168.1.1

同理，initial catalog=数据库名根据是实际的改，个问题改成initial catalog=publs

第二个问题改成initial catalog=

vb 求教连接读写sql server 2012数据库,要源码

oleDbConnection1= New System.Data.OleDb.OleDbConnection(strConnect)

Option Explicit

rs.open

Public Const Conn As String = "Provider=SQLOLEDB.1;Persist Security Info=False;" & _

"User ID=sa;PWD=123;Initial Catalog=;Data Source=127.0.0.1"

Private IsConnect As Boolean 判读数据库是否链接

Private cnn As ADODB.Connection 链接数据库的connection对象

Private rs As ADODB.Recordset 保存结果集的recordset对象

数据库链接程序

Public Sub Db_Connect()

如果链接标记为真 返回

If IsConnect = True Then

Exit Sub

End If

关键字New用来创建新对象cnn

Set cnn = New ADODB.Connection

设置cnn的链接字符串的connectstring属性

cnn.ConnectionString = Conn

打开数据库

cnn.Open

判断链接状态

If cnn.State <> adStateOpen Then

如果不成功 显示提示 退出程序

MsgBox "链接数据库失败"

End

End If

设置链接标记 表示已经链接到数据库

IsConnect = True

断开数据库的链接程序

Public Sub Db_Disconnect()

如果链接标记为，表明已经断开 直接返回

If IsConnect = False Then

Exit Sub

End If

关闭链接

cnn.Close

设置链接标记，表明已经断开链接

IsConnect = F断开与数据库的连接alse

'只用来执行Insert，update，delete语句

Public Sub sqlExt(tmpSql As String)

创建command对象cmd

Dim cmd As New ADODB.Command

连接到数据库

DbConnect

设置cmd的ActiveConnection属性，指定其关联的数据库链接

Set cmd.ActiveConnection = cnn

设置要执行的命令文本

cmd.CommandText = tmpSql

执行命令

清空cmd对象

Set cmd = noting

Db_Disconnect

执行数据库查询程函数

Public Function QueryExt(tmpSql As String) As ADODB.Recordset

创建recordset对象rst

Dim rst As New ADODB.Recordset

链接到数据库

Db_Connect

设置rst的ActiveConnection属性，指定与其关联的数据库连接

Set rst.ActiveConnection = cnn

设置游标类型

rst.CursorType = adOpenDynamic

设置锁定类型

rst.LockType = adLockOptimistic

打开记录集

rst.Open tmpSql

返回记录集

Set QueryExt = rst

End Function

关于asp 用VB连接sql server数据库（100分）在线等

'你给出的参数，少了一个“SQL计算机名称”，下面我用了6个问号，你根据你的具体情况修改

2、在SQL Enterprise mar里打开“安全性”文件夹，右击“登录”，选择“新建登录……”。“常规”选项卡，“名称”填HP-2V47VI88M4GBASPNET，其他默认；“数据库访问”选项卡，指定访问的数据库，我指定的是Northwind数据库，然后给他赋权限：dbo,public就够了。

str = "server=.;User ID=sa;pwd="";Catalog=表名称;Data Source=数据库名称"

Dim conn As New SqlConnection(str)

co&dbpwnn.Open()

Dim cmd As New SqlCommand("select在ADODC的属性页中选择记录源,这个里面有4种命令类型.. from categories", conn)

Dim dr As SqlDataReader = cmd.ExecuteReader()

DataGrid1.DataSource = dr

DataGrid1.DataBind()

str = "server=.;uid=sa;pwd=;datebase=northwind"

VB中SQL数据库怎么连接不上？

WordTemps.Selection.TypeText AdoRs!数量

改成对于跨网段连接数据库，用VB来实现的确是强人意。：

ConnectionStringsource=" = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;User ID=sa;Password=;Initial Catalog=Conn;Data Source=PC-201103110958"

vb2015连接数据库SQL2012代码

Set cn = New ADODB.Connection

1、 用The SQL .NET Data Provider连接数据库

WordTemps.Selection.TypeText fromat(Now, "yyyy-mm-dd")

The SQL .NET Data Provider是利用SqlConnection类来连接SQL 7.0或更高版本的数据库，

SqlConnection类位于名称空间System.Data.Sql下。

连接代码：

Dim sqlConnection1 As Sql.SqlConnection

Dim strConnect As String=”data source=名;initial catalog=数据库名;user id=sa;password=;”

sqlConnection1.open ‘打开数据库

sqlConnection1.close ‘关闭连接，释放资源

2、 用The OLE DB .NET Data Provider连接数据库

上面已经说过，利用The OLE DB .NET Data Provider可以访问Access、Oracle和SQL 等种数据

库，那么，它是怎样访问这些数据库的呢？The OLE DB .NET Data Provider是通过位于名称空间Sy

stem.Data.OleDb类库下的OleDbConnection类来连接这三种不同类型的数据库的。下面举例说明:

1)连接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)

2)连接Access数据库

设要连接的Access数据库名为“Example.mdb”，存放在d:Data目录下。

Dim oleDbConnection1 As OleDb.OleDbConnection

3)连接Oracle数据库

Dim oleDbConnection1 As OleDb.OleDbConnection

Dim strConnect As Sting=”Provider=MSDAORA;Data Source=名;User ID=用户ID;Password=密码;”

3、 用The ODBC .NET Data Provider连接数据库

The ODBC .NET Data Provider连接数据库是通过OdbcConnection类来实现的，这个类位于名称空间

Microsoft.Data.Odbc下，而名称空间Microsoft.Data.Odbc是封装在Microsoft.Data.Odbc.dll文件下的。

由于篇幅有限，这里就只介绍连接Sql 和Oracle数据库的方法，其他数据库的连接方法基本类

似，我就不再多讲了。

1)连接Sql 数据库

Dim strConnect As Sting=”Driver={SQL };=名;Uid=sa;pwd=;Database= 数据库名;”

odbcDbConnetion1=New Microsoft.Data.OdbcConnection(strConnect)

2)连接Oracle数据库

Dim strConnect As Sting=”Driver={Microsoft ODBC for Oracle};=名;Uid=sa;pwd=;”

odbcDbConnetion1=New Microsoft.Data.OdbcConnection(strConnect)

四、总结

通过本文的介绍，读者基本掌握了在Visual Basic.NET中用ADO.NET和ODBC.NET连接各种数据库的方法

。以上三种驱动针对不同的数据库，它们的性能方面也有很大的不同：The SQL .NET Data Provider

的效率；The OLE DB .NET Data Provider的效率比较底；The ODBC .NET Data Provider的效率最慢。

Dim cn As Sql.SqlConnection

Dim da As Sql.SqlDataAdapter

Dim ds As Dat例如：a = 12 + 18aSet

Dim strSQL As String

strSQL = "select from test”

Dim cnStr As String = "Data Source=名（或IP）;Initial Catalog=数据库名;Persist Security Info=false;User ID=sa;Password=123456;"

da = New Sql.SqlDataAdapter(strSQL, cn)

ds = New DataSet()

da.Fill(ds, strSQL)

DataGridView1.DataSource = ds.Tables(strSQL) '打开数据库

VB6.0连接SQL数据库，并读取某表格的数据出来？？？

'使用ADODB对象，必须先进行对象模型的引用，步骤如下

'Microsoft ActiveX Data Object 2.7 Library

'Microsoft ActiveX Data Object 2.8 Library

'都可以

代码以及注释如下：

Dim Conn As ADODB.Conn1、在SQL 创建 “电脑名ASPNET”用户。比如我创建HP-2V47VI88M4GBASPNETection '声明连接数据库对象 -- 用来连接数据库文件，并对数据库以及数据表的作

Dim Rst As ADODB.Recordset '声明数据记录集对象 -- 用来返回数据记录集，并对记录的作

Set Conn = New ADODB.Connection '数据库对象的实例化

Set Rst = New ADODB.Recordset '记录集对象的实例化

'二，连接数据库文件

'执行 ADODB.Connection对象的Open方法，完成数据库的连接

Conn.CursorLocation = adUse

'"Provider=SQLOLEDB.1;Password=登录SQL的密码;Persist Security Info=True;User ID=SQL数据库实例名;Initial Catalog=数据库名;Data Source=SQL计算机名称"

Conn.Open "Provider=SQLOLEDB.1;Password=123;Persist Security Info=True;User ID=Sa;Initial Catalog=2013data;Data Source=??????"

'三，返回记录集

'执行 ADODB.Recordset对象的Open方法，获得记录集

Rst.Open "Select num1,num2 From ic

", Conn, adOpenKeyset, adLockPessimistic

'将返回的记录集显示到Dat这是你的ADODC没有设置好数据源。aGrid1

Set DataGrid1.DataSource = Rst

Set Rst = Nothing '释放记录集对象

S链接数据库的字符串et Conn = Nothing '释放数据库对象