منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
مساعدة عملت برنامج للتعلم وعملت لة سيتب كل الامور تماام لكن اليوزر والباسوورد غير موج - نسخة قابلة للطباعة

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

الصفحات: 1 2

RE: مساعدة عملت برنامج للتعلم وعملت لة سيتب كل الامور تماام لكن اليوزر والباسوورد غير موج - عبد العزيز البسكري - 05-09-18

السّلام عليكم و رحمة الله و بركاته
الملف يعمل بشكل جيّد و سليم .. فقط يجب حذف علامة الدّولار مثلما تشير الصّورة فبعض الإصدارات لا تتقبّل هذه الآلة .. مع كتابة اسم السيرفر المناسب
[صورة مرفقة: p_977125211.jpg]
تحياتي


RE: مساعدة عملت برنامج للتعلم وعملت لة سيتب كل الامور تماام لكن اليوزر والباسوورد غير موج - essawq - 05-09-18

(04-09-18, 11:25 PM)asemshahen5 كتب : تفضل هذا مثال قريب مما تريد .

(05-09-18, 12:32 AM)asemshahen5 كتب : هذا الملف مرة أخرى

مشكور اخي 
حملت مرة ثانية نفس المشكلة 
صورة
[صورة مرفقة: p_977si2hn1.png]
مش عارف ايش المشكلة صارت معي اكثر من مرة في هذا المنتدى
لا اعلم قد تكون المشكلة من عندي
تحياتي لك


RE: مساعدة عملت برنامج للتعلم - asemshahen5 - 05-09-18

المعذرة أخي العزيز لا يوجد عندي نسخة vb.net 2010
أنا أستخدم نسخة vb.net 2012
                         vb.net 2015
جرب هذه قد غيرت الفريم ورك الى 3.5
و عدلت كود الاتصال ليتناسب مع النسخ القديمة
و إذا كان هناك من يستطيع تعديل المثال للفيجوال 2010
يكون ذلك أفضل .

RE: مساعدة عملت برنامج للتعلم وعملت لة سيتب كل الامور تماام لكن اليوزر والباسوورد غير موج - essawq - 05-09-18

(05-09-18, 02:56 AM)asemshahen5 كتب :
المعذرة أخي العزيز لا يوجد عندي نسخة vb.net 2010
أنا أستخدم نسخة vb.net 2012
                         vb.net 2015
جرب هذه قد غيرت الفريم ورك الى 3.5
و عدلت كود الاتصال ليتناسب مع النسخ القديمة
و إذا كان هناك من يستطيع تعديل المثال للفيجوال 2010
يكون ذلك أفضل .

مشكور اخي بارك الله فيك ما قصرل
تحياتي لك


RE: مساعدة عملت برنامج للتعلم وعملت لة سيتب كل الامور تماام لكن اليوزر والباسوورد غير موج - princelovelorn - 05-09-18

السلام عليكم ورحمة الله وبركاته

هذا المثال الموجود في المشاركة
https://vb4arb.com/vb/showthread.php?tid=26375&pid=126988#pid126988

يعمل على vb.net 2010

RE: مساعدة عملت برنامج للتعلم - asemshahen5 - 05-09-18

عدل في الملف

AddUserNameFirstLogin\AddUserNameFirstLogin\My Project\Application.Designer.vb

بوضع الشرط التالي :

كود :
       Protected Overrides Sub OnCreateMainForm()
           Dim DT As New DataTable
           DT.Clear()
           ConnectionSql("(Local)", "Company_2018", "Select * From users", DT)
           If DT.Rows.Count = 0 Then
               Me.MainForm = AddUserName
           Else
               Me.MainForm = LoginForm
           End If
       End Sub
بالنسبة لكود الاتصال : ConnectionSql في مديول ConnectionStringMD

كود :
Module ConnectionStringMD
   Public Sub ConnectionSql(SqlServerName As String, DbName As String, SqlQuery As String, DTable As DataTable)
       Dim conn As New SqlClient.SqlConnection("Data Source=" & SqlServerName & ";Initial Catalog=" & DbName & ";Integrated Security=True")
       If conn.State = ConnectionState.Closed Then conn.Open()
       Dim DA As New SqlClient.SqlDataAdapter(SqlQuery, conn)
       DTable.Clear()
       DA.Fill(DTable)
       If conn.State = ConnectionState.Open Then conn.Close()
   End Sub
End Module