|
Hey Jordan,
Thank you very much for the information. Although I have not tried it yet, it looks very helpfull. Again, thank you!!!
Al Ahmad 
|
|
|
|
|
yup, no prob.
------------------------
Jordan.
III
|
|
|
|
|
I'm reading xml from SQL server with VB.net using an XSD schema file. I have the code working fine, but I'd now like to change the code from reading a file on disk to reading the schema from the file as an embedded resource. Here's my code, what do I need to change??
<br />
Dim conString As String = "MyConnectionString"<br />
Dim strm As Stream<br />
Dim strmReader As StreamReader<br />
Dim cmd As New SqlXmlCommand(conString)<br />
Dim xmlDoc As New XmlDocument<br />
Dim strXML As String<br />
<br />
With cmd<br />
.CommandText = "MyXPath"<br />
.CommandType = SqlXmlCommandType.XPath<br />
.SchemaPath = "C:\MySchemaFile.xsd" '**I want this to be embedded!!**<br />
strm = .ExecuteStream<br />
End With<br />
<br />
strmReader = New StreamReader(strm)<br />
strXML = strmReader.ReadToEnd<br />
xmlDoc.LoadXml(strXML)<br />
Like I said, the above code works fine, but I don't want a physical file location.
Thanks!!!
-Michael
|
|
|
|
|
Hi Michael. There are several articles on CodeProject that could help you. Do an article search on "embedded resource". Here's a link to one article[^] that may be useful.
|
|
|
|
|
How can I get the changes made by a user to a datagrid's content to reflect in the "datasourced" dataset so that the database can be updated accordingly ?
This is for a desktop program not asp.
The dataset is filled by an SqlDataAdapter
|
|
|
|
|
Isn't your DataGrid bound to the underlying DataSet? Shouldn't you be able to update the data source using the data adapter's update method?
What a piece of work is man, how noble in reason, how infinite in faculties, in form and moving how express and admirable . . . and yet to me, what is this quintessence of dust? -- Hamlet, Act II, Scene ii.
|
|
|
|
|
Any changes to the dataset reflects on the grid, but not visa versa. Either I am missing something, because it seems some intervention is needed.
On the CurrentCellChanged event I have to add the following line (assuming the datasource is a dataset of course)
Static PrevCell As DataGridCell
Dim dsSender as Dataset
dsSender.Tables(0).Rows(PrevCell.RowNumber).Item(PrevCell.ColumnNumber) = PrevCellData
'becomes prev cell on next itteration
PrevCell = sender.CurrentCell
Only then does
ds.AcceptChanges and da.update(ds) work.
I am not even talking about adding new records yet.
Any suggestions to simplify the process would be appreciated.
|
|
|
|
|
Danny,
I apologize for my "shoot-from-the-hip" response to your question. It really isn't that simple, is it?
Although I don't spend a whole bunch of time with Windows Forms, what I think has to be done with a DataGrid is to use BindingContext, create a new event handler, such as OnPositionChanged, and bind that handler to the PositionChanged event of the BindingContext. Then, in the event handler, you can decide whether or not you want to update the whole data set for a row change. Unfortunately, the examples I find of this method are really pretty trivial, though I haven't tried searching for information about them here on CodeProject yet.
What a piece of work is man, how noble in reason, how infinite in faculties, in form and moving how express and admirable . . . and yet to me, what is this quintessence of dust? -- Hamlet, Act II, Scene ii.
|
|
|
|
|
Apology accepted. Thing is, it IS as simple as your hip shot. The Grid DOES affect the datasource and visa versa.
The dataset.acceptchanges statement just before the dataAdapter.updatedataset part appears to be the stoolsample in the applepie. It changes all rowstates from deleted, added to unchanged. Which in turn must be telling the adapter that nothing happened.
Took out ds.acceptchanges and problem solved.
|
|
|
|
|
What a piece of work is man, how noble in reason, how infinite in faculties, in form and moving how express and admirable . . . and yet to me, what is this quintessence of dust? -- Hamlet, Act II, Scene ii.
|
|
|
|
|
  hi der,
