数据库open错误 求解!

Question

源码
  Dim dbpath As String
    Dim constr As String
    Dim mycon As OleDbConnection
    Dim dbset As DataSet
  
    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        dbpath = Server.MapPath("jh.mdb")
        constr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & dbpath
        mycon = New OleDbConnection(constr)
        mycon.Open()
        Dim sqlstr As String = "select * from product"
        Dim mydc As New OleDbDataAdapter(sqlstr, mycon)
        mydc.Fill(dbset, "product")
        DataGrid1.DataSource = dbset
        DataGrid1.DataBind()
 End Sub错误提示异常详细信息: System.Data.OleDb.OleDbException: 不能使用 ''；文件已在使用中。

Answer 1

是不是你还开着Access? Access打开文件的时候就无法用oledb连接，得把Access关闭才可以

Answer 2

mycon.Close()
这一句一定要加
注销系统，
在代码里面加上那一句就行了。

Answer 3

楼上的给的方法是错误地，嘻嘻，你知道原因在那里么？  Dim dbpath As String
    Dim constr As String
    Dim mycon As OleDbConnection
    Dim dbset As DataSet
  
    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        dbpath = Server.MapPath("jh.mdb")
        constr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & dbpath
        mycon = New OleDbConnection(constr)
        mycon.Open()
        Dim sqlstr As String = "select * from product"
        Dim mydc As New OleDbDataAdapter(sqlstr, mycon)    ‘错误
        mydc.Fill(dbset, "product")
        DataGrid1.DataSource = dbset
        DataGrid1.DataBind()
 End Sub我建议你这么写  Dim dbpath As String
    Dim constr As String
    Dim mycon As OleDbConnection
    Dim mydc As OleDbDataAdapter
    Dim dbset As DataSet
  
    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        dbpath = Server.MapPath("jh.mdb")
        constr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & dbpath
        mycon = New OleDbConnection(constr)
        mycon.Open()
        Dim sqlstr As String = "select * from product"
        mydc = New OleDbDataAdapter(sqlstr, mycon)
        mydc.Fill(dbset, "product")
        DataGrid1.DataSource = dbset
        DataGrid1.DataBind()
        mycon.close
 End Sub我把他在上面定义了mydc了，你看一下代码，这样就好了，呵呵

Answer 4

z怎么编程控制DataGrid1每列的格式

Answer 5

今天我开着access也打开了链接,看来昨天不是因为打开了access而导致的错误

Answer 6

怎么用变量给datagrid的"url格式字符串"赋值?

Answer 7

<%#DataBinder.Eval(Container.DataItem,"addtime","{0:yyyy-MM-dd}")%>
格式化日期为2005-3-20

Answer 8

to  hackate(~兰心*-*寒~ | 个人网站: http://www.7to.net) Dim mydc As New OleDbDataAdapter(sqlstr, mycon)
和
Dim mydc As OleDbDataAdapter
mydc = New OleDbDataAdapter(sqlstr, mycon)是等效的语句啊

Answer 9

用字符串查询
如，url?sid={0}

Answer 10

对不起上次是早前回答错地，恩，你知道你问题在哪吗？？你看看，你的dataset没有实例化，你该这样Dim dbset As DataSet 改成
Dim dbset As New DataSet

Answer 11

楼主，你要知道.NET时完全面向对象的，所以一定要new