• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

abdellatifbenz

اعضاء
  • عدد المشاركات

    116
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

0 عادي

عن abdellatifbenz

  • الرتبة
    عضو

معلومات الملف الشخصي

  • الجنس ذكر
  • الدولة : المغرب
  • اهتمامات تعلم البرمجة , علم الآثار ,صيد السمك و السباحة
  1. ما العيب في جملة select

    بسم الله استعملت هذا الاستعلام في فلترة بيانات من جدول في قاعدة بيانات بشرطين لكن للأسف لا يعمل الغريب في الامر انه يعلم في الاكسس لكنه لا يعمل في البرنامج هو يعمل في الاكسس هكذا SELECT * FROM TabFacture WHERE (((TabFacture.Mois)=[?]) AND ((TabFacture.Etat_De_Paye)=No)); ولكي يتناسب مع برنامجي تتم عطاء البرامتر قيمة من combobox فاصبح الكود هكذا " SELECT * FROM TabFacture WHERE (((TabFacture.Mois)= "& combomois.text & " ) AND ((TabFacture.Etat_De_Paye)=No))" ولم يعمل فقررت اعضاء قيمة البرامتر مباشرة لكن لم تعمل في البرنامج رغم انها تعمل في access و استعملت هذا الكود SELECT * FROM TabFacture WHERE (((TabFacture.Mois)= " فبراير " ) AND ((TabFacture.Etat_De_Paye)=No))" و هذا الكود في البرنامج الفورم فيه datagridview واسمها GridGharama و combobox واحد و اسمه comboMois الجدول اسمه TabFacture Try If ComboMois.SelectedIndex = 0 Then Dim SQLstr As String = " SELECT * FROM TabFacture WHERE (((TabFacture.Mois)= "فبراير " ) AND ((TabFacture.Etat_De_Paye)=No))" Open_Con() Dim DataAdapter1 As New OleDbDataAdapter(SQLstr, Con) DataAdapter1.Fill(ds, "TabFacture") Close_Con() GridGharama.DataSource = ds GridGharama.DataMember = "TabFacture" End If Catch ex As Exception MsgBox(ex.Message) End Try
  2. كود ربط حدولين بينهما علاقة بdatagridview

    1- انا لا اريد ان احفظها اريد ان اطبعها إن كان ممكنا 2-اذا لم أجد سبيلا سافعلها والتقنية كما علمتني في مشاركة سابقة لم انساها هل يمكن تكرير بيانات حقل الرقم في gridviewer ثم نبدل احدهما dataGridComboBoxColumn؟
  3. تصحيح كود نسخ مجلد

    بالنسبة للكود الاول فجوابك صحيح لكن للاسف انا اريد من العميل ان يدخل مسارحفظ النسخة بنفسه و كما ترى في الصورة الاولى فان ملف المرفقات موجود مباشرة بعد تحميل الفورم في الصورة الثانية صورة ال debug يعني مافي مشكل في الملفات والله اعلم
  4. كود ربط حدولين بينهما علاقة بdatagridview

    جزاك الله خيرا اخي حسام اشتغل الكود لكن للاسف كنت اطمع في واجهة افضل من هذه كنت اتمنى ان يظهر الحدول عادي و تكون فيه الحقول المنتقاة من الجدولين هذا الشكل لن يكون مريحا للمستعمل هل يمكن ان يظهر استعلام انا وضعته في برنامح الاكسس في datagridviewer على شكل حدول عادي؟ فانا اريد ارشفة الفواتير على الورق وبحاجة لضهور اسم المنخرط بجانب رقم العقدة و الكمية المستهلكة و الثمن المدفوع ليحفظ كأرشيف و يتم ذلك في نهاية كل سنة من الاستهلاك و إذا كان طباعته مباشرة بدون المرور على gridviewer فهو مقبول و الا ساكون مضطرا الى تكرار ي اسم المنخرط في جدولين وهذا ما لا اتمناه
  5. بسم الله الرحمن الرحيم الكود يقوم بجفظ مجلد من مسار البرنامج الى مكان يتم تحديده ب FolderBrowserDialog ما الخطأ في هذا الكوذ بارك الله فيكم Try Dim PathMourfaqat As String = FBDialogSaveFile.SelectedPath & "\Morfaqat\" If My.Computer.FileSystem.DirectoryExists(PathMourfaqat) = False Then My.Computer.FileSystem.CreateDirectory(PathMourfaqat) My.Computer.FileSystem.CopyDirectory(Application.StartupPath & "\Morfaqat\", FBDialogSaveFile.SelectedPath & "\Morfaqat\") MsgBox("تم استنساخ المجلدات") End If Catch ex As Exception MsgBox(ex.Message) End Try
  6. من يساعد في تصحيح جملةselect

    الحمد لله لقد اشتغل الطبع وعلى جاسوب اخر لك الفضل بعد الله في ما تطور اليه المشروع مع قليل من البحث في البداية لم افهم مشاركتك الاخيرة ولم اعرف كيف اسقطها على مشروعي لكن بعد التصفج في منتدى التقارير فهمت الطريقة والله الحمد انت لا تعرف فرجتي الان لان المشروع عمره اكثر من3 سنوات هو مشروع كبير يعني سيستعني فيه لاستاذ عن الدفتر تماما وبسبب هذا المشروع تعلمت البرمجة وفكرته كانت منذ 2005وكنت قد بدأت في access لكن لم تكن لدي وقتهاانترنيت في البيت ولكن بعد 2008 بدأت فى المسار الصحيح عندما حصلت على خط انترنت وبدأتت من vb6 ثم انتقلت الى الجافا حاولي السنة ثم عدت الى vb.net و خيرا اناعلى مشارف النهاية ولله الحمد لان كل مراحله انتهت بقي ان اطبق التقارير على على باقي الجداول وبعض الللمسات الاخيرة وحزاك الله عني خيرا و كل من ساعدني و انالك الله ما تمنيت لو تكرمت ونظرت الى هذا الموضوع http://www.arabteam2000-forum.com/index.php?showtopic=268820
  7. من يساعد في تصحيح جملةselect

    بقية المشاركة هذا الكود لإضافة بعض الثوابث الة الفورم وكذلك ربط التقرير بالفورم 'اضافة بعض الثوابث للفورم' Dim rep As New ReportWahadat3 Dim Nom As New IO.StreamReader(Application.StartupPath & "\Nom.txt") Dim Niveau As New IO.StreamReader(Application.StartupPath & "\Niveau.txt") Dim AnneeScolaire As New IO.StreamReader(Application.StartupPath & "\AnneeScolaire.txt") Dim Delegation As New IO.StreamReader(Application.StartupPath & "\Delegation.txt") Dim Ecole As New IO.StreamReader(Application.StartupPath & "\Ecole.txt") Dim Unite As New IO.StreamReader(Application.StartupPath & "\Unite.txt") rep.SetParameterValue(0, Nom.ReadToEnd) rep.SetParameterValue(1, Niveau.ReadToEnd) rep.SetParameterValue(2, AnneeScolaire.ReadToEnd) rep.SetParameterValue(3, Delegation.ReadToEnd) rep.SetParameterValue(4, Ecole.ReadToEnd) rep.SetParameterValue(5, Unite.ReadToEnd) Nom.Close() Niveau.Close() AnneeScolaire.Close() Delegation.Close() Ecole.Close() Unite.Close() '--ربط التقرير الاداة reportviewer' ' Me.CrystalReportViewer1.ReportSource = rep Me.CrystalReportViewer1.Refresh()
  8. من يساعد في تصحيح جملةselect

    ما هي طريقة إظهار التقرير في الكود .؟جواب: انا اعد التقرير اولا كاملا بسحب البرامترات من نافذة field exploror ثم اربط التقرير بالاداة crystal report viewer الوجودة في الفورم وهذه الاداة مربوطة بكل التقارير لدي اي اني استعمل فورم واحد لكل التقارير الصورة في المشاركة السابقة توضح شكل الفورم
  9. من يساعد في تصحيح جملةselect

    جزاك الله خيرا لم تعد هناك مشاكل فيما يخص الكرستال لكن ظهر مشكل جديد انا لم اضع رقم سري لعاعدة البياتات وهو يطلب مني الرقم السري لم افهم لماذا كما في الصورة
  10. من يساعد في تصحيح جملةselect

    لقد فعلت ذلك انظر الصورة
  11. من يساعد في تصحيح جملةselect

    انا استعمل نسخة بالفرنسية من vb2010 المهم هذه صورة الخطأ و بالاحرى الاخطاء
  12. السلام عليكم يا اهل الاسلام بحث كثيرا عن كود لتعبئة datagridview من جدولين بينهما علاقة لكن للاسف كل الاكواد لم تشتغل معي وهذا آخر ما جربت وجدته في موقع اجنبي ' Dim SQLstr As String = " select * from TabCondidats inner join tabFacture on TabCondidats.NumContrat =tabFacture.Num_contrat" 'Open the Connetion Con.Open() 'Dataset that holds data in disconnected mode Dim ds As New DataSet 'Two commands for two tables (tab1 and tab2) Dim cmd1 As OleDbCommand Dim cmd2 As OleDbCommand 'Two datapaters to fill the dataset from two tables Dim adp1 As OleDbDataAdapter Dim adp2 As OleDbDataAdapter 'This handles the relationship between the two columns Dim datarelation As DataRelation Dim dc1 As DataColumn Dim dc2 As DataColumn 'It's not important but gives your code more better way to 'compare strings between tables ds.CaseSensitive = True 'First command for first table cmd1 = New OleDbCommand cmd1.Connection = Con cmd1.CommandText = "SELECT NumContrat ,Nom FROM TabCondidats" 'Second command for Second table cmd2 = New OleDbCommand cmd2.Connection = Con cmd2.CommandText = "SELECT * FROM TabFacture" 'Now , we will fill the first table and add it to the dataset adp1 = New OleDbDataAdapter adp1.SelectCommand = cmd1 adp1.TableMappings.Add("Table", "TabCondidats") adp1.Fill(ds) 'As we did in the previous step , here for the Second table adp2 = New OleDbDataAdapter adp2.SelectCommand = cmd2 adp2.TableMappings.Add("Table", "TabFacture") adp2.Fill(ds) dc1 = ds.Tables("TabCondidats").Columns("NumCondidat") dc2 = ds.Tables("TabFacture").Columns("Num_Condidat") 'Here we combined two datacolumns to the relations obj datarelation = New DataRelation("TabCondidats and TabFacture", dc1, dc2) ds.Relations.Add(datarelation) 'Simple one , bind the dataset after all operation to the 'Datagrid GridSuivie_Consomation.DataSource = ds.DefaultViewManager 'Show the first table in the grid because it's the primary table GridSuivie_Consomation.DataMember = "TabCondidats" افيدونا زادكم الله علما ربط جدولين بداتا قريد فيو.rar
  13. من يساعد في تصحيح جملةselect

    للاسف بقي نفس المشكل كل الاخطاء ترجع الى crystal repport
  14. و انا اشكر الاخ حسام بدوري فقد نفعني هذا الكود فمنذ ساعتين وانا احاول ان اكتب كود يمنع التكرار في حقل ليس فيه مفتاح وعملت مفتاحين ولم يعطي النتيجة لكن الفكرة ان يمنع التكرار في القاعدة حلت المشكل و جزاه الله عنا خيرا الحمد لله
  15. من يساعد في تصحيح جملةselect

    جزاك الله خيرا الكود اصبح 100/100 نرد لك الشكر بدعوات عن ظهر الغيب بقي طلب آخر لكنه ليس في هذا القسم لكن راريد منك ان ترشيدني الى موضوع كامل لعمل setup للمشروع فقد رأيت من اهتماماتك برنامج CRYSTAL REPPOR فقد اعياني التجول في الانترنت من موضوع الى آخر و من برنامج الى آخر فقد جربت INSTALLSHIELD . INNERSETUP SETUPFACTORY .SETUP WESERT VB2010 فلم افلح في ضم تقارير CRYSTAL REPPERT المشروع وقد وصلت الى اكثر من 100 setup ولم يعمل اي تقرير ارشدني جزاك الله الفردوس الاعلى في الجنةانت و من تحب الى موضوع مناسب