求助ado和dao的问题谢谢 ado功能比dao强大多了!! why??? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 没着。实在不会。对不起。不过你可以试试ODBC ADO 比 DAO 强或不强,你可以参考各方面的文档;本人所知有限,目前仅只知 ADO 是代替 DAO 的产物;如果你不会 ADO,那么给你一个 ADO 的例子:(注意:1)需要先将“ADO ...”加入 VBP,具体方法为:"Project --> "References"后出现的选择对话框中选中“MicorSoft ActiveX Data Object 2.0 Libtary”")2)ADO_XXX是从控制面板设置的ODBC连接串名称.3)还有问题的话请留短消息--我不保证每次都看一样的问题。'' @(h) modAdoApp.bas''Use:' Ado 实用函数'''First Creat Author : TNT1900'Frist Creat Date : 2002.07.12''Last Vindicator : TNT1900'Last Modify Date : 2002.08.01'Option Explicit'' 全局数据库连接串Global Const G_ADO_ConStr As String = "Provider=MSDAORA.1; " & _ "User ID=UserID; password=PSW; Data Source=ADO_XXX; Persist Security Info=False"''Use:' 根据指定的 SQL 语句和具体可选条件执行 SQL 命令并返回相应的结果''Input:' strSource : 完整、有效的语句如SQL语句等' Optional intCursorType As CursorTypeEnum = adOpenForwardOnly,' Optional intLockType As LockTypeEnum = adLockReadOnly,' Optional intOptns As CommandTypeEnum = adCmdText,' Optional intDynaFlag As Integer = 0 : 默认不需要 RecordCount,为 1 则该属性有效''Return:' 相应的记录集结果''Call Example:' intRtn = cgfn_GetDataBySourceAndOptn("Select * from T_Employee")''Notice:' 数据的唯一性由数据库保证。''First Creat Author : TNT1900'Frist Creat Date : 2002.07.12''Last Vindicator : TNT1900'Last Modify Date : 2002.07.12'Public Function cgfn_GetDataBySourceAndOptn( _ ByVal strSource As String, _ Optional intCursorType As CursorTypeEnum = adOpenForwardOnly, _ Optional intLockType As LockTypeEnum = adLockReadOnly, _ Optional intOptns As CommandTypeEnum = adCmdText, _ Optional intDynaFlag As Integer = 0 _) As ADODB.Recordset On Error GoTo ErrorProcess Dim Conn As ADODB.Connection Dim p_RS As ADODB.Recordset '' 如果SQL语句什么也没有的话则什么也不做,直接退出 If strSource = "" Then Exit Function '' Initialize the ADODB connection and recordset Set Conn = New ADODB.Connection Set p_RS = New ADODB.Recordset '' 此参数专门为 ORACLE 量身定制:指定此参数=1时,才能得到 Recordcount等属性 If intDynaFlag = 1 Then p_RS.CursorLocation = adUseClient End If '' Open the Connection Conn.Open G_ADO_ConStr '' Get the recordset p_RS.Open strSource, Conn, intCursorType, intLockType, intOptns '' Return the value Set cgfn_GetDataBySourceAndOptn = p_RS '' Normal Exit Exit Function '' 出错处理ErrorProcess: 'cgsb_ErrorProcess "modAdoApp.cgfn_GetDataBySourceAndOptn()" Resume Next '' 跳到当前程序的下一步,continueEnd Function 用ado连接啊,他比rdo好多了dim cn as adodb.connectioncon.connectionstring= "driver={sql server}; server=ip地址或计算机名; database=数据库名;uid=用户名;pwd=密码"con.open 就可以连接了数据库了,你可以查查msdn 上面都有啊 ! 现在最新的教材都教ADO了,而且功能强大 谢谢楼上的各位拉,并非我不用ado是我想试一试用其他的对象来做罢了 该程序出错,请问是什么原因? 用XMLDOMDocument获取XML网页的超时问题 vb如何编程进行e-mail登陆 我想填充一个多边形,但不知该怎么搞,谁帮帮忙,谢谢! 如何得到ListView中被点击行的行号 急球 setupfactory 制作安装盘 关于安装语言的问题 为何不可? VB中datacombo控件 问题 急!急急 考了高程的大哥请推荐好点的数据结构的书 好何设计一个好的VB软件 当Combo的样为2-DropDwon List在怎样知道用户选择已经改变???在线等待。 sleep 函数的使用方或其它类似功能函数的求教。高分相送,谢谢支持!
本人所知有限,目前仅只知 ADO 是代替 DAO 的产物;如果你不会 ADO,那么给你一个 ADO 的例子:
(注意:
1)需要先将“ADO ...”加入 VBP,具体方法为:"Project --> "References"后出现的选择对话框中选中“MicorSoft ActiveX Data Object 2.0 Libtary”")
2)ADO_XXX是从控制面板设置的ODBC连接串名称.
3)还有问题的话请留短消息--我不保证每次都看一样的问题。'
' @(h) modAdoApp.bas
'
'Use:
' Ado 实用函数
'
'
'First Creat Author : TNT1900
'Frist Creat Date : 2002.07.12
'
'Last Vindicator : TNT1900
'Last Modify Date : 2002.08.01
'Option Explicit'' 全局数据库连接串
Global Const G_ADO_ConStr As String = "Provider=MSDAORA.1; " & _
"User ID=UserID; password=PSW; Data Source=ADO_XXX; Persist Security Info=False"
'
'Use:
' 根据指定的 SQL 语句和具体可选条件执行 SQL 命令并返回相应的结果
'
'Input:
' strSource : 完整、有效的语句如SQL语句等
' Optional intCursorType As CursorTypeEnum = adOpenForwardOnly,
' Optional intLockType As LockTypeEnum = adLockReadOnly,
' Optional intOptns As CommandTypeEnum = adCmdText,
' Optional intDynaFlag As Integer = 0 : 默认不需要 RecordCount,为 1 则该属性有效
'
'Return:
' 相应的记录集结果
'
'Call Example:
' intRtn = cgfn_GetDataBySourceAndOptn("Select * from T_Employee")
'
'Notice:
' 数据的唯一性由数据库保证。
'
'First Creat Author : TNT1900
'Frist Creat Date : 2002.07.12
'
'Last Vindicator : TNT1900
'Last Modify Date : 2002.07.12
'
Public Function cgfn_GetDataBySourceAndOptn( _
ByVal strSource As String, _
Optional intCursorType As CursorTypeEnum = adOpenForwardOnly, _
Optional intLockType As LockTypeEnum = adLockReadOnly, _
Optional intOptns As CommandTypeEnum = adCmdText, _
Optional intDynaFlag As Integer = 0 _
) As ADODB.Recordset
On Error GoTo ErrorProcess
Dim Conn As ADODB.Connection
Dim p_RS As ADODB.Recordset
'' 如果SQL语句什么也没有的话则什么也不做,直接退出
If strSource = "" Then Exit Function
'' Initialize the ADODB connection and recordset
Set Conn = New ADODB.Connection
Set p_RS = New ADODB.Recordset
'' 此参数专门为 ORACLE 量身定制:指定此参数=1时,才能得到 Recordcount等属性
If intDynaFlag = 1 Then
p_RS.CursorLocation = adUseClient
End If
'' Open the Connection
Conn.Open G_ADO_ConStr
'' Get the recordset
p_RS.Open strSource, Conn, intCursorType, intLockType, intOptns
'' Return the value
Set cgfn_GetDataBySourceAndOptn = p_RS
'' Normal Exit
Exit Function
'' 出错处理
ErrorProcess:
'cgsb_ErrorProcess "modAdoApp.cgfn_GetDataBySourceAndOptn()"
Resume Next '' 跳到当前程序的下一步,continue
End Function
dim cn as adodb.connection
con.connectionstring= "driver={sql server}; server=ip地址或计算机名;
database=数据库名;uid=用户名;pwd=密码"
con.open
就可以连接了数据库了,你可以查查msdn 上面都有啊 !