dr.pantagon
پنج شنبه 01 فروردین 1387, 15:55 عصر
سلام
من با VB.NET و Access سایت طراحی می کردم واقعا Access خستم کرده هر شخصی می تونه این یک تیکه کد رو که من نوشتم رو تغییر بده و دیتابیس اون رو SQL کنه متشکر می شم
پیشاپیش تشکر
Imports System.Data
Imports System.Data.OleDb
Public Class WebForm1
Inherits System.Web.UI.Page
#Region " Web Form Designer Generated Code "
'This call is required by the Web Form Designer.
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
End Sub
Protected WithEvents TextBox1 As System.Web.UI.WebControls.TextBox
Protected WithEvents TextBox2 As System.Web.UI.WebControls.TextBox
Protected WithEvents TextBox3 As System.Web.UI.WebControls.TextBox
Protected WithEvents TextBox4 As System.Web.UI.WebControls.TextBox
Protected WithEvents Label1 As System.Web.UI.WebControls.Label
Protected WithEvents Label2 As System.Web.UI.WebControls.Label
Protected WithEvents Label3 As System.Web.UI.WebControls.Label
Protected WithEvents Label4 As System.Web.UI.WebControls.Label
Protected WithEvents Label5 As System.Web.UI.WebControls.Label
Protected WithEvents TextBox5 As System.Web.UI.WebControls.TextBox
Protected WithEvents Button1 As System.Web.UI.WebControls.Button
Dim ds As New DataSet
Dim strsql As String
Dim strcon As String
Dim da As OleDbDataAdapter
Dim con As OleDbConnection
Dim newRow As DataRow
Dim cb As OleDbCommandBuilder
Private designerPlaceholderDeclaration As System.Object
Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN: This method call is required by the Web Form Designer
'Do not modify it using the code editor.
InitializeComponent()
End Sub
#End Region
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim a As String
'Put user code to initialize the page here
strcon = "Provider = Microsoft.Jet.OleDb.4.0;" & "Data Source =C:/Inetpub/wwwroot/WebApplication1/FDB0913/FDB0913.mdb"
strsql = "select * from FDB0913"
con = New OleDbConnection(strcon)
con.Open()
da = New OleDbDataAdapter(strsql, con)
da.Fill(ds, "FDB0913")
con.Close()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
newRow = ds.Tables("FDB0913").NewRow()
newRow("student") = TextBox1.Text
newRow("name") = TextBox2.Text
newRow("famil") = TextBox3.Text
newRow("address") = TextBox4.Text
newRow("tel") = TextBox5.Text
ds.Tables("FDB0913").Rows.Add(newRow)
cb = New OleDbCommandBuilder(da)
da.InsertCommand = cb.GetInsertCommand()
da.Update(ds, "FDB0913")
con.Close()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
End Sub
End Class
من با VB.NET و Access سایت طراحی می کردم واقعا Access خستم کرده هر شخصی می تونه این یک تیکه کد رو که من نوشتم رو تغییر بده و دیتابیس اون رو SQL کنه متشکر می شم
پیشاپیش تشکر
Imports System.Data
Imports System.Data.OleDb
Public Class WebForm1
Inherits System.Web.UI.Page
#Region " Web Form Designer Generated Code "
'This call is required by the Web Form Designer.
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
End Sub
Protected WithEvents TextBox1 As System.Web.UI.WebControls.TextBox
Protected WithEvents TextBox2 As System.Web.UI.WebControls.TextBox
Protected WithEvents TextBox3 As System.Web.UI.WebControls.TextBox
Protected WithEvents TextBox4 As System.Web.UI.WebControls.TextBox
Protected WithEvents Label1 As System.Web.UI.WebControls.Label
Protected WithEvents Label2 As System.Web.UI.WebControls.Label
Protected WithEvents Label3 As System.Web.UI.WebControls.Label
Protected WithEvents Label4 As System.Web.UI.WebControls.Label
Protected WithEvents Label5 As System.Web.UI.WebControls.Label
Protected WithEvents TextBox5 As System.Web.UI.WebControls.TextBox
Protected WithEvents Button1 As System.Web.UI.WebControls.Button
Dim ds As New DataSet
Dim strsql As String
Dim strcon As String
Dim da As OleDbDataAdapter
Dim con As OleDbConnection
Dim newRow As DataRow
Dim cb As OleDbCommandBuilder
Private designerPlaceholderDeclaration As System.Object
Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN: This method call is required by the Web Form Designer
'Do not modify it using the code editor.
InitializeComponent()
End Sub
#End Region
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim a As String
'Put user code to initialize the page here
strcon = "Provider = Microsoft.Jet.OleDb.4.0;" & "Data Source =C:/Inetpub/wwwroot/WebApplication1/FDB0913/FDB0913.mdb"
strsql = "select * from FDB0913"
con = New OleDbConnection(strcon)
con.Open()
da = New OleDbDataAdapter(strsql, con)
da.Fill(ds, "FDB0913")
con.Close()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
newRow = ds.Tables("FDB0913").NewRow()
newRow("student") = TextBox1.Text
newRow("name") = TextBox2.Text
newRow("famil") = TextBox3.Text
newRow("address") = TextBox4.Text
newRow("tel") = TextBox5.Text
ds.Tables("FDB0913").Rows.Add(newRow)
cb = New OleDbCommandBuilder(da)
da.InsertCommand = cb.GetInsertCommand()
da.Update(ds, "FDB0913")
con.Close()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
End Sub
End Class