CSDN论坛 > VB > VB基础类

adOpenStatic, adLockReadOnly的问题 [问题点数:20分,结帖人ggwb002]

Bbs2
本版专家分:178
结帖率 100%
CSDN今日推荐
Bbs6
本版专家分:5435
Bbs10
本版专家分:123378
Blank
进士 2003年 总版技术专家分年内排行榜第十
Blank
铜牌 2003年7月 总版技术专家分月排行榜第三
Blank
微软MVP 2013年7月 荣获微软MVP称号
2012年7月 荣获微软MVP称号
2006年1月 荣获微软MVP称号
2008年1月 荣获微软MVP称号
2007年1月 荣获微软MVP称号
2005年1月 荣获微软MVP称号
2003年9月 荣获微软MVP称号
Blank
红花 2003年9月 VB大版内专家分月排行榜第一
2003年8月 VB大版内专家分月排行榜第一
2003年7月 VB大版内专家分月排行榜第一
2003年6月 VB大版内专家分月排行榜第一
2003年5月 VB大版内专家分月排行榜第一
2003年4月 VB大版内专家分月排行榜第一
Bbs9
本版专家分:61844
Blank
黄花 2004年7月 VB大版内专家分月排行榜第二
2004年4月 VB大版内专家分月排行榜第二
2003年10月 VB大版内专家分月排行榜第二
Blank
蓝花 2004年9月 Java大版内专家分月排行榜第三
2003年9月 VB大版内专家分月排行榜第三
Bbs4
本版专家分:1753
Bbs2
本版专家分:178
Bbs2
本版专家分:178
Bbs9
本版专家分:61844
Blank
黄花 2004年7月 VB大版内专家分月排行榜第二
2004年4月 VB大版内专家分月排行榜第二
2003年10月 VB大版内专家分月排行榜第二
Blank
蓝花 2004年9月 Java大版内专家分月排行榜第三
2003年9月 VB大版内专家分月排行榜第三
匿名用户不能发表回复!
其他相关推荐
vc++中_RecordsetPtr使用
原文来自:http://blog.sina.com.cn/s/blog_5f7dc62e0100dox3.html 因为担心以后找不到,故而转载 _variant_t vUsername,vID,vname; //变量声明 _RecordsetPtr m_pRecordset;     //记录集 CString strid; _ConnectionPtr
Vb 6.0与SQL Sever建立连接
vb+SQL做了一个登录界面,运行时报错"对象变量或With块变量未设置",然后点调试之后发现给记录集赋值并没有成功,最后发现其实是数据库并未连接成功。 VB通过ADO连接SQL Sever数据库可以分为有源数据库连接和无源数据库连接,它们的区别是是否使用了DSN(数据源名称)来决定。 1.      无源数据库连接         所谓无源数据库连接并不是说不需要数据源,如果没有数据源谈何
班级管理系统mfc月数据库的结合
实现班级信息管理 if (FAILED(pRs->Open((_variant_t)strSQL,_variant_t((IDispatch*)theApp.m_pConnection,true),adOpenStatic,adLockOptimistic,adCmdText))) { AfxMessageBox("Can not open Database!"); pRs.Release(); return; }
rs对象的方法
rs.movenext 将记录指针从当前的位置向下移一行rs.moveprevious 将记录指针从当前的位置向上移一行rs.movefirst 将记录指针移到数据表第一行rs.movelast 将记录指针移到数据表最后一行rs.absoluteposition=N 将记录指针移到数据表第N行rs.absolutepage=N 将记录指针移到第N页的第一行rs.pagesize=N 设置每页为N条
VB定时修改数据库名称
用VB6编写的代码 Private Sub Command2_Click() strconnect = "provider=SQLOLEDB;Persist Security Info=true;User Id='" & Tname & "';PassWord='" & Tpwd & "'; Initial Catalog=master;Data Source='" & Tserver & "'" If Conn.State = 1 Then Conn.Close Conn.Open strconnect 'GetSq Now sql = "select * from sysdatabases where name = '" & Tdatabase & "'" If rst.State = 1 Then rst.Close rst.CursorLocation = adUseClient rst.Open sql, Conn, adOpenStatic, adLockReadOnly 'If rst.EOF = True Then 'MsgBox "修改前的数据不存在,请检查!", vbInformation, "检查数据库是否存在" 'Exit Sub 'End If If rst.EOF = False Then Conn.Execute "exec sp_rename '" & Tdatabase & "','" & Tdatabase1 & "','database'" Else Conn.Execute "exec sp_rename '" & Tdatabase1 & "','" & Tdatabase & "','database'" End If 'MsgBox "执行完毕", vbOKOnly Unload Me End Sub
ADO Recordset对象的RecordCount属性总是-1?
       最近在用asp做网页后台时,遇到了一个烦人的问题,RecordSet对象的RecordCount和PageCount均为-1.不能直接获取RecordCount属性,我就想了其他的笨办法代替,比如,利用了SQL的集函数select Count(*) as count from table,这样count中就存储了RecordSet的属性值;或者,利用一个变量存储,在游标从头到尾的搜索
