|
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
|
|
|
|
|
Hi,
FontFamily.GetFamilies() returns an array of type FontFamily
that class has a Name property.
it also has a ToString() method but that is not guaranteed to return the name
that you want !
|
|
|
|
|
You'll have to wait for the user to pick the font, then repopulate a size combobox depending on the font. Not all fonts are the same. Some are bitmap fonts that have various sizes built into the file they come from, others are like TrueType fonts that are outline fonts and are only stored in the font file in one or two sizes. Those outlines are then scaled to any size the user wishes.
|
|
|
|
|
Alternativly just use the FontDialog provided in the System.Windows.Forms namespace to let the user select the font, size, style and everything. That way all the hard work is done for you by Microsoft.
If you have knowledge, let others light their candles at it.
Margaret Fuller (1810 - 1850)
|
|
|
|
|
i already try it but the requirments are little bit different i must fill the combo with fontname, other combo with fontsize, other combo with fontstyle and these combo are on a toolstrip.
thnx
|
|
|
|
|
i am writing a program where the user enters data into a windows form
and then saves that data to a database, i then want the user to click
a button that sends an email to there department manager with a summary
of the data entered.
the question is what would be the best way to approach this? i was
thinking of either producing a report and sending that as an attachment
or somehow have the data entered in to the body of the email.
any suggestions please
|
|
|
|
|
IETaxguard wrote: the question is what would be the best way to approach this? i was
thinking of either producing a report and sending that as an attachment
or somehow have the data entered in to the body of the email.
That's entirely up to you. It depends on what the use wants to see. If they want to see a report, you can pick whatever format you want for it, that exports a file anyway, like PDF, and use one of the publicly available PDF writersto print to a file and attach it to the email, or you can send it as formatted text in the body of the email. It's entirely up to you.
I personally, like to see nice emails with a report...
|
|
|
|
|
I am trying to insert record into and SQL Server 2000 database and I keep getting the following error:
Cannot insert the value NULL into column 'ItemID', table 'RAM.dbo.Item_JS'; column does not allow nulls. INSERT fails.
The statement has been terminated.
The column ItemID is set to autonumber in the db. Here is my code:
Dim myConnString As String = "Data Source=********;Initial Catalog=******;User ID=*****;Password=*****;"<br />
<br />
Dim myInsertQuery As String = "INSERT INTO Item_JS (ItemPartNumber, ItemSourceCode, ItemSupercede, ItemCost, ItemName, ItemListPrice, ItemLastUpdateDT, ItemStatus, ItemCreationDt, CompanyID, StoreID, BrandID, PackageID) VALUES('" & Trim(partnumber) & "', '" & Trim(sourcecode) & "', '" & Trim(supercede) & "', CONVERT(MONEY,'" & cost & "'), '" & Trim(itemname) & "', CONVERT(MONEY,'" & listprice & "'), '" & Trim(lastupdateDt) & "', '" & Trim(status) & "', '" & Trim(insertdate) & "', '" & Trim(companyID) & "', '" & Trim(storeID) & "', '" & Trim(brandID) & "', '" & Trim(packageID) & "'" & ")"<br />
<br />
Dim myConnection As New SqlConnection(myConnString)<br />
myConnection.Open()<br />
Dim myCommand As New SqlCommand(myInsertQuery, myConnection)<br />
myCommand.ExecuteNonQuery()<br />
myConnection.Close()
Any Ideas?
jds1207
|
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
