PDA

View Full Version : سوال: نحوه کار با دیتا بیس



h_a_m_i_d
یک شنبه 14 اسفند 1390, 22:07 عصر
سلام خدمت دوستان گرامی و عزیز لطفا اگر کسی مطلبی در مورد دیتابیس میدونه تو این تایپیک قرار بده
چون من تا حالا با دیتابیس زیاد کار نکردم دوستان اگر مطلب اموزشی دیگه ای هم بود در مورد دیتابیس دریغ نکنن
ممنون

Hybrid
یک شنبه 14 اسفند 1390, 22:09 عصر
سلام دوست عزیز ،

سوالت خیلی خیلی کلیه ، بحث در رابطه با دیتابیس خودش یک کتاب میخواد ( اونم کتاب های بالای 1000 صفحه ) . اصلا نمیشه توضیحش داد داخل این تاپیک.

h_a_m_i_d
دوشنبه 15 اسفند 1390, 16:23 عصر
سلام دوست عزیز نحوه فیلتر کردن فیلدها که مثلا فقط انهایی که اسمشان علی است نمایش بدهد
نحوه درج
نحوه حذف

Hybrid
دوشنبه 15 اسفند 1390, 17:32 عصر
سلام دوست عزیز نحوه فیلتر کردن فیلدها که مثلا فقط انهایی که اسمشان علی است نمایش بدهد
نحوه درج
نحوه حذف

سلام ، این کدها رو من قبلا در یکی از پروژه هام استفاده کردم(البته تغییرشون دادم به زبان ساده تا متوجه بشین!). میتونین راحت تغییرشون بدین و ازشون استفاده کنین ، سوال هم داشتین بپرسین.

جستجو :


Function Search(ByVal FieldName As String, ByVal SearchFor As String) As DataTable
Dim oledbDataAdapter1 As New OleDbDataAdapter
With oledbDataAdapter1
.SelectCommand = New OleDbCommand
.SelectCommand.Connection = oledbConnection1
.SelectCommand.CommandType = CommandType.Text
.SelectCommand.CommandText = "Select * from person Where " & FieldName & " like '%" & SearchFor & "%' order by Person_ShAks"
If .SelectCommand.Connection.State <> ConnectionState.Open Then
.SelectCommand.Connection.Open()
End If
.SelectCommand.ExecuteNonQuery()
Dim ds As New MyDs
oledbDataAdapter1.Fill(ds, "Person")
Return ds.Person
End With

End Function

اضافه :


Dim oledbConnection1 As New OleDbConnection
oledbConnection1.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + Application.StartupPath + "\AddressBookBank.accdb"

Dim oledbDataAdapter1 As New OleDbDataAdapter
oledbDataAdapter1.InsertCommand = New OleDbCommand("insert into person(prsl_name,prsl_familyname) values(@prsl_name,@prsl_familyname)")
oledbDataAdapter1.InsertCommand.Connection = oledbConnection1
With oledbDataAdapter1
.InsertCommand.Parameters.AddWithValue("prsl_name", txtName.Text)
.InsertCommand.Parameters.AddWithValue("prsl_familyname", txtFamilyName.Text)
End With

If oledbDataAdapter1.InsertCommand.Connection.State = ConnectionState.Closed Then
oledbDataAdapter1.InsertCommand.Connection.Open()
End If

oledbDataAdapter1.InsertCommand.ExecuteNonQuery()
MessageBox.Show("رکورد مورد نظر با موفقیت ثبت شد")

حذف :

Dim oledbConnection1 As New OleDbConnection
oledbConnection1.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + Application.StartupPath + "\AddressBookBank.accdb"

Dim oledbDataAdapter1 As New OleDbDataAdapter
oledbDataAdapter1.DeleteCommand = New OleDbCommand()
oledbDataAdapter1.DeleteCommand.Connection = oledbConnection1
oledbDataAdapter1.DeleteCommand.CommandType = CommandType.Text
oledbDataAdapter1.DeleteCommand.CommandText = "delete from person where id=@id"
oledbDataAdapter1.DeleteCommand.Parameters.AddWith Value("@id", DataGridView1.CurrentRow.Cells(0).Value.ToString() )

If oledbDataAdapter1.DeleteCommand.Connection.State <> ConnectionState.Open Then
oledbDataAdapter1.DeleteCommand.Connection.Open()
End If

oledbDataAdapter1.DeleteCommand.ExecuteNonQuery()

MessageBox.Show("اطلاعات با موفقیت حذف شد")

oledbConnection1.Close()

shadi khanum
دوشنبه 15 اسفند 1390, 22:17 عصر
دوست عزیز اگه اصلا کار نکردی اول مفاهیم Ado.Net رو کمی مطالعه کن که راحت تر بتونب کدها رو بفهمی و گیج نشی

h_a_m_i_d
یک شنبه 21 اسفند 1390, 20:45 عصر
سلام ، این کدها رو من قبلا در یکی از پروژه هام استفاده کردم(البته تغییرشون دادم به زبان ساده تا متوجه بشین!). میتونین راحت تغییرشون بدین و ازشون استفاده کنین ، سوال هم داشتین بپرسین.
سلام دوست عزیز بسیار ازت ممنونم فقط میشه بی زحمت نمونه این کدها رو تو SQL هم بگی
و اگر دیتابیسمون رمز داشته باشه چطوری باید رمز و به برنامه بخورونیم
و برای ویرایش یک رکورد باید چه کار کرد
بازم ممنون

h_a_m_i_d
یک شنبه 21 اسفند 1390, 20:52 عصر
نحوه تنظیم پروگرس بار با لود شدن دیتابیس
نحوه قرار دادن مثلا یک باتون در یک خانه دیتاگرید ویو
نحوه کدنویسی برای باتون موجود در ان خانه
نحوه تنظیم پروگرس بار با بک اپ گیری از دیتابیس
ایا میشود هنگامی که ان فایل وجود نداشت خود برنامه ان را بسازد مثلا وقتی که دیتابیس اکسس وجود نداشت خود برنامه ان را بسازد همراه با فیلدها و پسورد

h_a_m_i_d
سه شنبه 23 اسفند 1390, 20:56 عصر
یعنی جواب این سوالا رو هیچکی نمیدونه:گریه::گریه:

h_a_m_i_d
سه شنبه 23 اسفند 1390, 21:08 عصر
لطفا اگه کسی حتی جواب یکی از موارد بالا رو هم بلده دریغ نکنه
و یک سوال دیگه ایا میشه که بانک اطلاعاتی رو به یک فایل اکسل تبدیل کنیم

Hybrid
سه شنبه 23 اسفند 1390, 21:16 عصر
سلام دوست عزیز ،

نه میدونیم ولی چه فایده ای داره؟؟ ، اولا سوال شما دارای چند قسمت هست که هر کدوم بحث مفصل خودش رو داره ، دوما شما اول برین چند کتاب در رابطه با بانک بخونین و بعد هر جایی که اشکال داشتین بیاین بپرسین در خدمتیم.

اینجوری باعث میشه پیشرفت خیلی زیادی بکنین.

موفق باشید./

koorosh-soft
جمعه 26 اسفند 1390, 12:50 عصر
یعنی جواب این سوالا رو هیچکی نمیدونه:گریه::گریه:
مطممئنا خیلی ها میدونن اما ! قبلش تو همین فروم سرچ کنی حتما جواب بیشتر سوالات رو پیدا میکنی ;)