Dim strConnection As String = "data source=WIN-8J5UO9K1ULN; initial catalog=master;integrated security=SSPI"
Dim sqlConnection1 As New SqlConnection(strConnection)
Dim dataAdapter As New SqlDataAdapter
Dim dst As New DataSet
Dim dt As New DataTable
sqlConnection1.Open() '打開資料庫
Dim sql As String = "select spid from sysprocesses where dbid=db_id('財務管理資料庫') "
Dim cmd As SqlCommand = New SqlCommand(sql, sqlConnection1)
dataAdapter.SelectCommand = cmd
dataAdapter.Fill(dst, "sysprocesses")
dt = dst.Tables("sysprocesses")
sqlConnection1.Close() '關閉資料庫
DataGridView1.AutoGenerateColumns = True '自動創建列
DataGridView1.DataSource = dt
Try
cn = New SqlConnection("data source=WIN-8J5UO9K1ULN; initial catalog=master;integrated security=SSPI")
cn.Open()
If DataGridView1.RowCount > 1 Then
For b = 0 To DataGridView1.RowCount - 1
a = DataGridView1.Rows(b).Cells(0).Value.ToString()
cm = New SqlCommand("kilL '" + a + "'", cn)
MsgBox(a)
MsgBox(DataGridView1.RowCount)
Next
cm.ExecuteNonQuery()
cn.Close()
End If
Catch ex As Exception
End Try
Try
cn = New SqlConnection("data source=WIN-8J5UO9K1ULN; initial catalog=master;integrated security=SSPI")
cn.Open()
cm = New SqlCommand("DROP DATABASE 財務管理資料庫", cn)
cm.ExecuteNonQuery()
cn.Close()
Catch ex As Exception
End Try
'Try
' cn = New SqlConnection("data source=WIN-8J5UO9K1ULN; initial catalog=master;integrated security=SSPI")
' cn.Open()
' cm = New SqlCommand("restore database 財務管理資料庫 from disk='E:\錙銖財務管理資料庫備份檔案' with replace ", cn)
' cm.ExecuteNonQuery()
' cn.Close()
'Catch ex As Exception
'End Try
KILL行程部分無效????????????????????????????????????????
uj5u.com熱心網友回復：
求教各位大神快來幫幫忙啊
uj5u.com熱心網友回復：
樓主要是改變一下提問的技巧，估計會有大俠出手的.....轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/133270.html
標籤：網絡編程
下一篇：新手，請包涵