| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 630 人关注过本帖
标题:[求助]请教一个有关变量定义的问题
只看楼主 加入收藏
nyrry
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2005-3-26
收藏
 问题点数:0 回复次数:1 
[求助]请教一个有关变量定义的问题
在VB的一个窗体里用到了Option Explicit语句
然后有一个按钮,代码如下:
Private Sub addnew_Click()
  Dim sdbname As String, str As String, Dirs As String, k As String, t As String
  Dim conn As Connection
  Dim rs As Recordset
  Set conn = New Connection
  Set rs = New Recordset
  sdbname = "F:\QQ.mdb"
  str = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Persist Security Info=False;" & "Data Source=" & sdbname & ";" & "Jet OLEDB:Database Password="";"
  conn.Open str
  rs.Open "Select * from alluser", conn, 1, 3, 1
  rs.AddNew
  rs("name").Value = "1212"
  rs.Update
  rs.Close
  conn.Close
End Sub
运行时出现错误提示:无效使用关键字 New

后来我将
  Set conn = New Connection
  Set rs = New Recordset
改成
  Set conn = New ADODB.Connection
  Set rs = New ADODB.Recordset
出现的错误提示是:未找到方法或数据成员
conn.Open str 这一句被标记为错误行

请问该怎么去改正代码?
感激不尽!

[此贴子已经被作者于2005-3-26 6:08:53编辑过]


搜索更多相关主题的帖子: 变量 定义 
2005-03-26 05:50
griefforyou
Rank: 6Rank: 6
等 级:贵宾
威 望:27
帖 子:3336
专家分:0
注 册:2004-4-15
收藏
得分:0 

Option Explicit

Private Sub addnew_Click() Dim sdbname As String, str As String, Dirs As String, k As String, t As String Dim conn As Connection Dim rs As Recordset Set conn = New ADODB.Connection Set rs = New ADODB.Recordset sdbname = "F:\QQ.mdb" str = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Persist Security Info=False;" & "Data Source=" & sdbname & ";" & "Jet OLEDB:Database Password="";" conn.Open str rs.Open "Select * from alluser", conn, 1, 3, 1 rs.AddNew rs("name").Value = "1212" rs.Update rs.Close conn.Close End Sub 没有问题。


天津网站建设 http://www./
2005-03-26 15:15
快速回复:[求助]请教一个有关变量定义的问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.022944 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved