منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
أين الخطأ في هذا الكود .. - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : أين الخطأ في هذا الكود .. (/showthread.php?tid=11221)

الصفحات: 1 2 3 4


RE: أين الخطأ في هذا الكود .. - starosta - 25-01-15

يا الغالي مو انا اللي كتبت الكود .. هذا برنامج جاهز موجود عندنا ..
مطلوب مني اعدل فيه تعديلات .. وهو مو راضي يشتغل على جهازي تحديدا ..
ابغى اشغله واسوي التعديلات .. المشكلة ليست من الكود لأن الكود نفسه شغال في اجهزة أخرى ..
أبغى اشغله واسوي التعديلات بالطريقة البدائية اللي اعرفها لين ما أجيد طريقة الكلاسات ..

ملاحظة ..
الأجهزة الأخرى فيها sql server 2008 وجهازي 2012 هل من هنا المشكلة ؟؟


RE: أين الخطأ في هذا الكود .. - سعود - 25-01-15

فعلا اخي الكريم انت ذكرت هذا في البداية لكني لم اهتم له والان وبعد كل ماحدث اقول كيف نسخت القاعدة لجهازك؟

انظر لهذا الموقع
http://www.connectionstrings.com/sql-server/


RE: أين الخطأ في هذا الكود .. - starosta - 25-01-15

قاعدة البيانات مرفقة مع ملف البرنامج .. عند تشغيل البرنامج تنسخ نفسها إلى SQL server ..
-
أخي ما راح يكلفك شئ .. ملف مضغوط ارسله لك وشغله زي ما هو وشوف المشكلة  Smile


RE: أين الخطأ في هذا الكود .. - سعود - 25-01-15

اخي الكريم لو كان مربوط باكسس ساقول نعم ارسله واعدل عليه لكنه sql server ربما يعمل لدي لكن لايعمل عندك فالافضل ان تجد الحل بنفسك ونحن نساعدك.
انت قلت  
إقتباس :عند تشغيل البرنامج تنسخ نفسها إلى SQL server
هذه النقطة ليست واضحة؟ هل تقصد نسخ بطريقة نسخ الملفات؟ يعني File.copy ؟
ام تقصد تثبيت ملف القاعدة الى sql server؟


RE: أين الخطأ في هذا الكود .. - starosta - 26-01-15

أولا أشكرك حبيبي على سعة صدرك .. وتعبتك معي ربنا يجزيك ألف خير ..

