|
i was assigned an to do completely migration from vb6 to vb.net. can somebody guide me?please, any little help would be benefitial for me.
' this code is for deleting the selected file that is manually type in textbox
<br />
Dim backupFile As String<br />
<br />
On Error Resume Next<br />
backupFile = "C:\" & txtMotherLot.Text & "\TestTxn.txt"<br />
<br />
Call DeleteTableRecord(backupFile, sqlDeleteTestTxn, sqlSelectTestTxn, Adodc_TestTxn, "FWCATNS_TESTTXN")<br />
btnExportData_TestTxn.Enabled = False<br />
btnBackupDataTestTxn.Enabled = False<br />
btnDeleteTesttxn.Enabled = False<br />
Me.SetFocus<br />
'this is for perform backup on file
<br />
Private Sub btnBackupDataTestTxn_Click() 'ok<br />
Dim r As Integer<br />
Dim backupFile As String<br />
Dim backupFolder As String<br />
<br />
Dim s As Integer<br />
Dim FileName As String<br />
Dim continue As Boolean<br />
continue = True<br />
On Error GoTo ErrMesej<br />
backupFile = "C:\" & txtMotherLot.Text & "\TestTxn.txt"<br />
<br />
If ValidateID(txtMotherLot.Text) Then<br />
backupFolder = "C:\" & txtMotherLot.Text & "\"<br />
If fso.FolderExists(backupFolder) Then<br />
<br />
If fso.FileExists(backupFile) Then<br />
r = MsgBox("TestTxn.txt backup file exists!Continue to replace it?", vbOK, "TestTxn.txt File Checking")<br />
Select Case r<br />
Case vbOK<br />
Call writeBackup(backupFile, sqlSelectTestTxn, "FWCATNS_TESTTXN")<br />
Case vbCancel<br />
'Exit Sub<br />
s = MsgBox("Do you want to save file with another name other than default name(TestTxn.txt)?", vbOK, "TestTxn.txt File Checking")<br />
Select Case s<br />
Case vbOK<br />
While continue<br />
FileName = InputBox("Please key in new file name other than existing file name ", "Save as new file name")<br />
backupFile = "C:\" & txtMotherLot.Text & "\" & FileName & ".txt"<br />
If fso.FileExists(backupFile) Then<br />
MsgBox "FileName " & backupFile & " already exists!!", vbExclamation<br />
Else<br />
continue = False<br />
Call writeBackup(backupFile, sqlSelectTestTxn, "FWCATNS_TESTTXN")<br />
End If<br />
Wend<br />
Case vbCancel<br />
Exit Sub<br />
End Select<br />
End Select<br />
Else<br />
Call writeBackup(backupFile, sqlSelectTestTxn, "FWCATNS_TESTTXN")<br />
End If<br />
<br />
Else<br />
fso.CreateFolder (backupFolder)<br />
Call writeBackup(backupFile, sqlSelectTestTxn, "FWCATNS_TESTTXN")<br />
End If<br />
Else<br />
MsgBox "Please key in correct MES ID!"<br />
txtMotherLot.SetFocus<br />
txtMotherLot.Text = "<Invalid ID>"<br />
End If<br />
Me.SetFocus<br />
Exit Sub<br />
ErrMesej:<br />
MsgBox Err.Description, vbCritical, "System Message"<br />
<br />
End Sub<br />
'this for exporting data from one location to the specific location
<br />
Private Sub btnExportData_TestTxn_Click() 'ok<br />
<br />
Dim r As Integer<br />
Dim exportFile As String<br />
Dim exportFolder As String<br />
<br />
Dim s As Integer<br />
Dim FileName As String<br />
Dim continue As Boolean<br />
continue = True<br />
On Error GoTo ErrMesej<br />
exportFile = "C:\" & txtMotherLot.Text & "\TestTxn.xls"<br />
<br />
<br />
If ValidateID(txtMotherLot.Text) Then<br />
exportFolder = "C:\" & txtMotherLot.Text & "\"<br />
If fso.FolderExists(exportFolder) Then<br />
If fso.FileExists(exportFile) Then<br />
r = MsgBox("TestTxn.xls file exists!Continue to replace it?", vbOK, "TestTxn.xls File Checking")<br />
Select Case r<br />
Case vbOK<br />
Call exportRecords(exportFile, sqlSelectTestTxn, "Fwcatns_TestTxn")<br />
Case vbCancel<br />
'Exit Sub<br />
s = MsgBox("Do you want to save file with another name other than default name(TestTxn.xls)?", vbOK, "TestTxn.xls Checking")<br />
Select Case s<br />
Case vbOK<br />
While continue<br />
FileName = InputBox("Please key in new file name other than existing file name", "Save as new file name")<br />
exportFile = "C:\" & txtMotherLot.Text & "\" & FileName<br />
If fso.FileExists(exportFile) Then<br />
MsgBox "FileName " & exportFile & " already exists!!", vbExclamation<br />
Else<br />
continue = False<br />
Call exportRecords(exportFile, sqlSelectTestTxn, "Fwcatns_TestTxn")<br />
End If<br />
Wend<br />
Case vbCancel<br />
Exit Sub<br />
End Select<br />
End Select<br />
Else<br />
Call exportRecords(exportFile, sqlSelectTestTxn, "Fwcatns_TestTxn")<br />
End If<br />
Else<br />
fso.CreateFolder (exportFolder)<br />
Call exportRecords(exportFile, sqlSelectTestTxn, "Fwcatns_TestTxn")<br />
End If<br />
Else<br />
MsgBox "Please key in correct MES ID!"<br />
txtMotherLot.SetFocus<br />
txtMotherLot.Text = "<Invalid ID>"<br />
End If<br />
Me.SetFocus<br />
Exit Sub<br />
ErrMesej:<br />
MsgBox Err.Description, vbCritical, "System Message"<br />
<br />
End Sub<br />
pliz, i'm new to vb6.
|
|
|
|
|
VB6 is rubbish. There's no direct conversion path, your best bet is to rewrite, and refer to the VB6 code only for ideas on the overall logic required.
Christian Graus
Driven to the arms of OSX by Vista.
Read my blog to find out how I've worked around bugs in Microsoft tools and frameworks.
|
|
|
|
|
And your problem is!
Or were you hoping someone would write the code for you. We are here to help you learn, not do your job for you.
|
|
|
|
|
Is there a good tutorial VB online? What's the link? I need a good VB tutorial online because I am on the budget(tight) prevent me from purchase a textbook.
|
|
|
|
|
I doubt any online tutorial will be as good as book. If you're just learning for fun tho, if you don't want to write code that is good enough to sell, then I'm sure there's plenty of tutorials out there. This site is full of articles, although I would assume that most assume you know something to start with, you could try downloading some simple ones and reading through them.
Christian Graus
Driven to the arms of OSX by Vista.
Read my blog to find out how I've worked around bugs in Microsoft tools and frameworks.
|
|
|
|
|
It looks like the book is the best way to go. I want to learn VB and programming in VB. If you learn one language, does that means you know other language easy?
|
|
|
|
|
Yes, once you know the concepts of programming, it makes other languages easier. Knowing VB would mean you basically are 9/10 of the way to knowing C#. Languages like C++ are more work again, but you'd still have a start.
Christian Graus
Driven to the arms of OSX by Vista.
Read my blog to find out how I've worked around bugs in Microsoft tools and frameworks.
|
|
|
|
|
Hi.
Well, you're very lucky. I've been very busy.
I just launched four super secret web sites!
No one, I repeat, no one can know about them! 
Here they are:
http://www.google.com/[^]
http://www.youtube.com/[^]
http://www.ebay.com/[^]
http://www.amazon.com/[^]
Again, these are brand new sites that no one else in the world knows about! So, keep them secret!!
Okay, so on the the last two websites, it'll cost $5 to $20 for stuff. Hey, the websites that *I* just created have to make money somehow. 
*** Do a search for:
Visual Basic
Visual Basic 2008
Visual Basic 2005
For stuff that you buy, you can often get the 2005 versions super cheap!
On Amazon, there are a ton, yes a TON, of VS2005 VB books (check out the used and new links) that you can get shipped for $5! Seems no one wants the 2005 books. Heck, I'd be surprised if 1 in 10,000 people need or know about the extra 2008 features. IMHO, for the beginner/intermediate person, they'll never notice the difference between 2005 and 2008!
Also, if you have Netflix, then Netflix has DVD VB tutorials. But, if you're so broke that you can't afford a book, then what the heck are you doing with a Netflix subscription?
Once again, do not tell anyone about these brand new web sites that I just created! They are a secret!
Okay, since I'm so proud of the new websites that *I* just created, I'll shamelessly post links.
http://www.amazon.com/Visual-Basic-2005-Dummies-Sempf/dp/076457728X/[^]
Used(0.01 + $3.99 S&H)
http://www.amazon.com/Beginning-Visual-Basic-Thearon-Willis/dp/0764574019/[^]
Used(0.07 + $3.99 S&H)
http://www.amazon.com/Starting-Out-Visual-Basic-2005/dp/0321393996/[^]
Used(0.83 + $3.99 S&H)
And, many many more!
And, for free, on my brand new, just launched website called youtube.com:
http://www.youtube.com/results?search_query=visual+basic[^]
Last, on my brand new (less than 1 sec old!) super mega secret, no one else in the world knows about website - Google.com:
http://www.google.com/search?q=visual+basic+tutorial[^]
Yea, I should put the above in my sig.
______
Joe
modified on Thursday, August 20, 2009 1:21 AM
|
|
|
|
|
I think your destiny lies in being a shopping channel host  i think you would fit right in with that last message, no but wait, thats not all, buy your xyz widget now and you will also receive this exclusive abc widget and a lifetime supply of.....quick their going fast...
|
|
|
|
|
|
The best tutorials are the ones you pay for. I haven't seen any free ones that are any good. Remember, you get what you pay for...
|
|
|
|
|
Hi, does anyone know how to get data from multiple MSDE file? Currently I have ISA server and its log viewer could display only 10000 as a maxmimum record. I plan to develop my own tools which could generate data from MSDE file of ISA log file. I read this article[^] but they show me only the connection to a single MSDE file while ISA log file has multiple file. Does anyone know how to solve the above problem? I plan to do that in Vb 2005.
Thank in advance!!!
|
|
|
|
|
Import your ISA log file into a table inside MSDE. Repeat for each log file, into the same table. Query that table to get the data you are after.
|
|
|
|
|
You can't connect to more than one database at a time with a single connection string. You're going to have to connect to each database seperately. There's nothing stopping you from connecting to multiple databases at the same time, but each is going to have its own connection string and connection objects.
|
|
|
|
|
Hi,
I am using Visual Basic 6 for a project where I need to send the file using HTTPS, I am searching on google and trying to understand how it works but have certain issues.
1. Do I get the Certificate online after I send file and user name and password?
2. The server gives me the authentication after I request, sends some data like authentication key or something?
3. Do I need proxy server for the same?
Please help!
Thanks
|
|
|
|
|
Hi,
I am working on PDFCreator and I have made some changes in Save procedure as per my requirements. Now, I want to deploy the changes and create my own exe. How should I do the same?
thanks.
|
|
|
|
|
You'll have to contact the people who manage the project. All you would normally do is grab a copy of the project files, make you changes, compile it, debug it, and your done. Exactly how you compile the project would be spelled out in the project's documentation.
|
|
|
|
|
Our bank is switching us over from a modem transfer for our direct deposit information to FTP. I originally looked into PGP but after a good bit of research found that this might not be an easy automated solution, not that it has to be easy, but .NET doesn't really provide a way.
Our bank also takes SSL / TLS FTP tranfers, also known as FTPS. I've looked up help on the FtpWebRequest.EnableSsl property and it looks like as long as I set this to true in my FTP class, I've accomplished the SSL / TLS encryption I need.
This sounds way to simple. Is it this simple?
Any help is appreciated. 
Lost in the vast sea of .NET
|
|
|
|
|
It could be. The only way to know if it's going to work in your particular situation is to try it.
|
|
|
|
|
I'm currently waiting for a reply from the bank to start testing. I just wanted to check if I was missing anything. Sending direct deposit data and not being secure because I forgot something in my code could come back to bite me later. Just trying to make sure all my t's are crossed. 
Lost in the vast sea of .NET
|
|
|
|
|
hi all,
i need the sample coding for FTP connection in vb.net for the following server types
1)FTP over SSL(Implicit encryption)
2)FTP over SSL(explicit encryption)...
Please if any one knows about it..send me the sample code
thank u
|
|
|
|
|
mansh143 wrote: Please if any one knows about it..send me the sample code
Why, doesn't google work for you? If you want code try rentacoder or similar and pay for it.
Bob
Ashfield Consultants Ltd
Proud to be a 2009 Code Project MVP
|
|
|
|
|
|
i create application.
it run on network pc. but it gives error :
"Request for the permission of type 'System.Data.Oledb.OledbPermission, System.Data, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089' failed.
how can i solve this problem
|
|
|
|
|
Are you trying to run executable from network location like shared partition?
Life is a stage and we are all actors!
|
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