ado _RecordsetPtr open 最可能的异常: Microsoft C++ exception
代码:_RecordsetPtr m_pRecordset;    m_pRecordset.CreateInstance(__uuidof(Recordset));    m_pRecordset->CursorLocation = adUseClient;    m_pRecordset->Open(_bstr_t("select count(*) from v$parameter"),_va
Delphi下的原生ADO使用方法
本文向您揭示在Delphi中使用ADO是如何轻而易举,结合了ADO的Delphi应用程序,将不再依赖于BDE。 ADO的精髓在于利用简单的COM指令来快速方便的访问ODBC数据源,微软的表格、列表框等ActiveX控件使得用户可以简便的利用ADO工作;然而,本文中笔者仅仅向您展示了如何利用程序访问数据库,将不采用任何可视化数据控件。   本文将向您展示如何利用Variant或in
企业人事管理信息系统
SQL+VB做成的licit Public gUserName As String Public gUserKind As String Public gEmployeeId As String Public gLoginSucceeded As Boolean Public Const BLUE = &HFF0000 Public Const WHITE = &H80000005 Sub Main() Dim fLogin As New frmLogin '启动登录窗体 fLogin.Show vbModal '装入并显示模式窗体。 If Not gLoginSucceeded Then MsgBox "系统启动失败,请重试!", vbOKOnly + vbExclamation, "警告" End If Unload fLogin End Sub Public Function ConnectString() As String ConnectString = "Provider=SQLOLEDB.1;Password=sa;User ID=sa;Initial Catalog=DBManPower;Data Source=127.0.0.1;" End Function Public Function ExecuteSQL(ByVal SQL As String, rst As ADODB.Recordset, _ Optional enableWrite As Boolean = True) As Boolean Dim con As ADODB.Connection Dim sTokens() As String On Error GoTo Execute_Error sTokens = Split(SQL) Set con = New ADODB.Connection con.Open ConnectString '打开数据库 Set rst = New ADODB.Recordset If enableWrite Then '读写方式 rst.Open Trim$(SQL), con, adOpenStatic, adLockOptimistic Else '只读方式 rst.Open Trim$(SQL), con, adOpenStatic, adLockReadOnly End If ExecuteSQL = True Exit Function Execute_Error: ExecuteSQL = False Exit Function End Function Public Function DBExist(ByVal SQL As String) As Integer Dim con As ADODB.Connection Dim sTokens() As String Dim flag As String Dim rst As ADODB.Recordset sTokens = Split(SQL) Set con = New ADODB.Connection con.Open ConnectString flag = ExecuteSQL(SQL, rst, False) '判断该记录是否存在 If rst.RecordCount <> 0 Then DBExist = rst.RecordCount Else DBExist = 0 End If con.Close End Function Public Function txtIsNull(txt As TextBox) As Boolean If Trim(txt.Text) = "" Then txtIsNull = True txt.SetFocus txt.BackColor = BLUE Else txtIsNull = False End If
SkinMagic的问题
SkinMagic的问题SkinMagic的问题SkinMagic的问题SkinMagic的问题SkinMagic的问题SkinMagic的问题SkinMagic的问题SkinMagic的问题SkinMagic的问题SkinMagic的问题SkinMagic的问题SkinMagic的问题SkinMagic的问题SkinMagic的问题SkinMagic的问题SkinMagic的问题
关闭