|
Alex Feature wrote: If any one has some ideas or links to point me in the right direction I would really appreciate it.
Wasn't Click Once deployment developed for this purpose? Hmm I think there might also be some features for auto updating as part of MSI installers.
If neither of those two options will work then take a look at this thread, while it’s a different language the concepts are still the same.
Compiled help from the LAN[^]
I'd love to help, but unfortunatley I have prior commitments monitoring the length of my grass. :Andrew Bleakley:
|
|
|
|
|
Hi,
Any one have an idea about counting total records in a reader.
Thanks,
|
|
|
|
|
pathak78 wrote: Any one have an idea about counting total records in a reader.
Read all the rows out counting as you go. There is no method for giving you a count ahead of time.
|
|
|
|
|
Just had another thought. You can send the query SELECT COUNT(*) FROM .... to the datbase followed by the query where you replace COUNT(*) with the columns that you actually want. That way the first result set out of the Data Reader will contain the count. Remember to put both in a transaction so that the count does not change between queries as it is possible another process could sneak in and insert or delete a row in the table you are selecting from.
|
|
|
|
|
|
Hi,
I am trying to write a wrapper for the DAAB in Ent Lib 2.0 since I have to use MS Access.
As usual, I am facing hurdles right at the start. When I try to return the data reader from the wrapper class, I get the error "connection not initialised". I am using the Generic Database class. The relevant code is posted below:
Dim objCommand As DbCommand
Try
Dim db As Microsoft.Practices.EnterpriseLibrary.Data.Database
db = New GenericDatabase(ConnectionString, DBProvider)
'db.CreateConnection.Open()
objCommand = db.GetSqlStringCommand(strSQL)
error here --> Dim dr As IDataReader = objCommand.ExecuteReader()
'Dim dr As IDataReader = db.ExecuteReader(strSQL)
Return dr
I get the error:
Connection property has not been initialised.
I have tried with opening the connection, getting the datareader directly etc., but still the same error. And yes, the connectionstring is correct. The provider I am using is OleDB.OledBFactory.Instance.
Any help/guidance on this is really appreciated.
Shreekar
|
|
|
|
|
shreekar wrote: Dim dr As IDataReader = db.ExecuteReader(strSQL)
Try
<br />
Dim dr As IDataReader = db.ExecuteReader(objCommand)<br />
|
|
|
|
|
Thanks a lot!!!
I guess I was looking at the code too hard...
But there is something nagging me at the back of my mind.
I think I will test more and respond.
Thanks again.
Shreekar
|
|
|
|
|
Hi .
I've managed to create a printing method and at the moment i'm using hardcoded margins. i need advice on things i've noticed which
1. print preview is aligned where as print out is only slightly off.
can u give me advice on what to code for e.g. do i need to simply add pagesettings dialog to manipulate margins or should i get real printer hardware margins and use them. what is the pro way to do this and the best way.
perhaps you can also be kind enough to show me a source example aswell.
Robbo
|
|
|
|
|
I have created a class in my project in a seperate file to the main form. When I try to use the maths class functions in this class such as Math.Abs(x) I get a build error message " Name 'Math' is not declared" but when I use the same function in the main form I have no problem with using it. Can anyone help?
|
|
|
|
|
use System.Math.Abs(x)
If the Lord God Almighty had consulted me before embarking upon the Creation, I would have recommended something simpler.
-- Alfonso the Wise, 13th Century King of Castile.
|
|
|
|
|
I am trying to make a note card program, can someone help me out? I need help making the program, i would like it to have a form with a textbox for a word, definition, sentence, and a synonym. And users should be able to add words and save lists from the initial form. Then when they click a study button, another form should open up, and it should randomly select a word from the list and show them only the word. Next, when they click Flip! they should see the definition, sentence, and synonym. I will post what i have so far, but my vb skills are a bit rusty, so if someone could help me, it would be appreciated. http://www.mediafire.com/?enkqyoyzwzy
|
|
|
|
|
IMHO, What do you really need is a good VB tutorial.
If the Lord God Almighty had consulted me before embarking upon the Creation, I would have recommended something simpler.
-- Alfonso the Wise, 13th Century King of Castile.
|
|
|
|
|
Alright, update, can someone tell me why this doesn't work, (don't worry, the layout will change, i have it like this for testing). I suspect that the problem is in the part where it saves the cards.
Public Class Form1<br />
Dim mode As Integer<br />
Dim words(30) As String<br />
Dim definitions(30) As String<br />
Dim synonyms(30) As String<br />
Dim sentences(30) As String<br />
Dim rotation As Integer<br />
Dim temp As String<br />
Dim Wordnumber As Integer<br />
<br />
Private Sub CreateCard_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CreateCard.Click<br />
mode = 1<br />
Wordnumber = 1<br />
Label1.Text = "Card Created"<br />
temp = Word.Text<br />
words(Wordnumber) = temp<br />
temp = Def.Text<br />
definitions(Wordnumber) = temp<br />
temp = Sentence.Text<br />
sentences(Wordnumber) = temp<br />
temp = Syn.Text<br />
synonyms(Wordnumber) = temp<br />
Wordnumber = Wordnumber + 1<br />
End Sub
or in the part where it recycles the words when it reaches a blank one
<br />
Private Sub flipcard_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Flipcard.Click<br />
synstudymode.Text = synonyms(rotation)<br />
sentencestudymode.Text = sentences(rotation)<br />
defstudymode.Text = sentences(rotation)<br />
wordstudymode.Text = words(rotation)<br />
If words(rotation) = "" Then<br />
wordstudymode.Text = "You have completed one rotation."<br />
rotation = 1<br />
End If<br />
rotation = rotation + 1<br />
End Sub<br />
I have posted the entire source at:
http://www.mediafire.com/?9n42k3mj3rz
-- modified at 19:59 Thursday 4th January, 2007
|
|
|
|
|
Hello All,
I have a project I am currently working on using VB .NET and VS 2005. Basically one of my classes maintains a collection of various objects all derived from a base class, but different. I want each of these derived classes to have a common method, but the paramaters for the method will vary.
Example, here is a cut down version of the base class and derived classes and what I want them to do.
Class clsString
public mustoveride sub AddPoint(index as integer, pnt as clsPnt)
End class
Here are some versions of the derived classes.
Class clsString3D
inherits clsString
public overrides sub AddPoint(index as integer, pnt as cls3d)
'do some other stuff here
End class
Class clsString6D
inherits clsString
public overrides sub AddPoint(index as integer, pnt as cls6d)
'do some other stuff here
End class
My program returns the object in this manner
Public function getString(byref name as string) as clsstring
getstring=string.item(name)
end function
I then call the function like this
Dim STR as clsstring
dim P6 as new cls6D
p6.setvals(5,7,34.6,45,3)
str=MDL.getString("MC01") 'this would in a working version return a string of clString6D
Str.AddPoint(4, P6)
Now I realise that you cannot override the function if the function signature is not the same, but shadowing doesn't seem to work either. Could someone please explain to me correct way for me to code what I want to do, or even if it is possible.
Regards,
Martin Duke
|
|
|
|
|
Aren't you able to deal polimorphically with pnt also?
If the Lord God Almighty had consulted me before embarking upon the Creation, I would have recommended something simpler.
-- Alfonso the Wise, 13th Century King of Castile.
|
|
|
|
|
Hello,
Yes, you're right, because all the point classes derive from a base class, clsPnt, I can, that solves my problem, thank you for your help.
Kindest regards,
Martin.
|
|
|
|
|
I need to format the date when the values are inserted to the MySQl db. All other columns work fine but all of the date columns are inserted as zeroes and in a different format, for example 0000-00-00. Any ideas?
Code:
Dim myConnString As String = "DRIVER={MySQL ODBC 3.51 Driver};" & _
"SERVER=192.168.1.27;" & _
"DATABASE=testship;" & _
"USER=;" & _
"PASSWORD=;" & _
"OPTION=3;"
Dim MyConnection As New Odbc.OdbcConnection(myConnString)
MyConnection.Open()
Dim MyCommand As New Odbc.OdbcCommand
MyCommand.Connection = MyConnection
MyCommand.CommandText = "INSERT INTO ls_orderitems (OrderDate, OrderCustomer, OrderAcctNum, OrderType, OrderSoNum, OrderItemPartNum, OrderItemPartDesc, OrderItemQty, OrderItemQtyRec, OrderItemQtyDtRec, OrderItemBO, OrderItemBODt,OrderItemCanceled, OrderItemCanceledDt, OrderItemNotes, OrderItemPONum, OrderItemRetailPrice, OrderItemSalePrice, Status, InsertDate) VALUES ('" & OrderDate & "','" & OrderCustomer & "','" & OrderAcctNum & "','" & OrderType & "','" & OrderSoNum & "','" & OrderItemPartNum & "','" & OrderItemPartDesc & "','" & OrderItemQty & "','" & OrderItemQtyRec & "','" & OrderItemQtyDtRec & "','" & OrderItemBO & "','" & OrderItemBODt & "','" & OrderItemCanceled & "','" & OrderItemCanceledDt & "','" & OrderItemNotes & "','" & OrderItemPONum & "','" & OrderItemRetailPrice & "','" & OrderItemSalePrice & "','" & Status & "','" & InsertDate & "'" & ")" '& "','" & 'TimeStamp & "'" & ")"
MyCommand.ExecuteNonQuery()
MyConnection.Close()
|
|
|
|
|
Change this to a parameterized query. The parameter objects take care of the translation for you. You can read why they are a good thing here[^].
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
Do you have any similar samples because I am not familiar with parameterized queries?
|
|
|
|
|
Here is some code that I tried but the dates are still being displayed as 0000-00-00 in db:
Dim myConnString As String = "DRIVER={MySQL ODBC 3.51 Driver};" & _
"SERVER=192.168.1.27;" & _
"DATABASE=testship;" & _
"USER=;" & _
"PASSWORD=;" & _
"OPTION=3;"
Dim MyConnection As New Odbc.OdbcConnection(myConnString)
MyConnection.Open()
Dim MyCommand As New Odbc.OdbcCommand
MyCommand.Connection = MyConnection
MyCommand.CommandText = "INSERT INTO ls_orderitems (OrderDate, OrderCustomer, OrderAcctNum, OrderType, OrderSoNum, OrderItemPartNum, OrderItemPartDesc, OrderItemQty, OrderItemQtyRec, OrderItemQtyDtRec, OrderItemBO, OrderItemBODt,OrderItemCanceled, OrderItemCanceledDt, OrderItemNotes, OrderItemPONum, OrderItemRetailPrice, OrderItemSalePrice, Status, InsertDate) VALUES ('" & OrderDate & "','" & OrderCustomer & "','" & OrderAcctNum & "','" & OrderType & "','" & OrderSoNum & "','" & OrderItemPartNum & "','" & OrderItemPartDesc & "','" & OrderItemQty & "','" & OrderItemQtyRec & "','" & OrderItemQtyDtRec & "','" & OrderItemBO & "','" & OrderItemBODt & "','" & OrderItemCanceled & "','" & OrderItemCanceledDt & "','" & OrderItemNotes & "','" & OrderItemPONum & "','" & OrderItemRetailPrice & "','" & OrderItemSalePrice & "','" & Status & "','" & InsertDate & "'" & ")"
MyCommand.Parameters.Add(New Odbc.OdbcParameter("OrderDate", OrderDate))
MyCommand.Parameters.Add(New Odbc.OdbcParameter("OrderCustomer", OrderCustomer))
MyCommand.Parameters.Add(New Odbc.OdbcParameter("OrderAcctNum", OrderAcctNum))
MyCommand.Parameters.Add(New Odbc.OdbcParameter("OrderType", OrderType))
MyCommand.Parameters.Add(New Odbc.OdbcParameter("OrderSoNum", OrderSoNum))
MyCommand.Parameters.Add(New Odbc.OdbcParameter("OrderItemPartNum", OrderItemPartNum))
MyCommand.Parameters.Add(New Odbc.OdbcParameter("OrderItemPartDesc", OrderItemPartDesc))
MyCommand.Parameters.Add(New Odbc.OdbcParameter("OrderItemQty", OrderItemQty))
MyCommand.Parameters.Add(New Odbc.OdbcParameter("OrderItemQtyRec", OrderItemQtyRec))
MyCommand.Parameters.Add(New Odbc.OdbcParameter("OrderItemQtyDtRec", OrderItemQtyDtRec))
MyCommand.Parameters.Add(New Odbc.OdbcParameter("OrderItemBO", OrderItemBO))
MyCommand.Parameters.Add(New Odbc.OdbcParameter("OrderItemBODt", OrderItemBODt))
MyCommand.Parameters.Add(New Odbc.OdbcParameter("OrderItemCanceled", OrderItemCanceled))
MyCommand.Parameters.Add(New Odbc.OdbcParameter("OrderItemCanceledDt", OrderItemCanceledDt))
MyCommand.Parameters.Add(New Odbc.OdbcParameter("OrderItemNotes", OrderItemNotes))
MyCommand.Parameters.Add(New Odbc.OdbcParameter("OrderItemPONum", OrderItemPONum))
MyCommand.Parameters.Add(New Odbc.OdbcParameter("OrderItemRetailPrice", OrderItemRetailPrice))
MyCommand.Parameters.Add(New Odbc.OdbcParameter("OrderItemSalePrice", OrderItemSalePrice))
MyCommand.Parameters.Add(New Odbc.OdbcParameter("Status", Status))
MyCommand.Parameters.Add(New Odbc.OdbcParameter("InsertDate", InsertDate))
MyCommand.ExecuteNonQuery()
MyConnection.Close()
|
|
|
|
|
Hi there
I wonder if anyone can help me with my problem.
I am building an Programming Editor for my Healthcare Software at work. The editor that comes with it is useless.
One formular i am using notepad to programme has over 20,000 lines of codes. I have started making an editor and the problem is it takes ages to read all the keywords and find the line and add this to a Treeview control. I use Regular Expression to reduce the time to find the keywords. However, i have to loop over each item in the Regular Expression Match Collections in order to find the line where each match occurs. This will enable me to add each keywords and the line number to the tree view control. This loop with my 20,000 lines of codes seems to take ages. Can someone tell me how can i increase the performance? Shall i use Multithreading to do all the looping in the background? However, this will only hide the problems. When the Form appears and the user clicks the treeview structure, the background tasks may not have been completed yet.
Can anyone tells me how to solve this performance problem?
|
|
|
|
|
One way would be to use delegate's to perform the looping. Set the enabled value of the treeview to false and once the looping has finished, set it to true.
This will stop people from clicking on it before you want them to. There are some good tutorials on MSDN for delegating, though not many for placing arguments/paramters in the functions (if someone could let me know one, that would be great, I lost the bookmark and my code when my old HDD died )
As for the faster matching, there isn't an overly fast way to loop over 20,000 lines of an array, you might have to deal with the regex loop searching. I'd have to take a look at the search part of the code to see, though you could try a google hit for 'vb.net text search optimizing'
Daniel
|
|
|
|
|
Hullo,
I'm trying to convert some code from vb6 to .NET. Basically I don't know how to convert this first line so that I can send a string to my printer. I want to use the label printer called "ZebraLP2" (its shared network name). Any help on how to send it this info using VB.NET would be awesome.
Open "\\127.0.0.1" & "\ZebraLP2" For Output As #1
'''Start of EPL2 code
strTemp = "N" & vbCrLf ''' Clear buffer
strTemp = strTemp & "q811" & vbCrLf ''' Label Width in dots (2 inches)
strTemp = strTemp & "Q1217,1" & vbCrLf ''' Label height and gap in dots (1 inch)
strTemp = strTemp & "S" & Trim(Me.strSpeed) & vbCrLf
strTemp = strTemp & "D" & Trim(Me.strDensity) & vbCrLf
strTemp = strTemp & "ZT" & vbCrLf ''' Direction
strTemp = strTemp & "OD" & vbCrLf ''' Direct Thermal mode
strTemp = strTemp & "A25,12,0,4,1,1,N,""" & sFirstLine & """" & vbCrLf
strTemp = strTemp & "A25,45,0,4,1,1,N,""" & sSecondLine & """" & vbCrLf
strTemp = strTemp & "A25,78,0,4,1,1,N,""" & sThirthLine & """" & vbCrLf
strTemp = strTemp & "P" & Trim(intQty)
''' End of the EPL2 code
Print #1, strTemp
Close
-Daniel
|
|
|
|
|
Hmm. I'm not too good with VB6, but this article might help you: Basic Text and Image Printing
Trinity: Neo... nobody has ever done this before.
Neo: That's why it's going to work.
|
|
|
|
|