调试时候才出现的问题！真的不知道怎么解决了！

Question

将问题表述清楚一点吧...
我看你那句话怎么读都不通顺，联系上标题，更加不知道说什么了...看了看代码，第一个SQL语句怎么没有把单词用空格分开？

Answer 1

DataBase=master???
不是SQL系统的吧你最好是建UserData，再建表Table_1
Imports System.Data.OleDbPublic Class AccessDataBase
    'OleDb连接对象
    Dim conn As Data.OleDb.OleDbConnection
    '连接字符串
    Dim ConnStr As String = "Provider=Microsoft.Jet.OleDb.4.0;Data Source=LanServer.mdb"
    '数据适配器
    Dim da As Data.OleDb.OleDbDataAdapter
    '数据集
    Dim ds As Data.DataSet
    Dim icmd As New OleDbCommand
    '下面的属性方法定义是为了给外部灵活调用，方便插入更新灵活赋值
    Public Property dbconn() As OleDbConnection
        Get
            Return conn
        End Get
        Set(ByVal value As OleDbConnection)
            conn = value
        End Set
    End Property
    Public Property dbAdapter() As OleDbDataAdapter
        Get
            Return da
        End Get
        Set(ByVal value As OleDbDataAdapter)
            da = value
        End Set
    End Property
    Public Property dbdataset() As DataSet
        Get
            Return ds
        End Get
        Set(ByVal value As DataSet)
            ds = value
        End Set
    End Property
    Public Property dbCommand() As OleDbCommand
        Get
            Return icmd
        End Get
        Set(ByVal value As OleDbCommand)
            icmd = value
        End Set
    End Property
    '打开数据库连接
    Public Sub OpenDB()
        conn = New OleDb.OleDbConnection(ConnStr)
        conn.Open()
    End Sub
    '关闭数据库连接
    Public Sub CloseDB()
        conn.Close()
    End Sub
    '重新填充数据集
    Sub Filldataset()
        ds.Clear()
        da.Fill(ds)
    End Sub    '执行数据库查询Select不带参数，如果是带条件参数，就写完整的sql语句，再通过dbconn属性方法取值
    Public Function ExecuteSelect(ByVal cmd As String, ByVal srcTable As String) As DataSet
        Me.OpenDB()
        da = New OleDb.OleDbDataAdapter(cmd, conn)
        ds = New Data.DataSet
        ds.Clear()
        da.Fill(ds, srcTable)
        Me.CloseDB()
        Return ds
    End Function    '执行数据库插入Insert ，只适用单个插入"insert into logs(logdate)values(@logdate)"
    Public Function ExecuteInsert(ByVal cmd As String, ByVal paramname As String, ByVal dataType As SqlDbType, ByVal istr As Object) As Integer
        Call OpenDB()
        icmd.CommandText = cmd
        icmd.Parameters.Add(New OleDbParameter(paramname, dataType)).Value = istr
        Dim i As Integer = 0
        icmd.Connection = conn
        i = icmd.ExecuteNonQuery
        Call CloseDB()
        Return i
    End Function
    '执行数据库更新updata
    Public Function ExecuteUpdata(ByVal cmd As String, ByVal paramname As String, ByVal dataType As SqlDbType, ByVal istr As Object) As Integer
        Call OpenDB()
        icmd.CommandText = cmd
        icmd.Parameters.Add(New OleDbParameter(paramname, dataType)).Value = istr
        Dim i As Integer = 0
        icmd.Connection = conn
        i = icmd.ExecuteNonQuery
        Call CloseDB()
        Return i
    End Function    '取一个时间戳，给数据库 logs 表
    Public Function TimeStamp() As String
        '时间转换
        ' 
        Dim dtStart = TimeZone.CurrentTimeZone.ToLocalTime(New DateTime(1970, 1, 1)) 'set is :1970.01.01 08:00
        Dim toNow As TimeSpan = Now.Subtract(dtStart)
        Dim timeStamps As String = toNow.Ticks.ToString()
        timeStamps = timeStamps.Substring(0, 13).ToString
        Return timeStamps
    End Function
End Class简单的，你看懂了就写得出了

Answer 2

就是mytable一直是空的，可是我的数据库表不是空的啊？

Answer 3

你的代码没问题的啊，正常而且能显示数据啊。
是不是你的sqlcon有问题？
你的Server=www-593fa51b756是用的哪儿的服务器？你本机的？如果是本机的直接用.或者(local)就行了

Answer 4

Server=www-593fa51b756这个就是我自己机器的服务器！我以前把数据读出来的时候我连接成功过！就是用得这个名字。我调试的时候就是mytable这个读出来是{}；我的数据库中虽说是东西少 但是也不是这个啊！郁闷。。

Answer 5

应该不是代码问题，你的代码我完全COPY测试了的，只换了个表名而已。2005下没任何异常。

Answer 6

myTable使用了两次，Lz的意思是两次都是空的？

Answer 7

mytable是{}是正常现象，那是告诉你对象不为空，点下最左边的小加号就可以看见具体成员的具体数据了。