(15-05-22, 06:01 PM)dr.programming كتب : الأستاذ الفاضل [b]Jounior_P[/b]
لك منى كل التحية لردك
لكن
للأسف الرد مبهم بالاضافة أنه لا علاقة له بما أسأل نهائيا
يضاف الى ذلك أنى اكتشفت و بالتجربة المؤلمة السيئة أنه هنا لا يساعد أحد و لا يمد أحد يد العون لأحد عكس ما كنت أتخيل
أكثر من سؤال و لم أتلقى ردا شافيا
أنا لا أطلب من أحد أن يعمل على مشروعى و لكن على الأقل منحى معلومة كاملة أسلك خلفها
لذلك تيقنت أنه هنا لا أحد يساعد أحد
شكرا للجميع فلتذهب المشاريع الى الجحيم لو أنها ستضع الرجل فى مكان و موقف لا يحسد عليه
السلام عليكم ورحمة الله وبركاته
اخي الكريم
لماذا الظن بعدم مد يد العون من الأعضاء الكرام!!!
قد لايملك من هو متواجد الاجابة وكلنا نتعلم من بعض انا واحدا من الذين تعلموا في هذا المنتدى الرائع عبر الاجابة عن التساؤلات
فكل سؤال قمت بالاجابة عنه يقينا لم اعلم اجابته سلفا لكن الدافع وحب التعلم وخذمة الاخرين واعتبار السؤال هو امتحان لما تعلمته كان الحافز لي في التعلم
لم انتظر يوما كلمة شكر او مديح من احد فقط رب العالمين هو من يشملني برعايته كما يرعى بقية خلقه وكذلك لا انسى من قام بتقديم الشكر لي وحفزني بكلمات طيبة
المهم اخي الكريم
ما فهمته من سؤالك انه لديك قاعدة البيانات بملقيها وتريد ربطها بمشروعك في جهاز العميل الذي يحوي Sqlserver ولكن ليس فيه Manegment Studio
تفضل هذا الكود يمكن ان تضعه في بوتون ضمن نافذة في البداية يطلب منك ربط قاعدة البيانات
طبعا جلب اسم السيرفر من جهاز العميل سيكون في نفس النافذة وكذلك يمكنك جلب اسم ومسار قاعدة البيانات عبر Openfiledialog ليوضع في مربع نص ربما تضع قاعدة البيانات في مجلد ما في المشروع او اي مكان أخر
كود :
' Cmb_ServerName فيه اسم السيرفر
' NamDB مسار واسم قاعدة البيانات
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If Txt_NewName.Text <> "" Then
Dim NamDB As String = Path.GetFileNameWithoutExtension(ofd.FileName)
Dim conn As New SqlClient.SqlConnection("Data Source=" & Cmb_ServerName.Text & ";Initial Catalog=master;Integrated Security=True") ' Connection string)
Dim txtExec As String = "sp_attach_db @dbname = N'" & NamDB & "' ," & vbCrLf & _
"@filename1 =N'" & Txt_NewName.Text & "'" & ", " & vbCrLf & _
"@filename2 = N'" & ofd.FileName.Replace(".mdf", "_log.LDF'")
Dim cmd As New SqlCommand(txtExec, conn)
conn.Open()
cmd.ExecuteNonQuery()
MessageBox.Show("تم ربط قاعدة البيانات مع السيرفر بنجاح", "ربط", MessageBoxButtons.OK, MessageBoxIcon.Information)
conn.Close()
Txt_NewName.Text = ""
End If
End Sub
أخيرا وليس أخرا أتمنى منك التحلي بالصبر وطولة البال
دمت بخير أخا عزيزا