khz-web1
پنج شنبه 25 مرداد 1386, 13:24 عصر
سلام عرض می کنم به تمام بروبچ برنامه نویس سایت خوب برنامه نویس
من می خوام اطلاعات فرم خودم را به بانک ارسال کنم ولی متاسفانه ارسال نمیشه و از من خطا میگیره ، جون هر کی دوست دارید به من کمک کنید :گریه:
Imports System.Data
Imports System.Data.OleDb
PartialClass _Default
Inherits System.Web.UI.Page
ProtectedSub Page_Load(ByVal sender AsObject, ByVal e As System.EventArgs) HandlesMe.Load
Dim ds AsNew DataSet
Dim strsql AsString
Dim strcon AsString
Dim da As OleDbDataAdapter
Dim con As OleDbConnection
Dim newRow As DataRow
Dim cb As OleDbCommandBuilder
strcon = "provider= microsoft.jet.oledb.4.0.;data source = G:\projeh\forms\App_Data\db5.mdb"
strsql = "select*from stTable"
con = New OleDbConnection(strcon)
con.Open()
da = New OleDbDataAdapter(strsql, con)
da.Fill(ds, "stTable")
EndSub
ProtectedSub Button1_Click(ByVal sender AsObject, ByVal e As System.EventArgs) Handles Button1.Click
newRow = ds.Tables("stTable").newrow()
newRow("stno") = Val(TextBox1.Text)
newRow("name") = TextBox2.Text
newRow("course") = TextBox3.Text
newRow("ave") = Val(TextBox4.Text)
newRow("numunit") = Val(TextBox5.Text)
ds.Tables("stTables").Rows.ADD(newRow)
cd = New OleDbCommandBuilder(da)
da.insertcommand = cb.getlnsertcommand()
da.Update(ds, "stTable")
con.Close()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
EndSub
EndClass
بانک من هم اکسس است بابا به من کمک کنید گیر کردم اساسی
من می خوام اطلاعات فرم خودم را به بانک ارسال کنم ولی متاسفانه ارسال نمیشه و از من خطا میگیره ، جون هر کی دوست دارید به من کمک کنید :گریه:
Imports System.Data
Imports System.Data.OleDb
PartialClass _Default
Inherits System.Web.UI.Page
ProtectedSub Page_Load(ByVal sender AsObject, ByVal e As System.EventArgs) HandlesMe.Load
Dim ds AsNew DataSet
Dim strsql AsString
Dim strcon AsString
Dim da As OleDbDataAdapter
Dim con As OleDbConnection
Dim newRow As DataRow
Dim cb As OleDbCommandBuilder
strcon = "provider= microsoft.jet.oledb.4.0.;data source = G:\projeh\forms\App_Data\db5.mdb"
strsql = "select*from stTable"
con = New OleDbConnection(strcon)
con.Open()
da = New OleDbDataAdapter(strsql, con)
da.Fill(ds, "stTable")
EndSub
ProtectedSub Button1_Click(ByVal sender AsObject, ByVal e As System.EventArgs) Handles Button1.Click
newRow = ds.Tables("stTable").newrow()
newRow("stno") = Val(TextBox1.Text)
newRow("name") = TextBox2.Text
newRow("course") = TextBox3.Text
newRow("ave") = Val(TextBox4.Text)
newRow("numunit") = Val(TextBox5.Text)
ds.Tables("stTables").Rows.ADD(newRow)
cd = New OleDbCommandBuilder(da)
da.insertcommand = cb.getlnsertcommand()
da.Update(ds, "stTable")
con.Close()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
EndSub
EndClass
بانک من هم اکسس است بابا به من کمک کنید گیر کردم اساسی