(10-10-18, 12:37 AM)Amir_Alzubidy كتب :

(09-10-18, 11:43 PM)ay.alhaj كتب : السلام عليكم ورحمة الله وبركاته

يوجد اخت لدينا تحتاج هذا البرنامج للعمل ولكن فيه اخطاء ارجو ممن لديه الخبرة حل هذه الاخطاء 

السورس كود للبرنامج في المرفقات

السلام عليكم و رحمة الله
يا ريت تحكيلي ايش فكرة البرنامج 
صار عندي فضول اعرف
ما قدرت اشوف السورس بسبب عدم 
وجود الفيجوال ستيديو على جهازي

(10-10-18, 12:28 AM)حريف برمجة كتب : البرنامج متشعب ولم تذكر الاخطاء .

(10-10-18, 03:48 PM)asemshahen5 كتب : ادخل الى المديول "GlobalModule"و تأكد من معلومات نص الاتصال و ضع جملة :

كود :

Public Function opendb() As SqlConnection
    'conn.ConnectionString = "Data Source=(LocalDB)\v11.0;AttachDbFilename=" + Application.StartupPath + "\dental.mdf"
    Try
       Dim conn As New SqlConnection("Data Source=(Local);Initial Catalog=dental;Integrated Security=True")
       If conn.State = 1 Then conn.Close()
       conn.Open()
       cmd.Connection = conn
       cmd.CommandType = CommandType.Text
       Return conn
    Catch ex As Exception
       MsgBox(ex.Message)
       Return Nothing
    End Try
End Function