hamhik
یک شنبه 15 مرداد 1385, 10:55 صبح
با سلام و خسته نباشید.
مشکلی که من داشتم مربوط می شه به قسمت asp.net web siteدر واقع من برنامه مو اول تو محیط vb.net نوشتم حالا که می خوام کداشوببرم تو قسمت asp.net اجرا می شه ولی روی یه سری دستورات خطا می ده.حالا به نظر شمامشکل این کد در کجاست این کد را من در 2005vb.net نوشتم و بعد در محیط asp.net web site کپیش کردم.
Imports System.Data
Imports System.Data.OleDb
Public Class Form1
Inherits System.Windows.Forms.Form
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 Sub empty()
TextBox1.Text = 0
TextBox2.Text = ""
TextBox3.Text = 0
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
strcon = "provider=microsoft.jet.oledb.4.0;" & "data source=d:\a\tct121.mdb"
strsql = "select * from ta121"
con = New OleDbConnection(strcon)
con.Open()
da = New OleDbDataAdapter(strsql, con)
da.Fill(ds, "ta121")
con.Close()
End Sub
کدهای مربوط به درج یک سطر خالی در بانک اطلاعاتی
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
newrow = ds.Tables("ta121").NewRow
MsgBox("enter new record and press save")
Call empty()
End Sub
کدهای مربوط به دادن مقدار به فیلدهای سطر خالی
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
newrow("snoid") = Val(TextBox1.Text)
newrow("snameuser") = TextBox2.Text
newrow("snopass") = Val(TextBox3.Text)
ds.Tables("ta121").Rows.Add(newrow)
cb = New OleDbCommandBuilder(da)
da = cb.DataAdapter
da.Update(ds, "ta121")
con.Close()
End Sub
مشکلی که من داشتم مربوط می شه به قسمت asp.net web siteدر واقع من برنامه مو اول تو محیط vb.net نوشتم حالا که می خوام کداشوببرم تو قسمت asp.net اجرا می شه ولی روی یه سری دستورات خطا می ده.حالا به نظر شمامشکل این کد در کجاست این کد را من در 2005vb.net نوشتم و بعد در محیط asp.net web site کپیش کردم.
Imports System.Data
Imports System.Data.OleDb
Public Class Form1
Inherits System.Windows.Forms.Form
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 Sub empty()
TextBox1.Text = 0
TextBox2.Text = ""
TextBox3.Text = 0
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
strcon = "provider=microsoft.jet.oledb.4.0;" & "data source=d:\a\tct121.mdb"
strsql = "select * from ta121"
con = New OleDbConnection(strcon)
con.Open()
da = New OleDbDataAdapter(strsql, con)
da.Fill(ds, "ta121")
con.Close()
End Sub
کدهای مربوط به درج یک سطر خالی در بانک اطلاعاتی
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
newrow = ds.Tables("ta121").NewRow
MsgBox("enter new record and press save")
Call empty()
End Sub
کدهای مربوط به دادن مقدار به فیلدهای سطر خالی
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
newrow("snoid") = Val(TextBox1.Text)
newrow("snameuser") = TextBox2.Text
newrow("snopass") = Val(TextBox3.Text)
ds.Tables("ta121").Rows.Add(newrow)
cb = New OleDbCommandBuilder(da)
da = cb.DataAdapter
da.Update(ds, "ta121")
con.Close()
End Sub