تغییر دیتابیس و بازنویسی کانکشن ها

[dr.pantagon]

سلام
من با 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

[dr.pantagon]

منظورم از تغییر این است که کانکشن دیتابیس الان اکسس است برای sql چه طوری میشه
برای اضافه کردن اطلاعات من یک سری کد نوشتم این کد ها چه طور می شن
دستوری که اطلاعات رو توی اکسس اضافه می کنه با sql فرق می کنه
فقط کدهای دیتابیس رو نمی دونم
تشکر

[Modifier]

با سلام خدمت شما

اولش namespace زیر رو Import کن.

System.Data.SqlClient;

برای connectionstring از کد زیر استفاده کن :



server=localhost;database=[database name];User ID=sa;Password=;


یا این یکی بهتره :(پیشنهاد شده مایکروسافت)



Persist Security Info=False;Integrated Security=SSPI;Initial Catalog=[database name];server=(local)


بجای OleDbConnection از
SqlConnection
استفاده کن

بجای
OleDbDataAdapter از
SqlDataAdapter
استفاده کن

بجای OleDbCommandBuilder از SqlCommandBuilder
استفاده کن

و چیز خاص دیگه ای من ندیدم

موفق باشی

یا علی

[Modifier]

در ضمن میتونی از سورس وب سایتی که گذاشتم استفاده کنی -- همش sqlserver است.

یا علی

[golhay2]

fبرای Insert می تونی به طور مثال از این کد استفاده بکنی

Dim con As SqlConnection
Dim cmd As SqlCommand
con = New SqlConnection("server=(local);uid=youruserid;pwd=yourpass;databas e=yourdatabase")
cmd = New SqlCommand("Insert Into personal (name,family,fathername,ssno,birthdate,nationalcod e,postalcode,address,email ) Values (@name,@family,@fathername,@ssno,@birthdate,@natio nalcode,@postalcode,@address,@email)", con)
cmd.Parameters.AddWithValue("@name", TextBox1.Text)
cmd.Parameters.AddWithValue("@family", TextBox2.Text)
cmd.Parameters.AddWithValue("@fathername", TextBox3.Text)
cmd.Parameters.AddWithValue("@ssno", TextBox4.Text)
cmd.Parameters.AddWithValue("@birthdate", TextBox5.Text)
cmd.Parameters.AddWithValue("@nationalcode", TextBox6.Text)
cmd.Parameters.AddWithValue("@postalcode", TextBox7.Text)
cmd.Parameters.AddWithValue("@address", TextBox8.Text)
cmd.Parameters.AddWithValue("@email", TextBox9.Text)
con.Open()
cmd.ExecuteNonQuery()
con.Close()
Label13.Visible = True
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""
TextBox9.Text = ""

[dr.pantagon]

در ضمن میتونی از سورس وب سایتی که گذاشتم استفاده کنی -- همش sqlserver است.

یا علی


بله اون رو دانلود کردم و دیدم ولی اون با
C#
نوشته شده و من با
VB.NET
کار می کنم و زیاد از خانواده سی خوشم نمی یاد چون 2 سال است وین و وب با خانواده
VB
کار کردم

[dr.pantagon]

