درج و ویرایش اطلاعات در بانک

[nefrat]

سلام پروژه من تا این مراحل رفته
میخوام الا چند تا text دارم و بانک من هم sql هست
تمام text ها با field های جدول هماهنگه
فقط میخوام موقعی که این text ها رو اطلاعات میدم این اطلاعات بره توی جدولم
و اینکه بتونم ویرایشش کنم!
برای حذف مشکلی ندارم اما توی درج به مشکل برخوردم!
چه ابزارهایی نیاز دارم ؟ اول؟ برای اینکه text هارو به فیلد ها ارتباط بدم؟

[mansourii]

؟؟:متفکر:
چندتا TextBox داريد؟ اگه تعداد كمه كه ميتونيد جلوي دستور ‍Command شي تكست باكس رو معرفي كنيد اگه هم زياده بهتره پارامتر تعريف كنيد

نوع كد نويسي پارامتر



Dim sql_Command As New SqlCommand("insert into tbl_mah(fld_name,fld_family)Values(@fld_name,@fld_ family)", sql_Connection)
sql_Connection.Open()
sql_Command.Parameters.Add("@fld_name", SqlDbType.VarChar).Value = TextBox1.Text
sql_Command.Parameters.Add("@fld_family", SqlDbType.VarChar).Value = TextBox2.Text

[nefrat]

این دستور برای add کردن اطلاعات هست یا mathch کردن تکست با فیلد ها؟
و اینکه باید توی public class بنویسمش؟

[mansourii]

این دستور اطلاعات شما رو از طریق TextBox ها میگیره و در DataBase ذخیره میکنه.(ADO.Net) الی ماشاالله کد نویسی ADO و ADO.Net توی این سایت پره! اگه بگردی قول میدم بالای 100 تا Application گیرتون بیاد
حالت کلیش:

Dim Sql_connection as new sqlconnection("Data Source=(local);database=NameDataBase;integrated Security=true")
Dim sql_Command As New SqlCommand("insert into tbl_mah(fld_name,fld_family)Values(@fld_name,@fld_ family)", sql_Connection)
sql_Connection.Open()
sql_Command.Parameters.Add("@fld_name", SqlDbType.VarChar).Value = TextBox1.Text
sql_Command.Parameters.Add("@fld_family", SqlDbType.VarChar).Value = TextBox2.Text
sql_command.Executenonequry()
sql_Connection.Open()

[nefrat]

سلام ممنونم
من این کد و توی دکمه ثبت گذاشتم



Dim Sql_connection As New SqlConnection("Data Source=(local);database=shafagh.hospital;integrate d Security=true")
Dim sql_Command As New SqlCommand("insert into Pa_bakhsh(ID_bimar,Name_bi,family_bi,mobile_bi,tel l_bi,address_1,address_2,saz_bim,code_bim,SHSH_bi, pas_bakhsh,Dr_bi,paz_date,comments,birth_ye,birth_ mo,birth_da,SEX)Values(@ID_bimar,@Name_bi,@family_ bi,@mobile_bi,@tell_bi,@address_1,@address_2,@saz_ bim,@code_bim,@SHSH_bi,@pas_bakhsh,@Dr_bi,@paz_dat e,@comments,@birth_ye,@birth_mo,@birth_da,@SEX)", Sql_connection)
Sql_connection.Open()
sql_Command.Parameters.Add("@Name_bi", SqlDbType.NChar).Value = TextBox1.Text
sql_Command.Parameters.Add("@family_bi", SqlDbType.NChar).Value = TextBox2.Text
sql_Command.Executenonequry()
Sql_connection.Open()




فعلا نام و نام خانوادگی و گذاشتم
اما همش از این کد خطا میگیره


sql_Command.Executenonequry()


باید چیزی اضافه کنم به فرم!!؟؟؟؟

[mansourii]

