|
Hi folks !
In the present code, we use a datagrid as a container to print data from a SQL database. The following gets data (via ODBC) in the SQL database and save it in a DATASET.
Public Function GetDatasetGiveSql(ByVal sqlCmd As String) As DataSet
Dim dataset As New DataSet
odbcCmd.Connection.Close()
odbcCmd = New Odbc.OdbcCommand(sqlCmd, odbcConnection)
odbcAdapt = New Odbc.OdbcDataAdapter(odbcCmd)
odbcCmd.Connection.Open()
odbcAdapt.Fill(dataset)
Return dataset
End Function
Elsewhere in the software, the software builds a query and sends it to the database like this:
dsCommand = sql.GetDatasetGiveSql(cmd)
DataGridCommand.SetDataBinding(dsCommand, "Table")
As you can suspect, dsCommand is a DataSet and DataGridCommand is the DataGrid to update.
Easy to date… OK.
Question:
---------
I want to have control on the background and foreground color of a cell based on some information like any people in this forum. I found many EXAMPLES with DataGridColumnStyle where the idea is to override the Paint method (aka: make a custom datagrid control). Yes, Perfect. I understand it BUT in this case… I DON’T CONTROL ANY COLUMN in the datagrid. It seems that the SetDataBinding() does everything by itself, it is magic.
I did not find HOW to OVERRIDE the Paint() method of this datagrid. Maybe I don’t understand something !
Danny Gilbert, enginneer
Montréal, Canada
-- modified at 13:44 Wednesday 19th April, 2006
|
|
|
|
|
Newbie requiring help to something which is no doubt very simple!
I have written a small application which gathers Company Name data from an Access table. I've also got a ValueMember set up which I am using to display the path to the mdb file used for the Company so that the user can see where the data is located, and it is also allowing me to offer the user a button so that they can open an Explorer window to go straight to the location of the file.
My problem is that if the Company Name field is blank, I want to display some text (other than a blank) in the list box.
The code snippet so far is:
*********************************************
strConnString = "Jet OLEDB:Database Password .... blah, blah ... Provider=""Microsoft.Jet.OLEDB.4.0"";"
Me.OleDbConnection1.ConnectionString = strConnString
Me.OleDbSelectCommand1.CommandText = "SELECT CompanyId, CompanyName, FilePath FROM CompanyDetails WHERE (Version = '1') AND (Deleted = 0) ORDER BY CompanyName"
Me.OleDbSelectCommand1.Connection = Me.OleDbConnection1
OleDbDataAdapter1.Fill(DsCentralDat1)
*********************************************
This works well, and I can see the contents of my database in the listbox - its just that I can't get it to overwrite any blank entries in the listbox (if it finds any) with something which may be more meaningful to the user.
Hope you can help.
|
|
|
|
|
i am just guessing now but try something like this
<br />
if list1.additem = "" then<br />
(insert your code here)<br />
|
|
|
|
|
Thanks for that - but the listbox is, I think, already created and populated during the Fill process. What I'm struggling to do is get it to go and interogate the contents of dataset and build the listbox contents based on the condition that you've mentioned.
I've thought about passing the contents of the database to an array, checking the contents, and passing that to the listbox, but I don't know how to do it.
Any more thoughts?
|
|
|
|
|
nope, sorry. But experiment with some code and it will hit you like a ton of bricks sooner or later 
|
|
|
|
|
You could do the following in the query:
SELECT IIf(IsNull([Test]),"Help",[TEST]) AS Expr1, TEST_TABLE.ID
FROM TEST_TABLE;
|
|
|
|
|
OR
strConnString = "Jet OLEDB:Database Password .... blah, blah ... Provider=""Microsoft.Jet.OLEDB.4.0"";"
Me.OleDbConnection1.ConnectionString = strConnString
Me.OleDbSelectCommand1.CommandText = "SELECT CompanyId, CompanyName, FilePath FROM CompanyDetails WHERE (Version = '1') AND (Deleted = 0) ORDER BY CompanyName"
Me.OleDbSelectCommand1.Connection = Me.OleDbConnection1
OleDbDataAdapter1.Fill(DsCentralDat1)
dim row as datarow
for each row in dsCentlralDat1.Tables("TableName").Rows
if isDbNull(row.item("CompanyName") orelse row.item("CompanyName") = "" then
row.item("CompanyName") = "What you want"
end if
next
Me.DataSource = dsCentlralDat1.Tables("TableName")
Me.DisplayMember = "CompanyName"
Me.ValueMember = "CompanyId"
-- modified at 22:46 Tuesday 18th April, 2006
|
|
|
|
|
Thanks - this works brilliantly!! 
|
|
|
|
|
i got the numbers 0 to 9 to place in rows and columns for a Sudoku Game, i have managed to code all i need exept for the unique numbers code. All the code is done in VB 6 becuse that is what my crappy school and budget can manage for licenses... >_<
the code for the Sudoku Game (form2 is only a credits window)
Option Explicit<br />
<br />
Private Sub Cmd_cred_Click()<br />
Form2.Visible = True<br />
End Sub<br />
<br />
Private Sub cmd_exit_Click()<br />
End<br />
End Sub<br />
<br />
Private Sub cmd_gen_Click()<br />
Dim a As Integer<br />
For a = 0 To 80<br />
Text1(a) = Int(Rnd * 2)<br />
If Text1(a) = 0 Then<br />
Text1(a) = ""<br />
End If<br />
Next<br />
Dim c As Integer<br />
For c = 0 To 80<br />
If Text1(c).Text = "1" Then<br />
Text1(c) = Int(Rnd * 10)<br />
End If<br />
Next<br />
Dim d As Integer<br />
For d = 0 To 80<br />
If Text1(d).Text = "0" Then<br />
Text1(d) = ""<br />
End If<br />
Next<br />
End Sub<br />
<br />
Private Sub cmd_reset_Click()<br />
Dim b As Integer<br />
For b = 0 To 80<br />
Text1(b) = ""<br />
Next<br />
Form1.BackColor = &HE0E0E0<br />
End Sub<br />
<br />
Private Sub Form_Load()<br />
Form1.BackColor = &HE0E0E0<br />
End Sub<br />
I have been using textboxes wit a control array for this progran
i hope you guys can help me
thanks in advance 
|
|
|
|
|
When selecting a number for a square, there are three ways that you need to check for duplicates: In the same horizontal line, in the same vertical line, and in the same 3x3 box.
Still, if you just pick numbers on random you will most of the time end up in a situation where a squre has no possible values at all. Unless you handle this and make the code start over, you will get stuck in an eternal loop.
Creating a correct sudoku puzzle is a bit more complicated than just placing some random numbers. To be correct the puzzle has to have exactly one possible solution, no more, no less.
Perhaps you can find some useful information here: www.setbb.com/sudoku[^].
---
b { font-weight: normal; }
|
|
|
|
|
see, that is why i need the unique numbers code...
i can prolly toy around with the code and make it produce random unique numbers but i do need that code fisrt...
btw, i followed your advice and put a post at setbb
|
|
|
|
|
Well, as I said you have to check horizontally, vertically and in the 3x3 box for duplicates. Start with all numbers 1-9 and loop through the related squares and remove the ones that are used. Then randomly pick one of those left.
By the way, you can download Visual Studio Express versions for free from Microsoft, so it's not a big strain on the budget...
---
b { font-weight: normal; }
|
|
|
|
|
would it not be simpler to put a code string before the randomization process that prohibits doubble numbers for each row, column and 3x3 box?
|
|
|
|
|
A random number is just a floating point number between 0.0 and 1.0. There is no code that prohibits certain ranges for a random number. You have to take that whole range and distribute it equally over the possible numbers.
If all numbers are used except 1, 4, 6 and 7, you distribute the random number range equally over those four numbers:
0.00 <= Rnd < 0.25 --> 1
0.25 <= Rnd < 0.50 --> 4
0.50 <= Rnd < 0.75 --> 6
0.75 <= Rnd < 1.00 --> 7
The easiest way of doing that is of course to pick a random number between 0 and 3, and translate to the available numbers.
---
b { font-weight: normal; }
|
|
|
|
|
Hi Guys!! How do i come to know through code whether my Application is connected to the Internet or not. I want to display in the StatusStrip whether an Internet Conection is detected or not. How do i do this in VB.NET!! Thanx in Advanced!!
Devraj Raut!!!
|
|
|
|
|
Look here:
http://vbnet.mvps.org/index.html?code/network/internetgetconnectedstate.htm
|
|
|
|
|
Thanx for your Help Dude!! Its was of Great Importance to me. Code Project Rulez!!
Devraj Raut!!!
|
|
|
|
|
 Hello, can someone please help me learn some code? I know nothing of VB.NET, it is for an assignment for school... my teacher doesn't know programming and he is the only teacher that "teaches" it, we have to learn it ourselves or something... I have looked everywhere... anyway, that is no excuse for not knowing it, could someone teach me how to do vivisors and integers and stuff? Here is what I have to do, I don't want someone to do it for me, I just need to know how! The only programming experience I have had was HTML, some QBasic, and some Game Maker.
Thanks, I appreciate any help!! ^_^
========
Problem 2: Divisors
The propor divisors of a positive interger n are those intergers, excluding n itself, that divide n exactly. For example, the proper divisors of 12 are 1, 2, 3, 4, and 6.
*write a program that inputs a positive integer and outputs its proper divisors.
Problem 2a: Perfect numbers
A perfect number is a positive interget that is equal to the sum of its proper divisors. For example, 6 is a perfect number because 6=1+2+3 *Write a program that outputs all perfect numbers less than 1000.
========
Thanks!!!
---sig---
http://AEImage.Bravehost.com/
|
|
|
|
|
For the first problem you can use the modulo operator. It returns the rest value of a division, e.g. what's left over after an integer division. (23 mod 10) returns the value 3. (27 mod 5) return 2. To find the divisors of a number you just loop from 1 to number-1 and check if there is any rest value after dividing the number by the divisor. If there isn't, it's a proper divisor.
For the second problem you just loop to 1000, use the logic in the first problem to find the divisors, add them together and compare to the number.
---
b { font-weight: normal; }
|
|
|
|
|
er... does anyone also know of a tutorial? i know none of the code at all =[
thanks!
---sig---
http://AEImage.Bravehost.com/
-- modified at 15:01 Thursday 20th April, 2006
|
|
|
|
|
hi again
i just wanna ask if i can register a channel with .NET Remoting and windows XP ServicePack 2 without ask me to UnBlock the port or the channel
its really a silly message and i hate it 
plz any idea
and thanks
Little Programmer...
WeAk Questions...
Hard Work...
|
|
|
|
|
Hi!
I want to know can I have a mscomm buffer of one mb?
Currently my initialization part look like the following :
''''''''''''''''''''''''''''''''''''''''''''''''
If MSComm1.PortOpen = True Then 'double check to avoid error if this sub re-called
MSComm1.PortOpen = False
End If
MSComm1.CommPort = 1 'portnumber
MSComm1.Settings = "9600,N,8,1" '9600 baud, no parity, 8 data and 1 stop
MSComm1.InputMode = comInputModeText 'text mode
MSComm1.InputLen = 1 'Set INPUT to read ONE char
MSComm1.RTSEnable = False 'disable
MSComm1.DTREnable = False 'disable
MSComm1.Handshaking = comNone 'for 3 wire connection
MSComm1.InBufferSize = 1024 '
MSComm1.RThreshold = 1
MSComm1.PortOpen = True 'open the port
MSComm1.InBufferCount = 0
''''''''''''''''''''''''''''''''''''''''''''''''''
but the problem is with the buffer, the device i am connecting with can transfer one mb of data, so i may need to get the full amount of data in one go, but if i increase the size to around 5000, the program gives error.
Is there any way to solve this problem?
Regards
Arunendra
|
|
|
|
|
can anybody help me out of this????
Regard
Arunendra
|
|
|
|
|
how to add a checkbox to fixed cells of ComponentOne FlexGrid?
Chitra Dash
|
|
|
|
|
Hello Chitra,
You can add a checkbox to any column of the FlexGrid by setting the column format property to Yes;No, for example:
fg.Cols("bools").Format = "Yes;No"
Or
fg.Cols(0).Format = "Yes;No"
Suelinda W
Customer Engagement, ComponentOne LLC
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
