djhooman
چهارشنبه 02 شهریور 1390, 20:21 عصر
سلام دوستان
نماز روزهاتون قبول باشه ....
یه چند وقتیه هی سوال میکنم ، شما دوستان هم زحمت می کشید جواب میدید ...
این برنامه نویسی هم دنیایی داره برا خودش .... عین مواد مخدر میمونه که آدم و معتاد خودش میکنه ....
من داشتم دیشب ساعت 11 شب از مطالب سایت ، نمونه پروژه ها و ... مطلب یاد می گرفتم که سرم و برگردوندم دیدم ساعت شد 4 صبح ........
بگذریم ..............
من تو سایت برای سوالاتم جستجو کردم جوابم و گرفتم ، اما یکم بیشتر به توضیح نیاز دارم .
دیتابیس من Access هست
1 - من توی فرمم چند تا تکست باکس هست که میخوام اطلاعات اونا ریخته بشه تو دیتابیسم ...
برای درج اطلاعات تکست باکسم به دیتابیس ، کدی پیدا کردم و به این صورت تغییرش دادم :
Private Sub ADD()
Application.DoEvents()
Try
Dim c As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=|DataDirectory|\DB.mdb")
Dim D_add As New OleDbDataAdapter
Dim g As String = NoeDarkhastComboBox.Text
Dim M As String = BabateComboBox.Text
Dim co As New OleDbCommand("INSERT INTO Gavahi(11,22,33,44,55,66,77,88,99,10) Values (@11,@22,@33,@44,@55,@66,@77,@88,@99,@10)", c)
co.Parameters.AddWithValue("@11", NoeDarkhastComboBox.Text)
co.Parameters.AddWithValue("@22", MablaghTextBox.Text)
co.Parameters.AddWithValue("@33", BabateComboBox.Text)
co.Parameters.AddWithValue("@44", TarikhTextBox.Text)
co.Parameters.AddWithValue("@55", ArzeshAfzoodeLabel2.Text)
co.Parameters.AddWithValue("@66", TotalLabel2.Text)
co.Parameters.AddWithValue("@77", ShParvandehTextBox.Text)
co.Parameters.AddWithValue("@88", CodeNosaziTextBox.Text)
co.Parameters.AddWithValue("@99", MalekTextBox.Text)
co.Parameters.AddWithValue("@10", MoteghaziTextBox.Text)
c.Open()
co.ExecuteNonQuery()
c.Close()
MessageBox.Show("اطلاعات با موفقیت در بانک اطلاعاتی ثبت شد", "", MessageBoxButtons.OK, MessageBoxIcon.Information)
Catch ex As Exception
MsgBox(ex.Message)
End Try
ShParvandehTextBox.Text = ""
MalekTextBox.Text = ""
NoeDarkhastComboBox.Text = ""
MablaghTextBox.Text = ""
BabateComboBox.Text = ""
TarikhTextBox.Text = ""
ArzeshAfzoodeLabel2.Text = ""
TotalLabel2.Text = ""
MoteghaziTextBox.Text = ""
CodeNosaziTextBox.Text = ""
End Sub
وقتی تمام تکست باکس هارو پر کرده باشم و دکمه ثبت رو کلیک می کنم اطلاعات و میفرسته تو بانک اطلاعاتی .... اما اگر یک فیلدی خالی بمونه و دکمه ثبت رو کلیک کنم اررور زیر و میده :
data type mismatch in criteria expression
چرا ؟؟؟
2 - برای ویرایش رکورد از چه دستوری استفاده کنم ؟؟
2-1- مثلا اگر بخوام توی ددیتاگرید ویو یک سطر رو روش دابل کلیک کنم و برای ویرایشش یه فرم باز بشه و اطلاعات رو توی اون فرم آپدیت کرد ......
3- برای حذف رکورد چی ؟؟؟
4 - دو تا دکمه دارم ، دکمه قبلی و دکمه بعدی !!! وقتی دکمه قبلی کلیک شد ، رکورد قبلی و بیاره و اگر بعدی کلیک شد رکورد بعدی و بیاره ....
در ضمن نمیخوام از BindingNavigator استفاده کنم .... میخوام بصورت دستی کد نویسی اش و یاد بگیرم ....
مرسی ....
نماز روزهاتون قبول باشه ....
یه چند وقتیه هی سوال میکنم ، شما دوستان هم زحمت می کشید جواب میدید ...
این برنامه نویسی هم دنیایی داره برا خودش .... عین مواد مخدر میمونه که آدم و معتاد خودش میکنه ....
من داشتم دیشب ساعت 11 شب از مطالب سایت ، نمونه پروژه ها و ... مطلب یاد می گرفتم که سرم و برگردوندم دیدم ساعت شد 4 صبح ........
بگذریم ..............
من تو سایت برای سوالاتم جستجو کردم جوابم و گرفتم ، اما یکم بیشتر به توضیح نیاز دارم .
دیتابیس من Access هست
1 - من توی فرمم چند تا تکست باکس هست که میخوام اطلاعات اونا ریخته بشه تو دیتابیسم ...
برای درج اطلاعات تکست باکسم به دیتابیس ، کدی پیدا کردم و به این صورت تغییرش دادم :
Private Sub ADD()
Application.DoEvents()
Try
Dim c As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=|DataDirectory|\DB.mdb")
Dim D_add As New OleDbDataAdapter
Dim g As String = NoeDarkhastComboBox.Text
Dim M As String = BabateComboBox.Text
Dim co As New OleDbCommand("INSERT INTO Gavahi(11,22,33,44,55,66,77,88,99,10) Values (@11,@22,@33,@44,@55,@66,@77,@88,@99,@10)", c)
co.Parameters.AddWithValue("@11", NoeDarkhastComboBox.Text)
co.Parameters.AddWithValue("@22", MablaghTextBox.Text)
co.Parameters.AddWithValue("@33", BabateComboBox.Text)
co.Parameters.AddWithValue("@44", TarikhTextBox.Text)
co.Parameters.AddWithValue("@55", ArzeshAfzoodeLabel2.Text)
co.Parameters.AddWithValue("@66", TotalLabel2.Text)
co.Parameters.AddWithValue("@77", ShParvandehTextBox.Text)
co.Parameters.AddWithValue("@88", CodeNosaziTextBox.Text)
co.Parameters.AddWithValue("@99", MalekTextBox.Text)
co.Parameters.AddWithValue("@10", MoteghaziTextBox.Text)
c.Open()
co.ExecuteNonQuery()
c.Close()
MessageBox.Show("اطلاعات با موفقیت در بانک اطلاعاتی ثبت شد", "", MessageBoxButtons.OK, MessageBoxIcon.Information)
Catch ex As Exception
MsgBox(ex.Message)
End Try
ShParvandehTextBox.Text = ""
MalekTextBox.Text = ""
NoeDarkhastComboBox.Text = ""
MablaghTextBox.Text = ""
BabateComboBox.Text = ""
TarikhTextBox.Text = ""
ArzeshAfzoodeLabel2.Text = ""
TotalLabel2.Text = ""
MoteghaziTextBox.Text = ""
CodeNosaziTextBox.Text = ""
End Sub
وقتی تمام تکست باکس هارو پر کرده باشم و دکمه ثبت رو کلیک می کنم اطلاعات و میفرسته تو بانک اطلاعاتی .... اما اگر یک فیلدی خالی بمونه و دکمه ثبت رو کلیک کنم اررور زیر و میده :
data type mismatch in criteria expression
چرا ؟؟؟
2 - برای ویرایش رکورد از چه دستوری استفاده کنم ؟؟
2-1- مثلا اگر بخوام توی ددیتاگرید ویو یک سطر رو روش دابل کلیک کنم و برای ویرایشش یه فرم باز بشه و اطلاعات رو توی اون فرم آپدیت کرد ......
3- برای حذف رکورد چی ؟؟؟
4 - دو تا دکمه دارم ، دکمه قبلی و دکمه بعدی !!! وقتی دکمه قبلی کلیک شد ، رکورد قبلی و بیاره و اگر بعدی کلیک شد رکورد بعدی و بیاره ....
در ضمن نمیخوام از BindingNavigator استفاده کنم .... میخوام بصورت دستی کد نویسی اش و یاد بگیرم ....
مرسی ....