Dim sql_Command As New SqlCommand("insert into Pa_bakhsh(ID_bimar,Name_bi,family_bi,mobile_bi,tel l_bi,address_1,address_2,saz_bim,code_bim,SHSH_bi, pas_bakhsh,Dr_bi,paz_date,comments,birth_ye,birth_ mo,birth_da,SEX)Values(@ID_bimar,@Name_bi,@family_ bi,@mobile_bi,@tell_bi,@address_1,@address_2,@saz_ bim,@code_bim,@SHSH_bi,@pas_bakhsh,@Dr_bi,@paz_dat e,@comments,@birth_ye,@birth_mo,@birth_da,@SEX)", Sql_connection

شما این همه پارامتر تعریف کردید و فقط از 2 تا پارامتر استفاده کردید. باید به اندازه نیاز پارامترهاتون رو تعریف کنید

در قسمت جنرال

import system.data.sqlclient

در دکمه

Dim Sql_connection as new sqlconnection("Data Source=(local);database=NameDataBase;integrated Security=true")
Dim sql_Command As New SqlCommand("insert into tbl_mah(fld_name,fld_family)Values(@fld_name,@fld_ family)", sql_Connection)
sql_Connection.Open()
sql_Command.Parameters.Add("@fld_name", SqlDbType.VarChar).Value = TextBox1.Text
sql_Command.Parameters.Add("@fld_family", SqlDbType.VarChar).Value = TextBox2.Text
sql_command.Executenonequry()
sql_Connection.close()

[nefrat]

نشد!!!!
بازم اون یه خط و ایراد میگره!!!



Imports System.Data
Imports System.Data.SqlClient
Public Class form3
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim Sql_connection As New SqlConnection("Data Source=(local);database=shafagh.hospital;integrate d Security=true")
Dim sql_Command As New SqlCommand("insert into Pa_bakhsh(ID_bimar,Name_bi,family_bi,mobile_bi,tel l_bi,address_1,address_2,saz_bim,code_bim,SHSH_bi, paz_bakhsh,Dr_bi,paz_date,comments,birth_ye,birth_ mo,birth_da,SEX)Values(@ID_bimar,@Name_bi,@family_ bi,@mobile_bi,@tell_bi,@address_1,@address_2,@saz_ bim,@code_bim,@SHSH_bi,@pas_bakhsh,@Dr_bi,@paz_dat e,@comments,@birth_ye,@birth_mo,@birth_da,@SEX)", Sql_connection)
Sql_connection.Open()
sql_Command.Parameters.Add("@Name_bi", SqlDbType.NChar).Value = TextBox1.Text
sql_Command.Parameters.Add("@family_bi", SqlDbType.NChar).Value = TextBox2.Text
sql_Command.Parameters.Add("@mobile_bi", SqlDbType.NChar).Value = TextBox11.Text
sql_Command.Parameters.Add("@tell_bi", SqlDbType.NChar).Value = TextBox10.Text
sql_Command.Parameters.Add("@address_1", SqlDbType.NVarChar).Value = TextBox8.Text
sql_Command.Parameters.Add("@address_2", SqlDbType.NVarChar).Value = TextBox9.Text
sql_Command.Parameters.Add("@saz_bim", SqlDbType.NChar).Value = ComboBox2.Text
sql_Command.Parameters.Add("@code_bim", SqlDbType.NChar).Value = TextBox7.Text
sql_Command.Parameters.Add("@paz_bakhsh", SqlDbType.NChar).Value = ComboBox3.Text
sql_Command.Parameters.Add("@Dr_bi", SqlDbType.NChar).Value = TextBox13.Text
sql_Command.Parameters.Add("@paz_date", SqlDbType.NChar).Value = TextBox14.Text
sql_Command.Parameters.Add("@comments", SqlDbType.NVarChar).Value = TextBox12.Text
sql_Command.Parameters.Add("@birth_ye", SqlDbType.NChar).Value = TextBox2.Text
sql_Command.Parameters.Add("@birth_mo", SqlDbType.NChar).Value = TextBox2.Text
sql_Command.Parameters.Add("@birth_da", SqlDbType.NChar).Value = TextBox2.Text
sql_Command.Parameters.Add("@SEX", SqlDbType.Char).Value = TextBox2.Text
sql_Command.Executenonequry()
Sql_connection.Close()

End Sub
End Class

[mansourii]

ایراد رو از
sql_Command.Executenonequry() میگیره
یا از
Sql_connection.Open()

[nefrat]

sql_Command.Executenonequry()

زیرش خط آبی داره

[nefrat]

میگه
Executenonequry
عضوی از
system.data.sqlclient.sqlcommand نیست!

[mansourii]

به این دفترچه تلفن اگه یه نگاه بندازید 80 درصد مشکل فکر میکنم حل بشه! (یک دفترچه تلفن آموزشی نه کاربردی)
درمورد ایراد فیلدهای دیتابیستون رو با پارامترهایی که تعریف کردید چک کنید ببینید مثل هم هست یا خیر / پارامتر اضافه تعریف نکرده باشید/ اگه فیلد رو چک کنید nchar تعریف کرده باشید.
فقط دانلود غیر مستقیمه - معلوم نیست این سایت رو چیکارش کردن که نمیزاره بالای 1 مگابایت آپلود کنیم (قابل توجه مدیران سایت)

http://www.zshare.net/download/8402122478cfa86b/

[nefrat]

اینو درستش کردن خودم
غلط املایی داشت!!!!
موقعی که add و میزنم
میگه

A network-related or instance-specific error occurred while establishing a connection to SQL Server. The server was not found or was not accessible. Verify that the instance name is correct and that SQL Server is configured to allow remote connections. (provider: Named Pipes Provider, error: 40 - Could not open a connection to SQL Server)

و چیزی به دیتابیس اضافه نمیکه
این اررور دیقیقا روی Sql_connection.Open() رخ میده

[nefrat]

اگه میشه روی 4shared آپلود کنید ممنون میشم
نشد هر کاری کردم سایتشو باز نکرد

[mansourii]

سلام/از ااین بابت مطمئن هستید که دیتابیس در بانک اطلاعاتی SQLServer اتچ شده؟؟؟؟

چرا نتونستید دانلود کنید؟
عکس ها میتونن برای دانلود برنامه کمکتون کنن

[mansourii]

در ضمن اگه امکان داره
اگه برنامه رو نمیخواید توی سایت بذارید
حداقل Databaseرو توی سایت بذارید/بانک که به درد کسی نمیخوره! این طوری میشه مشکل رو دقیقا رفع کرد/