Code:
Imports System
Imports System.Net
Imports System.Net.sockets
Public Class CNetScan
Public ipCnt As Integer = 0
Public ipString(300) As String
Public buf(2048) As Byte
Public Sub NetScan()
Imports System
Imports System.Net
Imports System.Net.sockets
Public Class CNetScan
Public ipCnt As Integer = 0
Public ipString(300) As String
Public buf(2048) As Byte
Public Sub NetScan()
Dim Cnt As Integer
Dim tmpStr As String
Dim sqlCmd As New SqlClient.SqlCommand("select * from INFORMATION_SCHEMA.tables where table_name like '%E8%'", Me.myConnection)
sqlCmd.CommandTimeout
Dim CmdDeleteRT As New SqlClient.SqlCommand("DELETE from EM_AWARE_RT", myConnection)
CmdDeleteRT.CommandTimeout = 1800
Dim CmdShrink As New SqlCommand("DBCC SHRINKDATABASE(EM_AWARE)", Me.myConnection)
CmdShrink.CommandTimeout = 1800
Dim Cnt As Integer
Dim CmdBackup As New SqlClient.SqlCommand("backup database EM_AWARE to disk= 'C:\Program Files\Microsoft SQL Server\MSSQL.1\MSSQL\Backup\EMAwareBackup.bak'",
Dim ZipFileName As String = Nothing
ZipFileName = DBbackup.Substring(0, DBbackup.LastIndexOf("\") + 1) & FileName
Dim srcFile As FileStream = File.OpenRead(ZipFileName)
cnt = Me.EM_AWARE_20kV2TableAdapter.FillByTOP_EndDT(Me.DataSet_ESD2.EM_AWARE_20kV, samples,
Leave a comment: