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: