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

[safari_m4]

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

[hamidrezax1]

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

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

[aidin2345]

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

[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

[aidin2345]

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

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 از دیتا رو بررسی کنه و تغییرات رو اعمال کنه ؟؟؟؟؟؟؟؟؟