|
Here Try this.
This is the code to add the network Drive
Dim WshNetwork as Object<br />
WshNetwork = CreateObject("WScript.Network")<br />
WshNetwork.MapNetworkDrive("L:", "\\Server\Resource")
Of course you can have the letter be whatever and just fill in your resource
Here is the Code to remove it after the object is created
WshNetwork.RemoveNetworkDrive("L:")
And of course it the letter that you specified earlier.
I hope this helps
|
|
|
|
|
Hey people, what's up?
Well, I am quite new to this whole VB/VBNET thing and I love it already. I am also stuck with a little problem. I am trying to design a program that creates a ten digit alphanumeric code. I have no idea how to approach that goal. Can anyone help me?
I appreciate any help!!!
|
|
|
|
|
i will give you an example of how to generate a random number. then, an example of how to return a character, using its Ascii value (ex, A = 65). then finally a way to return a random character.
** NOTE: for these examples, i am using a VB.net Console Application. **
GENERATE RANDOM NUMBER:
Module Module1
Sub Main()
'declare variable to store your random number
Dim myNumber As Integer
'initialize a method to generate random numbers
Randomize()
'create a random number and store it in our variable
myNumber = (50 * Rnd()) + 1
'the statement (50 * Rnd()) + 1) will generate a random number from 1-50.
'If you excluded the " + 1" part, it would generate a number from 0-49.
'write our variable to the screen
Console.WriteLine(myNumber)
'pause for display, by waiting untill the user presses -ENTER-
Console.ReadLine()
End Sub
End Module
RETURN A CHARACTER USING ASCII VALUES:
console.writeline(Chr(65))
'displays "A" on the screen. if you dont want to print it and only return its value, just use Chr(65).
GENERATE RANDOM CHARACTERS:
after reviewing the top 2 methods, you should be able to know how to do this. here is an example though:
Console.WriteLine(Chr((127 * Rnd()) + 1))
'this will display a random Ascii character. again, if you just want to return it and not print it, just use the Chr(...).
ASCII: for more info about Ascii and a chart of characters and their corresponding ASCII values, visit asciitable.com[^]. The "Dec" column is the "Chr"'s ASCII value.
------------------------
Jordan.
III
|
|
|
|
|
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.
|
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
