|
I wont to make an application that can change driveletters(c:// to E://) but i cant find any article that describes how to do this do this. i hope you now how to do.
|
|
|
|
|
You would have to P/Invoke the Win32 API functions SetVolumeMountPoint and DeleteVolumeMountPoint to do this. Beware! You can not change the drive letter of the volume Windows is installed on. Also, it's not a good idea to change the drive letter of anything other than a removable volume. Changing the drive letter of a hard disk after application have been installed on it will result in those application breaking!
Documentation on Volume Mount Point functions[^].
|
|
|
|
|
|
That code changes the Volume Label, not the drive letters.
|
|
|
|
|
Hello all, I am working with VB.Net and I currently have a Setup Project that I do a Build on and install my program to different PCs. This works fine, but my question now is how can I create an 'update' to send my users instead of a full install. I also want to make sure that I don't send them the original MDB file again and overwrite the one they currently have on their machine.
Does anyone have any suggestions or know of any links explaining how to do this? I tried the Publish but it tried to install the original MDB, which would be a very bad thing.
Thanks for any advice you can offer!
|
|
|
|
|
|
It looks like with ClickOnce, you have to install with a ClickOnce project, and I don't have that. I added a Setup Project to my program and I am installing using the output of Build of that Setup. So I don't think that ClickOnce is a option for me. Does anyone know of anything else I can use?
|
|
|
|
|
What I have right now is the flag set to RemovePreviousVersion, and I set my MDB's Permanent property to true. And anytime I do an updated build, I have to change the Version. Then when they install, it will see the other version, un-install it, but leave the MDB alone, and then reinstall.
Does anyone else know of a better solution for updates using the Setup Project feature?
|
|
|
|
|
i have created database in sqlserver through vb it was created successfully but when i go in enterprise manager for making query the table which were created are showing no columns i.e only All columns selection check box is there what is wrong with database?
When i execute select query the result pane showing all columns but no columns in the table structure above
MKS
|
|
|
|
|
We'd need to see the code that created the table.
|
|
|
|
|
Sorry for replying late
Following is the code for creating database please reply.
This is how i create the data base and table.
Public Function Create_UserDB(strDBFolder As String, strDBName As String, isDoubleAccounting As Boolean, isGLInclude As Boolean) As Boolean
Dim strQuery As String
Create_UserDB = False
strQuery = "CREATE DATABASE [" & strDBName & "] "
strQuery = strQuery & " ON (NAME = N'RWSDB_Data', FILENAME = N'" & strDBFolder & "\" & strDBName & ".mdf' "
strQuery = strQuery & " , SIZE = 3, FILEGROWTH = 10%) LOG "
strQuery = strQuery & " ON (NAME = N'RWSDB_Log', FILENAME = N'" & strDBFolder & "\" & strDBName & ".ldf' "
strQuery = strQuery & " , SIZE = 1, FILEGROWTH = 10%)"
ExecuteQuery strQuery
strQuery = "exec sp_dboption N'" & strDBName & "', N'autoclose', N'false'": ExecuteQuery strQuery
strQuery = "exec sp_dboption N'" & strDBName & "', N'bulkcopy', N'false'": ExecuteQuery strQuery
strQuery = "exec sp_dboption N'" & strDBName & "', N'trunc. log', N'true'": ExecuteQuery strQuery
strQuery = "exec sp_dboption N'" & strDBName & "', N'torn page detection', N'true'": ExecuteQuery strQuery
strQuery = "exec sp_dboption N'" & strDBName & "', N'read only', N'false'": ExecuteQuery strQuery
strQuery = "exec sp_dboption N'" & strDBName & "', N'dbo use', N'false'": ExecuteQuery strQuery
strQuery = "exec sp_dboption N'" & strDBName & "', N'single', N'false'": ExecuteQuery strQuery
strQuery = "exec sp_dboption N'" & strDBName & "', N'autoshrink', N'true'": ExecuteQuery strQuery
strQuery = "exec sp_dboption N'" & strDBName & "', N'ANSI null default', N'false'": ExecuteQuery strQuery
strQuery = "exec sp_dboption N'" & strDBName & "', N'recursive triggers', N'false'": ExecuteQuery strQuery
strQuery = "exec sp_dboption N'" & strDBName & "', N'ANSI nulls', N'false'": ExecuteQuery strQuery
strQuery = "exec sp_dboption N'" & strDBName & "', N'concat null yields null', N'false'": ExecuteQuery strQuery
strQuery = "exec sp_dboption N'" & strDBName & "', N'cursor close on commit', N'false'": ExecuteQuery strQuery
strQuery = "exec sp_dboption N'" & strDBName & "', N'default to local cursor', N'false'": ExecuteQuery strQuery
strQuery = "exec sp_dboption N'" & strDBName & "', N'quoted identifier', N'false'": ExecuteQuery strQuery
strQuery = "exec sp_dboption N'" & strDBName & "', N'ANSI warnings', N'false'": ExecuteQuery strQuery
strQuery = "exec sp_dboption N'" & strDBName & "', N'auto create statistics', N'true'": ExecuteQuery strQuery
strQuery = "exec sp_dboption N'" & strDBName & "', N'auto update statistics', N'true'": ExecuteQuery strQuery
strQuery = "CREATE TABLE [" & strDBName & "].[dbo].[Calendar] ("
strQuery = strQuery & " [Code] [nvarchar] (2) NOT NULL ,"
strQuery = strQuery & " [Original] [nvarchar] (4) NOT NULL ,"
strQuery = strQuery & " [Type] [nvarchar] (1) NOT NULL"
strQuery = strQuery & " ) ON [PRIMARY]"
ExecuteQuery strQuery
strQuery = "CREATE TABLE [" & strDBName & "].[dbo].[CompanyPersonalInformation] ("
strQuery = strQuery & " [Code] [nvarchar] (5) NOT NULL ,"
strQuery = strQuery & " [Ucode] [nvarchar] (5) NOT NULL ,"
strQuery = strQuery & " [GKey] [nvarchar] (100) NOT NULL ,"
strQuery = strQuery & " [CompanyName] [nvarchar] (100) NOT NULL ,"
strQuery = strQuery & " [Address] [nvarchar] (200) NOT NULL ,"
strQuery = strQuery & " [City] [nvarchar] (50) NOT NULL ,"
strQuery = strQuery & " [Country] [nvarchar] (50) NOT NULL ,"
strQuery = strQuery & " [Province] [nvarchar] (50) NOT NULL ,"
strQuery = strQuery & " [ZipCode] [nvarchar] (50) NOT NULL ,"
strQuery = strQuery & " [PhNo] [nvarchar] (50) NOT NULL ,"
strQuery = strQuery & " [FaxNo] [nvarchar] (50) NOT NULL ,"
strQuery = strQuery & " [EMail] [nvarchar] (50) NOT NULL ,"
strQuery = strQuery & " [WebAddrs] [nvarchar] (50) NOT NULL ,"
strQuery = strQuery & " [NTax] [nvarchar] (50) NOT NULL ,"
strQuery = strQuery & " [STax] [nvarchar] (50) NOT NULL ,"
strQuery = strQuery & " [FromDate] [nvarchar] (10) NOT NULL ,"
strQuery = strQuery & " [ToDate] [nvarchar] (10) NOT NULL ,"
strQuery = strQuery & " [CompanyName4Printing] [nvarchar] (100) NOT NULL ,"
strQuery = strQuery & " [STaxRate] [nvarchar] (50) NOT NULL ,"
strQuery = strQuery & " [IncomeTaxRate] [nvarchar] (50) NOT NULL ,"
strQuery = strQuery & " [MonthClosing] [nvarchar] (10) NOT NULL ,"
strQuery = strQuery & " [InstallationDate] [nvarchar] (10) NOT NULL ,"
strQuery = strQuery & " [ExpiryDate] [nvarchar] (10) NOT NULL ,"
strQuery = strQuery & " [Logo] [image] NOT NULL ,"
strQuery = strQuery & " [PictureSize] [numeric](18, 0) NOT NULL ,"
strQuery = strQuery & " [CreatedBy] [int] NOT NULL ,"
strQuery = strQuery & " [CreatedOn] [smalldatetime] NOT NULL ,"
strQuery = strQuery & " [UpdatedBy] [int] NOT NULL ,"
strQuery = strQuery & " [UpdatedOn] [smalldatetime]"
strQuery = strQuery & " ) ON [PRIMARY] TEXTIMAGE_ON [PRIMARY]"
ExecuteQuery strQuery
Public Sub ExecuteQuery(Squery As String, Optional Action As String)
On Error GoTo errhandle
G_cn_ConnectionToMainDB.Execute Squery 'Connection to Master Database
Exit Sub
errhandle:
DisplayErrMsg (Err.Description)
' With frmStop
' .InitForm "Error Message", Err.Description, True
' .Show vbModal
' End With
End Sub
Kashif Sabir
|
|
|
|
|
Show the code like Dave recommended.
"Real programmers just throw a bunch of 1s and 0s at the computer to see what sticks" - Pete O'Hanlon
|
|
|
|
|
I have a Word document I would like to use as an about screen in my application. How can I show this document, while keeping all the formatting, inside my application?
|
|
|
|
|
A Word document is way too heavy for an About box and would require that every use who uses your app have Word installed just to see your About box. A lighter, though still pretty heavy IMHO, alternative is to export the document as an HTML file and use the WebBrowser component in the Toolbox to display it.
|
|
|
|
|
I tried using the WebBrowser component but it seems I have to hard code the entire physical path to the html file. This does not work well when installing on another computer. Do you have any good examples for this component? Thanks.
|
|
|
|
|
dptalt wrote: I have to hard code the entire physical path to the html file.
No, you don't. Lookup Application.StartupPath.
Dim fullPath As String = Path.Combine(Application.StartupPath, "help.html")
|
|
|
|
|
Thanks Dave, I will try it.
|
|
|
|
|
hi my frnds,
i'm doing a vb.net windows application. here i hve a multiple entry form. is there any flex grid like vb in vb.net. how can i use it. i really fedup by searching the same..
please... please.. please....
 
|
|
|
|
|
if you would rather deal with flex grid you can put the grid in the vb.net project (interopt). otherwise the dategrid is the one that vb.net offers...(doesn't offer same features out of the box).
|
|
|
|
|
can i use tat for the multiple entry
|
|
|
|
|
can i use te datagrid for the multiple entry
|
|
|
|
|
forgive but - 'multiple entry' means what? multiple tables in the same grid? - i don't know...never tried.
|
|
|
|
|
hi all
how can i add all fonts in a combobox
i have tried
combobox1.items.addrange(fontfamily.families)
but it fills the combo with
FontFamily : Name=Arial
and so on ....
|
|
|
|
|
System.font & add loop.....
Do this & reply me dear.....
TO develop project in C,C++ , VB6,vb.net.....
|
|
|
|
|
hi
i need to load all font size in the combo
thnx
|
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
