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

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