تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] عايز اشغل الكود ده على ال #c
#8
السلام عليكم و رحمة الله و بركاته

الاخطاء موجودة و لكن استخدام كتلة Try و تعطيل ظهور الاخطاء هو السبب

اخي الكريم الخطأ يتاتى من طريقة التشفير الخاص بالقاعدة و ارتباطه بنسخة المزود و اصداره
و لو انك جربت تتصل بقاعدة غير محمية لاشتغل البرنامج بشكل جيد
و للتخلص من هذه المشكلة ساقترح عليك ضبط طريقة التشفير وفق التالي
اولاً اذهب الى برنامج الاكسس 
و في التبويب ملف اذهب لخيارات ثم اعدادت العميل و اذهب الى الاسفل (خيارات متقدمة)
تاكد من التالي
وضع الفتح الافتراضي=مشترك
تامين السجلات الافتراضي=بلا تامين
ثم حدد استخدام التشفير القديم بدل استخدام التشفير الافتراضي
و اذا كانت النسخة لديك اجنبية
Under File - Options - Client Settings (scroll to the bottom)

Default Open Mode = Shared

Default record locking = No Locks

Encryption Method = Use legacy


الان اذهب و شفر قاعدة البيانات من جديد (شفر نسخة جديدة من القاعدة)
و الان مع الكود مع بعض التعديلات 

PHP كود :
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using System.Windows.Forms;
using System.Data.OleDb;
using static System.Windows.Forms.VisualStyles.VisualStyleElement;

namespace 
Al_Emlaq_TV
{
 
   public partial class Form1 Form
    
{
 
       OleDbConnection con = new OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\\db.accdb;Jet OLEDB:Database Password=01207600205");
 
       OleDbDataAdapter da null;
 
       DataSet ds null;
 
       string sqlstr null;

 
       public Form2()
 
       {
 
           InitializeComponent();
 
       }

 
       private void Form2_Load(object senderEventArgs e)
 
       {
 
           LoadCategory();
 
           comboBox1_SelectedIndexChanged(null,null);

 
       }


 
       public void LoadCategory()
 
       {
 
           sqlstr "Select Id,VideoCategory From tblCategory";
 
           da = new OleDbDataAdapter(sqlstrcon);
 
           ds = new DataSet();

 
           ds.Clear();
 
           da.Fill(ds"tblCategory");

 
           comboBox1.DataSource ds.Tables[0];
 
           comboBox1.DisplayMember  "VideoCategory";
 
           comboBox1.ValueMember  "id";

 
       }

 
       public void LoadVideoName(int Value)
 
       {

 
               sqlstr "Select Id,VideoName From tblVideo Where CategoryId = @CategoryId";
 
               da = new OleDbDataAdapter(sqlstrcon);

 
               da.SelectCommand.Parameters.AddWithValue("@CategoryId"Value);

 
               if (ds.Tables.Contains("tblVideo"))
 
               {
 
                   ds.Tables["tblVideo"].Clear();
 
               }

 
               da.Fill(ds"tblVideo");

 
               comboBox2.DataSource ds.Tables["tblVideo"];
 
               comboBox2.ValueMember "id";
 
               comboBox2.DisplayMember "VideoName";
 
       }
 
       public void LoadSubVideo(int Value)
 
       {
 
           try
            
{
 
               sqlstr "Select Id,SubVideo,LinkVideo From tblSubVideo Where VideoId = @VideoId";
 
               da = new OleDbDataAdapter(sqlstrcon);
 
               da.SelectCommand.Parameters.Add(new OleDbParameter("@VideoId"Value));

 
               if (ds.Tables.Contains("tblSubVideo"))
 
               {
 
                   ds.Tables["tblSubVideo"].Clear();
 
               }

 
               da.Fill(ds"tblSubVideo");

 
               listBox1.DataSource ds.Tables["tblSubVideo"];
 
               listBox1.ValueMember "LinkVideo";
 
               listBox1.DisplayMember "SubVideo";

 
           }
 
           catch (Exception ex)
 
           {
 
               MessageBox.Show(ex.Message);
 
           }
 
       }

 
       private void comboBox1_SelectedIndexChanged(object senderEventArgs e)
 
       {
 
           if (comboBox1.SelectedValue == null)
 
               {
 
               comboBox2.DataSource null;
 
                           }
 
               else
                
{
 
               int val;
 
               Int32.TryParse(comboBox1.SelectedValue.ToString(), out val);
 
               LoadVideoName(val);
 
           }

 
           comboBox2_SelectedIndexChanged(comboBox2e);

 
       }

 
       private void comboBox2_SelectedIndexChanged(object senderEventArgs e)
 
       {

 
           if (comboBox2.SelectedValue == null)
 
           {
 
               listBox1.DataSource null;
 
           }
 
           else
            
{
 
               int val;
 
               Int32.TryParse(comboBox2.SelectedValue.ToString(), out val);
 
               LoadSubVideo(val);
 
           }


 
       }

 
       private void listBox1_MouseClick(object senderMouseEventArgs e)
 
       {
 
           if (listBox1.SelectedValue != null)
 
           {
 
             webBrowser1.Navigate(new Uri(listBox1.SelectedValue.ToString()));
 
               
            
}

 
       }
 
   }



الملفات المرفقة صورة/صور
   
اللهم لك الحمد كما ينبغي لجلال وجهك و عظيم سلطانك
في حل و ترحال
الرد }}}
تم الشكر بواسطة: Amir_Alzubidy


الردود في هذا الموضوع
RE: عايز اشغل الكود ده على ال #c - بواسطة ابو ليلى - 01-05-17, 06:06 PM

المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Information ما هو الخطاء في الكود ProgressBar1 Mostafa201255411 1 193 26-11-25, 08:19 PM
آخر رد: asmarsou
  [VB.NET] مساعدة تعديل على الكود ZEEN4ZEEN 2 210 08-10-25, 02:20 PM
آخر رد: salamandal
Rainbow [كود] تصحيح الخطاء في الكود محمد مسافر 2 1,051 28-08-25, 09:13 AM
آخر رد: محمد مسافر
Rainbow [كود] تصحيح الخطاء في الكود محمد مسافر 0 843 27-08-25, 04:05 PM
آخر رد: محمد مسافر
  ما هو الخطأ فى هذا الكود خالد كامل1 10 1,163 28-05-25, 09:16 PM
آخر رد: خالد كامل1
  ارجو تعديل الكود بواستطة الاجراء المخزن new_programer 3 677 03-04-25, 02:44 PM
آخر رد: princelovelorn
  مساعدة في تحويل الكود من فيجوال بسيك 6 الى فيجوال دوت نت سيد أحمد 5 820 23-03-25, 10:54 PM
آخر رد: سيد أحمد
  ارجو تعديل الكود جلب البيانات عن طريق اجراء مخزن - مرفق مثال new_programer 0 621 05-02-25, 01:51 AM
آخر رد: new_programer
  ارجو تقيم الكود المرفق - جلب اعلي رقم لتسلسل نصي للباركود new_programer 4 604 30-01-25, 08:26 AM
آخر رد: new_programer
  هذا الكود لا يعمل بشكل صحيح لماذا ؟ PeterGhattas082460 3 449 21-12-24, 02:55 PM
آخر رد: aljzazy

التنقل السريع :


يقوم بقرائة الموضوع: