Visual Basic

Garner T20-Jun-11 13:14

Garner T

20-Jun-11 13:14

Now I think I’m worse off than I originally thought since I don’t even know how to answer your question. Guessing “UI” means “User Interface?” If so, I think that is where my problem is.

Here’s the old VB6 code I used for my “Update” button in the user interface. VB10 highlights just about all of it with all kinds of errors. The worst part is that I have several buttons in each of several interfaces controlling several databases. “Add,” “Update,” “Delete,” & “Refresh” are the buttons that I am using.

Private Sub cmdUpdate_Click()<br />
  On Error GoTo UpdateErr<br />
<br />
   Dim db As Database<br />
   Set db = OpenDatabase("c:\microsoft visual studio\vb98\openaccts.mdb")<br />
     <br />
   Dim rs As Recordset<br />
   Set rs = db.OpenRecordset("prices", dbOpenDynaset)<br />
     <br />
'Edit record and show new prices.<br />
<br />
       rs.Edit<br />
      <br />
       rs.Fields("1b") = txtFields(0)<br />
       rs.Fields("2b") = txtFields(1)<br />
       rs.Fields("2r") = txtFields(2)<br />
       rs.Fields("3a") = txtFields(3)<br />
       rs.Fields("3s") = txtFields(4)<br />
       rs.Fields("as") = txtFields(5)<br />
       rs.Fields("br") = txtFields(6)<br />
       rs.Fields("bs") = txtFields(7)<br />
       rs.Fields("fd") = txtFields(8)<br />
       rs.Fields("ms") = txtFields(9)<br />
       rs.Fields("os") = txtFields(10)<br />
       rs.Fields("ts") = txtFields(11)<br />
       rs.Fields("tu") = txtFields(12)<br />
       rs.Fields("ws") = txtFields(13)<br />
      <br />
       rs.Update<br />
     <br />
'Change prices on PRODUCT form.<br />
<br />
       frmprdm!txt1b.text = rs.Fields("1b")<br />
       frmprdm!txt2b.text = rs.Fields("2b")<br />
       frmprdm!txt3a.text = rs.Fields("3a")<br />
       frmprdm!txt3u.text = rs.Fields("3s")<br />
       frmprdm!txtas.text = rs.Fields("as")<br />
       frmprdm!txtbr.text = rs.Fields("br")<br />
       frmprdm!txtbs.text = rs.Fields("bs")<br />
       frmprdm!txtfd.text = rs.Fields("fd")<br />
       frmprdm!txtms.text = rs.Fields("ms")<br />
       frmprdm!txtou.text = rs.Fields("os")<br />
       frmprdm!txtts.text = rs.Fields("ts")<br />
       frmprdm!txttu.text = rs.Fields("tu")<br />
       frmprdm!txtws.text = rs.Fields("ws")<br />
     <br />
  Exit Sub<br />
UpdateErr:<br />
  MsgBox Err.Description<br />
End Sub

I have read a ton of information online about changing the code and; so far, none of it has worked for me.

Thanks, Garner

ChandraRam20-Jun-11 20:07

ChandraRam

20-Jun-11 20:07

Read up on DataTables, DataSets and DataRows - that should help.

Smile | :)

RobCroll21-Jun-11 2:48

RobCroll

21-Jun-11 2:48

As mentioned ADO.NET is different to ADO but looking at that code I would recommend you may do well to use Entity Framework. It will abstract away a lot of the implementation and should fit quite nicely with your current model. Julie Lerman has created a great beginners guide screencast. If you want to get up and running fast, I'd go straight to EF - Part 1 section.

Enjoy

"You get that on the big jobs."

Upgrade VB6 Database to VB10

Abhinav S20-Jun-11 21:41

Abhinav S

20-Jun-11 21:41

Implementation of ADO.Net is different from ADO, so you will need to read about ADO.Net and learn it before using it.

The funniest thing about this particular signature is that by the time you realise it doesn't say anything it's too late to stop reading it.

Garner T20-Jun-11 22:35

Garner T

20-Jun-11 22:35

I pretty much figured out that everything was different when none of my code worked anymore and nothing that I did helped. That was pretty much my original question. What do I read and where do I find it? I have read stuff online for hours in forums, MSDN, sample code ...? I have looked for books on the subject but I haven't found anything that seems like it would help. In VB6 I went to the book store, picked up a book, "Visual Basic 6 Database Programming," and everything I needed was there. No such luck with VB10.

Upgrade VB6 Database to VB10

AnnieMacD21-Jun-11 6:08

AnnieMacD

21-Jun-11 6:08

Here's a link to Amazon.com ADO.NET on Amazon[^]

Some in the list are specific for VB.

Julia Lerman's book is also mentioned and, like Rob above, I would recommend going the Entity Framework route as you then have an abstraction layer over the ADO.NET itself.

It’s not because things are difficult that we do not dare, it’s because we do not dare that things are difficult. ~Seneca

Garner T22-Jun-11 14:09

Garner T

22-Jun-11 14:09

Thanks everyone for all of the information! Now I will have to see if my mind can absorb enough of it to make my code work. If not I know where to come for more help.

Thanks again, Garner

ADF Scanning

ivo7517-Jun-11 7:19

17-Jun-11 7:19

How to use WIA.dll to scan from adf in scaner

Re: ADF Scanning

Dave Kreskowiak17-Jun-11 10:16

Dave Kreskowiak

17-Jun-11 10:16

A little Google goes a long way, especially if you follow the first link in the results.

BTW: It took me all of 4 seconds to find this.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak

ListBox Question

waner michaud16-Jun-11 10:04

waner michaud

16-Jun-11 10:04

Hi everyone,
I have a listbox derived from a table with the following record:
Listbox_answer_item
Bleu
Red
Black

this is from an answer table base on a particular question. since a question can have more than one asnwer, I like to number the response to a question

I rather show the items in the list box in sequential manner with a numbering system.
For example:

Listbox_answer_item
1. Bleu (first answer)
2. Red (second answer)
3. Black (third answer)
4. etc..

this number should be a position number..which answer that enters first and so forth..

Thanks in advance!

Christopher Mars16-Jun-11 18:41

Christopher Mars

16-Jun-11 18:41

I think this is what you are asking for

VB.Net

Dim answers() As String = { "Bleu", "Red", "Black" }

For I As Integer = 0 To answers.Length - 1
 ListBox1.Items.Add((I + 1).ToString() + ". " + answers(I))
Next

VB6

Dim I As Integer
Dim answers(2) As String
    
answers(0) = "Bleu"
answers(1) = "Red"
answers(2) = "Black"
    
For I = 0 To UBound(answers)
 List1.AddItem CStr(I + 1) + ". " + answers(I)
Next I

To add more answers to the listbox, just add more elements to the array.

Re: ListBox Question [modified]

waner michaud17-Jun-11 3:31

waner michaud

17-Jun-11 3:31

Hi,
Thanks for replying. these answers are from a Question_Answer table relationship.
The listbox is binding with Qestion_Answer table based on Question_PK and Answer_PK.
so the answer is not hardcoded. I want to enumarate the answers on the listbox.

Thanks again.

PS. vb.net and sql

Alan N17-Jun-11 4:05

Alan N

17-Jun-11 4:05

You should be able to use the ListBox Format event to solve this problem.

Some rough and ready code showing the general idea

Private data As String() = {"One", "Two", "Three", "Four"}

Public Sub New()
	InitializeComponent()
	addhandler listBox1.format, addressof listBox1_Format
	listBox1.DataSource = data
End Sub

Private Sub listBox1_Format(sender As Object, e As ListControlConvertEventArgs)
	Dim list As IList = DirectCast(DirectCast(sender, ListBox).DataSource, IList)
	Dim idx As Int32 = list.IndexOf(e.ListItem)
        ' format as "1. One",  "2. Two" etc
	e.Value = String.Format("{0}. {1}", idx + 1, e.ListItem)
End Sub

Alan.

modified on Friday, June 17, 2011 10:37 AM

