| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 746 人关注过本帖
标题:为什么VB中的MODULE模块????????
只看楼主 加入收藏
yang18xia
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2010-4-13
结帖率:0
收藏
已结贴  问题点数:20 回复次数:1 
为什么VB中的MODULE模块????????
Imports System.Data.OleDb
Module Commonmodule
    Public mydap As OleDbDataAdapter
    Public mydataset As DataSet = New DataSet
    Public mytable As DataTable
    Public myrow As DataRow
    Public mycmdbuilder As OleDbCommandBuilder
    Public Function SQLOpera(ByVal str As String, ByVal table As String)
        Try
            Dim row As Integer = 0
            Dim selectstring As String
            selectstring = "provider=Microsoft.Jet.OLEDB.4.0;Data Source="
            selectstring = selectstring & Application.StartupPath() & "\Data\student.mdb"
            mydap = New OleDbDataAdapter(str, selectstring)
            mydataset.Clear()
            mydataset.Tables.Clear()
            mydap.Fill(mydataset, table)
            mytable = mydataset.Tables.Item(0)
            myrow = mytable.Rows.Item(row)
        Catch ex As Exception
        End Try
        Return Nothing
    End Function
End Module



各位我在模块中编了这样的代码,为什么我在其它窗口中用它会出现数据没有加载这样的窗口。难道还需要其它的设置吗?
这是什么原因,谁能帮帮忙
搜索更多相关主题的帖子: 模块 MODULE 
2010-04-13 14:34
wei855198
Rank: 8Rank: 8
等 级:蝙蝠侠
威 望:5
帖 子:228
专家分:944
注 册:2009-4-24
收藏
得分:20 
mydap = New OleDbDataAdapter(str, selectstring)
这一句里面有两个参数,第一个是SQL查询字符串,第二个是有效的数据库连接,你使用的selectstring只是一个连接字符串,不等于有效的连接
在这句前面添加上下面的代码就行了:
dim objConn as new OleDb.OleDbConnection(selectstring)
再把mydap = New OleDbDataAdapter(str, selectstring)改为
mydap = New OleDbDataAdapter(str, objConn)

[ 本帖最后由 wei855198 于 2010-4-13 20:33 编辑 ]

护肤小店 http://mina2010.
靓装小店 http://liangliyizu2010.
2010-04-13 20:31
快速回复:为什么VB中的MODULE模块????????
数据加载中...
 
   



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

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