taher_201397

هل المنتدى للقرآه فقط ؟

كيف يمكن ربط ال listview بال database باستخدام linq ؟ كتبت هذا الكود Public Class Form2     Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load         Dim GetData As New MYDBDataContext         Dim dupes = ListView1.Items.Cast(Of ListViewItem).         Where(Function(w) w.Text.ToLowerInvariant = "ziggy jones").         Select(Function(s) s.Text).ToList         For Each s As String In dupes             Console.WriteLine(s)         Next         Dim Conflicts = From ListItem In ListView1.Items.Cast(Of ListViewItem)()                 Where ListItem.Text = "Ziggy Jones"                 Select ListItem.Text     End Sub End Class  

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته كيف يصمم و يبرمج ال multi column combobox  بلغة vb.net لقد بحثت عنه ووجدت مصدر تعليمي في موقع codeproject لكن لم استطع تطبيقه فهل ممكن ان تساعدني في برمجته بالتفصيل لو سمحت  http://www.codeproject.com/Articles/8619/Flat-MultiColumn-Combobox-with-Autocomplete

استخدم vs 2010 ولااجد الامر reflector > extract method كما فى الصوره 

عندى treeview مربوطه بقاعدة بيانات اريد ان اجعل اول node فيها لايتم اختياره  كيف ذلك ؟

برمجت دليل حسابات اريد عندما لايكون للحساب ابناء يحذفه وهذا ينفذه ، واريده عندما يكون للحساب ابناء ان يحذفه ويحذف كل الحسابات المندرجه تحت هذا الحساب الرئيسي وهذا لايتم   وكتبت هذا الكود للحذف لكن ينفذ الجزء الاول ولاينفذ الجزء التانى   Private Sub ToolStripDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripDelete.Click Try If Me.TreeView1.SelectedNode.GetNodeCount(True) = 0 Then 'اذا لم يكن للحساب ابناء Dim D As New accountsDataContext Dim a = (From c In D.accounts Where c.account_id = Me.Txtparentid.Text).ToList(0) D.accounts.DeleteOnSubmit(a) D.SubmitChanges() MsgBox("تم الحذف")   ElseIf Me.TreeView1.SelectedNode.GetNodeCount(True) > 0 Then 'اذا كان للحساب ابناء Dim Ds As New accountsDataContext Dim b = From c In Ds.accounts Where c.account_parent = Me.Txtparentid.Text.ToList(0) Ds.accounts.InsertAllOnSubmit( Ds.SubmitChanges()   Dim DDl As New accountsDataContext Dim bb = (From c In DDl.accounts Where c.account_id = Me.Txtparentid.Text).ToList(0) DDl.accounts.DeleteOnSubmit(bb) DDl.SubmitChanges() MsgBox("تم الحذف") End If   Catch ex As Exception MsgBox(ex.Message) End Try End Sub     عند حذف الحساب 1 يتم حذفه من الشجره ومن الداتابيس اما عند تحديد الحساب 2 الذى له ابن لايحذفه وتظهر رساله exception

برمجت دليل حسابات اريد عندما لايكون للحساب ابناء يحذفه وهذا ينفذه ، واريده عندما يكون للحساب ابناء ان يحذفه ويحذف كل الحسابات المندرجه تحت هذا الحساب الرئيسي وهذا لايتم   وكتبت هذا الكود للحذف لكن ينفذ الجزء الاول ولاينفذ الجزء التانى       Private Sub ToolStripDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripDelete.Click         Try             If Me.TreeView1.SelectedNode.GetNodeCount(True) = 0 Then 'اذا لم يكن للحساب ابناء                 Dim D As New accountsDataContext                 Dim a = (From c In D.accounts Where c.account_id = Me.Txtparentid.Text).ToList(0)                 D.accounts.DeleteOnSubmit(a)                 D.SubmitChanges()                 MsgBox("تم الحذف")               ElseIf Me.TreeView1.SelectedNode.GetNodeCount(True) > 0 Then 'اذا كان للحساب ابناء                 Dim Ds As New accountsDataContext                 Dim b = From c In Ds.accounts Where c.account_parent = Me.Txtparentid.Text.ToList(0)                 Ds.accounts.InsertAllOnSubmit(                 Ds.SubmitChanges()                   Dim DDl As New accountsDataContext                 Dim bb = (From c In DDl.accounts Where c.account_id = Me.Txtparentid.Text).ToList(0)                 DDl.accounts.DeleteOnSubmit(bb)                 DDl.SubmitChanges()                 MsgBox("تم الحذف")             End If           Catch ex As Exception             MsgBox(ex.Message)         End Try     End Sub     عند حذف الحساب 1 يتم حذفه من الشجره  ومن الداتابيس اما عند تحديد الحساب 2 الذى له ابن لايحذفه وتظهر رساله  exception

بعد تغيير اسم ال textbox الى اى اسم لايظهر اسمه فى القائمه  

بسم الله الرحمن الرحيم   اريد الحفظ فى الداتابيس كتبت له هذا الكود لكنه لايخزن لااعلم السبب TryAdp.Fill(DS, "account")Dim DR As DataRow = DS.Tables("account").NewRowDR("id") = Me.Txtid.TextDR("account_id") = Me.Txtnewid.TextDR("account_name") = Me.Txtnewname.TextDR("account_parent") = Me.Txtparentid.TextDR("account_type") = Me.Cmbaccount_type.TextDR("account_sort") = Me.Cmbaccount_sort.TextDR("currency") = Me.Cmbcurrency.TextDR("depreciation_method") = Me.Cmbdepreciation_method.TextDR("depreciation_amount") = Me.Txtdepreciation_amount.TextDR("depreciation") = Me.Txtdepreciation.TextDR("debit") = Me.Txtdebit.TextDR("credit") = Me.Txtcredit.TextDR("debitbalance") = Me.Txtbalance.Text DR("creditbalance") = Me.Txtcreditbalance.TextDR("address") = Me.Txtaddress.TextDR("email") = Me.Txtemail.TextDR("webpage") = Me.Txtwebpage.TextDR("phone") = Me.Txtphone.TextDR("mobile") = Me.Txtmobile.TextDR("post_box") = Me.Txtpost_box.TextDR("fax") = Me.Txtfax.TextDR( "datex") = Me.DTPdatex.TextDS.Tables("account").Rows.Add(DR)CMB = New SqlCommandBuilder(Adp)Adp.Update(DS)MsgBox("تمت الاضافه بنجاح", MsgBoxStyle.Information, Application.ProductName)Catch ex As ExceptionMsgBox(ex.Message)End Tryويظهر الرساله التاليه   لااعرف كيف انسق الكود ، كيف ؟

عند اضافه قاعده بيانات يعطى هذه الرساله

نظام التشغيل الذى اعمل به هو 7   ماهو البرنامج الموافق له ؟

هل يعمل sql server 2005 مع visual studio 2012 ؟

up

عندى  برنامج  vb.net 2012 اريد تغيير الوانه لتصبح مثل 2005 كيف ذلك ؟

برنامج sql server 2008 r2 64 express edition حملته على الكمبيوتر وعند تنصيبه لايكمل التنصيب لاادري لماذا ؟ عندى نازل على الكمبيوتر sql server 2008 management studio وهو يعمل   هل يمكن تنصيب البرنامجين معا ؟ ولاحظت ان حجم r2 اصغر ؟