|
thxx ..
but i do not know why it is not working for me !
when i run the code i recive this error
Specified cast is not valid
-- modified at 6:57 Tuesday 29th November, 2005
|
|
|
|
|
neverminde i found a soulotion ..
dim i as integer
i = ds.Tables("tabelname").Rows.Count()
lblCount.Text = lblCount.Text & i
|
|
|
|
|
Ok, reality is that I can't get it work.
I am trying to get some data from an ACCESS database through my VB.NET desktop program.
This is what Im trying to use:
Dim ConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\administrator.RANDY\Desktop\LeadRipper2\Database\Version2.MDB"
Dim sSQL As String = "SELECT * FROM tblURL"
Dim command As SqlClient.SqlCommand = New SqlClient.SqlCommand(sSQL, New SqlClient.SqlConnection(ConnectionString))
command.Connection.Open()
Dim dataReader As SqlClient.SqlDataReader = command.ExecuteReader(CommandBehavior.CloseConnection)
With dataReader
Do While .Read = True
MessageBox.Show(.GetString(1) & "" & .GetString(2))
Loop
.Close()
End With
I keep getting an error here:
Dim command As SqlClient.SqlCommand = New SqlClient.SqlCommand(sSQL, New SqlClient.SqlConnection(ConnectionString))
can someone help me out please??? ![Rose | [Rose]](https://www.codeproject.com/script/Forums/Images/rose.gif)
VB6 was SOOOO OOOOOOOOO O O O O O OO O O O much easier.
Whatever happened to ado.recordsets???
|
|
|
|
|
Desert_Dude wrote: Dim command As SqlClient.SqlCommand = New SqlClient.SqlCommand(sSQL, New SqlClient.SqlConnection(ConnectionString))
What's the error ? I'd be inclined to create a connection object, not just call 'new' here.
Desert_Dude wrote: VB6 was SOOOO OOOOOOOOO O O O O O OO O O O much easier.
*grin* That's because VB.NET is more like programming...
Desert_Dude wrote: Whatever happened to ado.recordsets???
ADO.NET was designed with the web in mind, and hence is a disconnected system, very different to ADO for reasons that make a lot of sense if you work on web apps.
Christian Graus - Microsoft MVP - C++
|
|
|
|
|
Christian Graus wrote: Desert_Dude wrote:
Dim command As SqlClient.SqlCommand = New SqlClient.SqlCommand(sSQL, New SqlClient.SqlConnection(ConnectionString))
What's the error ? I'd be inclined to create a connection object, not just call 'new' here.
I have a WROX book (VB.NET Professional) and I was directly quoting their methods, trying to get the DataReader Object fired up.
Christian Graus wrote: Desert_Dude wrote:
VB6 was SOOOO OOOOOOOOO O O O O O OO O O O much easier.
*grin* That's because VB.NET is more like programming...
HEhehehe, Im cool with that. My profession is more like banking than programming. I have just enough knowledge to make myself dangerous. 
I went to a community college where I got an associates in VB, Database and web design, (circa 1999-2000) and haven't touched it since.
Christian Graus wrote: Desert_Dude wrote:
Whatever happened to ado.recordsets???
ADO.NET was designed with the web in mind, and hence is a disconnected system, very different to ADO for reasons that make a lot of sense if you work on web apps.
OK, back to business. I have an Access Database on my local machine that I need to get data from. The data will include multiple records that I need to process.
i.e. SELECT * FROM tblWhatever WHERE fldSomething = "THIS" AND fldSomethingelse = "THAT"
I can work on the SQL syntax to get it to work so Im not worried about that. (yet)
This is as far as I got:
1. Create a Connection
2. Execute a command (SQL)
3. Now what?
I'd like to loop through the data so I can process it and at the same time do an UPDATE to the database.
Can you help me out with the code and syntax please?
I'd really appreciate it!!!
|
|
|
|
|
I reckon this[^] will answer your questions.
Good luck !!
Christian Graus - Microsoft MVP - C++
|
|
|
|
|
HAHAHAHA Christian,
Not to be ungrateful for your help but, it's a day late and dollar short. LOL
I did bookmark that site though, I'm sure I will go there again... like right now to work on the XML part of what Im doing.
Thanks a million to everone who posted up for me here!
-Geoff
|
|
|
|
|
Oh, someone else helped. No worries, I'm in a different time zone, people helped you while I slept. I'm glad you got it working.
Christian Graus - Microsoft MVP - C++
|
|
|
|
|
That's because you are trying to use a SQLCommand with an Access database. Try using an OledbCommand and OledbConnection instead.
|
|
|
|
|
|
A DataSet is a DataSet, but an OledbCOnnection is not a SQLConnection. The code you posted looked OK, so if you just replace all SQLClient.SQLConnection objects with OleDb.OledbConnection, and replace all SQLClient.SQLCommand objects with OleDb.OledbCommand and replace all SQLClient.SQLDataReader objects with OleDb.OledbDataReader, and replace all SQLClient.SQLDataAdapter objects with OleDb.OleDbDataAdapter, it should work. DataSets are database-neutral, so don't have to be changed.
|
|
|
|
|
Here's how I got it to work:
Private Sub selectRecord(ByVal state As String, ByVal theDate As Date, ByVal recordCount As Integer)
Dim ConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\administrator\Version2.MDB"
Dim objCon As New OleDbConnection(ConnectionString)
Dim mySelectQuery As String = "SELECT * FROM tblURL WHERE state='" & state & "' AND [date]='" & theDate & "'"
Dim myConnection As New OleDbConnection(ConnectionString)
Dim myCommand As New OleDbCommand(mySelectQuery, myConnection)
myConnection.Open()
Dim myReader As OleDbDataReader
myReader = myCommand.ExecuteReader()
While myReader.Read()
MessageBox.Show(myReader.GetInt32(0) & " , " & myReader.GetString(1))
' <<<business logic="" to="" be="" inserted="" here="">>>
End While
myReader.Close()
myConnection.Close()
End Sub
I think it's a good thing for the boards if we can post a follow up answer to the question posted. 
|
|
|
|
|
Hello I am developing a vb.net windows aplication.
for the Exe I am creating I wanted to give version information such as Version number, Company name etc. In vb6.0 those details we can give in project properties... But in vs.net I am not able to do that .. any Idea ??
Best Regards,
|
|
|
|
|
The version info is in your assembly.info file. I have a seperate program I run as a post build step which reads this file and increments the values in there, so I have a version that changes with each build.
Christian Graus - Microsoft MVP - C++
|
|
|
|
|
Thanks Graus,
Thank you very much for the prompt reply.
|
|
|
|
|
Hi,
I have tried several times to install Visual Basic 2005 Express. Every single time I get an 'unknown error' during installation. When the messagebox appears, and I click OK, the setup continues. But eventually, I can't open Visual Basic. It keeps saying: 'Unknown error'...
Is there anyone who has experienced the same?
Thanks  ,
Tom Easton
|
|
|
|
|
I have to write this code which will calculate the cost of a pizza with toppings. I have created a drop down menu for the pizza size and it is working properly and will updated as a different size is selected.
The checkboxes are the problem. The checkboxes will update if I select them from right to left, but if I try to select them at random(ie...backwards), the values do not appear.
Anyone have any ideas as to what I am doing wrong?
Code is listed below:
Dim total1 As Decimal
Dim total2 As Decimal
Dim total3 As Decimal
Dim total4 As Decimal
Dim total5 As Decimal
Dim sizetotal As Decimal
Private Sub sizebox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles sizebox.SelectedIndexChanged
sizebox.Items.IndexOf("Small")
sizebox.Items.IndexOf("Medium")
sizebox.Items.IndexOf("Large")
If sizebox.Text = "Small" Then
sizetotal = "7.00"
ElseIf sizebox.Text = "Medium" Then
sizetotal = "9.00"
ElseIf sizebox.Text = "Large" Then
sizetotal = "11.00"
End If
totallbl.Text = "Total is: " & sizetotal
If pepckbx.CheckState = CheckState.Checked Then
total1 = 0.5
Else : total1 = 0
End If
totallbl.Text = "Total is: " & sizetotal + total1
If mushckbx.CheckState = CheckState.Checked Then
total2 = 0.5
Else : total2 = 0
End If
totallbl.Text = "Total is: " & sizetotal + total1 + total2
If pineckbx.CheckState = CheckState.Checked Then
total3 = 0.5
Else : total3 = 0
End If
totallbl.Text = "Total is: " & sizetotal + total1 + total2 + total3
If onckbx.CheckState = CheckState.Checked Then
total4 = 0.5
Else : total4 = 0
End If
totallbl.Text = "Total is: " & sizetotal + total1 + total2 + total3 + total4
If pprckbx.Checked = True Then
total5 = 0.5
Else : total5 = 0
End If
totallbl.Text = "Total is: " & sizetotal + total1 + total2 + total3 + total4 + total5
End Sub
Private Sub pepckbx_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pepckbx.CheckedChanged
If pepckbx.CheckState = CheckState.Checked Then
total1 = 0.5
Else : total1 = 0
End If
totallbl.Text = "Total is: " & sizetotal + total1
End Sub
Private Sub mushckbx_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mushckbx.CheckedChanged
If mushckbx.CheckState = CheckState.Checked Then
total2 = 0.5
Else : total2 = 0
End If
totallbl.Text = "Total is: " & sizetotal + total1 + total2
End Sub
Private Sub pineckbx_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pineckbx.CheckedChanged
If pineckbx.CheckState = CheckState.Checked Then
total3 = 0.5
Else : total3 = 0
End If
totallbl.Text = "Total is: " & sizetotal + total1 + total2 + total3
End Sub
Private Sub onckbx_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles onckbx.CheckedChanged
If onckbx.CheckState = CheckState.Checked Then
total4 = 0.5
Else : total4 = 0
End If
totallbl.Text = "Total is: " & sizetotal + total1 + total2 + total3 + total4
End Sub
Private Sub pprckbx_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pprckbx.CheckedChanged
If pprckbx.CheckState = CheckState.Checked Then
total5 = 0.5
Else : total5 = 0
End If
totallbl.Text = "Total is: " & sizetotal + total1 + total2 + total3 + total4 + total5
End Sub
|
|
|
|
|
Looks to me like you could have one internal total, one check changed event handler, and just add or subtract .5 as the checks get set or unset.
Christian Graus - Microsoft MVP - C++
|
|
|
|
|
bob1070 wrote: The checkboxes will update if I select them from right to left, but if I try to select them at random(ie...backwards), the values do not appear.
The problem is, the checkboxes only total from the left to the right. So If you check the PPR check box, you total all the check boxes. But then, if you check the PEP check box (ie...backwards), you are recalculating the total, but only totaling the sizetotal and total1.
You need to have
totallbl.Text = "Total is: " & sizetotal + total1 + total2 + total3 + total4 + total5
in each of your ckbx_CheckedChanged subs.
Roy.
|
|
|
|
|
Hi,
I want to create a scanning system that will later be implemented into an anti spyware scanner written using Visual Studio 2003.
workspace below:
http://www.gotdotnet.com/workspaces/workspace.aspx?id=86fc2a2c-f857-446f-9f0c-37d27b64ffde
I want it to work like this: The program will scan through every file on the system and return its MD5 key. It will then compare the MD5 key to a list in a large file included with the program. If an MD5 key matchs with one in the definitionss file, then it will be removed or disabled or repaired depending upon what type of spyware it is.
So far i have the code for returning an MD5 hash key, creating a definitions file and reading it, and removing spyware. If anyone can contribute anything that might be of use, please let me know as have been working on this project for a year and still havn't completed it..
Could anyone please help me out ?
Thanks
|
|
|
|
|
Not to be a kill-joy by any means (I know what it is like to work for years on something and still not be done) you seem to be taking a very minimalist approach to spy-ware removal if all you are doing is dealing with the files. There are at very least possible registry keys that needs to be dealt with.
Aside form that, what help to you need? Taking the approach you are taking (unless I have missed something) it sounds like you are almost there.
George Carlin wrote:
"Don't sweat the petty things, and don't pet the sweaty things."
Jörgen Sigvardsson wrote:
If the physicists find a universal theory describing the laws of universe, I'm sure the a**hole constant will be an integral part of that theory.
My Blog[^]
|
|
|
|
|
No, you are right we are removing more than just files; however that is a huge part of the process.
The program Targets all of the following: Bho's, Active X, LSP's, Startup, Processes, Toolbars, Trogans, Tracking Cookies, and other files.
I have written a removal class to do all of this, so all i am working on right now is the scanning.
However I am only 15, and i have limited knowlage of these procedures as i taught myself to program in vb.net
|
|
|
|
|
Hello
I am a new member of this group. I looked at previous messages and files uploaded but cant find exactly how towrite a code in excel visual basic editor that can dictate what ı said to a text box or other controls..
ı managed to write the code that can run commands but it works only with specific words that ı write to a Gramer file
can u show me an example that is able to translate every word in english to text file....
how shoud ı change the code
directsr1.grammarfromstring
by the way I am using Microsoft Speech SDK
thank you very much
Mustafa
|
|
|
|
|
I am writing a DB program which have to be deployed on a network> I am using VB. I heard from someone that i can use a INI files, which will make it possible to move the DB without having to rewrite the program. Can anyone tell me how to do that.
THANX.
|
|
|
|
|
Hi
if you want to use ini-files, try seek for GetPrivateProfileString and WritePrivateProfileString in help-index.
Kind Regards
Thomas Vanting
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
