[عبد العزيز البسكري]

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

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

تحياتي

[essawq]

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

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

مشكور اخي 

حملت مرة ثانية نفس المشكلة 

صورة

مش عارف ايش المشكلة صارت معي اكثر من مرة في هذا المنتدى

لا اعلم قد تكون المشكلة من عندي

تحياتي لك

[asemshahen5]

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

[essawq]

(05-09-18, 02:56 AM)asemshahen5 كتب :

المعذرة أخي العزيز لا يوجد عندي نسخة vb.net 2010

أنا أستخدم نسخة vb.net 2012

                         vb.net 2015

جرب هذه قد غيرت الفريم ورك الى 3.5

و عدلت كود الاتصال ليتناسب مع النسخ القديمة

و إذا كان هناك من يستطيع تعديل المثال للفيجوال 2010

يكون ذلك أفضل .

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

تحياتي لك

[princelovelorn]

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

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

يعمل على vb.net 2010

[asemshahen5]

عدل في الملف

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