二次元同好交流新大陆
扫码下载App
温馨提示！由于新浪微博认证机制调整，您的新浪微博帐号绑定已过期，请重新绑定！&&|&&
我与你一起走过,你的快乐就是我的快乐
LOFTER精选
网易考拉推荐
用微信&&“扫一扫”
将文章分享到朋友圈。
用易信&&“扫一扫”
将文章分享到朋友圈。
阅读(4934)|
用微信&&“扫一扫”
将文章分享到朋友圈。
用易信&&“扫一扫”
将文章分享到朋友圈。
历史上的今天
loftPermalink:'',
id:'fks_081074',
blogTitle:'VB数据库连接recordset open的常用方法',
blogAbstract:'VB数据库连接recordset open的语法 22:35ADO常用方法\r\n下面是我所掌握的使用ADO对数据库操作的一些常用方法，主要是提供给初学者作为参考，有不对的地方请指正。如有补充不胜荣幸\r\n准备工作========\r\nDim conn As New&& ADODB.Connection&& \'创建一个 Connection 实例，在这里使用New等于将Dim和Set合并为一段代码执行Dim rs As ADODB.Recordset&&&& \'创建一个 Recordset 实例，不使用New 是因为，经常需要重复使用Set，因此没必要在这里使用Dim CnStr As String, Sql As String&& \'创建两个字符串变量分别存放两个集合的SQL语句代码段',
blogTag:'vb',
blogUrl:'blog/static/',
isPublished:1,
istop:false,
modifyTime:6,
publishTime:8,
permalink:'blog/static/',
commentCount:2,
mainCommentCount:1,
recommendCount:0,
bsrk:-100,
publisherId:0,
recomBlogHome:false,
currentRecomBlog:false,
attachmentsFileIds:[],
groupInfo:{},
friendstatus:'none',
followstatus:'unFollow',
pubSucc:'',
visitorProvince:'',
visitorCity:'',
visitorNewUser:false,
postAddInfo:{},
mset:'000',
remindgoodnightblog:false,
isBlackVisitor:false,
isShowYodaoAd:false,
hostIntro:'我与你一起走过,你的快乐就是我的快乐',
hmcon:'1',
selfRecomBlogCount:'0',
lofter_single:''
{list a as x}
{if x.moveFrom=='wap'}
{elseif x.moveFrom=='iphone'}
{elseif x.moveFrom=='android'}
{elseif x.moveFrom=='mobile'}
${a.selfIntro|escape}{if great260}${suplement}{/if}
{list a as x}
推荐过这篇日志的人：
{list a as x}
{if !!b&&b.length>0}
他们还推荐了：
{list b as y}
转载记录：
{list d as x}
{list a as x}
{list a as x}
{list a as x}
{list a as x}
{if x_index>4}{break}{/if}
${fn2(x.publishTime,'yyyy-MM-dd HH:mm:ss')}
{list a as x}
{if !!(blogDetail.preBlogPermalink)}
{if !!(blogDetail.nextBlogPermalink)}
{list a as x}
{if defined('newslist')&&newslist.length>0}
{list newslist as x}
{if x_index>7}{break}{/if}
{list a as x}
{var first_option =}
{list x.voteDetailList as voteToOption}
{if voteToOption==1}
{if first_option==false},{/if}&&“${b[voteToOption_index]}”&&
{if (x.role!="-1") },“我是${c[x.role]}”&&{/if}
&&&&&&&&${fn1(x.voteTime)}
{if x.userName==''}{/if}
网易公司版权所有&&
{list x.l as y}
{if defined('wl')}
{list wl as x}{/list}用vb.net连接access2010数据库时总是出现“不可识别的数据库格式”所用数据库格式为accdb，怎么解决？求帮助?
按投票排序
Microsoft.Jet.OLEDB.4.0的Oledb的连接方式是比较老的连接方式，而07以后的Oledb连接方式将改成Microsoft.ACE.OLEDB.12.0。改后的连接变成了Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\myFolder\*.Persist Security Info=F我已经验证过了
在access2010保存文件时，点"保存文件并发布" 保存成access2003的格式 .mbd 然后就可以连接了
已有帐号？
无法登录？
社交帐号登录VB语言使用ADO连接、操作SQLServer数据库教程
投稿：junjie
字体：[ ] 类型：转载 时间：
这篇文章主要介绍了VB语言使用ADO连接、操作SQLServer数据库教程,本文讲解详细、代码中有大量注释,是非常好的一篇教程,需要的朋友可以参考下
几年前学过的VB几乎忘光了，这几天复习了下。VB连接ADO数据库并不是非常难。
连接第一步（要仔细看）
对于小白来讲，这里的教程最详细，连接ADO数据库第一步，要添加什么部件呢？全称是Microsoft ADO Data Control 6.0 (SP6) (OLEDB) 部件。
在Microsoft ADO Data Control 6.0 (SP6) (OLEDB)部件里有一个名叫：Adodc数据控件，要将它添加。在Adodc数据控件数据位置中找到ACCES。
控件引用的方法（值指的是姓名）
For i = 1 To Adodc1.Recordset.RecordCount
&&&& If Not Adodc1.Recordset.EOF Then
&&&&& Combo1.AddItem Adodc1.Recordset.Fields("值").Value
&&&&& Adodc1.Recordset.Movenext
该代码引用的编写者是ydl890406大大，在VB群中写这东西时，让我借用了，后来我发现有很多错误，y大神修改几次后的还是有错误，干脆重写了一遍，这就是后来的代码。时间过去的很快，VB群也解散了。后来不知为何，现在很多的教程都用了这段代码。
第二部分是AOD的代码连接，由于第二部分涉及到Recordset对象和Connection对象，自己学一下，完全可以自己编写。
何为Recordset对象和Connection对象，Connection对象是与数据源的连接，Recordset对象是操作数据。
寻找Microsoft ADO Data Control 6.0 (SP6) (OLEDB) 部件
VB用ADO连接SQLServer数据库
'数据源信息常量
Public Const conn As String = "Provider = SQLOLEDB.1;Password = UserID = Initial Catalog = StudentF Data Source = localhost"
Public Const CONNECT_LOOP_MAX = 10 '一次执行connect操作，可以访问数据库的次数
Private IsConnect As Boolean '标记数据库是否连接
Private Connect_Num As Integer '标记执行Connect()函数后访问数据的次数
Private cnn As ADDODB.Connection '连接数据库的Connect对象
Private re As ADDODB.Recordset '保存结果集的Recordset对象
//连接数据库
Private Sub Connect()
'如果连接标记为真，则返回。
IF IsConnect = True Then
Set cnn = New ADODB.Connection '关键new用于创建新对象cnn
cnn.ConnectionString = conn
'判断连接的状态
If cnn.State && adStateOpen Then
MsgBox"数据库连接失败"
'设置连接标识，表示已经连接到数据库
IsConnect = True
'断开与数据库的连接
Private Sub DisConnect()
Dim rc As Long
If IsConnect = False Then
Set cnn = Nothing
IsConnect = False
'使用Connect_Num控制数据连接
Public Sub DB_Connect()
Connect_Num = Connect_Num + 1
'使用Connect_Num控制数据断开
Public Sub DB_Disconnect()
If Connect_Num &= CONNECT_LOOP_MAX Then
Connect_Num = 0
Disconnect
'强制关闭api方式访问俄的数据库，计数器复位
Public Sub DBapi_Disconnect()
Connect_Num = 0
Disconnect
'执行数据库操作语言
'byval 就是按参数的值传递，再传递过程中，参数不会发生变化(也就是将参数值而不是将地址传递给过程的方式，这就使过程访问发哦变量的副本，过程不可改变变量的值)；
与之对应的是byref,指按参数的地址传值，byref可以省略
Public Sub SQLExt(ByVal TmpSQLstmt As String )
Dim cmd As mand '创建Command对象cmd
DB_Connect '连接数据库
Set cmd.ActiveConnection = cnn '设置cmd的ActiveConnect属性，指定与其关联的数据库连接
mandText = TmpSQLstmt '设置要执行的命令文本
'MsgBox TmpSQLstmt
cmd.Execute '执行命令
Set cmd = Nothing
DB_DisConnect '断开与数据库的连接
'执行数据库查询语句
Public Function QueryExt(ByVal TmpSQLstmt As String ) As ADODB.Recordset
Dim rst As New ADODB.Recordset '创建Rescordset对象rst
DB_Connect '连接数据库
Set rst.ActiveConnection = cnn '设置rst的ActiveConnection属性,指定与其相关的数据库的连接
rst.CursorType = adOpenDynamic '设置游标类型
rst.LockType = adLockOptimistic '设置锁定类型
rst.Open TmpSQLstmt '打开记录集
Set QueryExt = rst '返回记录集
End Function
您可能感兴趣的文章:
大家感兴趣的内容
12345678910
最近更新的内容
常用在线小工具当前位置： >
& vb连接sql2005数据库 ASP.NET (VB)如何连接SQL server 2005数据库?
vb连接sql2005数据库 ASP.NET (VB)如何连接SQL server 2005数据库?
收集整理：/ 时间：
ASP.NET (VB)如何连接SQL server 2005数据库?在web.config中写 &appSettings& &add key="ConnectionSQL" value="Server=172.20.10.33;uid=pwd123;Database="/& &/appSettings&
&add name="ConnectionString" connectionString="Data Source=172.20.10.33 ;Inial Catalog=Persist Security Info=True。VB连接SQL server 2005数据库conn.ConnectionString = "Provider=SQLOLEDB.1;Data Source=J:\Program Files\Microsoft SQL Server\MSSQL10.MSSQLSERVER\MSSQL\DATA\stc.Persist Security Info=User ID=Initial Catalog=stc"这个是错的,应该是Provider=SQLOLEDB.1;Data Source=这儿应该是IP或是local或是数据库服务名;Persist Security Info=User ID=password= Initial Catalog=stc
Provider=SQLOLEDB;Data Source=127.0.0.1;UID=帐户;PWD=密码;initial catalog=localSQL数据库的连接不同于MDB类数据库.如。VB2005如何实现连接SQL SERVER数据库,并且读取某个表。 /content/06/06_189304.shtml /wenda/thread?tid=61d6ca7b7a217a7d。vb连接sql2005发生error:40远程打不开sql service 程序可能是数据库链接在服务器端 “前面还有说可能是本机设置没有远程连接,可是我都已经设置链接好了” 远程连接必须连接在程序指定的服务器上!有人做过 vb连接sql2005的例子么1、看看需要链接的数据库文件,是否已经附加数据库中2、看看你的字符串中的sql服务器是否书写正确3、看看你登录方式,最好用windows登录方式
是不是 权限问题。急问vb.net连接sql2005数据库 最佳答案1：Public Shared conn As SqlConnection conn = New SqlConnection("Data Source=.;Initial Catalog=Integrated Security=True") conn.Open() 其中Data Source段是指定主机,如果数据库安装在本地,使用.就可以了。否则换成IP地址。 Initial Catalog段指明要访问的数据库名。 Integrated Security=True是指使用Windows集成身份验证。 这样就可以了。。不用建立数据源。 连接字符串有很多种写法。 也可以这样写:conn = "Server=User ID=Password=123;Integrated Security=TDatabase=" 这是指明用户名和密码的格式。 最佳答案2：data source=1(local);initial catalog=zkgl.integrated security=SSPI source=1(local)是主机的意思, 就是直接找到主机的SQL服务 catalog=数据库名称 Integrated Security=True是指使用Windows集成身份验证。 下面是比较好记的写法 是用SQL 验证登陆的 Data Source=.\\sql2005;Initial Catalog=WebC uid=pwd=123456
希望能对你有所帮助!
Data Source数据来源地址 Initial Catalog 数据库 Integrated Security 是否启用集成身份验证。VB与SQL Server2005数据库是怎样连接的、更新、输出 - 搜。我自己写的代码,用ADO进行VB与SQL连接,用MSFlexGrid控件显示数据库中的数据~~ 首先要添加ADO引用和MSFlexGrid控件~~ Private Sub Command1_Click() Dim con As New ADODB.Connection 定义ADO对象 Dim rs As New ADODB.Recordset Dim strsql As String Dim i As Integer con.ConnectionString = "provider=SQLOLEDB.1;data source=(local);initial Catalog=S integrated security=SSPI" 初始化对象,打开连接(Windows身份验证) con.Open strsql = "select * from Student" rs.Open strsql, con, 2, 2 打开记录集 使用rs填充控件 初始化控件 With MSFlexGrid1 .Cols = rs.Fields.Count + 1 设定表格列数,统计字段数量,列。
Public con As ADODB.Connection, Str As String, Adodc As ADODB.Recordset, sql As String Public Sub Ado_Open() con = New A。
question: VB与SQL Server2005数据库是怎样连接的、更新、输出 5 标签: sql, vb, 数据库 VB与SQL Server2005数据库是怎样连接。vb.net2013 连接sql2005数据库失败,求帮助现在就 OK 了。4:netstat –an查看是否有1433端口如果没有. 查看端口方法有很多.查看是不是没有在数据库中添加数据库服务器地址;将 TCP 端口设置为 1433,使用方便.SQL服务项中服务是否开启或启动,这里介绍DOS方法;展开协议节点 --&gt。在数据库中用户名和密码都要用“异或加密”方法加密,DOS;
在协议右边的 TCPǘ,如果防火墙没限制,按照下面第3项来设置解决。3,添加例外; 在协议右边启用 TCP/.3. 2)重新启动 SQL Server:2; 在 IPAll 这一项--&gt. 防火墙是否将TCP。2:1433端口;IP 协议属性中 --&gt,MSSQL默认是TCP。 命令;IP 协议 --&2008 网络配置节点 --&gt. 查看端口是否打开:· 1)展开 SQL Server 2005/。vb2005连接SQL2005数据库问题!没有装好.记得要装管理工具,我当初也是装了半天数据库实例也找不到,呵呵哦,那只是安装了一个引擎而已,没用的,真正要用SQL2005还是要专门的SQL2005安装盘进行安装。VB.NET 连接远程SQL SERVER2005数据库data source=192.168.1.111;initial catalog=BD102010;user id=password=application name=PNetSV后面加Pooling=。
vb连接sql2005数据库相关站点推荐：
赞助商链接
vb连接sql2005数据库相关
免责声明： 机电供求信息网部分文章信息来源于网络以及网友投稿，本网站只负责对文章进行整理、排版、编辑，是出于传递 更多信息之目的，并不意味着赞同其观点或证实其内容的真实性。如果您想举报或者对本文章有异议，请联系我们的工作人员。------解决方案--------------------基本的就这样的。可以写成换行。容易区别。------解决方案--------------------不好意思。你实现的就是换行。
/LCX/archive//1913394.html回车/换行组合符(VB.NET)------解决方案--------------------If i Mod 60 = 0 Then
System.Envirement.NewLine 新行
System.Envirement.NewLine
MyOutput = ListBox1.Items(i)
myStreamWriter.WriteLine(Replace(MyOutput & ",", ",,", ","))
------解决方案--------------------myStreamWriter.WriteLine(Environment.NewLine &Environment.NewLine);
myStreamWriter.WriteLine(vbCrLf &vbCrLf)
小弟我的是win8系统，安装IIS8后，小弟我想启动Active server pages,可是小弟我没有找到IIS8中的”WEB服务扩展“求教
我的是win8系统，安装IIS8后，我想启动Active server pages,可是我没有找到IIS8中的”WEB服务扩展“求教
我的是win8系统，安装IIS8后，我想启动Active server pages,可是我没有找到IIS8中的”WEB服务扩展“求教
在配置IIS8时我是按照win7配置的
------解决方案--------------------参考下
/zh-cn/library/hh831387.aspx
http://social./Forums/ie/en-US/ab1a3fec-2829-4ccf-9985-8dbdadfe1374/classic-asp-in-iis-8-on-windows-server-2012
小弟我的是winform程序，本地的程序，连接数据库字符串写在本地程序中，可以访问网络上的sql数据库吗？有人说sql网络访问只限于局域网，是吗
我的是winform程序，本地的程序，连接数据库字符串写在本地程序中，可以访问网络上的sql数据库吗？有人说sql网络访问只限于局域网，是吗我的是winform程序，c#.net
本地的程序，连接数据库字符串写在本地程序中，可以访问网络上的sql数据库吗？有人说sql网络访问只限于局域网，是吗？
连接字符串分为
系统验证和sql验证，连接字符串分别怎么写，
有谁有好的想法说说啊，谢谢了------解决方案--------------------有IP连哪都可以
身份验证模式为: "sql
server和windows "
Provider=SQLOLEDB.1;Persist
Info=TUser
ID=用户名;Password=密码;Initial
Catalog=数据库名;Data
Source=SQL服务器名
身份验证模式为: "仅windows "
Provider=SQLOLEDB.1;Integrated
Security=SSPI;Persist
Info=FInitial
Catalog=数据库名;Data
Source=SQL服务器名
------解决方案--------------------晚上试试看
------解决方案--------------------可以访问外网
------解决方案--------------------是啊，有地址哪都可以访问的。 ------解决方案--------------------sql 服务器的端口有没有打开阿？
如果您喜欢IT行业或者对IT行业感兴趣，想开拓技术视野，欢迎加入本站官方QQ群：，在群里认识新朋友和交流技术^_^
本站联系邮箱：