آقای Modifier (http://barnamenevis.org/forum/member.php?u=46740) یک سوال من با MSSQL2000 کار می کنم یعنی بلدم نمی دونم چرا اینقدر سنگین کار می کنه آیا ماله شما هم همین قدر سنگین کار می کنه ؟

[dr.pantagon]

golhay2 (http://barnamenevis.org/forum/member.php?u=56667) عزیز جواب نداد.
اینم کد شما که گفتید این جوری نوشتم جواب نداد

Imports System
Imports System.Data
Imports System.Data.SqlClient

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
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 Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim con As SqlConnection
Dim cmd As SqlCommand
con = New SqlConnection("server=localhost;database=yavari;User ID=sa;Password=;")
cmd = New SqlCommand("Insert Into table (student,name,famil,address,tel ) Values (student,name,famil,address,tel)", con)
cmd.Parameters.Add("@student", TextBox5.Text)
cmd.Parameters.Add("@name", TextBox1.Text)
cmd.Parameters.Add("@famil", TextBox2.Text)
cmd.Parameters.Add("@address", TextBox3.Text)
cmd.Parameters.Add("@tel", TextBox4.Text)


con.Open()
cmd.ExecuteNonQuery()
con.Close()

TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""

End Sub
End Class

[Modifier]

با سلام خدمت شما



بله اون رو دانلود کردم و دیدم ولی اون با

C#
نوشته شده و من با
VB.NET
کار می کنم و زیاد از خانواده سی خوشم نمی یاد چون 2 سال است وین و وب با خانواده
VB
کار کردم


فهمیدن 2 طرف زیاد مشکل نیست میشه کسی که ویبی کار میکنه c# رو هم بفهمه یعنی نیاز نیست که c# کار کنه فقط خوبه که بفهمه که چی نوشتن.


آقای Modifier (http://barnamenevis.org/forum/member.php?u=46740) یک سوال من با MSSQL2000 کار می کنم یعنی بلدم نمی دونم چرا اینقدر سنگین کار می کنه آیا ماله شما هم همین قدر سنگین کار می کنه ؟

سوالتون مبهمه و نمیشه پاسخ صریحی به اون داد ولی برای کارایی بهتر و سریعتر اجرا شدن دستورات sql از store procedure استفاده کنید.

یا علی

[dr.pantagon]

سوالتون مبهمه و نمیشه پاسخ صریحی به اون داد ولی برای کارایی بهتر و سریعتر اجرا شدن دستورات sql از store procedure استفاده کنید.


نه منظورم خود
MSSQL [Enterprise Manager] هست

[Modifier]

با سلام

بله
از من هم دیر باز میشه تا میام به table برسم باید خیلی صبر کنم ... اما مشکل خاصی نیست.

اگه سوال خاص دیگه ای نیست در این تاپیک "حل شد" رو بزن.

البته هر تاپیک یه سوال --- این فکر کنم یه قانونه

یا علی

[dr.pantagon]

بله یک قانون است ولی من هنوز نتونستم با اون کدهایی که شما دادید و دوست عزیزمون کاری انجام بدم یعنی اطلاعاتی توی دیتابیس اضافه کنم
ASP.net+VB.NET

منظورم با زبان شیرین VB است و گرنه چرا با C# می تونم این کار رو بکنم از قبل هم می تونستم ولی گفتم خوشم نمی یاد از C#

می دونی به وکیل ها چی می گن روز اول درسشون
قانون برای شکستن و نقض کردن گذاشته می شه واگر گذاشته نشه دنیا سالم تر است ولی اگر دنیا سالم باشه ما بی کار می شیم
:لبخند::گیج::چشمک:

[dr.pantagon]

کسی اینجا وی بی کار نیست که من دقیق تر ازش جواب بگیرم

[golhay2]

می تونی بگی دقیقا کجای کد اجرا نمی شه و چه Errorی میده

[golhay2]

می شه بگی کجای کد اجرا نمی شه

[dr.pantagon]

دوست عزیز یک پروژه نداری که با asp.net[VB.NET] باشه با MSSQL
اگر بتونی بهم یک پروژه بدید عالی میشه البته یک سایت بود codeproject توش چیز بدرد بخوری که به درد یک مبتدی بخوره نبود

هر کس لطف کنه یک سورس asp.net به زبان VB به من بده متشکر میشم

[dr.pantagon]

مشکل حل شد
کسانی که مثل من مشکل دارن می تونن این یک نمونه کامل و ساده رو بگیرن و مشکلشون با
MSSQL حل می شه.
نمونه زیر قابلیت
اضافه کردن رکورد
حذف
ویرایش (لود کردن اطلاعات و سیو کردن)
حرکت بین رکورد ها ( رکورد قبلی و بعدی )
یک نمونه کامل وساده
VB.NET و ASP.NET و MSSQL چه کردن
فقط این خود MSSQL سنگین کار می کنه که اعصاب آدم رو خورد میکنه :عصبانی++: