benjamin_mrr
جمعه 09 اسفند 1387, 01:52 صبح
با سلام خدمت دوستان
من یه برنامه با asp.net نوشتم(vb) . دیتابیسم اکسسه. روی کامپوتر خودم کار میکنه ولی روی وب نمیدونم آدرس دیتا سورس رو چه جوری بذارم..
Imports Microsoft.VisualBasic
Imports System.Data
Imports System.data.OleDb
Public Class WebForm1
Inherits System.Web.UI.Page
Dim Da As New OleDbDataAdapter
Dim Con As New OleDbConnection
Dim Dt As New DataTable
Protected WithEvents DataGrid1 As System.Web.UI.WebControls.DataGrid
Protected WithEvents Button1 As System.Web.UI.WebControls.Button
Protected WithEvents TextBox1 As System.Web.UI.WebControls.TextBox
' **************************ADRESE DATA Source vase website www.exm.ir chejoori bezarm*******
Public Const Constr As String = ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:/tbl/tbl.mdb;Persist Security Info=True")
' ****************************
Public Function gDt() As DataTable
Con.ConnectionString = Constr
Da.SelectCommand = New OleDbCommand
Da.SelectCommand.Connection = Con
Da.SelectCommand.CommandText = "select * from tbl"
Con.Open()
Da.Fill(Dt)
Con.Close()
Return Dt
End Function
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
DataGrid1.DataSource = gDt()
DataGrid1.DataBind()
End Sub
End Class
لطفا کمکم کنید. مرسی
من یه برنامه با asp.net نوشتم(vb) . دیتابیسم اکسسه. روی کامپوتر خودم کار میکنه ولی روی وب نمیدونم آدرس دیتا سورس رو چه جوری بذارم..
Imports Microsoft.VisualBasic
Imports System.Data
Imports System.data.OleDb
Public Class WebForm1
Inherits System.Web.UI.Page
Dim Da As New OleDbDataAdapter
Dim Con As New OleDbConnection
Dim Dt As New DataTable
Protected WithEvents DataGrid1 As System.Web.UI.WebControls.DataGrid
Protected WithEvents Button1 As System.Web.UI.WebControls.Button
Protected WithEvents TextBox1 As System.Web.UI.WebControls.TextBox
' **************************ADRESE DATA Source vase website www.exm.ir chejoori bezarm*******
Public Const Constr As String = ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:/tbl/tbl.mdb;Persist Security Info=True")
' ****************************
Public Function gDt() As DataTable
Con.ConnectionString = Constr
Da.SelectCommand = New OleDbCommand
Da.SelectCommand.Connection = Con
Da.SelectCommand.CommandText = "select * from tbl"
Con.Open()
Da.Fill(Dt)
Con.Close()
Return Dt
End Function
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
DataGrid1.DataSource = gDt()
DataGrid1.DataBind()
End Sub
End Class
لطفا کمکم کنید. مرسی