|
Great. Since our experiences are so different, we agree to disagree...
For you, Access is an option. For me, I don't find it appropriate for any multi-user system.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Dave Kreskowiak wrote:
For you, Access is an option. For me, I don't find it appropriate for any multi-user system.
But I knew that all along.  It's futile to argue with a fencepost about the hole that it's in.
I engage in these discussions only for the benefit of people who are open to evaluation of arguments that are more technically compelling than "it is a piece of sh*t" . 
Robert
|
|
|
|
|
Yes we can develop Client server application in VB by using Access
rs.CursorLocation = adUseClient
rs.Open sBuildQuery, cnn, adOpenKeyset, adLockOptimistic
use above string
i think u understand..
Abhay
|
|
|
|
|
payal sheth wrote:
Its giving me Error like "Database is Exclusively locked by other User."
Someone has the DB open directly through access and that locks it to one person. I personally am running a .net program with 15 users with access to the DB with out a problem. The only trick i had to set up was to refresh the DB to the user once and a while. but no problems for me.
James Kennelly
|
|
|
|
|
I am creating an application that will create a notify window similar to outlook 2003 notify popup. I am making an asyncronous remoting call using system.thread that raises an event to show the form. However, the form shows up as a black box and then immediately disappears when the event is called. If I call the function through a menu item or button, it works fine. Here's the popup code:
Private Sub ATU_RetrieveDone(ByVal e As AsyncUpdater.AsyncUpdaterEventArgs) Handles ATU.RetrieveDone
Me.UpdateTimer.Enabled = False
If e.Forums Is Nothing Then
UpdateTopicListView(e.Results) ' Updates a list view and
' displays the popup.
Else
UpdateForumListView(e.Forums)
End If
Me.UpdateTimer.Enabled = True
End Sub
Private Sub UpdateTopicListView(ByVal Topics As ResultsCollection)
For index As Integer = 0 To Topics.Count - 1
...
Next
Dim Message As String
Message = "{0} new topic updates have been retrieved from {1}"
Me.ShowPopup(String.Format(Message, Topics.Count, ClientSettings.WebURL))
End Sub
Private Sub ShowPopup(ByVal Message As String, Optional ByVal TimeOut As Integer = 0)
Dim displaytime As Integer
If TimeOut < 1000 Then
displaytime = ClientSettings.PopupTime * 1000
Else
displaytime = TimeOut
End If
Dim PW As New PopupWindow
PW.SetProperties(NewMessagePopup.Blend, Message, displaytime)
PW.ShowPopup()
End Sub
And here's routine that creates the popup using a seperate windows form.
Public Sub ShowPopup()
Dim tbl As TaskBarLocation
Dim workingArea As Rectangle
Dim pt As Point
pt = New Point
pt.X = 0 : pt.Y = 0
workingArea = SystemInformation.WorkingArea
tbl = GetTaskBarLocation() ' Gets an enumerator
' indicating the windows task bar
' location.
Select Case tbl
Case TaskBarLocation.Bottom
pt.X = workingArea.Right - Me.Width
pt.Y = workingArea.Bottom - Me.Height
Case TaskBarLocation.Left
pt.X = workingArea.Left
pt.Y = workingArea.Bottom - Me.Height
Case TaskBarLocation.Right
pt.X = workingArea.Right - Me.Width
pt.Y = workingArea.Bottom - Me.Height
Case TaskBarLocation.Top
pt.X = workingArea.Right - Me.Width
pt.Y = workingArea.Top
End Select
Me.Visible = False
Me.Show()
Me.Top = pt.Y
Me.Left = pt.X
Me.Visible = True
tmrStartFade.Enabled = True ' Wait until elapsed to begin form fadeout
End Sub
Any ideas why this might be occuring?
Thanks!
|
|
|
|
|
I've done some more research and it appears the problem is caused using timers. I've used both System.Timers.Timer and System.Windows.Forms.Timer and both give the same result, a black box that appears and then disappears. If I call the ShowPopup subroutine by clicking a button, it displays correctly. If the timer causes the form to be displayed, I get the black box.
Here's the logic steps used:
1) Timer.Tick event occurs
2) Tick Handler creates a new AsyncUpdater and invokes the GetUpdate method
3) GetUpdate creates a new thread and begins the remoting call
4) Once GetUpdate has completed the remoting call, the event RetrieveDone is raised.
5) The main form handles the event causing a list view to update it's list of items.
6) The ShowPopup method is called to display the popup.
Any help or ideas would be greatly appreciated. I can't understand why the manual invoking (pressing a button) works but the event handler doesn't.
Thanks!
|
|
|
|
|
Greetings
How can I use vb6 to connect using ip to a SQL database?
Thanks,
---- Mike
|
|
|
|
|
It's no different than any other connection to an SQL server. All you need to do is supply either the full DNS name to the server or the servers IP address:
Dim DBcon As New ADODB.Connection
Dim objCmd As New ADODB.Command
Dim objparameter As New ADODB.Parameter
Dim objRs As New ADODB.Recordset
DBcon.ConnectionString = "Provider=sqloledb;" & _
"server=[ServerName or IP Here];uid=UserId;pwd=Password;database=MyDatabase
DBcon.CursorLocation = adUseClient
DBcon.Open
objparameter.Direction = adParamInput
objparameter.Type = adVarChar
objparameter.Size = 5
objparameter.Value = "hello"
objCmd.Parameters.Append objparameter
objCmd.ActiveConnection = DBcon
objCmd.CommandType = adCmdStoredProc
objCmd.CommandText = "s_mysp"
Set objRs = objCmd.Execute ' objCmd.Execute for no resultset
set objRs.ActiveConnection = Nothing
Set objCmd = Nothing
DBcon.Close
Code snippet lifted from Nigel Rivett[^], without permission, of course.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Hi Dave,
Thanks for your post.
In VB6 I put the code in the form load sub.
I get the error "Compile error: User-defined type not defined" when I run thr project.
Am I missing a 'reference' or what?
Thanks again....
--- Mike
Private Sub Form_Load()
Dim DBcon As New ADODB.Connection
Dim objCmd As New ADODB.Command
Dim objparameter As New ADODB.Parameter
Dim objRs As New ADODB.Recordset
DBcon.ConnectionString = "Provider=sqloledb;" & _
"server=[ServerName or IP Here];uid=UserId;pwd=Password;database=MyDatabase"
DBcon.CursorLocation = adUseClient
DBcon.Open
End Sub
|
|
|
|
|
Problem solved.
I answered my own question.
I put the control Adodc1 on a form & the code connected to the database.
Thanks again for the help.
--- Mike
|
|
|
|
|
Oops! I forgot to mention that little tidbit. The code should work if you add a reference to the "Microsoft ActiveX Data Object Library" or something very similar. I can't remember the name off the top of my head.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Hi,
I am trying to write a program to control a Digital Poteniometer via parallel. I was doing fine until I tried to work out how to read back some data from the device. I send a command to the chip, which then returns a serial stream of data out of a pin, which I have connected to S3 (status register) on the parallel port. I have been able to read the status register and then isolate S3 from this, but S3 is meant to be changing, so how can I make my program look for an event change in this register, ideally every x seconds or something?? 
Any help would be greatly appreciated.
Regards,
Adam.
|
|
|
|
|
have you tried a timer. I use it to make clocks on my apps by telling it to read the system time every second.
James Kennelly
|
|
|
|
|
This is what I use for a precision timer:
http://support.microsoft.com/default.aspx?scid=http://support.microsoft.com:80/support/kb/articles/Q172/3/38.asp&NoWebContent=1
How To Use QueryPerformanceCounter to Time Code
|
|
|
|
|
Sorry, Here is the one for vb.net:
http://support.microsoft.com/default.aspx?scid=kb;en-us;306978
How To Use QueryPerformanceCounter to Time Code in Visual Basic .NET
|
|
|
|
|
Here is one more that might be of help:
http://msdn.microsoft.com/msdnmag/issues/04/02/TimersinNET/default.aspx
Timers
Comparing the Timer Classes in the .NET Framework Class Library
|
|
|
|
|
Intelligent graphic image analysis and comparison
Hi,
I’m thinking if there is any way to compare two or images and see if they have let’s say have more than 80% common parts, which mean that they are probably the same?
At his moment I want to write an app that will stupidly see if the image is identical, well maybe there was some resizing, or quality reduction and or some other minor changing. In another words I wanna mach them up.
I think I need to use bit structure / analysis, but I have no idea how that works.
Thanks!
|
|
|
|
|
I have to do an Exercise by tomorrow but i don't know how to do it 
Here is the exercise from the book:
In this excercise, you create an application from Premium Paper. The aplication allows the sales manager to enter the company's income and expense amounts. The number of income and expenses amounts may vary each time the application is started. For example, the user may enter five income amounts and 3 expense amounts. The application should calculate and display the company's total income, total expense, and profit(or loss). Use the InputBox function to get the individual income and expense amounts.
More instructions:
1. Design an appropiate interface. Use label controls to display the total income, total expenses, and profit(or loss). Display the calculated amounts with dollar sign and two decimal places. If the company experienced a loss,display the amount of the loss using red font. otherwise, display the profit using black ink.
CAN SOMEONE HELP AND SEND ME THE CODE FOR THAT? PLEASE!!!!
|
|
|
|
|
Please Tell me you dont want someone else to do your homework?
Isnt that cheating?
any ways you should be able to do it if you set your text boxes to 0 add and subtract the proper text boxes. As for the color use a if then statement like if textbox1.text < 0 then
textbox1.forcolor=system.drawing.color.red
else
textbox1.forcolor=system.drawing.color.Black
end if
very easy project if it is giving you this much trouble you might want to try a different field of research.
James Kennelly
|
|
|
|
|
joseuri21 wrote:
CAN SOMEONE HELP AND SEND ME THE CODE FOR THAT? PLEASE!!!!
This better be a joke... 
If you have no idea how to do it, what on earth have you been doing in class all this time? And why did you wait till the last possible minute to start on this?
You're going down on this project and it's your own damn fault. None of us are going to bail you out by just handing you the entire project. We don't get anything for the work and all you're going to get is busted for plagerism. Since everyone's coding style is unique, your prof will instantly know that you didn't write the code.
We will help you with YOUR code. We will NOT write your code for you.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
I'm using the ShellExecute API, but it is not opening any file with its associated program.
here is my coding:
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd _
As Long) As Long
Public Sub RunProgram(ByVal strProgram As String)
Dim lRet As Long
lRet = ShellExecute(vbNull, "Open", strProgram, "", "", 1)
If lRet <= 32 Then
MsgBox("Error Running Program")
End If
End Sub
Public Sub btmView_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnview.Click
RunProgram(file_location)
end sub
It doesn't give me the error either. PLEASE HELP!
Lisa
|
|
|
|
|
It perfectly works in my pc. You might wanna check what is inside of the strProgram variable.( maybe there is a space in side?) try with the note pad like the following if it works.
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Sub Command1_Click()
Dim lRet As Long
lRet = ShellExecute(vbNull, "Open", "C:\WINDOWS\SYSTEM32\notepad.exe", "C:\mytext.txt", "", 1)
If lRet <= 32 Then
MsgBox ("Error Running Program")
End If
End Sub
|
|
|
|
|
NO, it still doesn't do anything. I don't know what's wrong with it.
Lisa
|
|
|
|
|
Can you just create a new project with VB and copy & paste the following code.
In the form, you just add one button called "Command1"(by default).
Compile and run. it should work.
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd _
As Long) As Long
Public Sub RunProgram(ByVal strProgram As String)
Dim lRet As Long
lRet = ShellExecute(vbNull, "Open", strProgram, "", "", 1)
If lRet <= 32 Then
MsgBox ("Error Running Program")
End If
End Sub
Private Sub Command1_Click()
RunProgram "c:\windows\system32\notepad.exe"
End Sub
|
|
|
|
|
I meant at least you can launch notepad.
If using Windows2000,
you have to specified C:\WINNT\SYSTEM32\NOTEPAD.exe
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
