+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=26375)
الصفحات:
1
2
RE: مساعدة عملت برنامج للتعلم وعملت لة سيتب كل الامور تماام لكن اليوزر والباسوورد غير موج - عبد العزيز البسكري - 05-09-18
السّلام عليكم و رحمة الله و بركاته
الملف يعمل بشكل جيّد و سليم .. فقط يجب حذف علامة الدّولار مثلما تشير الصّورة فبعض الإصدارات لا تتقبّل هذه الآلة .. مع كتابة اسم السيرفر المناسب
تحياتي
RE: مساعدة عملت برنامج للتعلم وعملت لة سيتب كل الامور تماام لكن اليوزر والباسوورد غير موج - essawq - 05-09-18
(04-09-18, 11:25 PM)asemshahen5 كتب : تفضل هذا مثال قريب مما تريد .
(05-09-18, 12:32 AM)asemshahen5 كتب : هذا الملف مرة أخرى
مشكور اخي
حملت مرة ثانية نفس المشكلة
صورة
مش عارف ايش المشكلة صارت معي اكثر من مرة في هذا المنتدى
لا اعلم قد تكون المشكلة من عندي
تحياتي لك
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 2012vb.net 2015جرب هذه قد غيرت الفريم ورك الى 3.5و عدلت كود الاتصال ليتناسب مع النسخ القديمةو إذا كان هناك من يستطيع تعديل المثال للفيجوال 2010يكون ذلك أفضل .
مشكور اخي بارك الله فيك ما قصرل
تحياتي لك
RE: مساعدة عملت برنامج للتعلم وعملت لة سيتب كل الامور تماام لكن اليوزر والباسوورد غير موج - princelovelorn - 05-09-18
السلام عليكم ورحمة الله وبركاته
هذا المثال الموجود في المشاركة
http://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كود :
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