|
(VB.NET) Displaying data in combobox using oledbdatareader.
Thanks
|
|
|
|
|
Dim DBConnectionString As String = ""<br />
Dim MyTableName As String = ""<br />
Dim MyCommandText As String = ""<br />
Dim MyReader As System.Data.OleDb.OleDbDataReader<br />
Dim DBCommand As New System.Data.OleDb.OleDbCommand<br />
Dim DBConnection As System.Data.OleDb.OleDbConnection<br />
Dim MyDataSet As DataSet<br />
<br />
'Call some helper functions.<br />
DBConnection = GetConnection()<br />
DBConnectionString = GetConnectionString()<br />
<br />
'Set connection and open<br />
DBConnection.ConnectionString = DBConnectionString<br />
DBConnection.Open()<br />
<br />
'Set command.<br />
MyTableName = DBTableName.ToString()<br />
MyCommandText = " select * from " & MyTableName & " "<br />
DBCommand.CommandText = MyCommandText<br />
<br />
'Get a data reader.<br />
MyReader = DBCommand.ExecuteReader()<br />
<br />
‘Populate your combo with MyReader<br />
While MyReader.Read<br />
MyCombo.Items.Add(MyReader("FieldName"))<br />
End While
Tirtha
"A man can ride on your back only when it is bent....."
|
|
|
|
|
|
Hi i have intime(08:45) and outtime(20:16)=>24 hours format...,
Dim intime As DateTime
dim outtime as datetime
Dim tspan As TimeSpan = outtime.Subtract(intime)
use this i can get total work hours for a day shift..........,
suppose if its night shift.........,
intime(19:45) and outtime(08:00)=>24 hours format...,
then how i can get total work hours......,
plz help me..................
Magi
|
|
|
|
|
Not sure, but try this: Should return the absolute value of the time difference, regardless of negativity.
math.abs(tspan.hours)
Abs is short for absolute value (and it is an available math function), expressed in mathematics as |value|.
Eg.
|8| = 8
|-8| = 8
Posted by The ANZAC
|
|
|
|
|
hey i didnt ask how to show absolute value
see my ques is i have intime(19:45) and outtime(8:53)
so if i use time span then i am getting value (10:59)
but exact answer is (13:08)
now u got it my ques...........,
i need difference between two times.............
Magi
|
|
|
|
|
well subtract the intime(19:45) from (24:00) then add it to the outtime. This is the basic premise, i'll leave the task of applying it to your code, up to you.
Posted by The ANZAC
|
|
|
|
|
if u have the tspan established as the intime subtracted from the outtime then tspan should be accurate. Thats a little confusing. I'm not sure why this is happenning.
Posted by The ANZAC
|
|
|
|
|
ya it will give accurate time.........
when its in 00:00 to 23:59
but if ur input is night shift........
like what i said before intime(19:45) and outtime(08:16)
then its giving error output........,
i want exact output for night shift work hours......
Magi
|
|
|
|
|
How are you creating your date objects? If you created them correctly then the difference should be working without a problem. Look at this:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'T1 is March 20 2007, at 19:45
Dim t1 As New Date(2007, 3, 20, 19, 45, 0)
'T2 is March 21 2007, at 8:53
Dim t2 As New Date(2007, 3, 21, 8, 53, 0)
'The timespan is 13:08...which is correct
MsgBox(t2.Subtract(t1).ToString())
End Sub
If your still having trouble try posting a larger sample of code.
|
|
|
|
|
perviously I convert a byte array to string/text and store into database, like coding below:
cmd.Parameters("@LeadFormControls").Value = System.Text.Encoding.UTF8.GetString (bytLeadFormControls)
how do I convert back string/text back to a byte arrry when i retrieve it from database.
Any idea?
Angela
|
|
|
|
|
Typically, you'd use the StringBuilder[^]class.
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
Here is a class I found and modified to encrypt/decrypt. Hope it helps you.
Imports System.IO
Imports System.Text
Imports System.Security.Cryptography
Public Class Encryption64
Private key() As Byte = {}
Private IV() As Byte = {&H11, &H22, &H33, &H44, &H55, &H66, &H77, &H88}
Public Function Decrypt(ByVal strToDecrypt As String, _
ByVal strEncryptionKey As String) As String
'*******************************************************
' This function will:
' - Accept a string and encryption key
' - Decrypt and return the string
'
' NOTE: If strToDecrypt is from a query string,
' the Request.QueryString will have replaced
' any '+' characters with a space.
'*******************************************************
Dim inputByteArray(strToDecrypt.Length) As Byte
Dim des As New DESCryptoServiceProvider()
Dim ms As New MemoryStream()
Try
'Set key
key = System.Text.Encoding.UTF8.GetBytes(Left(strEncryptionKey, 8))
'Convert input string into byte array
inputByteArray = Convert.FromBase64String(strToDecrypt)
'Perform the decryption with memory stream object
Dim cs As New CryptoStream(ms, des.CreateDecryptor(key, IV), CryptoStreamMode.Write)
cs.Write(inputByteArray, 0, inputByteArray.Length)
cs.FlushFinalBlock()
'Convert and return decrypted byte array in memory stream into string
Dim encoding As System.Text.Encoding = System.Text.Encoding.UTF8
Return encoding.GetString(ms.ToArray())
Catch e As Exception
Return e.Message
End Try
End Function
Public Function Encrypt(ByVal strToEncrypt As String, _
ByVal strEncryptionKey As String) As String
'***************************************************
' This function will:
' - Accept a string and encryption key
' - Encrypt and return the string
'***************************************************
Dim des As New DESCryptoServiceProvider()
Dim ms As New MemoryStream()
Try
'Set key
key = System.Text.Encoding.UTF8.GetBytes(Left(strEncryptionKey, 8))
'Convert input string into byte array
Dim inputByteArray() As Byte = Encoding.UTF8.GetBytes(strToEncrypt)
'Perform the encryption with memory stream object
Dim cs As New CryptoStream(ms, des.CreateEncryptor(key, IV), CryptoStreamMode.Write)
cs.Write(inputByteArray, 0, inputByteArray.Length)
cs.FlushFinalBlock()
'Convert and return encrypted byte array in memory stream into string
Return Convert.ToBase64String(ms.ToArray())
Catch e As Exception
Return e.Message
End Try
End Function
End Class
|
|
|
|
|
byte[] info = System.Text.Encoding.UTF8.GetBytes("hello world");
|
|
|
|
|
Hello,
I have some code below. It searches records for the same manufacturer and model. If it finds a record that has the same manufacturer and model it will return true. Else it will return false.
However, if there is a problem and the function will need to return something. What would would I return. As I have to check the boolean if it is true or false , and do something. However, if there is an exception, I don't what to do anything with the true or false. Maybe roll back operation could not be completed, like in transactions.
<br />
'Check to see if the manufacturer and model name is the same. <br />
Private Function CompareManufacturer_Model() As Boolean<br />
Dim find As String = String.Empty<br />
Dim index As Integer = 0<br />
<br />
Try<br />
find = String.Format("Manufacturer = {0} AND Model = {1}", Me.txtManufacturer.Text, Me.txtModel.Text)<br />
Me.bsEquipment.Filter = find<br />
If (Me.bsEquipment.Count > 0) Then<br />
'There is a manufacturer and model that is the same so increment the quantity<br />
Return True<br />
Else<br />
'Manufacturer and model don't exist so add a new one.<br />
Return False<br />
End If<br />
Catch ex As Exception<br />
MessageBox.Show(ex.Message)<br />
'What would i return here<br />
End Try<br />
End Function<br />
Many thanks,
Steve
|
|
|
|
|
Define a custom exception and catch it when you call this method, or define a struct which contains all the info you want to return ( or even an enum, true, false, error )
Christian Graus - Microsoft MVP - C++
Metal Musings - Rex and my new metal blog
"I am working on a project that will convert a FORTRAN code to corresponding C++ code.I am not aware of FORTRAN syntax" ( spotted in the C++/CLI forum )
|
|
|
|
|
i dont actually know what you are trying to do,but try this code between your Catch and End Try block
.<br />
.<br />
.<br />
.<br />
Catch ex As Exception<br />
<br />
If Not ex.Message="" Then<br />
''Do your needful<br />
End If<br />
<br />
End Try
Live life to the fullest
|
|
|
|
|
Checking the Message string is a bad idea. Sure, it might work in this case, but it's a bad nabit to get into considering an Exception message can be thrown in many different languages.
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
Hi Steve,
It seems the guys misunderstood the problem you are facing. (Otherwise I misunderstood, in which case you can skip over this answer )
I suppose you call this function or sub somewhere in your code, and then continue the rest of the code depending on what gets returned, right? So when an exception happens, whatever it is, you need it to return neither True nor False.
I'd say the simplest solution is to forget about the boolean and instead return an integer:
<br />
Private Function YourFunction() as Integer<br />
If something = True Then<br />
Return 0<br />
Else<br />
Return 1<br />
End If<br />
Catch Ex as Exception<br />
Return 2<br />
End Try<br />
End Function<br />
and then:
<br />
Select Case YourFunction()<br />
Case 0 'your function would have returned True<br />
<br />
Case 1 'your function would have returned False<br />
<br />
Case 2 'an exception would have occurred in you function<br />
<br />
End Select<br />
Hope this helps you,
Johan
My advice is free, and you may get what you paid for.
|
|
|
|
|
I've made a simple user control that has two properties and 3 different states. I'd like to prevent this control from accepting focus. Basically I want it to act like a label or panel. I've tried overriding wndproc, but haven't had any luck. All research has also turned up nothing. Any help would be appreciated.
|
|
|
|
|
If the label class does what you want, why not just derive from that ?
Christian Graus - Microsoft MVP - C++
Metal Musings - Rex and my new metal blog
"I am working on a project that will convert a FORTRAN code to corresponding C++ code.I am not aware of FORTRAN syntax" ( spotted in the C++/CLI forum )
|
|
|
|
|
I suppose because I'm stubborn Actually, I hadn't thought of that. In my fiddling I stumbled across a different solution. It seems a UserControl inherits from UserControl and a custom control inherits from Control. A UserControl will recieve focus when clicked, but a Custom control won't. I'm assuming Usercontrol inherits a class that handles the focusing, which is why that type of control will always focus. I tried researching what the differences could be but came up empty handed.
So now I know in a situation like mine just inherit from control if I don't want it to get focus.
I've discovered another mystery in my pointless pursuit of information. How come the TabStop property doesn't exist for labels? TabStop is a property in the Control class and a Label is a control. How could it not be there? Oh, well. Unless somebody knows, I give up. I've figured out what I needed to know. Thanks for your reply.
|
|
|
|
|
Anyone know how to get the mouse scroll wheel to work in an MSHFlexGrid (or any control with vertical scroll bars, for that matter) in VB6?
|
|
|
|
|
Not supported. Scroll Wheels came out well after the FlexGrid did.
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
Actually it does work (at least it does in our implementation). Just change the ScrollTrack property of the MSHFlexGrid control on your form to True.
|
|
|
|