| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1028 人关注过本帖
标题:请大家看看我这段代码有什么问题!
取消只看楼主 加入收藏
yuzj064
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2007-12-11
收藏
 问题点数:0 回复次数:2 
请大家看看我这段代码有什么问题!
Imports System.Data.OleDb
Public Class database
    Implements IDisposable

    Private myconn As System.Data.OleDb.OleDbConnection
    Public Shared mystr As String = "provider=microsoft.jet.oledb.4.0;data source=D:\yyjxc.mdb;Database Password='""'; "

    Private disposedValue As Boolean = False        ' 检测冗余的调用

    ' IDisposable
    Protected Overridable Sub Dispose(ByVal disposing As Boolean)
        If Not Me.disposedValue Then
            If disposing <> True Then
                ' TODO: 显式调用时释放非托管资源
                Return
            End If

            ' TODO: 释放共享的非托管资源
            If myconn Is Nothing = False Then
                myconn.Dispose()
                myconn = Nothing
            End If
        End If
        Me.disposedValue = True
    End Sub

#Region " IDisposable Support "
    ' Visual Basic 添加此代码是为了正确实现可处置模式。
    Public Sub Dispose() Implements IDisposable.Dispose
        ' 不要更改此代码。请将清理代码放入上面的 Dispose(ByVal disposing As Boolean) 中。
        Dispose(True)
        GC.SuppressFinalize(Me)
    End Sub
#End Region
    Public Sub open()
        If myconn Is Nothing = True Then
            '建立数据库连接对象
            myconn.ConnectionString = mystr
            '打开连接
            myconn.Open()
        End If
    End Sub
    Public Sub close()
        '如果数据库对象不为空则关闭数据库连接
        If myconn Is Nothing = False Then
            myconn.Close()
        End If
    End Sub
    Public Function RunSelectSQL(ByVal sSQLString As System.String) As DataView
        Me.open()
        Dim myDS As DataSet = New DataSet
        Dim myDA As OleDbDataAdapter = New OleDbDataAdapter(sSQLString, Me.myconn)
        myDA.Fill(myDS)
        Return myDS.Tables(0).DefaultView
    End Function
    Public Sub RunDelOrInsSQL(ByVal sSQLString As System.String)
        Me.open()
        Dim mycomm As OleDbCommand = New OleDbCommand(sSQLString, Me.myconn)
        mycomm.ExecuteNonQuery()
    End Sub
End Class
搜索更多相关主题的帖子: 代码 
2007-12-18 16:40
yuzj064
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2007-12-11
收藏
得分:0 
Public Function RunSelectSQL(ByVal sSQLString As System.String) As DataView
        Me.open()
        Dim myDS As DataSet = New DataSet
        Dim myDA As OleDbDataAdapter = New OleDbDataAdapter(sSQLString, Me.myconn)
        myDA.Fill(myDS) //这儿好象有问题!
        Return myDS.Tables(0).DefaultView
    End Function
2007-12-18 17:49
yuzj064
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2007-12-11
收藏
得分:0 
我用的是vs2005
有的在2003里还好好的
被移到2005里就出了很多毛病!
请大家帮忙看看我这段的毛病
附图一张。

11.PNG (19.94 KB)
图片附件: 游客没有浏览图片的权限,请 登录注册
2007-12-19 08:53
快速回复:请大家看看我这段代码有什么问题!
数据加载中...
 
   



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

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