السلام عليكم. عندي فورمين الفورم الاول به بيانات والفورم الثاني به أزار مثلا لو اضغظ على الزر الاول يفتح لي الفورم الاول السجل الاول والزر الثاني يفتح لي الفورم الاول السجل الثاني وهكذا يعني باختصار يفتح الفورم حسب السجل ولكم جزيل الشكر.
Module Module1
Public str As String = "provider=microsoft.ace.oledb.12.0;data source=|datadirectory|\db.accdb"
Public con As New OleDb.OleDbConnection(str)
Public ds As New DataSet
Public sql As String = "select * from tb"
Public da As New OleDb.OleDbDataAdapter(sql, con)
Public pos As Integer = 0
Public Sub fi()
ds.Clear()
Form1.tname.DataBindings.Clear()
Form2.mobile.DataBindings.Clear()
Form3.email.DataBindings.Clear()
المثال في المرفقات يعطيك الف عافية اخوي سعود
ربي يبارك فيك
اللي اريده انه لمن اضغط على زر المنتج الاول يفتح لي بيانات السجل الاول
ولمن اضغط على المنتج الثاني يفتح لي بيانات السجل الثاني وهكذا
فهمت الحين لكن فيهاستفسار لعلي لفهم اكثر
هل السجلات بعدد معين اي بعدد الازرار؟ .. لاني وجدت زر اضافة فكيف نبرمج للسجل الجديد ؟؟
اقترح بدل طريقة الازرار ان نضيف اداة القائمة اما Combobox or Listbox ونعبئها ببيانات عمود من جدول وعند نقر اي بند يتم اظهار تفاصيله في فورم معين.
مارايك باقتراحي؟
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
pos = 0
_1.ShowDialog()
Catch ex As Exception
MsgBox(Err.Description, MsgBoxStyle.Critical, "")
End Try
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Try
pos = 1
_1.ShowDialog()
Catch ex As Exception
MsgBox(Err.Description, MsgBoxStyle.Critical, "")
End Try
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Try
pos = 2
_1.ShowDialog()
Catch ex As Exception
MsgBox(Err.Description, MsgBoxStyle.Critical, "")
End Try
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Try
pos = 3
_1.ShowDialog()
Catch ex As Exception
MsgBox(Err.Description, MsgBoxStyle.Critical, "")
Imports System
Public Class _1
Dim DataAdapter1 As OleDbDataAdapter
Dim FileName As String = String.Empty
Dim ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source =" & Application.StartupPath & "\sow.mdb"
Dim Conn As New OleDbConnection(ConStr)
Dim DataSet1 As New DataSet
Dim SQLstr As String = "SELECT * FROM table1"
Public Sub ChangePosition()
Label24.RightToLeft = Windows.Forms.RightToLeft.Yes
Label24.Text = "السجل " & Me.BindingContext(DataSet1, "table1").Position + 1 & _
" من " & Me.BindingContext(DataSet1, "table1").Count
End Sub
Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Me.BindingContext(DataSet1, "table1").Position = Me.BindingContext(DataSet1, "table1").Count - 1
ChangePosition()
End Sub
Private Sub _1_Load_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim DataAdapter1 As New OleDbDataAdapter(SQLstr, Conn)
DataAdapter1.Fill(DataSet1, "table1")
Me.BindingContext(DataSet1, "table1").Position = pos
End Sub
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub Button1_Click_2(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If MsgBox("هل تريد إضافة معلومات قسم جديد ", vbYesNo + vbQuestion, "إضافة جديدة") = MsgBoxResult.Yes Then
Conn.Close()
MsgBox("تمت عملية التعديل بنجاح بنجاح")
Catch ex As Exception
MsgBox(ex.ToString)
End Try
End Sub
Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
'My.Computer.FileSystem.CopyFile(TextBox14.Text, Application.StartupPath & "\pic\" & IO.Path.GetFileName(TextBox14.Text))
Try
Dim SavInto As New OleDb.OleDbCommand
'Dim ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & Application.StartupPath & "\sow.mdb"
'Dim Conn As New OleDbConnection(ConStr)
If Conn.State = ConnectionState.Open Then Conn.Close()
Private Sub Button8_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
Me.BindingContext(DataSet1, "table1").Position = 0
ChangePosition()
End Sub
Private Sub Button6_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Me.BindingContext(DataSet1, "table1").Position += 1
ChangePosition()
End Sub
Private Sub Button7_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
Me.BindingContext(DataSet1, "table1").Position -= 1
ChangePosition()
End Sub
Private Sub Button9_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
Me.BindingContext(DataSet1, "table1").Position = Me.BindingContext(DataSet1, "table1").Count - 1
ChangePosition()
End Sub
Private Sub TextBox14_TextChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox14.TextChanged
Try
06-10-12, 01:18 AM (آخر تعديل لهذه المشاركة : 06-10-12, 01:25 AM {2} بواسطة ѕαLσσσмx.)
هذا طبعا للاخ الاداري بمنتدى فيجوال بيسك وجدت الموضوع بمنتدى الاقصر
السلام عليكم ورحمة الله وبركاته
عند تشغيل مشاريع 2010 على اصدار اقدم نجد ان به اخطا نتيجة لأنه على اصدار اقدم وكود الاسيمبلى والديزان بها مشاكل لذلك سنتعرف حل حل بسيط
طريقة تشغيل مشاريع 2010 الى اصدارات اقدم 2008 & 2005
افتح مشرع جديد من فيجول 2008 فقط بدون ام تعمل شيئ به
فقط غير اسم الفروم من (name) وليس التكست
او من solution explorer
بحيث يكون الاسم غير اسم الفرومات التى ستضاف من مشروع 2010
من قائمة project اختار add Existing item سيفتح لك مربع حوارى
اذهب للمشروع المبرمج ب 2010 الى تريد تشغيله على 2008 او 2005
من المربع الحوارى واذهب لمجلد الفرومات بمشروع 2010 ستجد لكل فروم 3 ملفات كما فى الصورة
حدد الملفات لكل الفرومات ثم اضغط على add
سيتجد الان الفرمات الجديدة فى solution explorer
من قائمة project اختار اخر خيار لخصائص المشروع
من startup form اختار الفروم الذى سيبدأ به المشروع مثل ما كان فى 2010
جرب التشغيل الان
بالتوفيق
[/HR]يوجد اداة تقوم بتحويل المشاريع من مايكروسوفت
الاداة سهل العمل عليها ولا تحتاج لشرح
يمكن التحميل من المرفق
لأى استفسارات عن الاداة موجود باذن الله
انا استخدم الاداة منذ فترة بجد لا حدث اى مشاكل
يمكنكم استخدام الاداة او بالطريقة التى بالاعلى
---------------------------------------------------------------------------------
---------------------------------------------------------------------- الملفات المرفقة converter.zip (الحجم : 23.61 KB / التحميلات : 1) الملف المرفق اعلاه هذا للتحويل بين اصدارات المشاريع