• الإعلانات

    • فيصل الحربي

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

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

chami

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

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

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

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

0 عادي

عن chami

  • الرتبة
    عضو جديد
  1. شكرا أخي على المتابعة لكن الحقل رقم أخي نوع دوبل عندما أعمل report preview يعمل عادي لكن في البرنامج يعمل فقط عدد الأسطر يصبح count
  2. السلام عليكم أعاني من مشكلة و هي عندما أعمل  total sum للكولون price  عندما أضغط على preview report يضهر لي total sum  لكن عند عمل رون لكريستال روبرت يتحمل sum الى count  ممكن المساعدة لو سمحتم و شكرا
  3. السلام عليكم أخي ابحث عن طريقة استعمال odbc أو oldb
  4. بسم الله الرحمن الرحيم اسف جدا على ازعاجكم اخواني الكرام لدي طلب بسيط و هو كيف يتم عمل العمليات في الكرستال مثلا الجمع او حساب عددم معين أو اظهار total لعملية مبيعات مثل مثلا يتم جمع ثمين المبيعات و يتم اظهار التوطال في اسفل الكريستال و شكرا
  5. الحل أخي قلته لك و الل نفس مشكلتك كانت معي كمان بشتغل بسرفر واحد فقط و الرنامج موجود على 5 اجهزة و متصلة بسيرفر واحد فقط و كل العمليات شغال اضافة حذف و ما جاور ذالك فقط الكريستال ربورت لم يكن يعمل يعمل فقط على السيرفر و بعد تثبيت CRRedist2005_x86 على الاجهزة الأخرى بدء الكريستال يعمل كانه على السيرفر و الله و الله أعلم اذاكانت لديك مشكلة اخرى هذى هو حلي و الله ولي التوفيق أخي
  6. العفو أخي الكل يتعلم و يبحث لكي يتعلم المقصود هو في برنامج يكون مع vb خاص بالكريستال ربورة و كل نسخة لها ملفها الفاص و يثبت على الأجهزة مثل frimwark مثلا أنا ثبت CRRedist2005_x86 للأنني استعمل vb.net 2005 لكي تقوم بتحميل هذا البرنامج ستجده في جهازك على المسار التالي C:\Program Files\Microsoft Visual Studio 8\Crystal Reports\CRRedist\X64 طبعا Microsoft Visual Studio 8 مجلد vb.net 2005 انت اذهب الى ملف vb6 وابحث عن Crystal Reports\CRRedist و ان شاء الله راح تحل مشكلتك سلام
  7. السلام عليكم اخي لقد وجدة الحل و الحل من أخونا في الله عضو في المنتدى kimoo الله يجازيه كل خير و هو قم بتثبيت هذا البرنامج في كل الأجهزة CRRedist. انه لي vb.net 2005 لكن برما راح تجده ل vb6
  8. نفس المشكلة تواجهني أخي الكريم بس أنا اعمل على بيئة دوت نت vb.net 2005 و sql server 2000 اتمنى أن نجد الحل هنا
  9. أبحث عن هذا الكود

    بعد هذا التعب و المشاكل وجدة الحل و كان بسيط جدا و لم يكن في المشروع بل على جهازي و هو الفيروير الجدار الناري كان لا يدع أحد يتصل بقاعدة البيانات غير من جهازي المهم الحمد لله اشتغل البرنامج و أشكر اخي الكريم kemoo الذي بذل مجهودا جبارا معي جزاه الله كل خير لي بعد سأل أخي kemoo و هو أن كرستال ربورت يشتغل على جهازي و بعد عمل ملف الانستال و قمت بتثبيت البرنامج على الاجهزة الأخرى لم يعد يعمل يظهر لي error لكن على جهازي يعمل هل يجب ان أثبت من غير frimwak شيء أخر ؟؟؟ و شكرا أخي
  10. أبحث عن هذا الكود

    هذا كود فورم اوجين Imports System.Data.SqlClient Public Class login Dim ds As New DataSet() Dim str As String Dim com As SqlDataAdapter Dim comm As New SqlCommand Dim tbl As New DataTable("utilisateurs") Public id_agent, id_agent2 As String Public rg, rg2 As String Public is_admin As Boolean Private Sub btn_lg_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_lg.Click Try If txtus.Text = "" And txtps.Text = "" Then MsgBox("saisi votre username and password", MsgBoxStyle.Information) Exit Sub ElseIf txtus.Text = "" Then MsgBox("saisi votre username ", MsgBoxStyle.Information) Exit Sub ElseIf txtps.Text = "" Then MsgBox("saisi votre password ", MsgBoxStyle.Information) Exit Sub End If com = New SqlClient.SqlDataAdapter("select * from utilisateurs where id_utilisateur like '" + txtus.Text + "'", con) ds.Tables.Add(tbl) com.Fill(ds.Tables("utilisateurs")) 'If ds.Tables("utilisateurs").Rows(0).Item("utilisateur") <> txtus.Text Then 'Or ds.Tables("utilisateurs").Rows(0).Item("password") <> txtps.Text Then 'End If str = CType(ds.Tables("utilisateurs").Rows(0).Item("isadmin"), String) Dim log As String = "select * from utilisateurs where utilisateur='" & txtus.Text & "'and password ='" & txtps.Text & "'" Dim comm As New SqlCommand(log, con) Dim dr As SqlDataReader con.Open() dr = comm.ExecuteReader If dr.HasRows = False Then MsgBox("vous informations et incorrect", MsgBoxStyle.Information) dr.Close() End If If dr.Read Then If str = "admin" Then cc = txtus.Text Dim mn As New frmmenu mn.Show() Me.Hide() Exit Sub ElseIf str = "utilisateur" Then cc = txtus.Text Dim mn As New frmmenu Dim gp As New gestion_des_appele mn.Show() Me.Hide() mn.mnut.Visible = False mn.mnst.Visible = False mn.mnre.Visible = False mn.strr.Visible = False mn.StatistiquesToolStripMenuItem.Visible = False gp.cmbpr.Enabled = True Exit Sub End If End If dr.Close() con.Close() Catch ex As Exception MsgBox(ex.Message) End Try End Sub Private Sub btn_an_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_an.Click End End Sub Private Sub login_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Dim sqlMySrevers As Sql.SqlDataSourceEnumerator = _ Sql.SqlDataSourceEnumerator.Instance 'Get Srevers Data With txtsr .DataSource = sqlMySrevers.GetDataSources() .DisplayMember = "ServerName" End With If txtsr.Items.Count <= 0 Then MessageBox.Show("No Server found") End If End Sub End Class أين اضع الكود الذي أرسلته لي اخي con.ConnectionString = String.Format _ ("Data Source={0};Initial Catalog=gestion_des_appeles;Integrated Security=SSPI;User ID={1};Password={2}", _ txtsr.Text, txtus.Text, txtps.Text) نا سطر الاتصال تبعي و ضعته في module Dim lg As New login Public con As New SqlConnection("Data Source=" & lg.txtsr.Text & ";Initial Catalog=gestion_des_appeles;User ID=sa") و شكرا
  11. أبحث عن هذا الكود

    لقد أريلة لك الايمال med_p.toi hotmail.com
  12. أبحث عن هذا الكود

    تفضل أخي المشروع بالكامل مع قاعدة البيانات و اي اضاف اضافة تراه جيدة في فورم login ضفها و سطر الكونكشن موجودة في module و شكرا http://www.megaupload.com/?d=BY4PROPW
  13. أبحث عن هذا الكود

    بالنسبة أخي لملف app.config connectionString="Data Source=.;Initial Catalog=gestion_des_appeles;User ID=sa" connectionString="Data Source=pc1021;Initial Catalog=gestion_des_appeles;User ID=sa" غيرة في السطر الأول النقطة كما ترى في السطر الثاني غيرته باسم السيرفر pc1021 هل هذا فقط ماسافعله و شكرا فعلت كل هذا الأن بدأ يظهر اسم السيرفر بكل الأجهزة لكن مع الأسف نفس الرسالة تظهر في الصورة اعلاه انا استعمل sql server 2000 مع vb.net 2005 و في ارسالة يقول لا يمكن الاتصال ب sql server 2005 لم افهم ليش ههههه
  14. أبحث عن هذا الكود

    ربنا يوفقك يغالي تسلم ايديك شكرا
  15. أبحث عن هذا الكود

    شكرا أخي على اهتماممك لم أهم هذا الكود كيف يوضع في combobox Dim sqlMySrevers As Sql.SqlDataSourceEnumerator = _ Sql.SqlDataSourceEnumerator.Instance 'Get the Srevers With lsbServers .DataSource = sqlMySrevers.GetDataSources() '.DisplayMember = "ServerName" .DisplayMember = "InstanceName" End With بعدما أن قمت ببحث شامل لم اجد الكود الذي أريد ه و فكر بعمل textbox و اضع فيها اسم السيرفر و هذه هي دالة connexion Public con As New SqlConnection("Data Source=" & lg.txtsr.Text & ";Initial Catalog=gestion_des_appeles;User ID=sa") يعمل على جهازي بشكل جيد لكن عندما أقوم بتثبيت البرنامج على جهاز أخر و السيرفر يكون على جهازي فقط لا يعمل هذه هي الرسالة التي تظهر لي على الجهاز الثاني بعد تثبيت مشروع vb.net 2005 و استعملت sql server 2000 على جهازي مع العلم الشبكة شغالة جيد بين الاجهزة هناك برنامج صنع ب vb2003 يعمل على الاجهزة الاخرى و السيرفر على جهازي يعمل بكل كفائة أدعكم مع صورة توضيحية