الناشي2008

استخدم هذه الدالة (""= Public Sub GETSERVER(ByVal rpt As Object, ByVal DATABASENAME As String, Optional ByVal USER As String = "", Optional ByVal PASSWORD String           Dim I As Integer         Dim TBL1 As New CrystalDecisions.Shared.TableLogOnInfo                  "اسم السيرفر"= TBL1.ConnectionInfo.ServerName           "اسم السيرفر"=   TBL1.ConnectionInfo.ServerName             ""= TBL1.ConnectionInfo.Password              ""= TBL1.ConnectionInfo.UserID              TBL1.ConnectionInfo.IntegratedSecurity = True                 For I = 0 To rpt.Database.Tables.Count - 1             rpt.Database.Tables(I).ApplyLogOnInfo(TBL1)         Next I     End Sub

لانه لايوجد اتصال مع قاعدة البيانات

كيف يتم النقل اذا كانت قاعدة البيانات SQLserver2008  

لازلت لانتظار الجواب

الاخوة الافاضل   هل السؤال غير واضح

الاخوة الافاضل عندي قاعدة بيانات نوع sql 2008 R2 متصلة مع ثلاثة حواسيب حيث اقوم باضافة البيانات الى القاعدة من الاجهزة الثلاثة وتتم العملية بنجاح المطلوب هو عند اضافة اسم جديد من احد الحواسيب  كيف يمكن اظهار رسالة تنبيه في الحواسيب الاخرى يبين اضافة الجديد اوهل هنالك طريقة تبين الاضافة الجديدة مباشرة في الاجهزة لاخرى                                                                مع كل التقدير والاحترام

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

الاخوة الاعزاء هل السؤال غير واضح  

السلام عليكم كيف يمكن نقل وتحديث البيانات من قاعدة بيانات sql server 2008 R2 الى قاعدة بيانات اخرى من نفس النوع لها نفس الجداول والحقول وتحتوي على بيانات سابقة

السلام عليكم اخي الفاضل   انا استخدم linq to sql vb2010 الكود المستخدم                                                                                    Dim Pr As New CrystalReport3 Dim fff = From t In Db.TBL_Zabon_Moveings Where t.Zabon_Move_ID = xMove_ID                                                                         Select t.Zabon_ID, t.Zabon_Move_Date                                                                                                 ( Pr.SetDataSource(fff                                                                                (  Pr.PrintToPrinter(1, False, 0, 0

السلام عليكم عند محاولتي اظهار تقرير كريستال ريبورت حسب شرط معين تظهر الرسالة التالية   DataSet does not support System.Nullable<>                                                                                                                                                                                            كيف يمكن تلافي هذه الرسالة                                                                                                                                                                                                                                                                                                                                                             

لك كل الشكر والامتنان  على هذه المعلومة الجيدة

اخي الكريم توجد اكثر من طريقة  وبناءا على طلبك  اليك طريقة الكومبوبوكس  For Each a In fff             Me.combobox1.Items.Add(a.Mad_ID & " -  " & a.Mad_Name)         Next   وللاستعلام او ادخال البيانات في قاعدة البيانات  تستخدم الدالة   split بالشكل التالي    Private Sub cmbrand_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbrand.SelectedIndexChanged         FILLComboBox("SELECT Catg_ID, Catg_Name " & _              "FROM TBL_Category_File" & _              " WHERE Group_ID =" & Split(cmbrand.Text, " - ")(0), cmbCategory)     End Sub

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

اخي الكريم شكرا على سرعة الرد هل توجد طريقة تتم فيها العملية عن طريق اكواد الفيجوال بدون اسخدام ادوات خارجية