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