PDA

View Full Version : سوال: مشکل در اضافه کردن اسکین به فرم و برنامه با بانک اکسس


mohammad_king62
شنبه 05 اردیبهشت 1388, 00:52 صبح
سلام به شما دوستان عزیز و دانشمند
ضمن تشکر از همه شما ها باید بگم که چیزهایی که من در
این انجمن ها و راهنمایی هایی که دوستان به هم میکنند یاد
گرفتم در دانشگا ه یاد نگرفتم .به هر حال من یکی دو تا سوال دارم
که امیدوارم عزیزان منو راهنمایی کنند
یکی اینکه من چند اسکین با پسوند های skn,skf,ssk گرفته ام و می خوام
از اونها برای فرم های پروژه خودم استفاده کنم ولی نمی دونم که چه طور؟
اگر کار خاصی داره یا کد نویسی خاصی لطفا به من بگید اصلا چیزی نمی دونم

دوم اینکه من یک برنامه ساده با بانک اکسسس نوشتم به صورت تمرینی که عملیات
درج و حذف ونمایش وبه روز رسانی رو انجام میده هم از ماژول استفاده کردم هم از ویزارد
.هم از کد نویسی معمولی وبرنامه هم درست کار می کنه ولی چند مشکل کوچیک وجود داره
یکی در نمایش که من تویک فرم یک button و یک datagridview گذاشتم و کد هام رو برای نماش
درون button گذاشتم ولی هربار که رکورد ها درج میشن باید دوبار روی button کلیک کنم تا جواب بده (اینو بگم که نمی خوام کدها تو form load باشن )
و وقتی هم خارج شدم برای نمایش دوباره اطلاعات قبلی هنوز هستند من تو سایت کد های مختلفی رو دیدم ولی هیچ کدوم به دردم نخورد
مشکل دیگه درباره پیام خطاهایی که کاربربا زدن دکمه مثلا درج بدون وارد کردن اطلاعات ویا درج ویا خذف رکورد تکراری می خوام داخل برنامم باشه من چند نمونه استفاده کردم ولی همه رو پشت سرهم نشون میده(از errorprovider و try هم استفاده کردم ) من سورس برنامه رو می ذارم اگر دوستان لطف کنند و اونو برا من اصلاح کنندو اصلاح شده اون رو بذارن وهم جواب سوال اولم رو بدند ممنون میشم .
mohammad_king62
شنبه 05 اردیبهشت 1388, 01:01 صبح
ببخشید سورس برنامه رو ضمیمه نمی کنه وپیغام خطای بروز رسانی میده مجبورم کد نمایش ودرج
رو بفرستم
کد نمایش :
Dim strcon As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + _
Application.StartupPath + "\db1.mdb"

Dim con As New OleDb.OleDbConnection(strcon)
con.Open()
Dim sqlstr As String = "select *from table2"
Dim da As New OleDb.OleDbDataAdapter(sqlstr, con)
Dim ds As New DataSet()
Dim Dt As New DataTable
da.Fill(Dt)
Dt.TableName = "table2"
da.Fill(ds, "table2")

DataGridView1.DataSource = ds
DataGridView1.DataMember = ds.Tables("table2").ToString
con.Close()
DataGridView1.DataBindings.Clear()
DataGridView1.Columns.Item(0).HeaderText = "شماره "
DataGridView1.Columns.Item(1).HeaderText = "نام محصول "
DataGridView1.Columns.Item(2).HeaderText = "قیمت محصول "


و کد درج وپیام خطاها هم :

Dim strcon As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + _
Application.StartupPath + "\db1.mdb"
Dim Con As New OleDb.OleDbConnection(strcon)
Dim Cmd As New OleDb.OleDbCommand("", Con)
Dim Da As New OleDb.OleDbDataAdapter("", strcon)
Dim Dt As New DataTable
Dim Ds As New DataSet

If TextBox1.Text = "" Then
MsgBox(" شماره را وارد کنید ")
End If
If TextBox2.Text = "" Then
MsgBox("نام کالا را وارد کنید")
End If

If TextBox1.Text = "" Then
MsgBox("قیمت کالا را وارد کنید")
End If
Con.Open()
Try
Cmd.CommandText = "insert into table2(id,pname,up)values ('" + TextBox1.Text + "','" + TextBox2.Text + "','" + TextBox3.Text + "')"
Cmd.ExecuteNonQuery()
MsgBox("عملیات ثبت با موفقیت انجام شد")
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""

Catch ex As Exception
MsgBox("خطا")
Con.Close()
End Try
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""


Con.Close()

End Sub
mohammad_king62
شنبه 05 اردیبهشت 1388, 01:04 صبح
کد حذف هم :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim strcon As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + _
Application.StartupPath + "\db1.mdb"
Dim Con As New OleDb.OleDbConnection(strcon)
Dim Cmd As New OleDb.OleDbCommand("", Con)
Dim Da As New OleDb.OleDbDataAdapter("", strcon)
Dim Dt As New DataTable
Dim Ds As New DataSet
If TextBox1.Text = "" Then
MsgBox(" شماره را وارد کنید ")
End If
Con.Open()
Try
Cmd.CommandText = "DELETE FROM table2 WHERE ID=" & TextBox1.Text
If Cmd.ExecuteNonQuery() = 1 Then
MsgBox("عملیات حذف با موفقیت انجام شد")
TextBox1.Text = ""

Else
MsgBox("خطا در انجام عملیات حذف")
TextBox1.Text = ""
End If
Catch ex As Exception
MsgBox("خطا")
Con.Close()
End Try
Con.Close()

End Sub
mohammad_king62
شنبه 05 اردیبهشت 1388, 02:09 صبح
دوستان کسی جواب منو نمی ده
mohammad_king62
دوشنبه 07 اردیبهشت 1388, 01:29 صبح
دوستان سوال من اینقدر مشکله که کسی به اون جواب نمی ده ؟
kivoon
شنبه 02 خرداد 1388, 00:33 صبح
می تونی اسکین با پسوند ssk برای من بفرستی