求助:帮偶把access的的连接转成SQL的连接方式:(先谢谢各位了)

Question

Dim m_WapShow As New BikeWap
        Dim m_Url As String
        m_Url = Request.ServerVariables("APPL_PHYSICAL_PATH") & "\mydatabase\#bikewap.mdb"
        Dim m_Dr As OleDbDataReader = m_WapShow.GetData(m_Url, "select * from guestbook order by AddTime desc")
        NewList.DataSource = m_Dr
        NewList.DataTextField = "MessageTitle"
        NewList.DataValueField = "MessageID"
        NewList.DataBind()------------------
先谢谢各位了:)

Answer 1

这个连接是调用了 BikeWap.vb类
一般的连接偶会就是调用类的SQL连接类,我不会,所以会的朋友们请帮忙

Answer 2

GetData 有没其它重载方法？这个不是.net自带的就要看内部实现了。

Answer 3

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '在此处放置初始化页的用户代码
        Dim m_WapShow As New BikeWap
        Dim m_Url As String
        m_Url = Request.ServerVariables("APPL_PHYSICAL_PATH") & "\mydatabase\#bikewap.mdb"
        Dim m_Dr As OleDbDataReader = m_WapShow.GetData(m_Url, "select * from guestbook order by AddTime desc")
        NewList.DataSource = m_Dr
        NewList.DataTextField = "MessageTitle"
        NewList.DataValueField = "MessageID"
        NewList.DataBind()
    End Sub
---------------------------
BikeWap.vb类 Imports System.Data
Imports System.Data.OleDb
Public Class BikeWap
    '获取数据库中的信息
    Public Function GetData(ByVal DatabaseUrl As String, ByVal StrSQL As String)
        Dim StrConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DatabaseUrl
        Dim Conn As New OleDbConnection(StrConn)
        Dim Cmd As OleDbCommand = New OleDbCommand(StrSQL, Conn)
        Conn.Open()
        Dim Result As OleDbDataReader = Cmd.ExecuteReader(CommandBehavior.CloseConnection)
        'Dim Result As OleDbDataReader = Cmd.ExecuteReader(CommandBehavior.SingleRow)
        Return Result
    End Function

Answer 4

你需要把bikewap类改一下 或者从它继承然后重写getdata
Dim StrConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DatabaseUrl
这里的provider要改成sqloledb
然后databaseurl传入的字符串的格式也要相应改一下具体就是这两个地方：
Dim StrConn As String = "Provider=sqloledb;Data Source=" & DatabaseUrlDim m_Url As String = "服务器名;Initial Catalog=数据库名;User Id=用户名;Password=密码"呵呵 做wap啊……给分 给分^_^

Answer 5

你需要把bikewap类改一下 或者从它继承然后重写getdata
Dim StrConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DatabaseUrl
这里的provider要改成sqloledb
然后databaseurl传入的字符串的格式也要相应改一下具体就是这两个地方：
Dim StrConn As String = "Provider=sqloledb;Data Source=" & DatabaseUrlDim m_Url As String = "服务器名;Initial Catalog=数据库名;User Id=用户名;Password=密码"呵呵 做wap啊……给分 给分^_^