|
Hi,
I have a datatable retrieve data in a datagrid with a checkbox column bounded to it.
On the 1st data retrieval on datagrid, I'm able to check the checkbox.
But if i click search to have 2nd data retrieval on datagrind, I'm unable to check the checkbox.
Below is my code, i hope someone can guide me to solve this.
Private selectedRows As ArrayList
Private Sub dgResult_MouseUp(ByVal sender As Object, ByVal e As MouseEventArgs)
Dim hit As DataGrid.HitTestInfo = dgResult.HitTest(e.X, e.Y)
If hit.Column = 0 AndAlso hit.Type = DataGrid.HitTestType.Cell Then
dgResult(hit.Row, hit.Column) = Not CBool(dgResult(hit.Row, hit.Column))
If CBool(dgResult(hit.Row, hit.Column)) Then
selectedRows.Add(hit.Row)
dgResult.[Select](hit.Row)
Else
selectedRows.Remove(hit.Row)
End If
End If
End Sub
I did run step by step to check the error. When the 2nd retrieval, it run through the codes twice.
1st, it run
Private Sub dgResult_MouseUp(ByVal sender As Object, ByVal e As MouseEventArgs)
If hit.Column = 0 AndAlso hit.Type = DataGrid.HitTestType.Cell Then
dgResult(hit.Row, hit.Column) = Not CBool(dgResult(hit.Row, hit.Column))
If CBool(dgResult(hit.Row, hit.Column)) Then
selectedRows.Add(hit.Row)
dgResult.[Select](hit.Row)
end if
end sub
then continue to run it again but this time to remove the check.
Private Sub dgResult_MouseUp(ByVal sender As Object, ByVal e As MouseEventArgs)
If hit.Column = 0 AndAlso hit.Type = DataGrid.HitTestType.Cell Then
dgResult(hit.Row, hit.Column) = Not CBool(dgResult(hit.Row, hit.Column))
If CBool(dgResult(hit.Row, hit.Column)) Then
selectedRows.Remove(hit.Row)
end if
end sub
So, it seems i cannot check.
But in actual, it added the check and removed the check at the same time.
Can anyone help me? Thanks.
eunice
|
|
|
|
|
Hello every one,
I have an application in which I am taking input form a tablet and using it to draw image on screen (Almost like MS Paint, just the input is coming from tablet instead from mouse).
Till now I was saving this as image file.
Now I want to store the image in a PostgresSQL database
These are my doubts I need some help on..
1 Is it possible to store all the points which I am getting as lorge object in DB, instead of whole image? I was thinking that if I do it then I may be in a position to save at least the memory used to store the background of image…
2 If so then how do I do that… create a structure array or something and store points with line width and color… or there is any other way
3 What will be the table structure in the either possibility? Any relevant VB.net example will be really of a great help.
Regards
Nishkarsh
|
|
|
|
|
1 - yes, you can store any format you like
2 - as the number of points will be arbitrary, I'd store it as XML in one field.
3 - storing an image is easy, it's one column. Storing points means you don't know how many points will be in one image, so I'd store them all in one column still
Christian Graus - Microsoft MVP - C++
"also I don't think "TranslateOneToTwoBillion OneHundredAndFortySevenMillion FourHundredAndEightyThreeThousand SixHundredAndFortySeven()" is a very good choice for a function name" - SpacixOne ( offering help to someone who really needed it ) ( spaces added for the benefit of people running at < 1280x1024 )
|
|
|
|
|
Can you please give me any sample code to insert... I am having issues with it..
The code i am using is as follows
Dim inputFileStream As New FileStream("C:\test.gif", FileMode.Open, FileAccess.Read)
Dim reader As New BinaryReader(inputFileStream)
Dim bytes() As Byte
bytes = reader.ReadBytes(CInt(inputFileStream.Length))
inputFileStream.Close()
Dim Sql As String = "INSERT INTO im_prescription_image (st_image_name,im_image) VALUES (?,?)"
Dim Cmd As New Npgsql.NpgsqlCommand(Sql, cnn)
Cmd.Parameters.Add("@st_image_name", NpgsqlTypes.NpgsqlDbType.Varchar).Value = "as10000000000000"
Cmd.Parameters.Add("@im_image", bytes)
'cnn.Open()
Cmd.ExecuteNonQuery()
cnn.Close()
I am grtting the following error
Npgsql.NpgsqlException was unhandled
BaseMessage="syntax error at or near ",""
Code="42601"
Detail=""
ErrorSql="INSERT INTO im_prescription_image (st_image_name,im_image) VALUES (?,?)"
File="scan.l"
Hint=""
|
|
|
|
|
I'm not sure about the format you're using, I'd do this with a stored proc.
Christian Graus - Microsoft MVP - C++
"also I don't think "TranslateOneToTwoBillion OneHundredAndFortySevenMillion FourHundredAndEightyThreeThousand SixHundredAndFortySeven()" is a very good choice for a function name" - SpacixOne ( offering help to someone who really needed it ) ( spaces added for the benefit of people running at < 1280x1024 )
|
|
|
|
|
This is my first post on this site. Im a new VB.Net programer that has been tasked with writing a app to dial a BBS, Navigate the menu system and then upload a file using X,Y, or Z modem.....
Most all my experience has had to deal with database, and file parsing and I am swimming in deap water here. I have looked around online nad not found a good How TO aritcle on this type of thing. I know BBS is from a by-gone era, but my company has to deal with this sort of thing a lot. Currently they use Expect script and Unix Shell scripting to domost of this sort of thing, but by dept. wants to do it in VB.net from a windows box.
can anyone out there help or point me to some good resources on this sort of thing.
Thanks in advance...
|
|
|
|
|
Why do they want that ? Surely there are free programs to do that, I thought one came with Windows ? It used to.
Christian Graus - Microsoft MVP - C++
"also I don't think "TranslateOneToTwoBillion OneHundredAndFortySevenMillion FourHundredAndEightyThreeThousand SixHundredAndFortySeven()" is a very good choice for a function name" - SpacixOne ( offering help to someone who really needed it ) ( spaces added for the benefit of people running at < 1280x1024 )
|
|
|
|
|
Not that I am aware of...
The reason I need this is because I have been tasked with creating an application the would connect to a State run BBS and upload a file to them, then download a response file from them. This application would have to navigate through the menu options to get to the correct location before uploading.
If you know of some app that came with or comes with Windows..... let em know.
|
|
|
|
|
I have a MS-Access table is bound to a datagridview that I need to do is programatically add rows based on input from the user. Below is a section of the code that I'm using to accomplish this. When the AcceptChanges statement is executed, the "System.Data.RowNotInTableException" error is thrown.
How can I add data to this bound table?
schedRow = CType(CType(Me.PP_ScheduleBindingSource.AddNew, DataRowView).Row, TCDataSet._PP_ScheduleRow)<br />
<br />
schedRow.SchedDate = dTmp<br />
schedRow.SiteID = Me.ComboBox1.SelectedValue<br />
schedRow.EmpID = clbTemp.CheckedItems.Item(j).ToString<br />
schedRow.TimeOpen = sOpenTime<br />
schedRow.TimeClose = sCloseTime<br />
<br />
schedRow.AcceptChanges()
|
|
|
|
|
Your problem is that you're calling AcceptChanges(). I suggest reading the documentation on that method. It doesn't do what you think it does.
AcceptChanges tells the dataset/datatable that it should set the status of every row in the set/table to Unchanged. This means that there is no longer any Added, Modified, or Deleted rows in the set/table. So when you finally call Update to write the changes back to the database, there are no changes to write back since every row is now tagged Unchanged.
You CAN call this on individual rows, though, in your sample code, this is not necessary.
The bottom line is the exception is thrown because you created a new row, but you didn't add it to a table. Then you called AcceptChanges on that row. You do not need to AcceptChanges at all. Remove the AcceptChanges line and add the code to add the new row to the target tables Rows collection.
|
|
|
|
|
It appears that the following code snipet sucessfully adds a row to the database. This allows me to programatically add rows to a table that is bound to a datagridview on my form.
This is exactly what I needed to do! Thank you very much.
Dim schedDR As TCDataSet._PP_ScheduleRow<br />
<br />
schedDR = CType(CType(Me.PP_ScheduleBindingSource.AddNew, DataRowView).Row, TCDataSet._PP_ScheduleRow)<br />
<br />
schedDR.SchedDate = "2/29/2008"<br />
schedDR.SiteID = "ACME"<br />
schedDR.EmpID = "1234"<br />
schedDR.TimeOpen = "9:00 AM"<br />
schedDR.TimeClose = "5:00 PM"<br />
<br />
Me.PP_ScheduleBindingSource.EndEdit()<br />
Me.PP_ScheduleTableAdapter.Update(Me.TCDataSet._PP_Schedule)<br />
|
|
|
|
|
Hi there,
i am currently implementing a windows service that needs to encrypt some data using X509 certificates. The user shall be able to select the certificate in the configuration GUI of the service. As the GUI runs as the current user and the service runs as local system, they obviously can´t access the same certificate stores.
I want to present the user a collection of certificate stores that the local system user is able to access. Is there any way to access the certificates of another user?
Any help would be appreciated, thanks in advance.
Sascha
|
|
|
|
|
This might work, but you'd have to have code in your service to impersonate the user and load their profile in order to get access to their certificate store. Loading another users profile can take a VERY long time.
I've never done this, so I don't have any example code. The best I've got to give is this[^].
|
|
|
|
|
Sorry to be dense, but what is the control that looks something like this, with two columns, 1 for the variable and 1 for the data. I see it a lot. Is this a datagridview?
Thanks
+ Box1 (can be maximized or minimized to show
Item 1 | Item1 value (might be dropdown, etc.)
Item 2 | Item2 value
- Box2 (minimized
+ Box3 (maximized)
Item 1 | Item1 value (might be colordialog, etc.)
Item 2 | Item2 value
|
|
|
|
|
try TreeView
TVMU^P[[IGIOQHG^JSH`A#@`RFJ\c^JPL>;"[,*/|+&WLEZGc`AFXc!L
%^]*IRXD#@GKCQ`R\^SF_WcHbORY87??6?N8?BcRAV\Z^&SU~%CSWQ@#2
W_AD`EPABIKRDFVS)EVLQK)JKSQXUFYK[M`UKs*$GwU#(QDXBER@CBN%
Rs0~53%eYrd8mt^7Z6]iTF+(EWfJ9zaK-i?TV.C\y<p?jxsg-b$f4ia>
--------------------------------------------------------
128 bit encrypted signature, crack if you can
|
|
|
|
|
No, I don't think it's a treeview.
You can see an image here: www.cstrader.com/image1.png
|
|
|
|
|
oh... this is a PropertyGrid
TVMU^P[[IGIOQHG^JSH`A#@`RFJ\c^JPL>;"[,*/|+&WLEZGc`AFXc!L
%^]*IRXD#@GKCQ`R\^SF_WcHbORY87??6?N8?BcRAV\Z^&SU~%CSWQ@#2
W_AD`EPABIKRDFVS)EVLQK)JKSQXUFYK[M`UKs*$GwU#(QDXBER@CBN%
Rs0~53%eYrd8mt^7Z6]iTF+(EWfJ9zaK-i?TV.C\y<p?jxsg-b$f4ia>
--------------------------------------------------------
128 bit encrypted signature, crack if you can
|
|
|
|
|
|
Hi!
I have a piece of code in which 2 entries are taken from the user:
1. Bank Name
2. Bank Logo (an image)
then, an sql query is created to store the information into a mysql database in which the field names and their datatypes are given below respectively:
1. Bank_Name - Varchar(50)
2. Bank_Logo - Long blob
both fields cannot contain null values. THe code is pasted below:
<br />
<br />
Public Function InsertBank(StrQuery as string, name as String, image() as byte)<br />
{ <br />
Dim Cn As New Odbc.OdbcConnection(ConString)<br />
Dim cmd As New Odbc.OdbcCommand<br />
cmd.CommandText = strQuery<br />
<br />
cmd.Parameters.Add("@BNAME", Odbc.OdbcType.VarChar)<br />
cmd.Parameters.Add("@PIC", Odbc.OdbcType.Binary)<br />
<br />
cmd.Parameters("@BNAME").Value = name<br />
cmd.Parameters("@PIC").Value = image<br />
<br />
cmd.Connection = Cn<br />
Cn.Open()<br />
cmd.ExecuteNonQuery()<br />
Cn.Close()<br />
}<br />
the strQuery which i am passing to the function is like below:
"Insert into tblBank (Bank_Name,Bank_Logo) values (@BNAME,@PIC)"
However, when i call the function i get an error that bank_name cannot contain null value. I have rechecked again and again, but the bank name does not have any null value, it is passing a value from the text box and it is passed perfectly well...i dunt know what the problem is...kindly help...its urgent!
|
|
|
|
|
I don't use MySQL so my answer may be wrong.
Your "function" is badly written. It doesn't return a value, so it's a Sub, not a Function. Your code also specifies that a query string be passed to it, though that string MUST use the two hard-coded parameters in the code.
Your also not specifying the size of the fields when you create the parameters. I don't know if this is causing the problem, but I'd fix it to be sure:
Public Sub InsertBankLogo(ByVal BankName As String, ByVal BankLogo() As Byte)
Dim cn As New ObdcConnection(ConString)
Dim cmd As New OdbcCommand("INSERT INTO tblBank (Bank_Name, Bank_Logo) VALUES (?, ?)", cn)
cmd.Parameters.Add("@BNAME", OdbcType.VarChar, field length).Value = BankName
cmd.Parameters.Add("@PIC", OdbcType.Binary, field length).Value = BankLogo)
cn.Open()
cn.ExecuteNonQuery()
cn.Close()
End Sub
There's about a dozen more things wrong with this, but the biggest part is that you're not specifying the length of the fields that the SQL code is expecting.
|
|
|
|
|
given a vector of dates (past dates and future ones), how can one extract a new vector showing remaining future dates from today 
|
|
|
|
|
By iterating over the collection and pulling out dates that are in the future ?
Christian Graus - Microsoft MVP - C++
"also I don't think "TranslateOneToTwoBillion OneHundredAndFortySevenMillion FourHundredAndEightyThreeThousand SixHundredAndFortySeven()" is a very good choice for a function name" - SpacixOne ( offering help to someone who really needed it ) ( spaces added for the benefit of people running at < 1280x1024 )
|
|
|
|
|
It saddens me that some people have such poor logical ability.
|
|
|
|
|
On the otherhand I'm feeling fairly secure in my job ..
I'm largely language agnostic
After a while they all bug me 
|
|
|
|
|
Please see my code below, for some reason it fails. can you help
definitions: valdate = date today
ipos = an indicator = +1 or -1 depending if a bond was bought or borrowed.
notional = amount of bond bought or borrowed
d1 = date when bond was launched
d2 = date when bond matures
freq = frequency of interest repayments
coupon = interest rate used to calculate coupon repayments
Function bondcashflow(valdate, ipos, notional, d1, d2, freq, coupon)
Dim p, m As Integer
Dim v()
Dim cashflow()
ReDim cashflow(2, m) As Variant
Dim n As Long
n = Application.Round(DateDiff(dateinterval.Day, d1, d2) / 365, 0) * freq
For i = 0 To n - 1
If freq = 1 Then
v(i) = DateAdd(dateinterval.Year, i, d1)
ElseIf freq = 2 Then
v(i) = DateAdd(dateinterval.Month, 6 * i, d1)
ElseIf freq = 4 Then
v(i) = DateAdd(dateinterval.Month, 3 * i, d1)
Else: v(i) = DateAdd(dateinterval.Year, 12 * i, d1)
End If
m = 0
If valdate < v(i) Then
m = m + 1
End If
Next i
p = n - m
For k = 0 To p - 1
cashflow(k, 1) = v(m)
Do While k < p - 1
cashflow(k, 2) = ipos * coupon * notional
Loop
Next k
cashflow(p - 1, 2) = ipos * (notional + coupon * notional)
bondcashflow = cashflow
End Function
|
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