If possible could someone please solve this problem of mine. I am a beginner and want to get my results in Excel format but the output which i need has to be formatted and i am not able to get that kinda format. Have already developed the application with backend in Access and need to get the data frm Access and display it in Excel. Have already incorp. Crystal reports and have put the export tab on it. but what i need is an Excel format. If anybody can do it please mail me i can send u the Excel file in the format which i want.    ![Rose | [Rose]](https://codeproject.freetls.fastly.net/script/Forums/Images/rose.gif)
|
|
|
|
|
The whole answer, in a nutshell, is to control Excel directly through VB. First, add a reference to the Excel Library through Project...References.
Then, you can do things like the following:
Private Sub cmdStart_Click()
Dim xl As New Excel.Application
Dim myWorkBook As Excel.Workbook
Dim myWorkSheet As Excel.Worksheet
xl.Workbooks.Open "c:\000\Book1.xls"
Set myWorkBook = xl.ActiveWorkbook
Set myWorkSheet = myWorkBook.ActiveSheet
With myWorkSheet.Range("Headers")
With .Borders.Item(xlEdgeBottom)
.Weight = XlBorderWeight.xlThin
.LineStyle = XlLineStyle.xlContinuous
End With
.Font.Italic = True
End With
Dim intRow As Integer
Dim intTop As Integer
intTop = 3
For intRow = 1 To myWorkSheet.Range("Data").Rows.Count
Dim intRowOffset As Integer
intRowOffset = intRow + intTop
myWorkSheet.Cells(intRowOffset, 2).Font.Bold = True
myWorkSheet.Cells(intRowOffset, 2).Value = 5
Next
myWorkBook.Save
myWorkBook.Close
End Sub
What a piece of work is man, how noble in reason, how infinite in faculties, in form and moving how express and admirable . . . and yet to me, what is this quintessence of dust? -- Hamlet, Act II, Scene ii.
|
|
|
|
|
In order to enter values in the sample Excel sheet you sent over, I'd do one of three things:
1) Hard-code the cell addresses of the locations in the spreadsheet where you intend to place values, i.e., myWorkSheet.Range("B6").Value = rsTable("field").Value
2) Define each location in the template where you intend to store a value as a named range, then: myWorkSheet.Range("CashCollectionValueOne").Value = rsTable("field").Value
3) Store the relative addresses of each location in the formatted sheet in a cross-reference table, then lookup the location of a value in the cross-reference.
What a piece of work is man, how noble in reason, how infinite in faculties, in form and moving how express and admirable . . . and yet to me, what is this quintessence of dust? -- Hamlet, Act II, Scene ii.
|
|
|
|
|
I am trying to figure out a couple of things, and could use some help. I've got a project (VB.NET) that calculates loan payments and need to modify it so that it will calculate and display a full amortization schedule, using an array.
#1: Has anyone done this, and have a working for/next/loop (or something else) that you might share?
#2: What control would be most appropriate for displaying the results? I'm thinking that a DataGrid would look good and provide nice scrolling functionality, etc., but I don't know how to bind a DataGrid to an array.
========
Stewart
|
|
|
|
|
Insted of using DataGrid, try using FlexGrid.
Yogendra Agarwal
Telemune Software Solutions Pvt. Ltd.
Mobile: +91 9818899010
|
|
|
|
|
dear all,
how do i split a Null delimited string Buffer which is returned by an api function.
rIsHaBh
|
|
|
|
|
assuming strBuffer is returned by the API
Dim v As Object
v = Split(strBuffer, ControlChars.NullChar)
1fm1fu
|
|
|
|
|
Thanx for your reply but this is not working
steff kamush wrote:
v = Split(strBuffer, ControlChars.NullChar)
instead if i use
v = Split(strBuffer, Chr(0))</
then it works absolutely fine.
Thanx anyways.
rIsHaBh
|
|
|
|
|
Kool. Guess u r using VB6, not .net, no? Mine was meant 4 .net
1fm1fu
|
|
|
|
|
Ohh....tht was the problem. I tried tht code on VB6.
Thanx a lot
rIsHaBh
|
|
|
|
|
How can i get the domain names & workgroups separately in a network usin vb.net?Plzz replyyyy
|
|
|
|
|
Look up the System.DirectoryServices namespace on MSDN, and check for examples here on CP for the same thing.
What a piece of work is man, how noble in reason, how infinite in faculties, in form and moving how express and admirable . . . and yet to me, what is this quintessence of dust? -- Hamlet, Act II, Scene ii.
|
|
|
|
|
I used the same class n namespace n passed WinNT: as the query but it lists all the domains n workgroups together.I need those separately.Also I want to get the machines in the workgroup.Whats the query that I should pass.Plzzz replllyyyyy
|
|
|
|
|
I think the key is to enumerate the Properties collection of each child node in the collection of DirectoryEntry children. While there may be a more elegant way of doing so, the way that I was able to get a list of users, for example, was to do something like this:
Dim entry As New DirectoryServices.DirectoryEntry
For Each child As DirectoryServices.DirectoryEntry In entry.Children
Dim propertyValue As Integer = 0
Try
propertyValue = CType(child.Properties("UserFlags").Value, Integer)
Catch ex As Exception
' if it throws an exception, it's not a user item
propertyValue = 0
End Try
If (propertyValue = 513) Then
Console.WriteLine(child.Name)
End If
Next
If you look at the property names in the Properties collection, you should be able to isolate which ones are Domains, which ones are workgroups and which ones are users, etc. I believe there may be a more elegant solution, but I haven't found the best reference for that solution yet.
What a piece of work is man, how noble in reason, how infinite in faculties, in form and moving how express and admirable . . . and yet to me, what is this quintessence of dust? -- Hamlet, Act II, Scene ii.
|
|
|
|
|
Hi,
I'm doing immediate syntax check for VBScript code sentence.
How can i get VBScript compiler error information, such as "expected expression"?
Thank you!
Alan
|
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
