Okay so 3 days of beating my head on the wall I got win 7 installed.
Day 1 involved several hours trying to get it to work without the raid driver disk. No dice.
I tried all 6 SATA ports among various settings in the bios, except raid as I had it disabled.
Day 2 involved the win 7 32 bit driver file from gigabytes website. no dice
I started reading some posts about fixing os installs, one said to default bios with fail safe, then load optimal. So with a freshly defaulted bios settings. I had resigned myself to installing the drive as a raid item since in non raid modes win7 wouldn't see it. This was a brand new 80g Sata drive.
At 2am on day 2, well technically it was day 3 at that point. success!
Okay so here's what I did.
Note: my prior setup involved 2 Sata drives and 2 IDE drives, i booted off the IDE's and so never needed the raid driver or even messed with raid settings. The drives were in single mode and the raid disabled.
wired sata drive to slot channel 4
enabled raid mode
disabled normal ide channel (done with ide hdd's)
changed drive from IDE mode to SATA mode
Save & exit
In raid menu - the first gotcha was system auto created the drive as a JBOD - doesn't work, need 2 drives according to raid bios. delete the drives listed and created a new "Raid 0/1 raid ready" drive.
Save & exit
From there windows came up saw it, just for erring on the side of caution, I format the drive from the installer. I made a 100meg sys partition and allocated the rest.
From there I went to bed. Woke up, plugged in my user name, network and within a minute was at the desktop. When the install works, it is nice & smooth.
I can post exact bios settings if someone asks. But I'm at work and going off memory from 2am and writing this off baring any interest in the entry.
Tuesday, October 27, 2009
Friday, May 8, 2009
Talking to SharePoint via VB .NET
Okay, I'm new to this and had a crash course this last week.
End results, I wrote my first VB .NET application (asides demo/training apps) and it talks to SharePoint to retrieve data for several drop downs, and then pushes the selections into a Sharepoint list. Biggest gotcha i got was that for some reason, the returned data read of SP kept saying there was 13 nodes, but inspecting the data via a message.show(object.outerxml.tostring) i saw only 6 node, try as i might, couldnt get the data changed or vb to read it as 6 nodes, from there, i gave up and worked around it, embeded the code inside a try catch, told it if the attribute was "" skip it,else then read the value into a data set for the drop downs. This worked(still bugs me, feels like the codes jury rigged)
So heres my notes/web references on the process...
http://royaline.wordpress.com/2009/01/27/parsing-sharepoint-list-items-from-listsasmx/
http://blog.thekid.me.uk/archive/2007/05/29/reformatting-xml-retrieved-directly-from-the-sharepoint-api.aspx
http://msdn.microsoft.com/en-us/library/lists.lists.getlistitems.aspx
I have a web reference in the project to my lists.asmx called thomnet_sharepoint
Note the code also has the prior blogs timer code in it.
Imports hdlogger.thomnet_sharepoint.Lists
Imports System.Xml
Imports System.Xml.XmlNode
' ref material: http://msdn.microsoft.com/en-us/library/lists.lists.getlistitems.aspx
' tools used to reference the guid's of sharepoint... lists.exe and view the source of pages that modify the view of a list
'string to the blow values to a new sp entry
' ndQuery.InnerXml = "Logging Tool Setting Do Not Modify
'xml identity of columns
'" + bxTypeOfLog.text + "
'" + tbStoreID.text + "
'" + tbTicketID.text + "
'" + tbNotes.text + "
'" + tmrTimerDisplay.text + "
'" + bxBrands.text + "
'Variables in the hd logger and their corresponding sharepoint identity
' bxTypeOfLog ows_Log_x0020_of_x0020_type_x003a_
' tbStoreID Store_x0020_ID
' tbTicketID Ticket_x0020_ID
' tbNotes ows_Title
' tmrTimerDisplay ows_logged_time
' bxBrands ows_Brands
Public Class Form1
Public agentLoggedTime As Integer = 0
Public xmlDoc As New System.Xml.XmlDocument()
Public ndListItems As XmlNode
'start time button on click event
Private Sub btnTimerStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTimerStart.Click
tmrTimer.Enabled = True
End Sub
'pause timer button on click event
Private Sub btnTimerPause_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTimerPause.Click
tmrTimer.Enabled = False
End Sub
'reset button click event
Private Sub btnTimerReset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTimerReset.Click
'prompt to reset
Dim resetanswer As MessageBoxButtons = MessageBoxButtons.YesNo
resetanswer = MessageBox.Show("Reset timer to 0?", "Confirm Timer Reset", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If resetanswer = System.Windows.Forms.DialogResult.Yes Then
' stop ticker and reset count to 0
tmrTimer.Enabled = False
agentLoggedTime = 0
Else
End If
tmrTimerDisplay.Text = TimeSpan.FromSeconds(agentLoggedTime).ToString
End Sub
Private Sub tmrTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrTimer.Tick
agentLoggedTime += 1
tmrTimerDisplay.Text = TimeSpan.FromSeconds(agentLoggedTime).ToString
End Sub
'onload events
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'grabs sp data and populates ndlistitems
grabSharePointData()
'populates the drop downs for type of log and brand
populateDataSet_logoftype()
populateDataSet_brands()
End Sub
Sub grabSharePointData()
'you pass your request to sharepoint via xml markup, reference the ms link at top of page, this
'code is derivitave of it.
Dim listService As New hdlogger.thomnet_sharepoint.Lists()
listService.Credentials = System.Net.CredentialCache.DefaultCredentials
Dim ndQuery As XmlNode = xmlDoc.CreateNode(XmlNodeType.Element, "Query", "")
Dim ndViewFields As XmlNode = xmlDoc.CreateNode(XmlNodeType.Element, "ViewFields", "")
Dim ndQueryOptions As XmlNode = xmlDoc.CreateNode(XmlNodeType.Element, "QueryOptions", "")
'ndQueryOptions.InnerXml = "True "
ndQueryOptions.InnerXml = "False "
ndViewFields.InnerXml = ""
'ndQuery.InnerXml = ""
'MessageBox.Show(listService.GetListItems("{A00E0057-4D22-452B-B585-9C8C0FD277F9}", "{3D72D5FA-F5DF-4656-A56E-01B5E50C6F22}", ndQuery, ndViewFields, Nothing, Nothing, Nothing).OuterXml.ToString)
Try
ndListItems = listService.GetListItems("{A00E0057-4D22-452B-B585-9C8C0FD277F9}", "{3D72D5FA-F5DF-4656-A56E-01B5E50C6F22}", ndQuery, ndViewFields, Nothing, Nothing, Nothing)
Catch ex As System.Web.Services.Protocols.SoapException
MessageBox.Show("Message:" + ControlChars.Lf + ex.Message + ControlChars.Lf + "Detail:" + ControlChars.Lf + ex.Detail.InnerText + ControlChars.Lf + "StackTrace:" + ControlChars.Lf + ex.StackTrace + "this was an error , screen shot it and notify a lead, its advised you don't continue")
End Try
End Sub
Sub populateDataSet_logoftype()
'you pass your request to sharepoint via xml markup, reference the ms link at top of page, this
'code is derivitave of it.
Dim xnode As XmlNode = ndListItems
Dim xcnode As Xml.XmlNode
' Dim rcount As Integer = xnode("rs:data").ChildNodes.Count
' found that for each node return theres a null nodes with it,
' best way around that i know at this point was to do a try catch and ignore the nulls.
'This populates the dataset used to build the drop down boxes
Dim icount As Integer = 0
DataTable1.Rows.Add("Select a Log Type")
For Each xcnode In xnode("rs:data").ChildNodes
Try
If xnode("rs:data").ChildNodes(icount).Attributes("ows_Log_x0020_of_x0020_type_x003a_").Value <> "" Then
DataTable1.Rows.Add(xnode("rs:data").ChildNodes(icount).Attributes("ows_Log_x0020_of_x0020_type_x003a_").Value)
End If
Catch ex As Exception
End Try
icount += 1
Next
End Sub
Sub populateDataSet_brands()
Dim xnode As XmlNode = ndListItems
Dim xcnode As Xml.XmlNode
' Dim rcount As Integer = xnode("rs:data").ChildNodes.Count
' found that for each node return theres a null nodes with it,
' best way around that i know at this point was to do a try catch and ignore the nulls.
'This populates the dataset used to build the drop down boxes
Dim icount As Integer = 0
DataTable2.Rows.Add("Select Brand")
For Each xcnode In xnode("rs:data").ChildNodes
Try
If xnode("rs:data").ChildNodes(icount).Attributes("ows_Brands").Value <> "" Then
DataTable2.Rows.Add(xnode("rs:data").ChildNodes(icount).Attributes("ows_Brands").Value)
End If
Catch ex As Exception
End Try
icount += 1
Next
End Sub
Sub formclear()
bxBrand.Text = "Select Brand"
bxTypeOfLog.Text = "Select a Log Type"
tbStoreID.Text = ""
tbTicketID.Text = ""
tbNotes.Text = ""
End Sub
Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click
formclear()
End Sub
Private Sub btnSubmit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSubmit.Click
'you pass your request to sharepoint via xml markup, reference the ms link at top of page, this
'code is derivitave of it.
Dim listService As New hdlogger.thomnet_sharepoint.Lists()
listService.Credentials = System.Net.CredentialCache.DefaultCredentials
If bxBrand.Text = "Select Brand" Or bxTypeOfLog.Text = "Select a Log Type" Or tbStoreID.Text = "" Or tbTicketID.Text = "" Then
MessageBox.Show("To submit an entry, you must:" & vbCrLf & vbCrLf & "Select a Log Type and Brand" & vbCrLf & "Supply a Ticket # and Store #.", "Please Review Your Selections ", MessageBoxButtons.OK, MessageBoxIcon.Warning)
Else
Dim strBatch As String = " New " + bxTypeOfLog.Text + " " + tbStoreID.Text + " " + tbTicketID.Text + " " + tbNotes.Text + " " + tmrTimerDisplay.Text + " " + bxBrand.Text + " "
Dim elBatch As System.Xml.XmlElement = xmlDoc.CreateElement("Batch")
elBatch.SetAttribute("OnError", "Continue")
elBatch.SetAttribute("ListVersion", "1")
elBatch.SetAttribute("ViewName", "9D0126F0-616A-4EE1-9BFE-FD125B902190")
elBatch.InnerXml = strBatch
Try
Dim ndReturn As XmlNode = listService.UpdateListItems("A00E0057-4D22-452B-B585-9C8C0FD277F9", elBatch)
formclear()
tmrTimer.Enabled = False
agentLoggedTime = 0
tmrTimerDisplay.Text = "00:00:00"
MessageBox.Show("New log created!")
Catch ex As Exception
MessageBox.Show("error trying to put data to sharepoint")
End Try
End If
End Sub
End Class
End results, I wrote my first VB .NET application (asides demo/training apps) and it talks to SharePoint to retrieve data for several drop downs, and then pushes the selections into a Sharepoint list. Biggest gotcha i got was that for some reason, the returned data read of SP kept saying there was 13 nodes, but inspecting the data via a message.show(object.outerxml.tostring) i saw only 6 node, try as i might, couldnt get the data changed or vb to read it as 6 nodes, from there, i gave up and worked around it, embeded the code inside a try catch, told it if the attribute was "" skip it,else then read the value into a data set for the drop downs. This worked(still bugs me, feels like the codes jury rigged)
So heres my notes/web references on the process...
http://royaline.wordpress.com/2009/01/27/parsing-sharepoint-list-items-from-listsasmx/
http://blog.thekid.me.uk/archive/2007/05/29/reformatting-xml-retrieved-directly-from-the-sharepoint-api.aspx
http://msdn.microsoft.com/en-us/library/lists.lists.getlistitems.aspx
I have a web reference in the project to my lists.asmx called thomnet_sharepoint
Note the code also has the prior blogs timer code in it.
Imports hdlogger.thomnet_sharepoint.Lists
Imports System.Xml
Imports System.Xml.XmlNode
' ref material: http://msdn.microsoft.com/en-us/library/lists.lists.getlistitems.aspx
' tools used to reference the guid's of sharepoint... lists.exe and view the source of pages that modify the view of a list
'string to the blow values to a new sp entry
' ndQuery.InnerXml = "
'xml identity of columns
'
'
'
'
'
'
'Variables in the hd logger and their corresponding sharepoint identity
' bxTypeOfLog ows_Log_x0020_of_x0020_type_x003a_
' tbStoreID Store_x0020_ID
' tbTicketID Ticket_x0020_ID
' tbNotes ows_Title
' tmrTimerDisplay ows_logged_time
' bxBrands ows_Brands
Public Class Form1
Public agentLoggedTime As Integer = 0
Public xmlDoc As New System.Xml.XmlDocument()
Public ndListItems As XmlNode
'start time button on click event
Private Sub btnTimerStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTimerStart.Click
tmrTimer.Enabled = True
End Sub
'pause timer button on click event
Private Sub btnTimerPause_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTimerPause.Click
tmrTimer.Enabled = False
End Sub
'reset button click event
Private Sub btnTimerReset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTimerReset.Click
'prompt to reset
Dim resetanswer As MessageBoxButtons = MessageBoxButtons.YesNo
resetanswer = MessageBox.Show("Reset timer to 0?", "Confirm Timer Reset", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If resetanswer = System.Windows.Forms.DialogResult.Yes Then
' stop ticker and reset count to 0
tmrTimer.Enabled = False
agentLoggedTime = 0
Else
End If
tmrTimerDisplay.Text = TimeSpan.FromSeconds(agentLoggedTime).ToString
End Sub
Private Sub tmrTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrTimer.Tick
agentLoggedTime += 1
tmrTimerDisplay.Text = TimeSpan.FromSeconds(agentLoggedTime).ToString
End Sub
'onload events
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'grabs sp data and populates ndlistitems
grabSharePointData()
'populates the drop downs for type of log and brand
populateDataSet_logoftype()
populateDataSet_brands()
End Sub
Sub grabSharePointData()
'you pass your request to sharepoint via xml markup, reference the ms link at top of page, this
'code is derivitave of it.
Dim listService As New hdlogger.thomnet_sharepoint.Lists()
listService.Credentials = System.Net.CredentialCache.DefaultCredentials
Dim ndQuery As XmlNode = xmlDoc.CreateNode(XmlNodeType.Element, "Query", "")
Dim ndViewFields As XmlNode = xmlDoc.CreateNode(XmlNodeType.Element, "ViewFields", "")
Dim ndQueryOptions As XmlNode = xmlDoc.CreateNode(XmlNodeType.Element, "QueryOptions", "")
'ndQueryOptions.InnerXml = "
ndQueryOptions.InnerXml = "
ndViewFields.InnerXml = "
'ndQuery.InnerXml = ""
'MessageBox.Show(listService.GetListItems("{A00E0057-4D22-452B-B585-9C8C0FD277F9}", "{3D72D5FA-F5DF-4656-A56E-01B5E50C6F22}", ndQuery, ndViewFields, Nothing, Nothing, Nothing).OuterXml.ToString)
Try
ndListItems = listService.GetListItems("{A00E0057-4D22-452B-B585-9C8C0FD277F9}", "{3D72D5FA-F5DF-4656-A56E-01B5E50C6F22}", ndQuery, ndViewFields, Nothing, Nothing, Nothing)
Catch ex As System.Web.Services.Protocols.SoapException
MessageBox.Show("Message:" + ControlChars.Lf + ex.Message + ControlChars.Lf + "Detail:" + ControlChars.Lf + ex.Detail.InnerText + ControlChars.Lf + "StackTrace:" + ControlChars.Lf + ex.StackTrace + "this was an error , screen shot it and notify a lead, its advised you don't continue")
End Try
End Sub
Sub populateDataSet_logoftype()
'you pass your request to sharepoint via xml markup, reference the ms link at top of page, this
'code is derivitave of it.
Dim xnode As XmlNode = ndListItems
Dim xcnode As Xml.XmlNode
' Dim rcount As Integer = xnode("rs:data").ChildNodes.Count
' found that for each node return theres a null nodes with it,
' best way around that i know at this point was to do a try catch and ignore the nulls.
'This populates the dataset used to build the drop down boxes
Dim icount As Integer = 0
DataTable1.Rows.Add("Select a Log Type")
For Each xcnode In xnode("rs:data").ChildNodes
Try
If xnode("rs:data").ChildNodes(icount).Attributes("ows_Log_x0020_of_x0020_type_x003a_").Value <> "" Then
DataTable1.Rows.Add(xnode("rs:data").ChildNodes(icount).Attributes("ows_Log_x0020_of_x0020_type_x003a_").Value)
End If
Catch ex As Exception
End Try
icount += 1
Next
End Sub
Sub populateDataSet_brands()
Dim xnode As XmlNode = ndListItems
Dim xcnode As Xml.XmlNode
' Dim rcount As Integer = xnode("rs:data").ChildNodes.Count
' found that for each node return theres a null nodes with it,
' best way around that i know at this point was to do a try catch and ignore the nulls.
'This populates the dataset used to build the drop down boxes
Dim icount As Integer = 0
DataTable2.Rows.Add("Select Brand")
For Each xcnode In xnode("rs:data").ChildNodes
Try
If xnode("rs:data").ChildNodes(icount).Attributes("ows_Brands").Value <> "" Then
DataTable2.Rows.Add(xnode("rs:data").ChildNodes(icount).Attributes("ows_Brands").Value)
End If
Catch ex As Exception
End Try
icount += 1
Next
End Sub
Sub formclear()
bxBrand.Text = "Select Brand"
bxTypeOfLog.Text = "Select a Log Type"
tbStoreID.Text = ""
tbTicketID.Text = ""
tbNotes.Text = ""
End Sub
Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click
formclear()
End Sub
Private Sub btnSubmit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSubmit.Click
'you pass your request to sharepoint via xml markup, reference the ms link at top of page, this
'code is derivitave of it.
Dim listService As New hdlogger.thomnet_sharepoint.Lists()
listService.Credentials = System.Net.CredentialCache.DefaultCredentials
If bxBrand.Text = "Select Brand" Or bxTypeOfLog.Text = "Select a Log Type" Or tbStoreID.Text = "" Or tbTicketID.Text = "" Then
MessageBox.Show("To submit an entry, you must:" & vbCrLf & vbCrLf & "Select a Log Type and Brand" & vbCrLf & "Supply a Ticket # and Store #.", "Please Review Your Selections ", MessageBoxButtons.OK, MessageBoxIcon.Warning)
Else
Dim strBatch As String = "
Dim elBatch As System.Xml.XmlElement = xmlDoc.CreateElement("Batch")
elBatch.SetAttribute("OnError", "Continue")
elBatch.SetAttribute("ListVersion", "1")
elBatch.SetAttribute("ViewName", "9D0126F0-616A-4EE1-9BFE-FD125B902190")
elBatch.InnerXml = strBatch
Try
Dim ndReturn As XmlNode = listService.UpdateListItems("A00E0057-4D22-452B-B585-9C8C0FD277F9", elBatch)
formclear()
tmrTimer.Enabled = False
agentLoggedTime = 0
tmrTimerDisplay.Text = "00:00:00"
MessageBox.Show("New log created!")
Catch ex As Exception
MessageBox.Show("error trying to put data to sharepoint")
End Try
End If
End Sub
End Class
Friday, May 1, 2009
sample vb .net timer
so I needed a timer/stopwatch, googled around, found all sorts of over complicated timer examples doing /60/60 to get the hour etc...
this code requires a form (form1) 3 buttons and a label. thats it,
1 start button 1 pause button 1 reset button and 1 label to display the time
//begin vb code //
Public Class Form1
Public agentLoggedTime As Integer = 0
Private Sub btnTimerStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTimerStart.Click
tmrTimer.Enabled = True
End Sub
Private Sub btnTimerPause_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTimerPause.Click
tmrTimer.Enabled = False
End Sub
Private Sub btnTimerReset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTimerReset.Click
Dim resetanswer As MessageBoxButtons = MessageBoxButtons.YesNo
resetanswer = MessageBox.Show("Reset timer to 0?", "Confirm Timer Reset", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If resetanswer = System.Windows.Forms.DialogResult.Yes Then
tmrTimer.Enabled = False
agentLoggedTime = 0
Else
End If
tmrTimerDisplay.Text = TimeSpan.FromSeconds(agentLoggedTime).ToString
End Sub
Private Sub tmrTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrTimer.Tick
agentLoggedTime += 1
tmrTimerDisplay.Text = TimeSpan.FromSeconds(agentLoggedTime).ToString
End Sub
End Class
this code requires a form (form1) 3 buttons and a label. thats it,
1 start button 1 pause button 1 reset button and 1 label to display the time
//begin vb code //
Public Class Form1
Public agentLoggedTime As Integer = 0
Private Sub btnTimerStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTimerStart.Click
tmrTimer.Enabled = True
End Sub
Private Sub btnTimerPause_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTimerPause.Click
tmrTimer.Enabled = False
End Sub
Private Sub btnTimerReset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTimerReset.Click
Dim resetanswer As MessageBoxButtons = MessageBoxButtons.YesNo
resetanswer = MessageBox.Show("Reset timer to 0?", "Confirm Timer Reset", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If resetanswer = System.Windows.Forms.DialogResult.Yes Then
tmrTimer.Enabled = False
agentLoggedTime = 0
Else
End If
tmrTimerDisplay.Text = TimeSpan.FromSeconds(agentLoggedTime).ToString
End Sub
Private Sub tmrTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrTimer.Tick
agentLoggedTime += 1
tmrTimerDisplay.Text = TimeSpan.FromSeconds(agentLoggedTime).ToString
End Sub
End Class
Subscribe to:
Posts (Atom)