|
This is the wrong discussion group, it should be asked in the Database one. However, you can only have 1 clustered index per table because the clustered index determines how the records are physically stored on the drive.
There are only 10 types of people in the world, those who understand binary and those who don't.
|
|
|
|
|
and this is the error .. somebody please help me 
The device is not ready
See the end of this message for details on invoking
just-in-time (JIT) debugging instead of this dialog box.
************** Exception Text **************
System.IO.IOException: The device is not ready.
at System.IO.__Error.WinIOError(Int32 errorCode, String maybeFullPath)
at System.IO.__Error.WinIODriveError(String driveName, Int32 errorCode)
at System.IO.DriveInfo.get_TotalSize()
at SYSINFO.Form1.TextBox11_TextChanged(Object sender, EventArgs e)
at System.EventHandler.Invoke(Object sender, EventArgs e)
at System.Windows.Forms.Form.OnLoad(EventArgs e)
at System.Windows.Forms.Form.OnCreateControl()
at System.Windows.Forms.Control.CreateControl(Boolean fIgnoreVisible)
at System.Windows.Forms.Control.CreateControl()
at System.Windows.Forms.Control.WmShowWindow(Message& m)
at System.Windows.Forms.Control.WndProc(Message& m)
at System.Windows.Forms.ScrollableControl.WndProc(Message& m)
at System.Windows.Forms.ContainerControl.WndProc(Message& m)
at System.Windows.Forms.Form.WmShowWindow(Message& m)
at System.Windows.Forms.Form.WndProc(Message& m)
at System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)
at System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)
at System.Windows.Forms.NativeWindow.Callback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)
************** Loaded Assemblies **************
mscorlib
Assembly Version: 4.0.0.0
Win32 Version: 4.0.30319.36323 built by: FX45W81RTMLDR
CodeBase: file:///C:/Windows/Microsoft.NET/Framework/v4.0.30319/mscorlib.dll
----------------------------------------
SYSINFO
Assembly Version: 4.0.0.0
Win32 Version: 4.0.0.0
CodeBase: file:///H:/SYSINFO.exe
----------------------------------------
Microsoft.VisualBasic
Assembly Version: 10.0.0.0
Win32 Version: 12.0.53323.36323 built by: FX45W81RTMLDR
CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/Microsoft.VisualBasic/v4.0_10.0.0.0__b03f5f7f11d50a3a/Microsoft.VisualBasic.dll
----------------------------------------
System
Assembly Version: 4.0.0.0
Win32 Version: 4.0.30319.36323 built by: FX45W81RTMLDR
CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System/v4.0_4.0.0.0__b77a5c561934e089/System.dll
----------------------------------------
System.Core
Assembly Version: 4.0.0.0
Win32 Version: 4.0.30319.36323 built by: FX45W81RTMLDR
CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Core/v4.0_4.0.0.0__b77a5c561934e089/System.Core.dll
----------------------------------------
System.Windows.Forms
Assembly Version: 4.0.0.0
Win32 Version: 4.0.30319.36323 built by: FX45W81RTMLDR
CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Windows.Forms/v4.0_4.0.0.0__b77a5c561934e089/System.Windows.Forms.dll
----------------------------------------
System.Drawing
Assembly Version: 4.0.0.0
Win32 Version: 4.0.30319.36323 built by: FX45W81RTMLDR
CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Drawing/v4.0_4.0.0.0__b03f5f7f11d50a3a/System.Drawing.dll
----------------------------------------
System.Runtime.Remoting
Assembly Version: 4.0.0.0
Win32 Version: 4.0.30319.36323 built by: FX45W81RTMLDR
CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Runtime.Remoting/v4.0_4.0.0.0__b77a5c561934e089/System.Runtime.Remoting.dll
----------------------------------------
System.Configuration
Assembly Version: 4.0.0.0
Win32 Version: 4.0.30319.36323 built by: FX45W81RTMLDR
CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Configuration/v4.0_4.0.0.0__b03f5f7f11d50a3a/System.Configuration.dll
----------------------------------------
System.Xml
Assembly Version: 4.0.0.0
Win32 Version: 4.0.30319.36323 built by: FX45W81RTMLDR
CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Xml/v4.0_4.0.0.0__b77a5c561934e089/System.Xml.dll
----------------------------------------
************** JIT Debugging **************
To enable just-in-time (JIT) debugging, the .config file for this
application or computer (machine.config) must have the
jitDebugging value set in the system.windows.forms section.
The application must also be compiled with debugging
enabled.
For example:
<configuration>
<system.windows.forms jitDebugging="true" />
</configuration>
When JIT debugging is enabled, any unhandled exception
will be sent to the JIT debugger registered on the computer
rather than be handled by this dialog box.
|
|
|
|
|
Member 11558919 wrote: The device is not ready
Which device, and what is your code trying to do?
|
|
|
|
|
this is my code..
Imports System.Runtime.InteropServices
Imports Microsoft.VisualBasic
Imports System.Diagnostics
Imports System.Management
Imports System
Imports System.Data
Imports System.Data.SqlClient
Imports Microsoft.VisualBasic.Devices
Imports System.Net.NetworkInformation
Imports System.Net
Imports System.Text
Imports System.ComponentModel
Public Class Form1
Inherits System.Windows.Forms.Form
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Timer1.Start()
End Sub
<System.Diagnostics.DebuggerNonUserCode()> _
Private Sub me_load(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
ProgressBar1.Value = PerformanceCounter1.NextValue
ProgressBar2.Value = PerformanceCounter2.NextValue
Label3.Text = ProgressBar1.Value.ToString + "%"
Label4.Text = ProgressBar2.Value.ToString + "%"
End Sub
Private WithEvents MyProcess As Process
Private Delegate Sub AppendOutputTextDelegate(ByVal text As String)
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles MyBase.Load
TextBox1.Text = System.Environment.MachineName
End Sub
Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles MyBase.Load
TextBox2.Text = System.Environment.UserName
End Sub
Private Sub TextBox3_TextChanged(sender As Object, e As EventArgs) Handles MyBase.Load
TextBox3.Text = My.Computer.Info.OSFullName
End Sub
Private Sub TextBox4_TextChanged(sender As Object, e As EventArgs) Handles MyBase.Load
TextBox4.Text = My.Computer.Info.OSPlatform
End Sub
Private Sub TextBox5_TextChanged(sender As Object, e As EventArgs) Handles MyBase.Load
TextBox5.Text = My.Computer.Info.OSVersion
End Sub
Private Sub TextBox6_TextChanged(sender As Object, e As EventArgs) Handles MyBase.Load
TextBox6.Text = My.Computer.Info.InstalledUICulture.ToString
End Sub
Private Sub TextBox7_TextChanged(sender As Object, e As EventArgs) Handles MyBase.Load
TextBox7.Text = System.Math.Round(My.Computer.Info.TotalPhysicalMemory / (1024 * 1024)).ToString
End Sub
Private Sub Label15_Click(sender As Object, e As EventArgs) Handles MyBase.Load
Timer2.Start()
End Sub
Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
Label15.Text = TimeOfDay
End Sub
Private Sub TextBox13_TextChanged(sender As Object, e As EventArgs) Handles Timer1.Tick
TextBox13.Text = (" " & getBatteryStatus() + vbOKOnly)
End Sub
Public Function getBatteryStatus() As Integer
Dim obj As Object, obj2 As Object, stat As Integer
' Get Battery Status
' Return Value Meaning
'0 No battery
'1 The battery is discharging.
'2 The system has access to AC so no battery is being discharged. However, the battery is not necessarily charging.
'3 Fully Charged
'4 Low
'5 Critical
'6 Charging
'7 Charging and High
'8 Charging and Low
'9 Charging and Critical
'10 Undefined
'11 Partially Charged
stat = 0
obj = GetObject("winmgmts:").InstancesOf("Win32_Battery")
For Each obj2 In obj 'loop in objects
stat = obj2.BatteryStatus
Next
getBatteryStatus = stat
End Function
Private Sub TextBox9_TextChanged(sender As Object, e As EventArgs) Handles MyBase.Load
TextBox9.Text = My.Computer.FileSystem.GetDriveInfo("C:\").TotalSize \ 1000000000 & " GB"
End Sub
Private Sub TextBox10_TextChanged(sender As Object, e As EventArgs) Handles MyBase.Load
TextBox10.Text = My.Computer.FileSystem.GetDriveInfo("C:\").TotalFreeSpace \ 1000000000 & " GB"
End Sub
Private Sub TextBox11_TextChanged(sender As Object, e As EventArgs) Handles MyBase.Load
TextBox11.Text = My.Computer.FileSystem.GetDriveInfo("D:\").TotalSize \ 1000000000 & " GB"
End Sub
Private Sub TextBox12_TextChanged(sender As Object, e As EventArgs) Handles MyBase.Load
TextBox12.Text = My.Computer.FileSystem.GetDriveInfo("D:\").TotalFreeSpace \ 1000000000 & " GB"
End Sub
Private Sub TextBox14_TextChanged(sender As Object, e As EventArgs) Handles MyBase.Load
TextBox14.Text = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\0", "ProcessorNameString", Nothing)
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Process.Start("https://www.facebook.com/Land.RoverF")
End Sub
Private Sub CheckForUpdates()
Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("https://dl.dropbox.com/s/02c0p66bqihq79z/version.txt.txt?dl=0")
Dim response As System.Net.HttpWebResponse = request.GetResponse()
Dim sr As System.IO.StreamReader = New System.IO.StreamReader(response.GetResponseStream())
Dim newestversion As String = sr.ReadToEnd()
Dim currentversion As String = Application.ProductVersion
If newestversion > currentversion Then
MsgBox("There is a new update..")
System.Diagnostics.Process.Start("https://www.dropbox.com/s/mbshbyd582zrcuc/SYSINFO%20V.2.0.exe?dl=0")
Else
MsgBox("Update is the latest..")
End If
End Sub
Private Sub button3_click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim proc = Process.GetProcessesByName("explorer")
For i As Integer = 0 To proc.Count - 1
proc(i).Kill()
Next i
End Sub
Private Sub outputtextbox_text(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.AcceptButton = ExecuteButton
MyProcess = New Process
With MyProcess.StartInfo
.FileName = "CMD.EXE"
.UseShellExecute = False
.CreateNoWindow = True
.RedirectStandardInput = True
.RedirectStandardOutput = True
.RedirectStandardError = True
End With
MyProcess.Start()
MyProcess.BeginErrorReadLine()
MyProcess.BeginOutputReadLine()
AppendOutputText("Process Started at: " & MyProcess.StartTime.ToString)
End Sub
Private Sub MyProcess_ErrorDataReceived(ByVal sender As Object, ByVal e As System.Diagnostics.DataReceivedEventArgs) Handles MyProcess.ErrorDataReceived
AppendOutputText(vbCrLf & "Error: " & e.Data)
End Sub
Private Sub MyProcess_OutputDataReceived(ByVal sender As Object, ByVal e As System.Diagnostics.DataReceivedEventArgs) Handles MyProcess.OutputDataReceived
AppendOutputText(vbCrLf & e.Data)
End Sub
Private Sub ExecuteButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExecuteButton.Click
MyProcess.StandardInput.WriteLine(InputTextbox.Text)
MyProcess.StandardInput.Flush()
InputTextbox.Text = ""
End Sub
Private Sub AppendOutputText(ByVal text As String)
If OutputTextbox.InvokeRequired Then
Dim myDelegate As New AppendOutputTextDelegate(AddressOf AppendOutputText)
Me.Invoke(myDelegate, text)
Else
OutputTextbox.AppendText(text)
End If
End Sub
Private Sub ExecuteButton_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles ExecuteButton.MouseHover
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
MyProcess.StandardInput.WriteLine("systeminfo", "/k systeminfo ")
MyProcess.StandardInput.Flush()
End Sub
Private Sub ABOUTToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles ABOUTToolStripMenuItem1.Click
MsgBox("This software still in BETA Version. All Right Reserved. rafizan46 Corporation. 2015.")
End Sub
Private Sub CHECKUPDATESToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles CHECKUPDATESToolStripMenuItem1.Click
CheckForUpdates()
End Sub
Private Sub SLEEPToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SLEEPToolStripMenuItem.Click
Shell("shutdown -l")
End Sub
Private Sub RESTARTToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles RESTARTToolStripMenuItem.Click
Shell("shutdown -r")
End Sub
Private Sub SHUTDOWNToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SHUTDOWNToolStripMenuItem.Click
Shell("shutdown -s")
End Sub
Private Sub AlertStringDownloaded(ByVal sender As Object, ByVal e As DownloadStringCompletedEventArgs)
' Did the request go as planned (no cancellation or error)?
If e.Cancelled = False AndAlso e.Error Is Nothing Then
' Do something with the result here
'e.Result
End If
End Sub
Dim WithEvents client As New WebClient
Private Sub DirectX9ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DirectX9ToolStripMenuItem.Click
Try
client.DownloadFileAsync(New Uri("https://dl.dropboxusercontent.com/s/cn3q0u70ds57x4r/Direct%20X%2011%20Update.rar?dl=0"), "C:\Documents and Settings\All Users\Documents\Direct X 11 Update.RAR")
Catch ex As Exception
MsgBox("File already exists or is corrupted!")
End Try
End Sub
Private Sub client_DownloadFileCompleted(sender As Object, e As AsyncCompletedEventArgs) Handles client.DownloadFileCompleted
MsgBox("Download Complete!", MsgBoxStyle.Information)
Label48.Visible = False
Label49.Visible = False
ProgressBar3.Visible = False
Label48.Text = "0 &"
Label49.Text = "0 / 0"
ProgressBar3.Value = 0
End Sub
Private Sub client_DownloadProgressChanged(sender As Object, e As DownloadProgressChangedEventArgs) Handles client.DownloadProgressChanged
Label48.Visible = True
Label49.Visible = True
ProgressBar3.Visible = True
Label48.Text = ProgressBar3.Value & "%"
Label49.Text = e.BytesReceived & " / " & e.TotalBytesToReceive
ProgressBar3.Value = e.ProgressPercentage
End Sub
Private Sub GeForceExperienceV2000ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles GeForceExperienceV2000ToolStripMenuItem.Click
Try
client.DownloadFileAsync(New Uri("https://dl.dropboxusercontent.com/s/apd4kq76v1xqpwi/GeForce_Experience_v2.2.2.0.exe?dl=0"), "C:\Documents and Settings\All Users\Documents\GeForce_Experience_v2.2.2.0.exe")
Catch ex As Exception
MsgBox("File already exists or is corrupted!")
End Try
End Sub
Private Sub ABOUTTHISPARTToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ABOUTTHISPARTToolStripMenuItem.Click
MsgBox("This 'Software' section require internet connection to work.")
MsgBox("This part still in BETA.")
MsgBox("All downloaded file will be placed on directory C:\All Users\Documents\")
MsgBox("For every completed download, a message box will appear that tell you download has completed.")
End Sub
End Class
|
|
|
|
|
And you expect us to guess where the error occurs?
|
|
|
|
|
actually my code trying to get information like OS name, processor name, user name and computer name.. 
|
|
|
|
|
Since you haven't bothered to tell us the line where the error occurs, I'll have to guess:
Private Sub TextBox11_TextChanged(sender As Object, e As EventArgs) Handles MyBase.Load
TextBox11.Text = My.Computer.FileSystem.GetDriveInfo("D:\").TotalSize \ 1000000000 & " GB"
End Sub
Private Sub TextBox12_TextChanged(sender As Object, e As EventArgs) Handles MyBase.Load
TextBox12.Text = My.Computer.FileSystem.GetDriveInfo("D:\").TotalFreeSpace \ 1000000000 & " GB"
End Sub
On computers with a single hard-drive, drive D: (if it exists) is typically the DVD drive. If there is no DVD in the drive, then you won't be able to read the drive's information, and you'll get a "device not ready" error. You need to check the IsReady property before trying to access the other properties:
Dim drive As DriveInfo = My.Computer.FileSystem.GetDriveInfo("D:\")
If drive.IsReady Then
TextBox12.Text = drive.TotalFreeSpace \ 1000000000 & " GB"
End If
You should also give your controls meaningful names - without reading the code, it's not possible to know what TextBox11 should contain.
Also, give your methods less confusing names. At first glance, it looks like TextBox11_TextChanged will handle the TextChanged event of the TextBox11 control, which would send your code into an infinite loop.
"These people looked deep within my soul and assigned me a number based on the order in which I joined."
- Homer
|
|
|
|
|
oh.. wow.. thanks a lot... i appreciate it!! 
-- modified 30-Mar-15 15:45pm.
|
|
|
|
|
<pre lang="vb.net">hi,,
it is possible to adjust the size of a rectangle which is drawn in a picturebox with drawrectangle function.. During run time i want to adjust my rectangle width using numericupdown control..
thank u</pre>
|
|
|
|
|
Yes, collect the coordinate values from your up/down control and then redraw the rectangle with the new values. You probably need to override the OnPaint method in order to do it properly.
|
|
|
|
|
My understanding of basic Python is pretty good, but my memory fails me on all available modules and so forth, but when I last used Python, we had no luxuries like the DLR. I'm now looking for some advanced, in-depth Python tutorials, and I thought it best to look for ones that concentrate on integration with .NET. All suggestions are most welcome.
No object is so beautiful that, under certain conditions, it will not look ugly. - Oscar Wilde
|
|
|
|
|
|
Hehe, oops. 
I somehow missed the "IronPython .NET Integration documentation" when I downloaded IronPython. It is more reference format though, but I should be quite fine walking myself through building something small.
No object is so beautiful that, under certain conditions, it will not look ugly. - Oscar Wilde
|
|
|
|
|
How can i learn OOPS concepts in a easy way to get the grip over the subject and use it in my daily coding life.
|
|
|
|
|
|
That was Object Oriented Programming concepts.
|
|
|
|
|
I know, hence my comment: it's OOP not OOPS. And did you follow the link I gave you?
|
|
|
|
|
Thanks Richard. I am getting an error while trying to opening the link it is showing error message as I am trying to open it from Google. Could you please suggest me another link so that it'd be grateful for me to learn.
|
|
|
|
|
|
|
Dear All,
**Actualy, I am a student and i want to join course of WCF And Web API But Friends I am Totally confused WCF And WEB Api is Different or Similar .Can I join the Both Course Of Join Only One Course (WCF and Web API).** 
|
|
|
|
|
You can find the answers you seek quite easily just by Googling for "difference between wcf and web api".
|
|
|
|
|
|
Your post is completely unreadable. Don't copy and paste the text from the web page. Copy and paste the actual code that threw the exception and put it inside PRE tags.
|
|
|
|
|
sOutput1 = "<td> <input type='text' name=DEPT maxlength = '4' value="
sOutput2 = qresults("DEPT")
soutput3 = "></td>"
Response.write (sOutput1 + soutput2 + soutput3)
(I really didn
|
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
