|
Are your tables you refer to in a dataset?
If so then you can bind the datasource/member properties of the combo box to the table 1.
Then just use an insert/update to table 2 based on the selecteditem in the combobox.
|
|
|
|
|
Dim TCP As Net.Sockets.TcpClient
Dim POP3Stream As System.IO.Stream
Dim inStream As System.IO.StreamReader
TCP = New Net.Sockets.TcpClient
TCP.Connect(strServer, 110)
POP3Stream = TCP.GetStream
inStream = New System.IO.StreamReader(POP3Stream, System.Text.Encoding.GetEncoding("utf-8"))
strTemp = inStream.ReadLine
While (strTemp <> ".")
strEmailMess = strEmailMess & strTemp & vbCrLf
strTemp = inStream.ReadLine
End While
For example: if strTemp is =?windows-874?B?t7TKzbogdGVzdCB=?=
i have to cut ?windows-874?B? and ?= so, it will remains t7TKzbogdGVzdCB=
and i will use code below to encode it to Thai letter
Dim encoding As New System.Text.UTF8Encoding
Dim Buffer As Byte() = Convert.FromBase64String(t7TKzbogdGVzdCB=)
DecodeBase64 = encoding.GetString(Buffer)
it's read ?????????
How to make it read in Thai letter ?
Thanks
modified on Friday, December 25, 2009 4:43 AM
|
|
|
|
|
Your question is not very good.
You cut the items from where? what are you expecting it to decode to? what does the original data refer to?
You lost me with your question...
|
|
|
|
|
sorry , I have revised my post already and hope u understand what i mean.
Thanks
|
|
|
|
|
Hello experts.
I am stuck on something.
I have an external file whihc i am read/writting to it, that bit i can do however, what i really need to be able to do is split the document up.
At the moment i have one big text box with lots of data in it, what i need to do is split that data up and put the data into seperate textboxes,
i thought i could do this with a FOR and NEXT loop however that doesn't seem to work
Here's my code
Dim i(1 To 10) As Integer
'reading a file
' Get a free file number
nFileNum = FreeFile
' Open a text file for input. inputbox returns the path to read the file
Open App.Path & "\stock.txt" For Input As nFileNum
lLineCount = 1
For i = 1 To 10 ' this loop doesn't seem to work!
' Read the contents of the file
Do While Not EOF(nFileNum) 'this works fine
Line Input #nFileNum, sNextline
'do something with it
'add line numbers to it, in this case!
sNextline = sNextline & vbCrLf
sText(i) = sText(i) & sNextline & vbNewLine 'take out sNumbers if dont work
'Next sNumber
next i
Loop
txtRead.Text = sText(1)
txtRead1.Text = sText(2)
if anybody can help me that would be very helpful
Thanks
Dan
|
|
|
|
|
You're reading the file 10 times, right to the end of the text. Wouldn't it make more sense to move the loop to the end of the method, and to process it after you read all the text?
I'd be guessing that you'd only need to read the file once.
I are Troll 
|
|
|
|
|
You have your For Next and your Do Loop structures overlapped, doesn't look right to me.
|
|
|
|
|
Before you perform to split a string you must have to provide the deliminator...It's a basic part of split a string..Your code is not similar to your need I guess.
Well I would like you suggest you to use Microsoft.Office.Interop.Word 11.0 to Handle not only a rtf file but also
any format of word documents.
Thanks
Md. Marufuzzaman
Don't forget to click [Vote] / [Good Answer] on the post(s) that helped you.
I will not say I have failed 1000 times; I will say that I have discovered 1000 ways that can cause failure – Thomas Edison.
modified on Friday, December 25, 2009 2:50 PM
|
|
|
|
|
Hi guys,
I asked a little while ago about a database problem i had.
Umm i seem to have figured out a lot of it however have a tiny problem.
Adodc1.Recordset.Find "First_Name = 'dan'", , adSearchForward
this code works and finds the record with first name dan
when i want to use a text box labeled txtSearch
Adodc1.Recordset.Find "First_Name" = txtSearch.Text, , adSearchForward
all hell breaks loose and it don't like it. It says there is an error 3001???
I am soooo close now, if i can get this done that would be very cool!!
And a merry xmas
Dan
|
|
|
|
|
|
offroaderdan wrote:
when i want to use a text box labeled txtSearch
Adodc1.Recordset.Find "First_Name" = txtSearch.Text, , adSearchForward
Try with this:
Adodc1.Recordset.Find "First_Name = '" & txtSearch.Text & "'", , adSearchForward
Thanks
Md. Marufuzzaman
Don't forget to click [Vote] / [Good Answer] on the post(s) that helped you.
I will not say I have failed 1000 times; I will say that I have discovered 1000 ways that can cause failure – Thomas Edison.
|
|
|
|
|
woooooooooo thankyou ever so much
|
|
|
|
|
A stupid question now.
How do i transfer selected text from a list box and put that selected text into a textbox??
I thought that it was
listEquip.SelText = Text1.Text
however that don't seem to work
using vb6 
cheers
dan
|
|
|
|
|
Don't you have the statement backwards ?
It should be Text1.Text = listEquip.SelText
Right ?
|
|
|
|
|
Thanks for the reply!
No it still doesn't seem to work.
there's nothing stupid that i have to enable on the textbox to allow it to have whatever is selected on the listbox put into the textbox?
Dan
|
|
|
|
|
"listEquip.Text", or "listEqiup.List(listEquip.ListIndex)". The first should be a shorthand-form of the latter, both should give you the text of the item that's selected in the listbox 
I are Troll 
|
|
|
|
|
I didn't know listbox.Text was reflecting the selection; a little experiment shows it only works well for SelectionMode "One", otherwise it only shows one item out of many.
|
|
|
|
|
Luc Pattyn wrote: I didn't know listbox.Text was reflecting the selection; a little experiment shows it only works well for SelectionMode "One", otherwise it only shows one item out of many.
Not really useful knowledge, but VB6 has some 'features' to save the programmer from having to type much. One can't put multiple items into a string, so it does make sense in a VB6-kinda way.
This should raise an exception, from the point of view of a .NET programmer;
Dim A$: A$ = label1 In VB6 it will just copy the value of the 'default property' of the label into A$, conveniently the caption. One can't learn the language without also learning to curse and swear
Merry Christmas 
|
|
|
|
|
Welcome...
Thanks
Md. Marufuzzaman
Don't forget to click [Vote] / [Good Answer] on the post(s) that helped you.
I will not say I have failed 1000 times; I will say that I have discovered 1000 ways that can cause failure – Thomas Edison.
|
|
|
|
|
Thanks in Advance
I made a setup in Visual Studio 2008 Setup Wizard of a Database Application (Language VB) having Crystal Report as a reporting Tool
In the Previous setups the Reports were previewing perfectly but now when i Build the Setup its is giving Error on Test as well as on Client PC assembly error of "CrystalDecisions.Windows.Forms" that cannot be found while it is added in the Dependencies/Setup and was working ok before
Best Regards,
SOFTDEV
If you have knowledge, let others light their candles at it
|
|
|
|
|
I Added Prerequisites and Problem solved is their any other solution because Prereq. sizzze is 240 Mb
Best Regards,
SOFTDEV
If you have knowledge, let others light their candles at it
|
|
|
|
|
Hi Experts,
Am beginner on vb .net programming and would like to get some solutions here. I tried to search around google but i cant really find articles which similar to my case.
Here my scenario is,
Am dealing with windows mobile and I got multiple screen, multiple scenario that share same key in text field which i had create on another form.
Because of the limited space available on screen, then i decided to create a new form for user to key in the data then save it behind the main application on invisible textbox but i found tat i need to duplicate multiple *same form to deal with my scenario. So I would like to know is there any better way to do so?
Explain in more details by example:
I got screen A, B, C ,D and a data form.
User will open either screen A, B, C or D then upon of screen that they choose, they need to open data form to key in extra data and save in behind the main application (screen A, B, C, or D).
What can be done for the moment is i create 4 same data form each for screen A, B, C and D. Then, I would like to know whether its possible to be just 1 data form and how can i do it?
Thanks.
Regards,
George
|
|
|
|
|
What about creating a object/class to hold your data, but make the properties, variables etc. SHARED.
This would allow every form that the uses that object, to share data.
Steve Jowett
-------------------------
Real programmers don't comment their code. If it was hard to write, it should be hard to read.
|
|
|
|
|
Seems that this is the only way to deal with it by input another module and declare the object as global object?
Am looking for an alternative way, secure one, is this possible?
Rookie here.
|
|
|
|
|
New to Visual Basic 2008
This warning is showing up (turns to a compile error if I have Option Strict set to ON) in various lines of code and I'm unsure how to fix it.
a couple of line examples are
If GetData(driPhoneBD, chkShowAll.CheckState.ToString) = True Then
The GetData function accepts the second parameter and is Boolean - chkshowall.CheckState is -1 if it's ticked and 0 if it's not
I could set GetData second param to a numberic, but I'd rather find out how to "convert" the -1 and 0 values of CheckState to boolean because I will have to do it at other points during programming.
Another example is this
.IncDate = dgviPhoneBD.CurrentRow.Cells(6).Value.ToString
.IncDate is a date variable in my class and dgviPhoneBD is my datagridview
I read that I could use this
.IncDate = Date.Parse(dgviPhoneBD.CurrentRow.Cells(6).Value.ToString)
and whilst the warning does disappear, I'd like to know if this is the correct way to convert a value to the correct datatype.
Why, for example, is there not this
.IncDate = Date.Parse(dgviPhoneBD.CurrentRow.Cells(6).Value.ToDate)
Why is it always "ToString()"?
Thx for your help
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
