|
Please help on this code. I tried to update record in datetime field in access but yields concurrency exception. Tnxs.
Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
'saves edited record.
If MessageBox.Show("Sure to save record?", "Save", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button1) = Windows.Forms.DialogResult.Yes Then
Dim qryTask As String = "SELECT * from tblTask where fix(task_id) = '" & id & "'"
daTask.SelectCommand = New OleDbCommand(qryTask, connection)
Dim cb As OleDbCommandBuilder = New OleDbCommandBuilder(daTask)
daTask.Fill(dsTask, "tblTask")
dtTask = dsTask.Tables("tblTask")
bolSave = True 'user saved changes.
Dim intCatId% = -1
dtTask = dsTask.Tables("tblTask")
Dim strMonth As String = Format(Me.dtpDeadline.Value, "MM")
Dim strDate As String = Format(Me.dtpDeadline.Value, "dd")
Dim strYear As String = Format(Me.dtpDeadline.Value, "yyy")
Dim strCat$ = Trim(Me.cboCategory.Text)
intCatId = udfCategoryId(strCat)
If Me.txtTask.Text = "" Or Me.txtDetails.Text = "" Then
MessageBox.Show("Please fill up Task and Task Details!", "Save", MessageBoxButtons.OK, MessageBoxIcon.Information)
Exit Sub
End If
'check date.
If Trim(strStartTime) = "" Then
If Trim(Me.txtStartTime.Text) = "" Then
strStartTime = ""
Else
strStartTime = Trim(Me.txtStartTime.Text)
End If
ElseIf Trim(strStartTime) <> "" Then
If Trim(Me.txtStartTime.Text) = "" Then
strStartTime = ""
Else
strStartTime = strStartTime
End If
End If
''check date.
If (strEndTime) = "" Then
If Trim(Me.txtEndTime.Text) = "" Then
strEndTime = ""
Else
strEndTime = Trim(Me.txtEndTime.Text)
End If
ElseIf Trim(strEndTime) <> "" Then
If Trim(Me.txtEndTime.Text) = "" Then
strEndTime = ""
End If
End If
Try
With dtTask
.Rows(0)("Task") = IIf(txtTask.Text = "", System.DBNull.Value, txtTask.Text)
.Rows(0)("Task_Details") = IIf(txtDetails.Text = "", System.DBNull.Value, txtDetails.Text)
.Rows(0)("Task_Status") = IIf(txtStatus.Text = "", System.DBNull.Value, txtStatus.Text)
.Rows(0)("Deadline") = Format(Me.dtpDeadline.Value, "MM/dd/yyy")
.Rows(0)("Year_Deadline") = Format(Me.dtpDeadline.Value, "yyy")
.Rows(0)("Task_Category_Id") = CInt(intCatId)
.Rows(0)("Start_Time") = IIf(strStartTime = "", System.DBNull.Value, FormatDateTime(strStartTime, DateFormat.LongTime))
.Rows(0)("End_Time") = IIf(strEndTime = "", System.DBNull.Value, FormatDateTime(strEndTime, DateFormat.LongTime))
End With
daTask.Update(dsTask, "tblTask")
MessageBox.Show("Record successfully saved!", "Save", MessageBoxButtons.OK, MessageBoxIcon.Information)
Catch ex As OleDbException
MsgBox(ex.ToString)
End Try
Else
MessageBox.Show("Record not saved.", "Save", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
End Sub
|
|
|
|
|
Hello;
Please don't bother to answer this query. I found out the culprits - the same variables declared globally.
Tnxs.
|
|
|
|
|
digibat wrote: I found out the culprits - the same variables declared globally
Kudos to you! In the future if you post code, please use the pre tags to make the code more readable in these forums 
""Real programmers just throw a bunch of 1s and 0s at the computer to see what sticks" - Pete O'Hanlon
|
|
|
|
|
hi, i find a super trojan (server + client work perfectly) at Here
<mg src="http://www.007.somee.com/resim/paradise.jpg">
---you will see the source code at the program menu.
|
|
|
|
|
and??
modified 29-May-12 10:21am.
|
|
|
|
|
Spreading virus-code is an offence in the Netherlands. Keep that in mind on your next holiday, it may be one that lasts four years (or a fine of 25.000 Euro's)
Bastard Programmer from Hell 
|
|
|
|
|
looking for usable code sending attachment with winsock in vb6, I don't know how to encode and send. anybody give me a post ? Thank you so much!
|
|
|
|
|
VB6?? You're not going to find it here. VB6 was declared dead years ago. Not surprising considering VB.NET replaced it over 10 years ago.
|
|
|
|
|
I have a program .net, and a mysql database. My problem is how to compile the database and my program into one. Please help me,,,,
|
|
|
|
|
You can't.
.EXE's, when running, cannot be written to, which would make your database read-only anyway.
On top of that, the MySQL engine doesn't support reading a database inside an executable.
Your database must be a seperate file.
|
|
|
|
|
Thansk Mr Dave Kreskowiak,,,,,
|
|
|
|
|
Hi All,
I have a database called cohort in sql server 2008 r2 express with a table called school with the following fields; schoolname,schoolcode,zone,district,division.I also have vb 2010 form with five comboboxes.Now my question is how can i link comboxbox1 to table field schoolname,combobox2 to schoolcode,combobox3 to zone,combobox4 to district,combobox5 to division. And how to apply filter in combobox.For example if i select a particular division in combobox the next combobox for zone should only display zones for that particular division etc. I have tried to add data source to my vb application but cannot access it. Is there any coding that can substitute data objects on the form. I have managed to write a connection string for the database.
|
|
|
|
|
i would love to change windows button to keep pressed when i press it and back to the normal state when pressed again.
does windows button support dat? 
|
|
|
|
|
You could use the FlatStyle options, Unpressed is Standard, Pressed I believe if represented as Flat.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Button1.FlatStyle = FlatStyle.Flat Then
Button1.FlatStyle = FlatStyle.Standard
Else
Button1.FlatStyle = FlatStyle.Flat
End If
End Sub
Hope this helps 
|
|
|
|
|
Take a CheckBox and change the Appearance property from Normal to Button and it will behave exactly as you want. Respond to the CheckChanged event to find out when the 'pressed' state changes.
Alan.
|
|
|
|
|
|
Hi!
I would like to know if the Copy to Output Directory property can also
be useable in source code when it comes to all file types?
So far, it has its use for components and web applets.
Can this be done in source code?
Thanks in advance for your responses.
JohnPDB
|
|
|
|
|
What options do you see when you view the properties for the source file?
|
|
|
|
|
What I'm trying to ask does the "Copy to Output Directory" property is included in the Intellisense and then a user tries to assign the property to one of the three values: copy always, copy if new, do not copy. A user would assign the property to the value, Do Not Copy.
Any questions or comments?
|
|
|
|
|
JohnPDB wrote: does the "Copy to Output Directory" property is included in the Intellisense
There is no intellisense attached to files in the Solution Explorer window. A simple test (mouse over) should confirm it.
|
|
|
|
|
I am making a website in classic asp, and I want to upload image files and save them in a specific folder later I'll need those files which means I also have to retrieve those files, can anybody tell me how to do this in classic asp?
|
|
|
|
|
I have written and currently maintain a VB6 legacy app for a client. There are thousands of copies running successfully all over the world... with one exception. One of my client's customers installed the software on a WIN7 system and gets the RTE 339 - tabctl32.
The weird part is that if he boots in safe mode, it works perfectly. I have told my client to use regsrv32 in admin mode to un-register and re-register the ocx. He gets a successful completion when doing so but still gets the RTE 339 error.
I have had the client run "Handle.exe" to see if any process that loads during a normal startup might have a lock on the ocx but the results show nothing.
Anyone have any ideas as to why this would work in safe mode but not on a normal boot?
|
|
|
|
|
Search the system for tabctl32. Chances are really good you have multiple versions on the machine. Your app might not work with the one that's currently registered on the machine. You'll have to dig through the registry to find which one that is.
When it works in safe mode, it's using the one that Windows 7 came with because the control registration is reverted back to defaults.
|
|
|
|
|
Thanks Dave, I'll give it a shot and let you know how I make out.
|
|
|
|
|
I suspect you have an earlier version on that machine.
Look in Windows\System32 or Windows\SysWOW64 (for 64-bit systems) and check the version. 6.0.90.43 and up work fine on Windows 7.
You can just copy the newer one over the others (after unregistering of course).
Alternatively you can just put the ocx in with your binary. VB 6 looks first in the folder that the binary is started in, then in Windows\System.
Don't forget that Windows 7 is a bitch to install in. If you're using InstallShield then make sure that the installation requires Administrator privileges.
UAC can block system updates even with elevated privileges, so we often have users disable UAC temporarily during an install. (Would you believe UAC blocks installing a font ?!!)
Also, beware Symantec and McAfee products. Disable them if present.
Murray
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
