在web.config中配置：
’连接Oracle
Dim strConnect As String = System.Web.Configuration.WebConfigurationManager.ConnectionStrings("conn").ToString()
Dim conn As OleDb.OleDbConnection = New System.Data.OleDb.OleDbConnection(strConnect)
’返回数据
Public Function getTable(ByVal sql)
conn.Open()
Dim comm As OleDb.OleDbCommand = New OleDb.OleDbCommand(sql, conn)
Dim da As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter(comm)
Dim dt As System.Data.DataTable = New System.Data.DataTable()
da.Fill(dt)
conn.Close()
Return dt
End Function
’返回受影响的行数
Public Function impactDate(ByVal sql)
conn.Open()
Dim comm As OleDb.OleDbCommand = New OleDb.OleDbCommand(sql, conn)
Dim i As Integer = comm.ExecuteNonQuery
Return i
End Function
取消
评论

不知道你为什么要用ADOC来配置...直接用VB代码就OK了。
公共模块：
Private Function Selectsql(SQL As String) As ADODB.Recordset '返回ADODB.Recordset对象
Dim ConnStr As String
Dim Conn As ADODB.Connection
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Set Conn = New ADODB.Connection
'On Error GoTo MyErr:
ConnStr = "Provider=SQLOLEDB.1;Persist Security Info=True;User ID=登录数据库用户名(默认为sa);Password=登录数据库密码;Initial Catalog=数据库名;Data Source=服务器名(IP地址)" '这是连接SQL数据库的语句
Conn.Open ConnStr
rs.CursorLocation = adUseClient
rs.Open Trim$(SQL), Conn, adOpenDynamic, adLockOptimistic
End Function
调用：
SQL = "SELECT * FROM 用户表 WHERE 用户名='" & Combo1.Text & "' AND 密码='" & Text1.Text & "' "
Set rs = Selectsql(SQL)
取消
评论

你的位置:
问答吧
->                    VB
->                    问题详情
vb程序远程连接sql数据库时好时坏的问题！
不知为何，我的程序远程连接数据库时经常会出问题，有时非常正常，速度和本地用户差不多，而有时则不管是查询还是更新都非常慢，甚至一天里还要出现几十次掉线的情况。掉线时有两种提示，
一是：超时已过期。
二是：运行时错误'-2147467259(80004005)' [DBENTLIB][ConnectionRead(recv()).]一般性网络错误。请检查网络文档。
以下是我的连接语言，我是在主窗体里设置了一个全局的FwqSource ，然后其他所有的地方都用这里的,本来cn是定义在过程中的，需要时定义再打开，用完了就关闭，老是掉线后改成了全局的，在主窗体里就打开连接，关闭软件时才关闭连接，但这两种方法都会掉线。
FwqSource = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=Name;password=Pass;Initial Catalog=SS;Data Source=" & ServerName
cn.ConnectionTimeout = 200
cn.Open MDIForms.FwqSource
cn.CommandTimeout = 200
方法试了好多，掉线情况一直存在，情况好时一天可能就掉一两次，多时上百次，都要疯了。。。
有请高手帮忙！！谢谢！
作者: qpalzmn001
发布时间: 2011-08-12
最恶心的时每天时偶尔会出现那到一两次在保存时出错，结果单据只保存了一半。。。。查起来非常麻烦
作者: qpalzmn001
发布时间: 2011-08-12
在调试环境下，提示二出现在 rs.Open SQL, cn, adOpenKeyset, adLockOptimistic
上，手动跳过后，再进行其他的数据库操作都提示连接失败。好像是cn被断开了，是否是我只共用一个cn连接的原因？但以前不共用一个cn,而是需要时才打开一个cn，用完了就关闭也是经常掉线，提示一和提示二都有。
作者: qpalzmn001
发布时间: 2011-08-12
用b/s方式来做吧
作者: jhone99
发布时间: 2011-08-12
网络问题。。。。
作者: chenyujian1987
发布时间: 2011-08-12
网络应该没问题，让电信的都来查过了，也换过路由器了
作者: qpalzmn001
发布时间: 2011-08-12

以下是我刚遇到同时得到解决的问题，希望对有些朋友有所帮助。
运用VB远程访问SQL数据库过程中出现的错误及解决方法：
首先，连接字符串错误，改正字符串内容为：
“driver={sql server};server=" & dns & ";database=ParkingChargeSQL;user ID=chai;PWD=chai；”
其中，dns =InputBox("输入数据库的DSN服务器：", "DSN服务器", App.Path)
其次，出现SQL拒绝访问的问题，解决方法：在连接字符串中加上语句“Network Library=dbmssocn；”
第三，出现1433端口检测失败的错误。解决方法：
下载SQL SP4补丁安装后即可解决。
最后，出现一般性网络错误。解决方法：
  在企业管理器中  
  --右键你的服务器实例(就是那个有绿色图标的)  
  --编辑SQL  Server注册属性  
  --选择"使用windows身份验证"     
  --选择"使用SQL  Server身份验证"  
  --登录名输入:sa,密码输入sa的密码  
  --确定