PDA

View Full Version : سوال: پروژه ام به بن بست خورده خواهشا کمک کنید



mehdi4f
شنبه 08 تیر 1392, 18:21 عصر
خواهشا فایل را دانلود نگاه کنید کمک کنید.

mehdi4f
شنبه 08 تیر 1392, 18:22 عصر
هدف این فرم اینکه اسم و سن را از کاربر دریافت کنه و در بانک اطلاعاتی اکسس ذخیره و نشان بده

mehdi4f
شنبه 08 تیر 1392, 18:25 عصر
Imports System.Data.OleDb
Partial Class _Default
Inherits System.Web.UI.Page
Dim cn As New OleDbConnection("provider=Microsoft.ACE.OLEDB.12.0;data source=" & Server.MapPath("dbase/dbase.accdb"))
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
Dim cmd As New OleDbCommand("insert into rec(name1,age)values($a1,$a2)", cn)
cmd.Parameters.AddWithValue("a1", TextBox1.Text)
cmd.Parameters.AddWithValue("a2", TextBox2.Text)
cn.Open()
cmd.ExecuteNonQuery()
cn.Close()
Label1.Text = "data saved"
TextBox1.Text = ""
TextBox2.Text = ""

Catch ex As Exception
cn.Close()
Label1.Text = ex.Message
End Try
End Sub
Protected Sub Unnamed1_Selecting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.SqlDataSourceSelectingEv entArgs)
End Sub
End Class
این هم کدی که واسه ورود اطلاعات نوشتم

systam
شنبه 08 تیر 1392, 18:31 عصر
اینم یک نمونه کد
Try
Dim con As New SqlConnection
con.ConnectionString = "Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirector y|\Database.mdf;Integrated Security=True;User Instance=True"
Dim com As New SqlCommand
com.Connection = con
com.CommandText = "insert into register values(@name,@family,@user_name,@password)"
With com
.Parameters.AddWithValue("name", TextBox1.Text)
.Parameters.AddWithValue("family", TextBox2.Text)
.Parameters.AddWithValue("user_name", TextBox3.Text)
.Parameters.AddWithValue("password", TextBox4.Text)
End With
con.Open()
com.ExecuteNonQuery()
con.Close()

mehdi4f
شنبه 08 تیر 1392, 18:34 عصر
نه بازم نشد

systam
شنبه 08 تیر 1392, 18:35 عصر
برای چی نشه
یکم دقت کن طبق اون نمونه کد
انجام بده کار نداره