اتچ کردن دیتابیس به سیستم از طریق کد نویسی

سلام خدمت دوستان چگونه از طریق کد نویسی در وی بی دات نت همزمان با اجرای نرم افزار دیتابیس خود را به سیستم دیگران اتچ کنیم با تشکر

با سلام خدمت دوست عزیز

Imports System.Data.SqlClient





Public Class Form1

    Dim con As New SqlConnection("Data Source=.;Initial Catalog=master;Integrated Security=True")

    Dim com As New SqlCommand

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        con.Open()

        com.Connection = con

        com.CommandTimeout = 200

        com.CommandText = "USE [master] EXEC master.dbo.sp_detach_db @dbname = N'نام دیتابیس'"

        com.ExecuteNonQuery()

        con.Close()

    End Sub





    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        con.Open()

        com.Connection = con

        com.CommandTimeout = 200

        com.CommandText = "USE [master]CREATE DATABASE [TEST] ON ( FILENAME = N'مسیر فایل.mdf' ),( FILENAME = N'مسیر فایل.ldf' )FOR ATTACH"

        com.ExecuteNonQuery()

        con.Close()

    End Sub

End Class

سلام
دوست عزیز عالی بود
اگه لطف کنین و کد مشاهده دیتابیس های موجود رو که بشه در لیست باکس یا گرید ویوویی نشون داد رو قرار بدین تا استفاده کنیم
ممنون

سلام دوست عزیز
برای نشان دادن دیتا بیس های مستر و یا دیتابیس هایی که خود شما درست کردید میتونید از یکی از کدهای زیر استفاده کنید

exec sp_helpdb





select * from master.sys.databases

برای مثال

com.CommandTimeout = 200

com.CommandText = "exec sp_helpdb"

ad.Fill(datat)

Me.DataGridView1.DataSource = datat

con.Close()

و یادتون نره برای تعریف دیتاتیبل و دیتا آداپتور اقدام کنید

Dim con As New SqlConnection("Data Source=کانکشن")

    Dim com As New SqlCommand

    Dim ad As New SqlDataAdapter(com)

    Dim datat As New DataTable

نقل قول:

---

نوشته شده توسط hamidrezax1

سلام دوست عزیز
برای نشان دادن دیتا بیس های مستر و یا دیتابیس هایی که خود شما درست کردید میتونید از یکی از کدهای زیر استفاده کنید

exec sp_helpdb





select * from master.sys.databases

برای مثال

com.CommandTimeout = 200

com.CommandText = "exec sp_helpdb"

ad.Fill(datat)

Me.DataGridView1.DataSource = datat

con.Close()

و یادتون نره برای تعریف دیتاتیبل و دیتا آداپتور اقدام کنید

Dim con As New SqlConnection("Data Source=کانکشن")

    Dim com As New SqlCommand

    Dim ad As New SqlDataAdapter(com)

    Dim datat As New DataTable

---

دوست عزیز hamidrezax1 دستت درد نکنه
ممنون


آقا شما که زحمت کشیدی و تا اینجا راهنمایی کردین
یه زحمت بکشی و کد های مثال زیر رو بنویسی ممنون میشم ازت

برای مثال : با اسم name که نوعش (50)varchar رو بررسی کنه که توی تیبل user از دیتا بیس به اسم appdata هست یا نه
و در صورتی که موجود نباشه رو اضافه کنه و null بودن یا نبودنش رو ست کنه

یا یه فایل script از دیتا رو بررسی کنه و تغییرات رو اعمال کنه ؟؟؟؟؟؟؟؟؟