برنامج القروض في ASP.NET

contact with me :

yaso_772@yahoo.com

Imports System
 Imports System.Data
 Imports System.Data.OleDb

 Public Class ExcelSelect
   Inherits System.Web.UI.Page

   Protected dtgAddresses1 As System.Web.UI.WebControls.DataGrid
   Protected dtgAddresses2 As System.Web.UI.WebControls.DataGrid
   Protected lblSql1 As System.Web.UI.WebControls.Label
   Protected lblSql2 As System.Web.UI.WebControls.Label

   Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
     Dim strConn As String = "Provider=Microsoft.Jet.OleDb.4.0;" _
                           & "data source=f:\inetpub\wwwroot\dotnetjohn\NameAndAddress.xls;" _
                           & "Extended Properties=Excel 8.0;"
     'First DataGrid
     Dim objConn As New OleDbConnection(strConn)
     Dim strSql As String = "Select LastName, FirstName, Address, City, State From Addresses"
     lblSql1.Text = strSql
     Dim objCmd As New OleDbCommand(strSql, objConn)
     Try
       objConn.Open()
       dtgAddresses1.DataSource = objCmd.ExecuteReader()
       dtgAddresses1.DataBind()
     Catch exc As Exception
       Response.Write(exc.ToString())
     Finally
       objConn.Dispose()
     End Try
     'Second DataGrid
     objConn = New OleDbConnection(strConn)
     strSql = "Select * From Addresses Where State='CA'"
     lblSql2.Text = strSql
     objCmd = New OleDbCommand(strSql, objConn)
     Try
       objConn.Open()
       dtgAddresses2.DataSource = objCmd.ExecuteReader()
       dtgAddresses2.DataBind()
     Catch exc As Exception
       Response.Write(exc.ToString())
     Finally
       objConn.Dispose()
     End Try
   End Sub

 End Class

http://www.dotnetjohn.com/articles.aspx?articleid=54

السلام عليكم :)

الموضوع التالي قمت بإنشاءه سابقاً.. أعتقد أن فيه بعض الأفكار التي يمكن أن تستفيد منها:

/index.php?showtopic=232745

فكرته تنص على كيفية استخدام ملف أكسل كقاعدة بيانات للقراءة فقط.

مع تمنياتي لك بالنجاح في مشروعك

والسلام عليكم ورحمة الله وبركاته :)