Simon_Whale17-Jun-11 4:17

Simon_Whale

17-Jun-11 4:17

you've got some c# in your text there

listBox1.Format += New ListControlConvertEventHandler(listBox1_Format)

should be

addhandler listbox1.format, addressof listbox1_format

Lobster Thermidor aux crevettes with a Mornay sauce, served in a Provençale manner with shallots and aubergines, garnished with truffle pate, brandy and a fried egg on top and Spam - Monty Python Spam Sketch

Alan N17-Jun-11 4:37

Alan N

17-Jun-11 4:37

Good catch, I'd put C# source through a code converter and must have copied that line in separately.

Alan.

WebService Deployment [modified]

Simon_Whale17-Jun-11 4:54

Simon_Whale

17-Jun-11 4:54

No the converters don't handle the event handlers properly on conversion.

Lobster Thermidor aux crevettes with a Mornay sauce, served in a Provençale manner with shallots and aubergines, garnished with truffle pate, brandy and a fried egg on top and Spam - Monty Python Spam Sketch

KenBonny16-Jun-11 4:20

KenBonny

16-Jun-11 4:20

I just wrote a couple of webservices, with references to vb code behind files. Now that I build my webservices, I still need to deliver the code behind files as ordinary vb files, they didn't compile into dll's.

Is there a way I can compile the vb files to dll's and ship those to my client? Or do I need to put the vb files (with proprietary code) on my clients server?

EDIT - And how do I automatically change the path of the codebehind file automatically to the .dll when I build?

Can somebody help me? I have no idea how to tackle this problem.

modified on Friday, June 17, 2011 4:47 AM

vb6 app crash on exit

Member 320044015-Jun-11 10:21

Member 3200440

15-Jun-11 10:21

I have a legacy vb6 app that crashes on exit - both as an executable and in the IDE. I am currently unloading the forms (except the frmmain) in form_unload, releasing all the adodb recordsets, setting all the boundcollections = nothing, I have attempted to SetErrorMode SEM_NOGPFAULTERRORBOX in the form_terminate event and that has not stopped the error from occurring. I have also checked for subclasses being instantiated in my code and found none. I have checked into the components from outside MS that are used - they are the Componentone flexgrid 8 spelling 8 and componentOne sizer control. An extensive web and forum search has not turned up any known problems similar to mine for these controls. The issue does not seem to occur if I shut down the program before actually doing anything. However loading the bound controls seems to be near where the problem is rooted, in spite of repeatedly stepping with the debugger it seems that the start of the problem "moves around". The problem occurs with the programmatic exit, the "X" and the IDE "end" control
The error message is
The instruction at "0x77d042b8" referenced memory at "0x055c9028". The memory could not be "Read". The title in the error box is a tool tip (differing at different times) from inside my app

Re: vb6 app crash on exit

Dave Kreskowiak15-Jun-11 12:46

Dave Kreskowiak

15-Jun-11 12:46

The first question is what is it crashing on? XP, Vista, or 7? If it works on an older O/S, like XP, and eats it on Vista/7, there isn't much you're going to do about it, other than scrap the old VB6 POS and rewrite in .NET. Besides, with the release of Windows 8, VB6 support is officially gone.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak

Use binnary file instead MS Access

ivo7515-Jun-11 7:05

15-Jun-11 7:05

Hi, I want to use binnary file instead MS Access, because I want keep my data in DB

David Mujica15-Jun-11 7:44

David Mujica

15-Jun-11 7:44

You will have to explain your question in more detail. I don't understand what the question is.

ivo7515-Jun-11 8:29

15-Jun-11 8:29

I want save my data in binnary file not in MS Access database

DaveAuld15-Jun-11 8:45

DaveAuld

15-Jun-11 8:45

You mean you want to create your own data store format for saving data to?

Dave
Find Me On: Web|Facebook|Twitter|LinkedIn

Folding Stats: Team CodeProject

ivo7515-Jun-11 9:20

15-Jun-11 9:20

in Pascal we can to save data to ".dat" file, can I save in VB data in ".dat" format?