الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

فتح واغلاق قاعدة البيانات على الشبكة بدون تصادم سجلات المستخدمين

بدأه dbahl في 18 فبراير 2008 · 4 رد · 925 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم ..

اخواني عامل منظومة على الشبكة وتشتغل 100% ولكن المشكلة كيف ومتى واين يوضع كود فتح واغلاق قاعدة البيانات .

وكيف ارتاح من عملية تصادم السجلات من المستخدمين على الشبكة .

.......... Plase

مع العلم قاعدة البيانات اكسس واحتمال اغيرها Sql Server2000

وهل تنصحونني بتغير قاعدة البيانات من اكسس الى اس اكيو ال

وشكراً .....

================================================== ========

=============================

================================================== ========

وهذا كود الاضافة ....

]================================================== ========

=============================

================================================== ========

السلام عليكم ..

اخواني عامل منظومة على الشبكة وتشتغل 100% ولكن المشكلة كيف ومتى واين يوضع كود فتح واغلاق قاعدة البيانات .

وكيف ارتاح من عملية تصادم السجلات من المستخدمين على الشبكة .

.......... Plase

مع العلم قاعدة البيانات اكسس واحتمال اغيرها Sql Server2000

وهل تنصحونني بتغير قاعدة البيانات من اكسس الى اس اكيو ال

وشكراً .....

Cmm = New OleDbCommand("select * from send1 where nu_s=" & CLng(TextBox1.Text) & " and send2='" & CStr(ComboBox1.Text) & "' and code1=" & CByte(Cde), Conn)

Red = Cmm.ExecuteReader

If Red.Read = True Then

MessageBox.Show("Not Found File", "Error", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)

TextBox1.SelectAll()

Cmm.Dispose()

Red.Close()

Exit Sub

End If

Cmm.Dispose()

Red.Close()

Cmm = New OleDbCommand("insert into send1(send2,nu_s,dat1,story1,indx1,auno,note1,code 1)values(@1,@2,@3,@4,@5,@7,@8)", Conn)

Cmm.Parameters.AddWithValue("@1", CStr(ComboBox1.Text))

Cmm.Parameters.AddWithValue("@2", CLng(TextBox1.Text))

Cmm.Parameters.AddWithValue("@3", Format(Dtp1.Value.Date, "dd/MM/yyyy"))

Cmm.Parameters.AddWithValue("@4", CStr(ComboBox2.Text))

Cmm.Parameters.AddWithValue("@5", CLng(ComboBox3.Text))

Cmm.Parameters.AddWithValue("@6", CLng(x))

Cmm.Parameters.AddWithValue("@7", Trim(TextBox3.Text))

Cmm.Parameters.AddWithValue("@8", Trim(Cde))

Cmm.ExecuteNonQuery()

Cmm.Dispose()

Red.Close()

call com1()

call com2()

call com3()

Call dgr()

Call clr()

Catch ex As Exception

MsgBox(ex.Message)

End Try

End Sub

================================================== ========

=============================

================================================== ========

تم تعديل هذه المشاركة بواسطة dbahl في 18 فبراير 2008 في 16:47

#2

أخي الحبيب حاول ان تستخدم تقنية الاتصال الغير مباشر حيث عند استعمالك الكائن dataadapter يقوم الكائن بنفسه بفتح واغلاق الاتصال ولايعمل ضغط على الخادم

أنا الرجل الضرب الذي تعرفونه***خشاش كرأس الحية المتوقد

لوكنت وغلاً في الرجال لضرني**** حسن جرائتي ومقتدي

منتديات طريق الهداية

#3

السلام عليكم ..

شكرا على المشاركة .

اوكي ماعندي اي مشكلة هل يمكن مثال توضيحى للطرية الثانية الخاصة dataadapter لاني ما اعرف الا هذه الطريقة التى احترف بكتابتها .

اذا امكن مثال بسيط للكود الاضافة والبحث والتعديل والحذف والاستفسار والتقارير .

جازاك الله خير .. لان لدي منظومة اريد كتابتها على نظام شبكة ولا اعرف كيف البدايات لفتح واغلاق القاعدة وعدم تصادم المستخدمين على الشبكة .

وشكرا على الرد والمشاركة يا أخي ..

#4

بسم الله الرحمن الرحيم

في الاول انصحك لو اكت من جهازين شغالين على نفس قاعده البيانات تشتغل ب SqlServer لانها اقوى بكتيير

تاني حاجه الطريقه التانيه بتدحدد على حسب نوع نشاط البرنامج يعني هديك مثال

لو بنك مينفعش غير بطريقه الـConect الي انت شغال بيها ولو مثلا مدرسه ممكن تشتغل بالـ Disconect

والفرق بينهم

الـ Conect بتخزن البيانات اول باول في قاعده البيانات

الـ Disconect ممكن تكتب 300 سجل وتخزنهم بعد متخلص كتابه بكود لوحده

وكل طريقه ليها مميزاتها وليها عيوبها وراجع المنتدى للمزيد من الشرح

لكن انصحك بالـ Conect

وفي عندك كود ناقص قبل متعمل cmm.parmeters.add

اكتب Cmm.parmeters.Clear

وبالنسبه للباقي انت شغال كويس بسم الله ما شاء الله عليك

#5

لتنفيذ كومومانت يجب فتح الاتصال

مثال

conn.Open()
Red = Cmm.ExecuteReader
conn.Close()

طبعا ال conn

هو الكونكشن

اما بالنسبة داتا ادابتر فهو طريقة الوصل بين DataSet و قاعدة البيانات و طريقة عمل كالتالي

		Dim sqlString As String = "Select * from TableName"
		Dim connString As String = "Data Source=localhost;Initial Catalog=Northwind;user id=userid;password=password"
		Dim conn As OleDbConnection = New OleDbConnection(connString)
		Dim comm As OleDbCommand = New OleDbCommand(sqlString, conn)
		Dim daAdap As OleDbDataAdapter = New OleDbDataAdapter(comm)
		Dim daSet As DataSet = New DataSet
		daAdap.Fill(daSet, "TableName")

و هذا الكود سوف يقوم بملا الدا سيت

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…