|
Thanks for the response.
I am thinking along simple lines that the number of rows in the table limits the number of concurrent users.
I was planning on using the computer name (that you can easily get in .net) + user_name as the key, for a row in the license table, thus, a user could have as many instances open, but just use one license.
The one issue I have is when an app aborts without clearing it's license record. This is why I was thinking of having the app update it's license record every so many minutes, with the TOD. My logon logic could determine which records were 'stale' and zero them out.
What do you think?
|
|
|
|
|
Hello
I try to connect to Access Database, When i connec it give me this Error:
"Could not find installable ISAM"
Can someone help me???
This my connection also:
con.ConnectionString ="Provider=Microsoft.Jet.OLEDB.4.0;DataSource=E:\Documents and Settings\Assaf\Desktop\ProjectToBeSubmited\School.mdb"
Thanks in advance
Assaf
|
|
|
|
|
hi assaf,
every thing is correct except one
con.ConnectionString ="Provider=Microsoft.Jet.OLEDB.4.0;DataSource=E:\Documents and Settings\Assaf\Desktop\ProjectToBeSubmited\School.mdb"
in above connection string place Space between Data & Source like follwing
con.ConnectionString ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Documents and Settings\Assaf\Desktop\ProjectToBeSubmited\School.mdb"
hope this helps
Rupesh Kumar Swami
Software Engineer,
Integrated Solution,
Bikaner (India)
|
|
|
|
|
Thank very much Rupesh
Assaf
|
|
|
|
|
Hi,
I'm using a variation of the following code from MSDN. I have conditions that are being met, and can display a message box to prove to myself that its reaching that point, but I'm not getting an ErrorProvider exclamation mark now that I've formatted the columns in my DataGridView to be numeric.
The MSDN Code (from http://msdn2.microsoft.com/en-us/library/0ye0dkkw.aspx) is:
MSDN Snippet:
Private Sub Customers_ColumnChanging(ByVal sender As Object, _<br />
ByVal e As System.Data.DataColumnChangeEventArgs)<br />
' Only check for errors in the Product column<br />
If (e.Column.ColumnName.Equals("Product")) Then<br />
' Do not allow "Automobile" as a product.<br />
If CType(e.ProposedValue, String) = "Automobile" Then<br />
Dim badValue As Object = e.ProposedValue<br />
e.ProposedValue = "Bad Data"<br />
e.Row.RowError = "The Product column contians an error"<br />
e.Row.SetColumnError(e.Column, "Product cannot be " & _<br />
CType(badValue, String))<br />
End If<br />
End If<br />
End Sub
Why would formatting my columns break the ability to display the icon?
|
|
|
|
|
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
|
|
|
|
|