|
Greetings. I have a (Janus) datagrid on a windows form that includes a checkbox column (bound to a bit field in a SQL database). I have a save button on the form that calls the update method on the grid's underlying table's data adapter.
If you check the checkbox and then click the save button, it does not update because the edit from the checkbox control has not made it to the data table, so the row does not appear to be modified to the data adapter.
How can I detect when a grid edit control has been changed, but the data it is bound to has not? And how can I make the datatable pick up the chnage so I can call update on the data adapter?
Thank you very much.
RH
|
|
|
|
|
Hello,
I've been searching the net on how to execute a dialup connection and came up with the following code:
<br />
Imports System.Runtime.InteropServices<br />
<br />
Private Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long<br />
Private Declare Function InternetAttemptConnect Lib "wininet" (ByVal dwReserved As Long) As Long<br />
Const scUserAgent = "ISP_Dialup"<br />
Const INTERNET_OPEN_TYPE_PRECONFIG = 0<br />
Public Function ConnectToSISP() As Boolean<br />
Dim hInternet As Long<br />
If InternetAttemptConnect(0) <> 0 Then Exit Function<br />
hInternet = InternetOpen(scUserAgent, INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, vbNullString, 0)<br />
ConnectToSISP = (hInternet <> 0) 'return False if hInternet=0<br />
End Function<br />
When my code reaches this point If InternetAttemptConnect(0) <> 0 Then Exit Function I receive a message that states PInvoke stack balance detected... A call to PInvoke function 'Project1!Project1.Dialup::InternetAttemptConnect' has unbalanced the stack.
I'm thinking maybe some how I am not referencing wininet.dll properly...any suggestions is greatly appreciated.
Rashar
|
|
|
|
|
Rashar wrote: Private Declare Function InternetAttemptConnect Lib "wininet" (ByVal dwReserved As Long) As Long
Try changing that to...
Private Declare Function InternetAttemptConnect Lib "wininet" (ByVal dwReserved As Integer) As Integer Hope that helps 
In fact I think InternetOpen will also throw this error - you will need to change the parameters lAccessType As Long and lFlags As Long to be Integers, as well as the return value.
You can use pinvoke.net[^] to look for Win32 API method signatures in C# and VB.Net.
“Accept that some days you are the pigeon, and some days you are the statue” -- David Brent
Cheers,
Will H
-- modified at 13:32 Thursday 4th May, 2006
|
|
|
|
|
Hello has anyone got a list of arrays and boolean methods that can be used when creating a sudoku solver, for VB.NET. If so could you please let me know.
Thank you
Passion
|
|
|
|
|
There are many examples of Soduku Solver applications on this site if you search the articles.
Current blacklist
svmilky - Extremely rude | FeRtoll - Rude personal emails | ironstrike1 - Rude & Obnoxious behaviour
|
|
|
|
|
i have a list of names in a database which appears in a combobox which i have created. i want to be able to delete a selected item from the combobox and database with a delete button but i don't know the code for that. please help me
|
|
|
|
|
Are you loading the combobox from the database using a subroutine? I have some code that does what you are asking for, but my methods might be a bit different. I'll get them put together and post it in a bit.
Quecumber256
|
|
|
|
|
Moveman,
Here is the code I have. I'll try to explain the method to my madness. BTW, you can use this code for both combo and list boxes.
Step 1 - Load the combo box using a subroutine.
Private Sub Load_lstCourses()
'Load the Student course listbox.
On Error GoTo Load_lstCourses_Err
Dim strItem As String
'Clearing the list box
lstCourses.Clear
'Load the lstCourse listbox
Set rsData = New ADODB.Recordset
strSQL = "SELECT * FROM usystblCourses WHERE (((usystblCourses.intDeleted)=False));"
rsData.Open strSQL, cnnMainDb, adOpenKeyset, adLockReadOnly
With rsData
Do While .EOF = False
lngCourse = !lngCourseID
strItem = !txtCourseName
lstCourses.AddItem strItem
lstCourses.ItemData(lstCourses.NewIndex) = lngCourse
.MoveNext
Loop
End With
Load_lstCourses_Exit:
On Error Resume Next
rsData.Close
Set rsData = Nothing
Exit Sub
Load_lstCourses_Err:
Msg = "Error in frmCourses - Load_lstCourses Subroutine. " & vbCr & _
"Error # " & Str(Err.Number) & " was generated by " _
& Err.Source & vbCr & Err.Description
MsgBox Msg, , "Error", Err.HelpFile, Err.HelpContext
Resume Load_lstCourses_Exit
End Sub
Step 2 - Code to delete the selected item from the combobox. I'm using MS-Access as my DB
Private Function Delete_Course(lngCourse As Long) As Boolean
On Error GoTo Delete_Course_Err
cnnMainDb.BeginTrans
strSQL = "UPDATE usystblCourses SET usystblCourses.dtmModified = Now(), " & _
"usystblCourses.intDeleted = True WHERE " & _
"(((usystblCourses.lngCourseID) = " & [lngCourse] & "));"
Set cmdChange = New ADODB.Command
Set cmdChange.ActiveConnection = cnnMainDb
cmdChange.CommandText = strSQL
Set rsData = New ADODB.Recordset
rsData.Open "usystblCourses", cnnMainDb, , , adCmdTable
cmdChange.Execute
DoEvents
Msg = "Do you wish to delete " & lstCourses & "?"
intResponse = MsgBox(Msg, vbYesNo + vbDefaultButton2 + vbQuestion, "Deleting Cosmetology Course")
If intResponse = vbYes Then
cnnMainDb.CommitTrans
Delete_Course = True
Else
cnnMainDb.RollbackTrans
Delete_Course = False
End If
Delete_Course_Exit:
On Error Resume Next
rsData.Close
Set rsData = Nothing
Exit Function
Delete_Course_Err:
Msg = "Error in frmCourse - Delete_Course function " & vbCr & _
"Error # " & Str(Err.Number) & " was generated by " _
& Err.Source & vbCr & Err.Description
MsgBox Msg, , "Error", Err.HelpFile, Err.HelpContext
Resume Delete_Course_Exit
End Function
Step 3 - Know which item you want to delete.
Private Sub cboCourses_Click()
lngCourse = CLng(cboCourses.ItemData(cboCourses.ListIndex))
End Sub
Step 4- Delete the item. I had a routine to check and make sure an item was selected before I deleted it.
Private Sub cmdDelete_Click()
If Is_Data_Present Then 'Checking routine
If Delete_Course(lngCourse) Then
Msg = lstCourses & " has been deleted."
MsgBox Msg, vbInformation, "Deleting item."
Else
Msg = lstCourses & " has NOT been deleted."
MsgBox Msg, vbInformation, "Deleting item."
End If
Else
Msg = "Before you can delete an item you must double click on the item name " & _
"you wish to delete. " & vbCr & _
"The item name must be placed into the Course Name box " & _
"before I can remove it from the database."
MsgBox Msg, vbInformation, "Deleting item."
End If
Call Load_lstCourses
txtCourse.Text = Empty
txtCourse.SetFocus
End Sub
I hope this helps,
Quecumber256
|
|
|
|
|
You will find lots of useful .Net material in this site
Visit this site
http://www.dotnetguide.co.nr
:->
|
|
|
|
|
|
i write integer in a textbox he transform to string
how i let him read integer
naganaga
|
|
|
|
|
All you need do is declare the variable you want to use.
for example:
Dim I as Integer
.........
.........
..........
End Sub
I believe this will solve your problem.
Yours,
Damilola
Dammy
|
|
|
|
|
I THINK YOU ARE ASKING
HOW TO CONVERT STRIN TO INTEGER
DIM N AS INTEGER
N= VAL(TEXT1.TEXT)
THIS IS HELP FULL TO U
sdgsdfsdfsdfsdfsdfsdfsdfsdfsdfsdf
|
|
|
|
|
how i can hide a part from file.pdf in any component windows in vb.net
comment je peux cacher une partie de file dans une formats pdf (f.pdf) par un tel chose qui demande de l'utilisateur username+password en langage vb.net si ce utilisateur le rempli justement alors le texte en entier s'ouvre
+ code
|
|
|
|
|
Hello VB gurus!
I’m a Java developer but I need to design an ASP application the will access database and extract records (employee data). Now, my question is like this. Normally in Java I would create an Employee class, which will mimic database design and hold employee data. After I get connection to DB I can loop through each record and create the Employee class instance to hold the data and assign it to Enumeration (which I later store in session for farther use).
Since I have no idea on how to do this in ASP maybe someone can help me with steps. My guess is that I do the same thing but….
1. How do I create .vb class?
2. How do I compile it?
3. How do I create instance of the class?
4. Can I use Enumeration to store instances of the class?
Thanks a lot for help. I will appreciate any help coming my way.
|
|
|
|
|
Hi is it possible to change the width of a standard scroll bar for an auto scroll panel? I expect its simple and was expecting a property on the the propertys but cannot see it.. VB.NET - VS2005
Kadi
-- modified at 9:15 Thursday 4th May, 2006
|
|
|
|
|
hi all,
i want to hide the page footer in the last page.
how can i do this .pls give me the code
thanks
vipin paliwal
|
|
|
|
|
hi frendz,
here is ur frend needs help regarding:
How to call/add chart object in a powerpoint slide by using vb.net lang?
I did in the following way.. just observer it
1) I add a referance of powerpoint in my application.
2) create a new object of powerpoint application
3) create a new object of presentation and add it to powerpoint object.
4) create a new slide object and add it to presentation object.
.......
I don't know what is the exact implementation coz ground level learner in thhis kind of the concepts.
do the needful for me
wish me as All The BEST.
|
|
|
|
|
|
I am using the following code
Dim con As ADODB.Connection
Set con = New ADODB.Connection
Set rs = New ADODB.Recordset
con.Provider = "Microsoft.Jet.Oledb.4.0"
con.Open "C:\Documents and Settings\Administrator\Desktop\Sandy\db2.mdb"
rs.Open "select * from student", con
Set dg1.DataSource = rs
the error is The rowset is not bookmark
|
|
|
|
|
Reposting your question every 2 hours until someone gives you the answer you want, will only get you ignored...
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
Try specifying the cursor location. Add this to your code:
Dim con As ADODB.Connection
Set con = New ADODB.Connection
Set rs = New ADODB.Recordset
con.Provider = "Microsoft.Jet.Oledb.4.0"
con.Open "C:\Documents and Settings\Administrator\Desktop\Sandy\db2.mdb"
rst.CursorLocation = adUseClient
rs.Open "select * from student", con
Set dg1.DataSource = rs
IIRC, Access databases don't support server-side cursors...
Dave Kreskowiak
Microsoft MVP - Visual Basic
-- modified at 11:58 Thursday 4th May, 2006
|
|
|
|
|
Dear Sir/Madam,
I am design an VB.Net application for a project and I am using data grid. Can I split the data grid to fixed a column and row heading like we do in Microsoft Excel?
What is the code and command for that?
Regards,
Sithy
|
|
|
|
|
Suddenly the error appear and i don't why....
Query Engine Error:'C:\Documnet ...... \Temp\tem_1edd79...etc.rpt
Help!
Militiaware
Faris Madi
|
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
