Dim rs As New ADODB.Recordset

tiaraxin 2003-05-07 10:09:38

ADODB.Recordset已注册。但为什么还是不能用，vb系统提示"用户定义类型未定义"
使用Set rs=New ADODB.Recordset还是不行。初手问题喔

...全文

118 2 打赏收藏转发到动态举报

写回复

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

jianglifen 2003-05-07

打赏
举报

回复

要 dim rs as adodb.recordset

czjw 2003-05-07

打赏
举报

回复

‘工程’－‘引用’－选ADO

Private Sub Command1_Click() Dim conn As New ADODB.Connection Dim s As String Dim rs As New ADODB.Recordset Dim telephone As String Dim txtsql As String telephone = Trim(Text1.Text) '******************************************************************************************* s = "Dr

VB+Access实例：使用ADO连接Access数据库。Private Sub Form_Load() Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db_medicine.MDB" rs.Open "tb_kc", cn, adOpenKeyset, adLockOptimistic 'adOpenKeyset打开键集类型游标。adLockOptimistic开放式锁定（逐个） — 提供者使用开放式锁定，只在调用Update 方法时才锁定记录 Set MSHFlexGrid1.DataSource = rs MSHFlexGrid1.ColWidth(0) = 0 '返回或设置指定带区中的列宽 rs.Close cn.Close Set rs = Nothing Set cn = Nothing End Sub

关于数据库的显示和更新。你一个示例,这个是用户登录系统 '准备工作: 数据库 D:\Mydb.mdb 数据库中,建数据表:UserInfo,数据表中,建字段:User,Password,并添加一条记录 '点工程->引用选中 Microsoft Activex Data Objects 2.1 Library '控件:添加一个文本框,一个命令按钮 Private Sub Command1_Click() Dim s As String Dim Conn As New ADODB.Connection Dim Rs As New ADODB.Recordset Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\mydb.mdb" '请将数据库名及路径换成你的实际数据库名及路径 Dim UserName As String Dim Password As String s = Text1.Text If s = "1" Or s = "2" Then UserName = InputBox("请输入用户名") Password = InputBox("请输入用户密码") sql = "Select * From [UserInfo] where User='" & UserName & "'" 'UserInfo请换成你的实际数据表名

是建立一个数据集前面应该先定义此数据集 dim rs as adodb.recordset 然后就可以用 set rs=server.CreateObject(“adodb.recordset”) 来建立一个数据集的实例，当然此时数据集中是没有数据的 rs.open …… 来打开一个记录集 rs.append或者rs.insert来添加记录 rs.edit来修改记录对于添加或修改的记录，可以用 rs.fields(“字段名”)=xxx 来进行赋值 rs.update 把更改过的值更新回数据库当你添加一个数据（rs1）进数据库时： rs.addnew rs(“rs1″)=”添加的数据” r

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=sa;Initial Catalog=data;Data Source=127.0.0.1" '这是连接SQL数据库的语句 Conn.Open ConnStr rs.CursorLocation = adUseClient rs.Open Trim$(SQL), Conn, adOpenDynamic, adLockOptimistic Set Selectsql = rs 'Exit Function

1,066

社区成员

6,496

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章