كود :
   Public Property conn() As SqlConnection
       Get
           Dim str = ConfigurationManager.AppSettings("WedHallsConn")
           str = str.Insert(str.IndexOf("WedHalls.mdf"), Application.StartupPath + "\")
           _conn = New SqlConnection(str)
           _conn.Open()
           Return _conn
       End Get
       Set(ByVal value As SqlConnection)
           _conn = value
       End Set
   End Property

اعتقد هذا كود إرفاق الداتا بيز ..
وهي فرصة كمان ابغى مرجع اتعلم منه إرفاق الداتا بيز sql server بحيث انها تشتغل مع setup البرنامج بدون ما أحتاج انقلها لحالها ..



RE: أين الخطأ في هذا الكود .. - سعود - 26-01-15

اخي الكريم الكود الذي كتبت هو للاتصال بملف القاعدة بناء على جملة الاتصال المخزنة في ملف التكوين App
ومتغير جملة الاتصال كما هو مكتوب باسم WedHallsConn فاريد ان تكتب جملة الاتصال مع تعديل بالبيانات الحساسة.


RE: أين الخطأ في هذا الكود .. - starosta - 26-01-15

كود :
<?xml version="1.0"?>
<configuration>
   <configSections>
       <sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" >
           <section name="WedHalls.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false" />
       </sectionGroup>
   </configSections>
   <connectionStrings>
       <add name="WedHalls.My.MySettings.WedHallsConnectionString" connectionString="Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Users\aw\Desktop\WedHallss\WedHalls\WedHalls\WedHalls.mdf;Integrated Security=True;Connect Timeout=30;User Instance=False"
           providerName="System.Data.SqlClient" />
       <add name="WedHalls.My.MySettings.Database2ConnectionString"
           connectionString="Data Source=|DataDirectory|\Database2.sdf"
           providerName="Microsoft.SqlServerCe.Client.4.0" />
   </connectionStrings>
   <system.diagnostics>
       <sources>
           <!-- This section defines the logging configuration for My.Application.Log -->
           <source name="DefaultSource" switchName="DefaultSwitch">
               <listeners>
                   <add name="FileLog"/>
                   <!-- Uncomment the below section to write to the Application Event Log -->
                   <!--<add name="EventLog"/>-->
               </listeners>
           </source>
       </sources>
       <switches>
           <add name="DefaultSwitch" value="Information"/>
       </switches>
       <sharedListeners>
           <add name="FileLog" type="Microsoft.VisualBasic.Logging.FileLogTraceListener, Microsoft.VisualBasic, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL" initializeData="FileLogWriter"/>
           <!-- Uncomment the below section and replace APPLICATION_NAME with the name of your application to write to the Application Event Log -->
           <!--<add name="EventLog" type="System.Diagnostics.EventLogTraceListener" initializeData="APPLICATION_NAME"/> -->
       </sharedListeners>
   </system.diagnostics>
 <appSettings>
   <add key="WedHallsConn" value="Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Users\aw\Desktop\WedHallss\WedHalls\WedHalls\WedHalls.mdf;Integrated Security=True;Connect Timeout=30;User Instance=False"/>
   <add key="LogFileName" value="WedHalls.txt"/>
   <add key="LogPath" value="C:\cLogs\WedHalls\"/>

 </appSettings>
<startup><supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.0"/></startup><userSettings>
   <WedHalls.My.MySettings>
     <setting name="day" serializeAs="String">
       <value />
     </setting>
     <setting name="month" serializeAs="String">
       <value />
     </setting>
     <setting name="year" serializeAs="String">
       <value />
     </setting>
     <setting name="checked" serializeAs="String">
       <value>False</value>
     </setting>
   </WedHalls.My.MySettings>
 </userSettings>
</configuration>

ملف app  Smile


RE: أين الخطأ في هذا الكود .. - سعود - 26-01-15

الصراحة اني تفاجات من طريقة التعامل مع جملة الاتصال؟
واقصد صياغة الجملة فقد وجدت سطرين لجملة الاتصال ونحن بحاجة لواحد.

كود :
<add name="WedHalls.My.MySettings.WedHallsConnectionString" connectionString="Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Users\aw\Desktop\WedHallss\WedHalls\WedH​alls\WedHalls.mdf;Integrated Security=True;Connect Timeout=30;User Instance=False"
           providerName="System.Data.SqlClient" />
وكما ترى مسار ملف القاعدة يمر باسم الجهاز وهذا قد يسبب خطا

والسطر الثاني:
كود :
<add name="WedHalls.My.MySettings.Database2ConnectionString"
           connectionString="Data Source=|DataDirectory|\Database2.sdf"
           providerName="Microsoft.SqlServerCe.Client.4.0" />
وهذا المسار هو للملف المجاور للبرنامج.
لاحظ اختلاف اسم ملف القاعدة بين السطرين وقد يكون هو السبب!!!


RE: أين الخطأ في هذا الكود .. - starosta - 26-01-15

طيب إيش التعديل ؟؟


RE: أين الخطأ في هذا الكود .. - سعود - 26-01-15

وقفة!
شوف اخي الكريم.
هل القاعدة هذه تحتوي بيانات؟ ام فقط جداول واعمدة؟
اذا فقط جداول واعمدة بلا بيانات فيمكنك انشاء القاعدة بالكود وزراعة كافة الجداول المطلوبة



هذا مثال على ذلك.

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